Luiz Arruda (ICO) Posted January 14, 2011 Report Share Posted January 14, 2011 Pessoal to fazendo uns testes para converter um aplicativo que tá em FoxBase para FWH Agora não entendi porque o xharbour não está buscando os saldos corretamente. Veja o codigo, todos os sX deverian retornar com valor mais estão retornando 0,00.. Já to arrancando os cabelos de raiva e não consigo vr onde tá erarado... Select 1 Use SaldoJan exclusive index on conta to contasx browse() // fiz para ver se os dados estão corretos veja imagem Redefine Get oGet[3] Var cDeb ID 4025 Of oDlg ; Picture "99.999" ; Valid PegaContaDEB(oGet,cDeb,sX1,sX2,sX3,sX4) Function PegaContaDEB(oGet,cDeb,sX1,sX2,sX3,sX4) Select SaldoJan Set index to contasx Seek cDeb sX1=SALDO sX2=DEBITO sX3=CREDITO sX4=sX1+sX2-X3 oGet[15]:Varput(x1) oGet[16]:Varput(x2) oGet[17]:Varput(x3) oGet[18]:Varput(x4) oGet[15]:Refresh() oGet[16]:Refresh() oGet[17]:Refresh() oGet[18]:Refresh() Return .t. id=code>id=code>Vejam na imagem que a conta possui valores.. e esses valors deveriam ser mostrados no lugar do 0.00 Me ajudem senão até o final da tarde vou estar careca... Desde já obrigado Luiz Arruda Corumbá - MS ico.corumba@gmail.com FiveWin 9.04 [x]Harbour PellesC Bcc Ws Aprendendo Logic Basic & SQL Retorne avisando se a dica funcionouid=red> Editado por - ico on 14/01/2011 16:45:15 Editado por - ico on 14/01/2011 16:45:29 Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted January 14, 2011 Author Report Share Posted January 14, 2011 Pessoal to fazendo uns testes para converter um aplicativo que tá em FoxBase para FWH Agora não entendi porque o xharbour não está buscando os saldos corretamente. Veja o codigo, todos os sX deverian retornar com valor mais estão retornando 0,00.. Já to arrancando os cabelos de raiva e não consigo vr onde tá erarado... Select 1 Use SaldoJan exclusive index on conta to contasx browse() // fiz para ver se os dados estão corretos veja imagem Redefine Get oGet[3] Var cDeb ID 4025 Of oDlg ; Picture "99.999" ; Valid PegaContaDEB(oGet,cDeb,sX1,sX2,sX3,sX4) Function PegaContaDEB(oGet,cDeb,sX1,sX2,sX3,sX4) Select SaldoJan Set index to contasx Seek cDeb sX1=SALDO sX2=DEBITO sX3=CREDITO sX4=sX1+sX2-X3 oGet[15]:Varput(x1) oGet[16]:Varput(x2) oGet[17]:Varput(x3) oGet[18]:Varput(x4) oGet[15]:Refresh() oGet[16]:Refresh() oGet[17]:Refresh() oGet[18]:Refresh() Return .t. id=code>id=code>Vejam na imagem que a conta possui valores.. e esses valors deveriam ser mostrados no lugar do 0.00 Me ajudem senão até o final da tarde vou estar careca... Desde já obrigado Luiz Arruda Corumbá - MS ico.corumba@gmail.com FiveWin 9.04 [x]Harbour PellesC Bcc Ws Aprendendo Logic Basic & SQL Retorne avisando se a dica funcionouid=red> Editado por - ico on 14/01/2011 16:45:15 Editado por - ico on 14/01/2011 16:45:29 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted January 14, 2011 Report Share Posted January 14, 2011 isto na~está errado não? oGet[15]:Varput(x1) oGet[16]:Varput(x2) oGet[17]:Varput(x3) oGet[18]:Varput(x4) id=code>id=code>Não seria SX1, SX2, SX3, SX4 ??? João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 - TIM FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
AMBROSIO Posted January 14, 2011 Report Share Posted January 14, 2011 Nao seria assim nao? sX1:=id=red>SALDO sX2:=id=red>DEBITO sX3:=id=red>CREDITO sX4:=id=red>sX1+sX2-X3 Ambrosio de Barros Filho. JRAMBRO - jrambro@hotmail.com Curitiba/São José dos Pinhais - PR Clipper5.0/ADVPL Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted January 14, 2011 Author Report Share Posted January 14, 2011 Kapiaba-> Aqui no meu PRG está correto Sx[n] Ambrósio-> Também está Certo.. Eu sempre uso o ":=" somente na declaração da variavel o "=" é usado normalmente para atribuir valores.. tenho trocentos código assim e neste é que tá com problema.. Outra coisa.. acabei de ver que tem alguma conta que o maledeto apresenta corretamente os valores e tem contas que retornam 0.00 mesmo tendo registros de valores nelas.. Já tentei também com id=code>id=code> Já matei os *.CDX e recriei, inclusive na abertura do PRG e também não deu certo.. Óóóóó.. Y agora quem poderá me socorrer..... Luiz Arruda Corumbá - MS ico.corumba@gmail.com FiveWin 9.04 [x]Harbour PellesC Bcc Ws Aprendendo Logic Basic & SQL Retorne avisando se a dica funcionouid=red> Quote Link to comment Share on other sites More sharing options...
AMBROSIO Posted January 14, 2011 Report Share Posted January 14, 2011 Ta usando a base correta? Nao deveria ter um IF FOUND() apos o seek? Hj eh sexta feira, a cabeça ta soh nas BREJAS!!!! vai que da um azar..rsrsrs Ambrosio de Barros Filho. JRAMBRO - jrambro@hotmail.com Curitiba/São José dos Pinhais - PR Clipper5.0/ADVPL Editado por - ambrosio on 14/01/2011 14:43:52 Editado por - ambrosio on 14/01/2011 14:45:56 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted January 14, 2011 Report Share Posted January 14, 2011 Quando vc. dá o Seek cDeb Qual é o Valor?? ? cDeb O que mostra? Se mostra zero, o indice está errado. João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 - TIM FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted January 14, 2011 Author Report Share Posted January 14, 2011 citação:Quando vc. dá o Seek cDeb Qual é o Valor?? ? cDeb O que mostra? Se mostra zero, o indice está errado. João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 - TIM FWH 2.7 - xHARBOUR WorkShop.Exe id=quote>id=quote>Mostra o Numero da Conta digitada... e como eu "digay" .. tem conta que mostra corretamente e tem conta que não mostra nada e tem conta que mostra pela metade por exemplo.. só o debito ou só o credito.. pensei no indeice tb. Por isso que matei o CDX antigo e refaço na abertura do PRG..(pra testar) A estrutura do DBF é essa Conta N 7.3 Saldo N 10.2 Debito N 10.2 Credito N 10.2id=code>id=code>Logo no Seek cDeb ?cDeb = 21.101 Sx2=debito Sx3=creditoid=code>id=code>Luiz Arruda Corumbá - MS ico.corumba@gmail.com FiveWin 9.04 [x]Harbour PellesC Bcc Ws Aprendendo Logic Basic & SQL Retorne avisando se a dica funcionouid=red> Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted January 14, 2011 Author Report Share Posted January 14, 2011 citação:Ta usando a base correta? Nao deveria ter um IF FOUND() apos o seek? Hj eh sexta feira, a cabeça ta soh nas BREJAS!!!! vai que da um azar..rsrsrs Ambrosio de Barros Filho. JRAMBRO - jrambro@hotmail.com Curitiba/São José dos Pinhais - PR Clipper5.0/ADVPL Editado por - ambrosio on 14/01/2011 14:43:52 Editado por - ambrosio on 14/01/2011 14:45:56 id=quote>id=quote>Sim a Base está correta.. já fiz Sx1:=Arquivo->Saldo vai ter um If sem.. mas por enquanto to iniciando o PRg e to preocupando mais com os resultados corretos.. depois vou fazer os tratamentos para o "uçuário burro" (que vai ser eu mesmo..) Nem me lembre das brhejas .. ainda to de ressaca de ontem das que tomei no ensaio de minha escola de samba Luiz Arruda Corumbá - MS ico.corumba@gmail.com FiveWin 9.04 [x]Harbour PellesC Bcc Ws Aprendendo Logic Basic & SQL Retorne avisando se a dica funcionouid=red> Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted January 14, 2011 Author Report Share Posted January 14, 2011 Errado tava eu e não a busca Não sei porque cargas d´agua.. o problema era o Picture que estava assim "99.999,00" e tinha mais de 113,000.00 negativos.. mesmo assim era pra mostrar "***,***.**" e não simplesmente ignorar a apresentação de resultados... Não é mesmo ??? Obrigado por tentarem ajudar.. Agora deixa eu ir la na vendinha tomar uma gelada que ninguém é de ferro... Abraços a todos... Luiz Arruda Corumbá - MS ico.corumba@gmail.com FiveWin 9.04 [x]Harbour PellesC Bcc Ws Aprendendo Logic Basic & SQL Retorne avisando se a dica funcionouid=red> Editado por - ico on 14/01/2011 16:45: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.