Fórum BAIXAR NO ESTOQUE E CANCELAR BAIXA #441179

27/04/2013

0

Delphi

Olá, tenho um sistema de vendas e agora consegui faze-lo dar baixa a cada item que é gravado no pedido, porem estou com dificuldades quando deleto um item ele teria que somar a quantidade novamente no estoque. Com o codigo abaixo ele soma sempre no ultimo item do pedido.
este codigo está no botão excluir.
DataModule1.SimpleDataSetProdutos.Open;
DataModule1.SimpleDataSetProdutos.Edit;
devolucao := DataModule1.SimpleDataSetItens.FieldByName('QTVENDA').AsFloat;
DataModule1.SimpleDataSetProdutos.FieldByName('ESTATU').AsFloat :=
DataModule1.SimpleDataSetProdutos.FieldByName('ESTATU').AsFloat + devolucao;
DataModule1.SimpleDataSetItens.Delete;
DataModule1.SimpleDataSetProdutos.Post;
DataModule1.SimpleDataSetItens.Delete;

Se alguem puder me ajudar agradeço.
Luiz Augusto

Luiz Augusto

Responder

Posts

28/04/2013

Weverson Souza

Saudações nobre.

Diga-me uma coisa, você utiliza qual banco de dados?

Você já pesquisou o evento "Before Delete"? do TClientDataSet ou TSimpleDataSet.

Esse evento irá ajudá-lo no que quer.

Abraço.
Responder

Gostei + 0

28/04/2013

Joel Rodrigues

Logo após abrir o SimpleDataSetProdutos, você precisa localizar o produto que irá receber o estoque, ou seja, o produto que está sendo excluído do pedido.
Acho que ai você vai precisar filtrar pelo código.
Responder

Gostei + 0

28/04/2013

Luiz Augusto

Ok pessoal, consegui. é que eu tava tentando baixar o estoque a cada item do pedido confirmado, agora baixo o estoque somente apos confirmação do pedido. acabou o probleama. obrigado a todos.
Responder

Gostei + 0

28/04/2013

Joel Rodrigues

Beleza, Luiz. Ótima mudança você fez.
Se eu puder dar uma sugestão, considere utilizar triggers para esse fim. Com isso você tira a responsabilidade da aplicação e ainda pode ganhar desempenho, pois as ações de baixa no estoque serão feitas diretamente no banco.
Então estou encerrando este tópico.
Abraço a todos.
Responder

Gostei + 0

28/04/2013

Luiz Augusto

Ok, obrigado, vou pesquisar sobre trigger, é que estou começando agora. Valeu!!!
Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar