luiz53 Posted August 31, 2005 Report Share Posted August 31, 2005 ALGUEM PODERIA ME DAR UMA AJUDA... COMO TRANSFORMAR ISSO EM UM CODEBLOCK ---------------------------------------- TOTAL = 0 DO WHILE !EOF() TOTAL+= CL->VENDA SKIP ENDDO ---------------------------------------- DESCULPE PELA GONORANCIA. Messager luizantoniooliveira@hotmail.com.br Skype luizantoniooliveira Xhb 99.5 / FW 2.6 / WorkShop / HbMake / Xmate / Clipper 5.3b / Blinker 5.1 / LLibg Quote Link to comment Share on other sites More sharing options...
luiz53 Posted August 31, 2005 Author Report Share Posted August 31, 2005 ALGUEM PODERIA ME DAR UMA AJUDA... COMO TRANSFORMAR ISSO EM UM CODEBLOCK ---------------------------------------- TOTAL = 0 DO WHILE !EOF() TOTAL+= CL->VENDA SKIP ENDDO ---------------------------------------- DESCULPE PELA GONORANCIA. Messager luizantoniooliveira@hotmail.com.br Skype luizantoniooliveira Xhb 99.5 / FW 2.6 / WorkShop / HbMake / Xmate / Clipper 5.3b / Blinker 5.1 / LLibg Quote Link to comment Share on other sites More sharing options...
luiz53 Posted August 31, 2005 Author Report Share Posted August 31, 2005 ALGUEM PODERIA ME DAR UMA AJUDA... COMO TRANSFORMAR ISSO EM UM CODEBLOCK ---------------------------------------- TOTAL = 0 DO WHILE !EOF() TOTAL+= CL->VENDA SKIP ENDDO ---------------------------------------- DESCULPE PELA GONORANCIA. Messager luizantoniooliveira@hotmail.com.br Skype luizantoniooliveira Xhb 99.5 / FW 2.6 / WorkShop / HbMake / Xmate / Clipper 5.3b / Blinker 5.1 / LLibg Quote Link to comment Share on other sites More sharing options...
rubensma Posted August 31, 2005 Report Share Posted August 31, 2005 Ola Luiz Acredito que não tem como fazer essa transformação. Se vc deseja o total do campo venda, pode usar a função do Clipper SUM, que ainda deve funcionar, não testei no FW. SUM CL->VENDA TO TOTAL abraços Rubens Martins rubens.martins@brfree.com.br FW20 + Clipper 5.2e + Workshop + Blinker 60 Quote Link to comment Share on other sites More sharing options...
elitenet Posted August 31, 2005 Report Share Posted August 31, 2005 Faça o codigo abaixo: Total := 0 dbEval( { || Total += CL->VENDA } ) Obs: Isto aqui faz a mesma coisa que o seu While. Marcelo Gomes elitenet@terra.com.br FW 2.3C/CLIPPER 5.2E/BLINKER 7.0 Editado por - elitenet on 31/08/2005 14:06:23 Quote Link to comment Share on other sites More sharing options...
luiz53 Posted August 31, 2005 Author Report Share Posted August 31, 2005 OBRIGADO PELA AJUDA. ERA O DBEVAL.. QUE QUERIA... SOH TEM UM PROBLEMA ELE NAO FUNCIONA DENTRO... DE UM scope.... ----------------------------------------------- valeu Messager luizantoniooliveira@hotmail.com.br Skype luizantoniooliveira Xhb 99.5 / FW 2.6 / WorkShop / HbMake / Xmate / Clipper 5.3b / Blinker 5.1 / LLibg Quote Link to comment Share on other sites More sharing options...
elitenet Posted August 31, 2005 Report Share Posted August 31, 2005 Mas voce pode passar o filtro para ele: Veja na sintaxe o comando no Norton Guide, que vc pode especificar filtros para ele. Marcelo Gomes elitenet@terra.com.br FW 2.3C/CLIPPER 5.2E/BLINKER 7.0 Quote Link to comment Share on other sites More sharing options...
pauloaraujo Posted August 31, 2005 Report Share Posted August 31, 2005 Marcelo, tudo bem??? Imitando a brincadeira do Luiz: "DESCULPE PELA GONORANCIA" Mas, há diferença de tempo de processamento entre um CODE BLOCK e uma função genérica fazendo a mesma coisa, ou é só economia de código mesmo??? Um abraço Paulo/CONTATO SISTEMAS Clipper53b / FW26 / Blinker70 Ajudar é um prazer, agradecer é uma obrigação PRESTIGIEM O III ENCONTRO DE USUÃRIOS DE FIVEWIN - 2005 Editado por - pauloaraujo on 31/08/2005 20:07:33 Quote Link to comment Share on other sites More sharing options...
personal Posted August 31, 2005 Report Share Posted August 31, 2005 Ops maninho !!! Hoje antes do almoço já havia te falado do dbEval(). agora só completando, funciona sim com o scope. _ini:=10 _fim:=15 ITEPRO->(OrdSetFocus("SEQPRO")) ITEPRO->(OrdScope(0,_ini)) ITEPRO->(OrdScope(1,_fim)) ITEPRO->(dbGoTop()) _TotNot:=0.00 ; ITEPRO->(dbEval({||_TotNot:=_TotNot+ITEPRO->totpro})) ITEPRO->(dbGoTop() E olha o páu aà gente. Quote Link to comment Share on other sites More sharing options...
pauloaraujo Posted August 31, 2005 Report Share Posted August 31, 2005 Sérgio, beleza?? Vale a mesma pergunta: Há diferença de tempo de processamento entre um CODE BLOCK e uma função genérica fazendo a mesma coisa, ou é só economia de código mesmo??? Paulo/CONTATO SISTEMAS Clipper53b / FW26 / Blinker70 Ajudar é um prazer, agradecer é uma obrigação PRESTIGIEM O III ENCONTRO DE USUÃRIOS DE FIVEWIN - 2005 Quote Link to comment Share on other sites More sharing options...
personal Posted August 31, 2005 Report Share Posted August 31, 2005 Realmente, nao vou saber dizer, teria que fazer testes. mas acho que nao deve ser tao significativo nao. Quote Link to comment Share on other sites More sharing options...
eajunior Posted September 1, 2005 Report Share Posted September 1, 2005 Ola, todos os processamentos via DbEval, Eval e a AEval resultando de um resultado mais rapido, isto pode ser sentido em grande base de dados. Onde você vê um obstáculo alguém vê o término da viagem e o outro vê uma chance de crescer. Elias Abrão Júnior Fone : (0**11) 5181-6909 São Paulo - SP eajunior.fw@terra.com.br xHarbour 0.99.0 - Fivewin 2.5 e xMate Quote Link to comment Share on other sites More sharing options...
pauloaraujo Posted September 1, 2005 Report Share Posted September 1, 2005 citação:Ola, todos os processamentos via DbEval, Eval e a AEval resultando de um resultado mais rapido, isto pode ser sentido em grande base de dados. Onde você vê um obstáculo alguém vê o término da viagem e o outro vê uma chance de crescer. Elias Abrão Júnior Fone : (0**11) 5181-6909 São Paulo - SP eajunior.fw@terra.com.br xHarbour 0.99.0 - Fivewin 2.5 e xMate id=quote>id=quote>Elias, obrigado Paulo/CONTATO SISTEMAS Clipper53b / FW26 / Blinker70 Ajudar é um prazer, agradecer é uma obrigação PRESTIGIEM O III ENCONTRO DE USUÃRIOS DE FIVEWIN - 2005 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.