frkiko Posted November 5, 2008 Author Report Share Posted November 5, 2008 citação:2- A ordemm de Número desaparece o intervalo de 0032555 até 0033432, sem explicação, quando procuro por data por exemplo estes números estão lá. id=quote>id=quote>Agora com varios testes, ou seja, inclusão de novos registros o intervalo mudou, desaparece de 0032554 até 0033431, muito doido. Estou ficando doido. Francisco J S Barbosa Belo Horizonte - MG MSN: francisco@ponteware.com.br FiveWin for Harbour 2.4 - Workshop Editado por - frkiko on 05/11/2008 13:42:57 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted November 5, 2008 Report Share Posted November 5, 2008 PARE O PROGRAMA COM A ? E PEÇA PARA ELE MOSTRAR, QUAL É O TAG(INDICE) EM QUE VOCE ESTA NO MOMENTO ANTES DA GRAVAÇÃO, E QUAL É O TAG, DEPOIS DA GRAVAÇÃO, POR FAVOR. Reporte... Abraços. 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 5, 2008 Author Report Share Posted November 5, 2008 Sim mestre João, rsrsrs STATIC FUNCTION fGrava(cOpcao,oFld) Sele lanos orderAnt:=IndexOrd() ****************************** ? indexord() ==> mostrou 2 ? indexkey() ==> mostrou DTEMI ****************************** IF cOpcao=="I" lockfile() // bloqueia arquivo DbSetOrder(0) ****************************** ? indexord() ==> mostrou 0 ? indexkey() ==> mostrou VAZIO ****************************** DbAppend() lanos->nro:=cNro ELSE lockrec() // bloqueia registro DbSetOrder(0) ENDIF lanos->dtemi:=dDtemi;lanos->nrocli:=cNrocli;lanos->nomcli:=cNomcli;lanos->hoemi:=cHoemi lanos->orca:=cOrca;lanos->contato:=cContato;lanos->fone:=cFone;lanos->email:=cEmail lanos->atdg:=iif(lAtdg=.t.,"S","N");lanos->rat:=cRat;lanos->ctgr:=Str(cCtgr,1,0) lanos->motivo:=cMotivo;lanos->dtter:=dDtter;lanos->hoini:=cHoini;lanos->hoter:=cHoter lanos->nrotec:=cNrotec;lanos->nomtec:=cNomtec;lanos->obs:=cObs;lanos->obs2:=cObs2 lanos->retorno:=iif(lRetorno==.t.,"S","N")+cRetos+cRettec+cRetnom lanos->defaca:=cNroDef+cNomDef+cNroAca+cNomAca lanos->condpg:=cCondpg;lanos->vlrfinal:=nVlrfinal;lanos->dtpag:=dDtpag ****************************** ? indexord() ==> mostrou 0 ? indexkey() ==> mostrou VAZIO ****************************** DbCommit() DbUnlock() DbSetOrder(orderAnt) ****************************** ? indexord() ==> mostrou 2 ? indexkey() ==> mostrou DTEMI ****************************** IF cOpcao=="I" Sele ipdos ipdos->(OrdScope(0,cNro)) ipdos->(OrdScope(1,cNro)) DbGotop() Sele isvos isvos->(OrdScope(0,cNro)) isvos->(OrdScope(1,cNro)) DbGotop() Sele icsos icsos->(OrdScope(0,cNro)) icsos->(OrdScope(1,cNro)) DbGotop() Sele lanos cOpcao:="A" oSay3:SetText(cNro) oFld:aEnable:={.t.,.t.,.t.,.t.} oBton:SetFocus() ENDIF RETURN Nil id=code>id=code>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...
frkiko Posted November 5, 2008 Author Report Share Posted November 5, 2008 citação: citação:2- A ordemm de Número desaparece o intervalo de 0032555 até 0033432, sem explicação, quando procuro por data por exemplo estes números estão lá. id=quote>id=quote>Agora com varios testes, ou seja, inclusão de novos registros o intervalo mudou, desaparece de 0032554 até 0033431, muito doido. Estou ficando doido. Francisco J S Barbosa Belo Horizonte - MG MSN: francisco@ponteware.com.br FiveWin for Harbour 2.4 - Workshop Editado por - frkiko on 05/11/2008 13:42:57 id=quote>id=quote>Aiai.... voltou para o intervalo inicial do primeiro post.... Só mais informações, estou local. Estou quase jogando a toalha. Francisco J S Barbosa Belo Horizonte - MG MSN: francisco@ponteware.com.br FiveWin for Harbour 2.4 - Workshop Editado por - frkiko on 05/11/2008 15:03:32 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted November 5, 2008 Report Share Posted November 5, 2008 tente: DbCommit() DbUnlock() Sele lanos DbSetOrder(orderAnt) lAnos := ALIAS() BROWSE() id=code>id=code>Reporte... Abraços. 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 Editado por - kapiaba on 05/11/2008 15:28:12 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted November 5, 2008 Report Share Posted November 5, 2008 Como esta suas configurações no MENU PRINCIPAL? // Configuraçao Para Todo o Sistema RDDSETDEFAULT( "DBFCDX" ) // CARREGA RDD DEFINIDO NO CASO, *.CDX SET CENTURY ON // 4 DIGITOS PARA O ANO SET DATE BRITISH // FORMATO DD/MM/AAAA SET EPOCH TO 1950 // PARA IMPEDIR QUE O ANO SEJA 00 SET SOFTSEEK OFF // PARA REALIZAR UMA BUSCA APROXIMADA SET WRAP ON //-Set( 35, "ON" ) // PARA MENUS SETCANCEL( .F. ) // INUTILIZA ALT + C PARA ABORTAR PROGRAMA SET CONFIRM OFF // CURSOR NÇO PODE DESLOCAR-SE AUTOMATICAMENTE SET DELETED ON // ON IMPEDIR VER REGISTROS MARCADOS PARA APAGAR SET ESCAPE ON // TECLA ESC LIGADA, POSSO ESCAPAR. SET EXCLUSIVE OFF // REDE NETUSE LIGADA SET MULTIPLE OFF // PARA QUE SE POSSA ACIONAR QUANTAS JANELAS QUISER id=code>id=code>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...
kapiaba Posted November 5, 2008 Report Share Posted November 5, 2008 OUTRA PERGUNTA: EM QUE MOMENTO VOCE ESTà FECHANDO OS ORDSCOPE() ?? VERIFIQUE! Reporte. Abraços. 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...
crisvam Posted November 5, 2008 Report Share Posted November 5, 2008 citação:Descobri a pouco tempo em um cliente. Acontece que quando incluo um novo registro o indece cdx, fica doido. Por exemplo: 1- A ordem de Data passa a iniciar 06/10/2008 sendo que antes era de 19/07/2008. 2- A ordemm de Número desaparece o intervalo de 0032555 até 0033432, sem explicação, quando procuro por data por exemplo estes números estão lá. Não sei se outros indices estão tb com problemas. E claro quando recrio o indice, volta tudo ao normal. Faço assim: orderAnt:=IndexOrd() DbSetOrder(0) DbAppend() lanos->nro:=cNro . . . DbCommit() DbUnlock() DbSetOrder(orderAnt) Já tem um mês que procuro e não encontro um motivo, se alguem já passou por isso, fico no aguardo. Obrigado Francisco J S Barbosa Belo Horizonte - MG MSN: francisco@ponteware.com.br FiveWin for Harbour 2.4 - Workshop id=quote>id=quote>Frkiko.... Alguém já falou que para vencer na vida é 10% de inspiração e 90% de transpiração! quando a coisa não dá certo, qdo tudo parece certo, reescreva sua rotina de insersão e se continuar rescreva a de indexação, recompile e link tudo de novo. Isto já aconteceu comigo é como se o que estava escrito não estivesse. mas.... Crisvam Quote Link to comment Share on other sites More sharing options...
frkiko Posted November 6, 2008 Author Report Share Posted November 6, 2008 citação:OUTRA PERGUNTA: EM QUE MOMENTO VOCE ESTà FECHANDO OS ORDSCOPE() ?? VERIFIQUE! Reporte. Abraços. 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 id=quote>id=quote>EM QUE MOMENTO VOCE ESTà FECHANDO OS ORDSCOPE() ?? Grande João verificado e nada, agora fecho o ordscope() quando fecho a janela de edição/inclução do arquivo. Agora já abortei até os ordscope() e o problema continua... Abraços 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...
frkiko Posted November 6, 2008 Author Report Share Posted November 6, 2008 citação:Frkiko.... Alguém já falou que para vencer na vida é 10% de inspiração e 90% de transpiração! quando a coisa não dá certo, qdo tudo parece certo, reescreva sua rotina de insersão e se continuar rescreva a de indexação, recompile e link tudo de novo. Isto já aconteceu comigo é como se o que estava escrito não estivesse. mas.... Crisvam id=quote>id=quote>Obrigado pelo apoio, realmente no inicio dos teste eu incluia algumas linhas e mudava algumas coisas, depois disso parou de dar erro em outro indice, e retornei como era antes e o erro (acredito eu que acabou), só que este outro não quer corrigir, então vou continuar com alterações para ver se acertava o outro, más será que não pode acontecer o contrario e piorar mais ainda.... rsrsrsr. Bom como já vi isso acontecer vou fazer, refazer toda a função novamente e ver se melhora. Olha já vi coisas que ninguem acredita, não é facil. Está tudo certo más sai tudo errado. Abraços Francisco J S Barbosa Belo Horizonte - MG MSN: francisco@ponteware.com.br FiveWin for Harbour 2.4 - Workshop Editado por - frkiko on 06/11/2008 08:46:36 Quote Link to comment Share on other sites More sharing options...
crisvam Posted November 6, 2008 Report Share Posted November 6, 2008 citação:DbSetOrder(0) //-> Partindo do seu ponto de vista, que não é o meu, EXPLIQUE: DbSetOrder(0)-> EM QUE INDICE O TAG DO CDX está?? QUANDO QUE O TAG É 0(ZERO)??? CRIASTES UM TAG 0(ZERO)??? SE DIGO: SET ORDER TO 0 //-> NO INDEX ON... QUEM É ESTE TAG SET ORDER TO 1 //-> E ESTE?? SET ORDER TO 2 //-> E ESTE?? SET ORDER TO 3 //-> E ESTE?? SUPONDO, E AHI PERGUNTO EU: SE VOCE DIZ QUE UM TAG É ZERO, O QUE O INDICE TEM QUE RETORNAR??? QUAL É O INDICE, EU TE PERGUNTO. TESTE, DIZENDO PARA O INDICE, QUAL É O TAG QUE VOCE CRIOU NO INDEXADOR: USE ARQUIVO INDEX ARQUIVO ALIAS ARQUIVO SET ORDER TO NUMERODOTAG //-> CORRETO. GO TOP BROWSE() ADICIONE... DEPOIS COM TAG ZERO... BROWSE() ADICIONE... Abraços. 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 id=quote>id=quote>Quem conhece o clipper desde o summer 87, sabe que sua maior fragilidade é a indexação. Mas os criadores do clipper aconselhavam utilizar a forma set order to 0 para diminuir a corrupção de indices que era muito acentuada no inÃcio do clipper e até com o NTX. No entanto, nunca houve uma demonstração técnica sobre isto, apenas a confiança da comunidade de programadores nos criadores do clipper. A utilização deste método é o exaustivamente exposto, mas eu pessoalmente não uso. Crisvam Quote Link to comment Share on other sites More sharing options...
crisvam Posted November 6, 2008 Report Share Posted November 6, 2008 citação: citação:Frkiko.... Alguém já falou que para vencer na vida é 10% de inspiração e 90% de transpiração! quando a coisa não dá certo, qdo tudo parece certo, reescreva sua rotina de insersão e se continuar rescreva a de indexação, recompile e link tudo de novo. Isto já aconteceu comigo é como se o que estava escrito não estivesse. mas.... Crisvam id=quote>id=quote>Com certeza, vc vai conseguir. O Antonio Geraldo da Rocha Vidal, professor de informática na USP, diz em uma de suas formulações para uma boa programação: não concerte programas reescreva-os. Pessoalmente, concordo com ele em gênero, número e grau.... Obrigado pelo apoio, realmente no inicio dos teste eu incluia algumas linhas e mudava algumas coisas, depois disso parou de dar erro em outro indice, e retornei como era antes e o erro (acredito eu que acabou), só que este outro não quer corrigir, então vou continuar com alterações para ver se acertava o outro, más será que não pode acontecer o contrario e piorar mais ainda.... rsrsrsr. Bom como já vi isso acontecer vou fazer, refazer toda a função novamente e ver se melhora. Olha já vi coisas que ninguem acredita, não é facil. Está tudo certo más sai tudo errado. Abraços Francisco J S Barbosa Belo Horizonte - MG MSN: francisco@ponteware.com.br FiveWin for Harbour 2.4 - Workshop Editado por - frkiko on 06/11/2008 08:46:36 id=quote>id=quote>Crisvam Quote Link to comment Share on other sites More sharing options...
kapiaba Posted November 6, 2008 Report Share Posted November 6, 2008 Francisco, voce aguçou minha curiosidade, FAÇA UM DEMO COMO TE PEDI EM ME ENVIE, REPRODUZA O ERRO NA INTEGRA. EU PAGO AS BREJAS, SE O MISTER PAULO ARAUJO NÃO RESOLVER!! Ainda fico na duvida com o SET ORDER TO 0, comigo não funciona nem a PAU!! Pelo contrário: Dà PAU!! NÃO USO. E quando eu pergunto uma coisa e o ANTONIO LINARES, fica MUDO, ahi tem ´TRUTA´ das GRANDES. Abraços. 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 6, 2008 Author Report Share Posted November 6, 2008 citação:Francisco, voce aguçou minha curiosidade, FAÇA UM DEMO COMO TE PEDI EM ME ENVIE, REPRODUZA O ERRO NA INTEGRA. EU PAGO AS BREJAS, SE O MISTER PAULO ARAUJO NÃO RESOLVER!! Ainda fico na duvida com o SET ORDER TO 0, comigo não funciona nem a PAU!! Pelo contrário: Dà PAU!! NÃO USO. E quando eu pergunto uma coisa e o ANTONIO LINARES, fica MUDO, ahi tem ´TRUTA´ das GRANDES. Abraços. 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 id=quote>id=quote>Ok 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...
gvc Posted November 6, 2008 Report Share Posted November 6, 2008 set order to 0 - coloca o arquivo em ordem natural. Os indices estão abertos, mas o que vale é a ordem do arquivo. O que me foi explicado a alguns anos é que todo dado na chave deve ser transformado em texto, mesmo que seja só um campo. DTOS() e str(, ). Não reindexar indices CDX. Apague os arquivos e recrie-os. Apesar de alguns amigos daqui garantirem (eu não tenho pq duvidar disso) eu só tive problemas com versões do Clipper anteriores a 5.3. Quote Link to comment Share on other sites More sharing options...
pauloaraujo Posted November 6, 2008 Report Share Posted November 6, 2008 Francisco E esse ON CHANGE fOrdem(cOrdem)no combobox?? Cadê o fonte dele?? Não và nenhum refresh() no Listbox quando você muda de ordem. Quote Link to comment Share on other sites More sharing options...
frkiko Posted November 6, 2008 Author Report Share Posted November 6, 2008 citação:Francisco E esse ON CHANGE fOrdem(cOrdem)no combobox?? Cadê o fonte dele?? Não và nenhum refresh() no Listbox quando você muda de ordem. id=quote>id=quote>Grande Paulo, está ai: FUNCTION fOrdem(cOrdem) Local vEstou:=Recno() DbSetOrder(Val(SubStr(cOrdem,31,1))) DbGotop() DbGoto(vEstou) oLbx:Refresh() oDlg:Update() oDlg:Refresh() RETURN .T. id=code>id=code>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 6, 2008 Report Share Posted November 6, 2008 FRANCISCO: MANDE ESTES FONTES PARA O PAULO. Pasta de C:\demo 24/10/2008 13:10 8.212 CADCEP.OBJ 06/11/2008 09:59 32.292 CADCLI.OBJ 06/11/2008 09:59 11.159 CADDAC.OBJ 06/11/2008 09:59 11.500 CADPES.OBJ 06/11/2008 09:59 20.906 CADPROD.OBJ 06/11/2008 09:59 8.606 CADSER.OBJ 24/10/2008 13:10 2.748 CORGET.OBJ 24/10/2008 13:10 9.274 DOSPRN.OBJ 24/10/2008 13:10 8.346 EXT.OBJ 06/11/2008 09:59 31.531 FGERAL.OBJ id=code>id=code>FRANCISCO, ESTES ARQUIVOS.OBJ, VOCE GEROU COM UMA VERSAO INFERIOR AO XHARBOUR 0.99.61, NOS CONSEGUIMOS COMPILAR, MAS NAO PODEMOS EXECUTAR PORQUE OS OBJETOS NAO BATEM COM A VERSAO DO XHARBOUR 0.99.61 QUE USAMOS. Abracos. ESTES COMPILOU NORMALMENTE: JA TEMOS AQUI.... JA VISUALIMOS ALGUMA COISA. 06/11/2006 16:36 18.140 DEMO.obj 06/11/2006 16:36 46.758 CRIA.obj 06/11/2006 16:36 50.011 LANOSS.obj 06/11/2006 16:36 16.812 FMENU.obj 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 7, 2008 Author Report Share Posted November 7, 2008 Ok, senhores 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 7, 2008 Report Share Posted November 7, 2008 FRANCISCO, QUAIS SAO OS AQUIVOS DE INDICES DE LANOS.DBF??? Pasta de C:\DADOS\CDX 06/11/2006 13:27 6.144 LANCST.CDX 06/11/2006 13:27 7.680 LANORC.CDX 06/11/2006 13:27 6.144 LANREQ.CDX OU OS.CDX ??? 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 7, 2008 Author Report Share Posted November 7, 2008 citação:FRANCISCO, QUAIS SAO OS AQUIVOS DE INDICES DE LANOS.DBF??? Pasta de C:\DADOS\CDX 06/11/2006 13:27 6.144 LANCST.CDX 06/11/2006 13:27 7.680 LANORC.CDX 06/11/2006 13:27 6.144 LANREQ.CDX OU OS.CDX ??? 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 id=quote>id=quote>O arquivo de Os é: OS.DBF OS.CDX Pode excluir LANOS.DBF, é um arquivo antigo. Francisco J S Barbosa Belo Horizonte - MG MSN: francisco@ponteware.com.br FiveWin for Harbour 2.4 - Workshop Editado por - frkiko on 07/11/2008 11:27:59 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted November 7, 2008 Report Share Posted November 7, 2008 Em XHARBOUR, ja tem algo errado, com o MODO QUE VOCE CRIA OS ARQUIVOS DE INDICES Veja chamada simples do banco de dados: USE "C:\DEMO\DADOS\OS.DBF" //-> Sozinho ABRE SET INDEX TO "C:\DEMO\CDX\OS.CDX" //-> Nao abre os indeces GO TOP SET ORDER TO 2 id=code>id=code>E da forma que voce faz, tambem nao abre os indices, LISTBOX, retorna VAZIA. Se uso os INDICES que voce enviou, ABRE E MOSTRA NORMAL Se recrio os INDICES, nada MOSTRA. Estamos estudando. VOCE ABRE OS.DBF Y OS.CDX, MAS DIZ QUE O ALIAS E LANOS CORRETO?? 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...
kapiaba Posted November 7, 2008 Report Share Posted November 7, 2008 //-> Francisco, VA ENTENDO o 'DESMANCHE' do seu programa 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 ; 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 ; EVAL ( oMeter:Set( RecNo() ), CursorWait(), SysRefresh() ) ; EVERY 10 ENDIF CLOSE DATA lEnd := .T. RETURN Nil EM FGERAL.PRG VAI LASKAR TUDO POIS TENS UMA VARIAVEL DE RETORNO QUE USA: MACRO SUBSTTUICAO &VRETORNO /* //-> ERRADO MACRO DECLARATION FUNCTION fPesq( vArquivo, vIndice, vCampo, vJanela, vVariavel, vCampo1, ; vRetorno, vCampo2 ) */ id=code>id=code>QUE ESTA NOS FERRANDO, A GENTE CHEGA LA... O NOSSO CURSO POR CORRESPONDENCIA DE FIVEWIN, ESTA SENDO POSTO EM PRATICA... KKKKKK JESUS, ACENDE A LUZ!! Abracos 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...
kapiaba Posted November 7, 2008 Report Share Posted November 7, 2008 /********************************* * Ponteware Software Ltda. * * Sistema Controle Empresarial * * Programa: Lançamento de Os´s * * Data: 17 de janeiro de 2007 * *********************************/ #Include "Fivewin.ch" #Include "Corget.ch" #Include "Mail.ch" #Define CLR_LGRAY nRGB( 230, 230, 230 ) #Define CLR_LGREEN nRGB( 190, 215, 190 ) #Define CLR_VERMELHO nRGB( 255, 000, 000 ) //--> Vermelho Para a Letra #Define CLR_AMARELO nRgb( 255, 255, 000 ) //--> Amarelo Para o Fundo #Define CLR_BOMBOM nRGB( 165, 42, 42 ) //--> Marrom BomBom #Define CLR_MARROM nRGB( 235, 202, 171 ) //--> Marrom Normal Request OrdKeyNo Request OrdKeyCount FUNCTION LanOss(vAcesso,vConsulta) DEFINE DIALOG oDlg RESOURCE "TLISTBOX2" OF oWnd oDlg:lHelpIcon:=.F. oDlg:SetFont(oFont) oDlg:cCaption:=iif(lEdita,"Manutenção e Lançamento","Consulta")+" de Ordem de Serviço" REDEFINE LISTBOX oLbx FIELDS lanos->nro,lanos->dtemi,SubStr(lanos->retorno,1,1),lanos->atdg,lanos->nomcli,lanos->contato, ; lanos->dtter,lanos->nomtec,lanos->rat,SubStr(lanos->defaca,44,35),Transform(lanos->vlrfinal,"@E 999,999,999.99") ; FIELDSIZES 50,65,12,12,260,150,65,260,80,250,80 HEADERS "Numero","Data","R","D","Cliente","Contato","Execução","Técnico","Rat","Ação","Valor" ; ID 101 OF oDlg ON dBlClick fLan("A",oLbx,oDlg) oLbx:nClrBackHead := CLR_LGREEN // Cor do Fundo do Cabe‡alho oLbx:nClrText := {|| nRGB( 165, 42, 42 ) } oLbx:nClrBackFocus := CLR_HBLUE // Cor do Cursor Em Cima do Ötem oLbx:nClrForeFocus := CLR_AMARELO // cor da letra da barra ativa oLbx:nClrForeHead := CLR_HRED // Cor nos Headers - Cabe‡alhos oLbx:nClrPane := { || IIF( ( oLbx:cAlias )->( OrdKeyNo() ) %2 == 0, ; CLR_LGREEN, CLR_LGRAY ) } oLbx:nColAct := 3 // Onde o Cursor Vai Iniciar qual coluna oLbx:nLineStyle := 3 // Estilo das linhas nos dados da Browse oLbx:lCellStyle := .T. // S¢ Pinta a celula que o cursor est oLbx:aJustify := {.f.,.f.,.f.,.f.,.f.,.f.,.f.,.f.,.f.,.f.,.T.} oLbx:lMChange := .F. // Desabilita Mousemove oLbx:SetFocus() // Refocus on The Browse oLbx:Refresh() // Estabiliza o Browse/Listbox //-> Disparos da ListBox oLbx:bKeyDown:={|nKey| iif(nKey==VK_RETURN,fLan("A",oLbx,oDlg),)} //-> Modificado em LANOSS.PRG linha 83 REDEFINE COMBOBOX oCbx VAR cOrdem ; ITEMS { "Número"+SPACE(24)+"1N07","Data"+ ; SPACE(26)+"2D00","Nome"+Space(26)+"3C00" } ; COLOR "r+/w*" ID 109 OF oDlg ; ON CHANGE( (fOrdem(cOrdem) ), oLbx:Refresh(), oLbx:SetFocus() ) //-> Yes nos temos banana... ACTIVATE DIALOG oDlg CENTERED DbCloseAll() Release All RETURN Nil // //-> Modificado em FGERAL.PRG FUNCTION fOrdem(cOrdem) 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>//-> veja palavra modificado. Faca teste e veja o que ocorre. //-> Aguarde Paulo Finalizar. Abracos 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...
pauloaraujo Posted November 7, 2008 Report Share Posted November 7, 2008 Francisco, Já solucionei o erro de compilação e comigo não dá o erro nem a pau. Faça um teste inibindo o EVAL da indexação. INDEX ON &ChInd1 TAG 1 TO &TemInd //id=red> EVAL {|| oMeter:Set(Recno())} EVERY vTam INDEX ON &ChInd1 TAG 2 TO &TemInd //id=red> EVAL {|| oMeter:Set(Recno())} EVERY vTam ... ... Reorganize os indices e retorne Editado por - pauloaraujo on 07/11/2008 13:58:50 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.