arrume os provider flag no dsp ---------------------------------------------------------------------------------------- Uberdam Cavaletti Formado em Tecnologia da Informação - Unoesc - Xxe Pós-graduado em desenvolvimento Java - Unoesc - Xxe
http://www.curricular.com.br/berdam Visite http://passandoveneno.blogspot.com ---------------------------------------------------------------------------------------- ________________________________ De: Mario Rodrigues <marioirodrig...@gmail.com> Para: delphi-br@yahoogrupos.com.br Enviadas: Terça-feira, 5 de Maio de 2009 20:13:18 Assunto: Re: [delphi-br] Nao esta excluindo 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.wordpress @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 <marioirodrigues@ 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.wordpress > > @gmail.com<holiveira.wordpres s%40gmail. com> > <holiveira.wordpres s%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 <marioirodrigues@ 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 cdsCadPagtoAfterDel ete e no cdsCadPagtoAfterPos t da seguinte > > > > maneira...cdsCadPag to.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.ApplyUpdate s(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] Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]