ActiveDelphi

[michellstefanii]

É o seguinte, eu estou fazendo um sistema de estoque e vendas, já consegui fazer toda a parte de vendas porém preciso debitar os items do estoque e estou tendo problemas com essa parte.

a partir do id da venda preciso selecionar todos os items que estão na tabela vi_vendaitem e pegar a quantidade de cada item e subtrair dos items da tabela produto.

este é meu botão que adiciona os items

with dsvendaitem.dataset do
Append;
begin
fieldbyname('vi_produto').Value := dsproduto.DataSet.FieldByName('p_id').Value;
fieldbyname('vi_cliente').Value := frmPontoVenda.idcliente;
fieldbyname('vi_valor').Value := dsproduto.DataSet.FieldByName('p_preco').Value;
fieldbyname('vi_quantidade').Value := 1;
FieldByName('vi_peso').Value := 0;
fieldbyname('vi_total').Value := fieldbyname('vi_quantidade').Value * fieldbyname('vi_valor').Value;
Post;
end;

minha ultima tentativa foi com o seguinte codigo

dmcantina.zqrProduto.Edit;
dmcantina.zqrProdutop_quantidade.Value := dmcantina.zqrprodutop_quantidade.Value - dmcantina.zqrVendaItemvi_quantidade.Value;

porém não funciona, estava pensando de algum modo colocar a hora que finalizar a compra selecionando todos os vendaitems pelo campo vi_venda

o máximo que consegui chegar foi nisso:

with dmcantina.zqrVendaItem do
begin
Open;
Locate('vi_venda', idvenda, []);
edit;

Não tenho muita experiencia com programação, estou começando a ver agora no primeiro ano da faculdade.

Alguém pode me ajudar ?