no caso aconselho fazer isso no firebird.
no delphi, vc tem q varrer os registros detalhes, fazer algo +- assim:
procedure TDM.IBT_SAIDAAfterPost(DataSet: TDataSet);
var
iQtde: integer;
begin
IBT_DETAL_SAIDA.First;
iQtde := 0;
while not IBT_DETAL_SAIDA.Eof do
begin
iQtde := iQtde + IBT_DETAL_
Bom dia!
Estou tentando fazer um sistema para atualizar estoque
Eu assisti uma video aula que o cara passou essa dica para incluir no evento
AfterPost da Tabela
procedure TDM.IBT_SAIDAAfterPost(DataSet: TDataSet);beginIBT_ESTOQUE.Open;
IBT_ESTOQUE.Edit;IBT_ESTOQUEQUANTIDADE.Value
2 matches
Mail list logo