oziel Posted January 28, 2011 Report Share Posted January 28, 2011 A barra progressiva que utilizei antes no proj de 16 não funcionou agora em 32 pois não deixou criar os indices dos arquivos. O sistema só indexou o Banco quando retirei o comando EVAL {|| oMeter:Set(AGENDA->( Recno() ))} EVERY 5 O Programa agora está sem a Barra Progressiva Vejam.. //------------------------- PROCEDURE Reindexar LOCAL bAction bAction := { | oMeter, oText, oDlg, lEnd | Reorganiza( oMeter, oText, oDlg, @lEnd ) } MsgMeter( bAction ,"Preparando...","Reorganização da base de dados" ) RETURN //------------------------------------------------- STATIC FUNCTION Reorganiza(oMeter,oText,oDlg,lEnd) oText:SetText("Classificando Agenda... Arq 1 ") Use AGENDA Alias AGENDA EXCLU oMeter:nTotal := AGENDA->( LastRec()*5 ) INDEX ON NOME TAG AGENDA TO AGENDA; EVAL {|| oMeter:Set(AGENDA->( Recno() ))} EVERY 5 ................................................... OZIEL LOPES FW 22c - Clipper 5.3b - Workshop 4.0 FWH 6.12 Free - xHarbour 0.99.71 Simplex - BCC55 - Pelles C - xDev. Quote Link to comment Share on other sites More sharing options...
oziel Posted January 28, 2011 Author Report Share Posted January 28, 2011 A barra progressiva que utilizei antes no proj de 16 não funcionou agora em 32 pois não deixou criar os indices dos arquivos. O sistema só indexou o Banco quando retirei o comando EVAL {|| oMeter:Set(AGENDA->( Recno() ))} EVERY 5 O Programa agora está sem a Barra Progressiva Vejam.. //------------------------- PROCEDURE Reindexar LOCAL bAction bAction := { | oMeter, oText, oDlg, lEnd | Reorganiza( oMeter, oText, oDlg, @lEnd ) } MsgMeter( bAction ,"Preparando...","Reorganização da base de dados" ) RETURN //------------------------------------------------- STATIC FUNCTION Reorganiza(oMeter,oText,oDlg,lEnd) oText:SetText("Classificando Agenda... Arq 1 ") Use AGENDA Alias AGENDA EXCLU oMeter:nTotal := AGENDA->( LastRec()*5 ) INDEX ON NOME TAG AGENDA TO AGENDA; EVAL {|| oMeter:Set(AGENDA->( Recno() ))} EVERY 5 ................................................... OZIEL LOPES FW 22c - Clipper 5.3b - Workshop 4.0 FWH 6.12 Free - xHarbour 0.99.71 Simplex - BCC55 - Pelles C - xDev. Quote Link to comment Share on other sites More sharing options...
Ale SB Posted January 28, 2011 Report Share Posted January 28, 2011 Tente assim: STATIC FUNCTION Reorganiza(oMeter,oText,oDlg,lEnd) oText:SetText("Classificando Agenda... Arq 1 ") Use AGENDA Alias AGENDA EXCLU NEWid=red> oMeter:nTotal := AGENDA->( LastRec()*5 ) INDEX ON NOME TAG AGENDA TO AGENDA; EVAL(oMeter:Set(Recno()), CURSORWAIT(), SysRefresh()) oMeter:Set(LastRec()) oMeter:Refresh()id=red>id=code>id=code>@braços Ale aleseribeli@hotmail.com Andradina/SP "O que nao Aguenta, Arrebenta, quem Bambeia eh Barbante, Quem tem Limite eh MunicÃpio."id=red> Quote Link to comment Share on other sites More sharing options...
oziel Posted January 28, 2011 Author Report Share Posted January 28, 2011 Beleza... Na mosca... Funcionou perfeito - Vou continuar ajustando os outros programas. Obrigado. Abraços eu.. OZIEL LOPES FW 22c - Clipper 5.3b - Workshop 4.0 FWH 6.12 Free - xHarbour 0.99.71 Simplex - BCC55 - Pelles C - xDev. 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.