Humberto e Daniel, O meu cdsCadPagto o select dele é esse: select P.CLICODIGO, P.CODPAGTO, P.DTPAGTO, P.VALOR, CLI.CLINOME, CLI.DEBITO from PAGTO P INNER JOIN CLIENTE CLI ON CLI.CLICODIGO = P.CLICODIGO WHERE P.CODPAGTO =:CODPAGTO ja o cdsDebitoCliente tem o sql: select CLICODIGO, CLINOME, DEBITO from CLIENTE where CLICODIGO =:CLICODIGO
O q ta me deixando doido...é q como ja disse uso esse mesmo procedimento no salvar...so q a acao é contraria.. ja revi...ja refiz...ja recriei os cds...enfim...iniciante sofre hehehehe...mas é assim mesmo...a onda é nao desistir... Daniel...como eu poderia fazer para para pegar o erro..nao consegui achar nada falando para o D2007.. Podes me ajudar? 2009/5/5 Humberto Oliveira <holiveira.wordpr...@gmail.com> > > > É o que o nosso colega Daniel falou. Algum erro estava sendo retornado após > o ApplyUpdates. > O seu ClientDataSet possui o campo DEBITO? > O Exception está alegando que não existe a coluna DEBITO no ClientDataSet. > O problema pode estar aí. > Provavelmente no "salvar", o seu ClientDataSet possui o campo no qual você > faz a sua aritmética. > > Verifique e nos posicione. > > > 2009/5/5 Mario Rodrigues > <marioirodrig...@gmail.com<marioirodrigues%40gmail.com> > > > > > > > > > Humberto, > > > > Coloquei oApplyUpdate apos o delete e deu o segunte erro: > > First chance exception at $7C812AEB. Exception class TDBXError with > message > > 'Column unknown > > DEBITO At line 6, column 14'. > > depois esse: > > First chance exception at $7C812AEB. Exception class TDBXError with > message > > 'Column unknown > > DEBITO At line 7, column 2'. > > depois > > First chance exception at $7C812AEB. Exception class EDatabaseError with > > message 'Unable to execute Query'. > > Uso o delphi 2007...clico em continuar...aparece as mensagens acima...e > no > > final mostra a mensagem de excluido com sucesso...porem...quando clico em > > ok...os dados voltam(da pra ver o form atras em branco)... > > tb testei tirar as seguintes linhas > > //dtsCadPagto.DataSet.Close; > > //dtsCadPagto.DataSet.Open; > > dai so aparece a mensagem de excluido com sucesso...mas nao exclui > > > > o impressionante é q uso o mesmo codigo no salvar..so q ao inves de somar > > ele diminui!! > > > > > > 2009/5/5 Humberto Oliveira > > <holiveira.wordpr...@gmail.com<holiveira.wordpress%40gmail.com> > <holiveira.wordpress%40gmail.com> > > > > > > > > > > > > > > Já fez o teste colocando o ApplyUpdates após o Delete, ao invés de > > colocar > > > no envento do seu ClientDataSet? > > > > > > Faz um teste e avisa aí. > > > > > > 2009/5/5 Mario Rodrigues > > > <marioirodrig...@gmail.com<marioirodrigues%40gmail.com> > <marioirodrigues%40gmail.com> > > <marioirodrigues%40gmail.com> > > > > > > > > > > > > > > > > > > > > > > Alisson, > > > > > > > > Pois é...e é isso q esta sendo feito...alias o ApplyUpDates esta > sendo > > > > feito > > > > no cdsCadPagtoAfterDelete e no cdsCadPagtoAfterPost da seguinte > > > > maneira...cdsCadPagto.ApplyUpdates(0);.... > > > > Veja só preciso somar o valor...e isso acontece...a unica coisa q nao > > > > acontece é o delete...q acho q esta certo...tens alguma ideia? > > > > > > > > > > > > 2009/5/5 Alisson <alss...@yahoo.com.br <alssnco%40yahoo.com.br><alssnco% > 40yahoo.com.br><alssnco% > > 40yahoo.com.br><alssnco% > > > 40yahoo.com.br>> > > > > > > > > > > > > > > > > > > > Que coisa mais confusa! Quando você quer excluir um registro basta > > > fazer: > > > > > > > > > > Dataset.Delete; > > > > > Dataset.ApplyUpdates(0); > > > > > > > > > > __________________________________________________ > > > > > Faça ligações para outros computadores com o novo Yahoo! Messenger > > > > > http://br.beta.messenger.yahoo.com/ > > > > > > > > > > > > > > > > > > [As partes desta mensagem que não continham texto foram removidas] > > > > > > > > > > > > > > > > > > [As partes desta mensagem que não continham texto foram removidas] > > > > > > > > > > > > > [As partes desta mensagem que não continham texto foram removidas] > > > > > > > > [As partes desta mensagem que não continham texto foram removidas] > > > [As partes desta mensagem que não continham texto foram removidas]
