Adicionar, somar, remover dado de um banco
16/02/2003
0
Ola, gostaria da seguinte ajuda:
Tenho um sistema de locadora com banco de dados em Dbase (*.dbf) e nesse sistema existe a parte de alguel e devoluçao, entao como faria via codigo o seguinte procedimento?
Tenho 3 fitas no estoque, alugo uma, entao remove-se 1 do estoque de 3, dando um total de 2 na casa. Atualizando o banco de dados. Na devolução adiciono essa 1 alugada a mais 2 que ja tenho, atualizando fia-se 3 de novo.
como fazer esse codigo?
aceito por email um exemplo:
agradeço desde ja
junior@velonet.com.br
Tenho um sistema de locadora com banco de dados em Dbase (*.dbf) e nesse sistema existe a parte de alguel e devoluçao, entao como faria via codigo o seguinte procedimento?
Tenho 3 fitas no estoque, alugo uma, entao remove-se 1 do estoque de 3, dando um total de 2 na casa. Atualizando o banco de dados. Na devolução adiciono essa 1 alugada a mais 2 que ja tenho, atualizando fia-se 3 de novo.
como fazer esse codigo?
aceito por email um exemplo:
agradeço desde ja
junior@velonet.com.br
Anonymous
Curtir tópico
+ 0
Responder
Posts
17/02/2003
Henriquebyte
daz assim
cria uma variável, captura o valor anterior duminui ou soma o novo valor, depois edita o banco e devolveo valor atual
var
quant_anterior : integer;
quant_baixa : integer;
quant_atual : integer;
begin
val_cod := dados.t_estoqueCodigo_produto.asinteger;
dados.t_estoque.Findkey([val_cod])
quant_anterior := dados.t_estoqueQuant_produto.asinteger;
quant_baixa := strtoint(Edit_quant_baixa.text);
quant_atual := quant_anterior - quant_baixa;
dados.t_estoque.edit;
dados.t_estoqueQuant_produto.asinteger := quant_atual;
dados.t_estoque.post;
end;
cria uma variável, captura o valor anterior duminui ou soma o novo valor, depois edita o banco e devolveo valor atual
var
quant_anterior : integer;
quant_baixa : integer;
quant_atual : integer;
begin
val_cod := dados.t_estoqueCodigo_produto.asinteger;
dados.t_estoque.Findkey([val_cod])
quant_anterior := dados.t_estoqueQuant_produto.asinteger;
quant_baixa := strtoint(Edit_quant_baixa.text);
quant_atual := quant_anterior - quant_baixa;
dados.t_estoque.edit;
dados.t_estoqueQuant_produto.asinteger := quant_atual;
dados.t_estoque.post;
end;
Responder
Clique aqui para fazer login e interagir na Comunidade :)