kapiaba Posted November 7, 2008 Report Share Posted November 7, 2008 Francisco, problema principal, estava na criacao dos INDICES, XHARBOUR 'FINGE' que CRIA, nas nao CRIA os INDICES... Se voce esta usando HARBOUR, ele criava os INDICES 1/2 BOCA... Nao estavam completos. Porque voce colocou o EVAL em CODE BLOCK?? STATIC FUNCTION reorganiza(oMeter,oText,oDlg,lEnd) Local vTam,vRec //CursorWait() USE &TemArq EXCLUSIVE Pack //vRec:=LastRec() //vTam:=(vRec/100)*2 //oMeter:nTotal:=vRec*NroInd oMeter:nTotal := RecCount() IF ! Empty(ChInd1) /* INDEX ON &ChInd1 TAG 1 TO &TemInd //EVAL {|| oMeter:Set(Recno())} EVERY vTam */ INDEX ON &ChInd1 TAG 1 TO &TemInd ; EVAL ( oMeter:Set( RecNo() ), CursorWait(), SysRefresh() ) ; EVERY 10 ENDIF IF ! Empty(ChInd2) /* INDEX ON &ChInd2 TAG 2 TO &TemInd //EVAL {|| oMeter:Set(vRec+Recno())} EVERY vTam */ INDEX ON &ChInd2 TAG 2 TO &TemInd ; EVAL ( oMeter:Set( RecNo() ), CursorWait(), SysRefresh() ) ; EVERY 10 ENDIF IF ! Empty(ChInd3) /* INDEX ON &ChInd3 TAG 3 TO &TemInd //EVAL {|| oMeter:Set(vRec*2+Recno())} EVERY vTam */ INDEX ON &ChInd3 TAG 3 TO &TemInd ; EVAL ( oMeter:Set( RecNo() ), CursorWait(), SysRefresh() ) ; EVERY 10 ENDIF IF ! Empty(ChInd4) /* INDEX ON &ChInd4 TAG 4 TO &TemInd FOR &Cond04 //EVAL {|| oMeter:Set(vRec*3+Recno())} EVERY vTam */ INDEX ON &ChInd4 TAG 4 TO &TemInd FOR &Cond04 ; EVAL ( oMeter:Set( RecNo() ), CursorWait(), SysRefresh() ) ; EVERY 10 ENDIF IF ! Empty(ChInd5) /* INDEX ON &ChInd5 TAG 5 TO &TemInd FOR &Cond05 //EVAL {|| oMeter:Set(vRec*4+Recno())} EVERY vTam */ INDEX ON &ChInd5 TAG 5 TO &TemInd FOR &Cond05 ; EVAL ( oMeter:Set( RecNo() ), CursorWait(), SysRefresh() ) ; EVERY 10 ENDIF CLOSE DATA lEnd := .T. RETURN Nil REVEJA TODOS OS SEUS oLbx:Refresh() Ponha: oLbx:Refresh() oLbx:SetFocus Sempre que possivel, passe o OBJETO por referecia tipo: //-> Modificado em FGERAL.PRG FUNCTION fOrdem(cOrdem, oLbx, oDlg) Local vEstou:=Recno() Sele Lanos DbSetOrder(Val(SubStr(cOrdem,31,1))) DbGotop() oLbx:Refresh() oLbx:SetFocus() DbGoto(vEstou) oDlg:Update() oDlg:Refresh() RETURN .T. id=code>id=code>Abracos. Qualquer duvida, GRITYE PELO PAULO! ESTE E O KARA! João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
frkiko Posted November 10, 2008 Author Report Share Posted November 10, 2008 Rapaz, olha eu estou fazendo teste como você falou e nada, continua com problemas. De qualquer forma obrigado. Porque voce colocou o EVAL em CODE BLOCK?? Olha não me lembro porque? más mesmo abortando não resolve o problema, o estralho é que em outros arquivos não apresenta o problema. É bom lembrar que quando o arquivo é refeito a indexação não paresenta nenhum problema, apenas depois de inserir um novo registro é que fica doido. Não apresenta erro, simplismente quando pesquisa um determinado registro em uma determinada chave de indice ele não localiza e em outra chave está lá. Espero poder atualizar meu fivewin e torcer para que resolva o probelma. Abraços, e muito obrigado João e Paulo. Francisco J S Barbosa Belo Horizonte - MG MSN: francisco@ponteware.com.br FiveWin for Harbour 2.4 - Workshop Editado por - frkiko on 10/11/2008 14:29:10 Quote Link to comment Share on other sites More sharing options...
pauloaraujo Posted November 10, 2008 Report Share Posted November 10, 2008 Francisco, tudo bem?? Mandei um E-Mail contendo o demo.exe compilado com FWH 2.7 e XHB 0.99.61 e os PGSs com pequenas alterações feitas por mim e pelo João. Reorganizar os arquivos e testar. Procure pela palavra "<<-- Modificado" nos PRGs Um abraço Quote Link to comment Share on other sites More sharing options...
frkiko Posted November 11, 2008 Author Report Share Posted November 11, 2008 Grande Paulo e João, muito obrigado mesmo. 1o. Realmente o seu Executavel está ok.... 100% 2o. Então compilei com a minha versão de FWH 2.4 3o. Então não funciona o problema só pode ser da minha versão. 4o. Mais alguma ideia? Há já tinha solicitado uma nova versão quase a um més, más sabe como sócio é, (pior que casamento....rsrsr) vou tratar da atualização eu mesmo. Só gostaria da opnião de vocês, só pode ser isso mesmo não é ? Obrigado Francisco J S Barbosa Belo Horizonte - MG MSN: francisco@ponteware.com.br FiveWin for Harbour 2.4 - Workshop Quote Link to comment Share on other sites More sharing options...
kapiaba Posted November 11, 2008 Report Share Posted November 11, 2008 citação:Grande Paulo e João, muito obrigado mesmo. 1o. Realmente o seu Executavel está ok.... 100% 2o. Então compilei com a minha versão de FWH 2.4 3o. Então não funciona o problema só pode ser da minha versão. 4o. Mais alguma ideia? Há já tinha solicitado uma nova versão quase a um més, más sabe como sócio é, (pior que casamento....rsrsr) vou tratar da atualização eu mesmo. Só gostaria da opnião de vocês, só pode ser isso mesmo não é ? Obrigado Francisco J S Barbosa Belo Horizonte - MG MSN: francisco@ponteware.com.br FiveWin for Harbour 2.4 - Workshop id=quote>id=quote>Minha Resposta:id=size4> http://fivetechsoft.com/forums/viewtopic.php?t=12759 João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.