Como dar Baixa em Estoque
Estou desenvolvendo um programa em que tenho um form de Venda, nele o usuário insere os dados do cliente, vendedor e insere os produtos através de um botão que chama o form de consulta de produtos e ao dar clique duplo no produto desejado ele é inserido em um grid no form de Venda. Estou usando um botão ´Finalizar Venda´ para dar baixa no estoque mas ele da baixa somente no primeiro produto do cadastro de produtos.
Alguem tem um exemplo que pode me enviar?
Ou alguma solução para o meu problema??
Grato pela atenção
Alguem tem um exemplo que pode me enviar?
Ou alguma solução para o meu problema??
Grato pela atenção
Tcharlos
Curtidas 0
Respostas
Salomao
17/06/2004
Caro amigo!
Para dar baixa em todos os ítens, você deve fazer um loop, se você estiver utilizando uma tabela de itens da venda, faça o seguinte:
tabela_itens.first;
while not tabela_itens.eof do
begin
{rotina para dar baixa no estoque}
tabela_itens.next;
end;
Espero ter ajudado!
Para dar baixa em todos os ítens, você deve fazer um loop, se você estiver utilizando uma tabela de itens da venda, faça o seguinte:
tabela_itens.first;
while not tabela_itens.eof do
begin
{rotina para dar baixa no estoque}
tabela_itens.next;
end;
Espero ter ajudado!
GOSTEI 0
Rodolfohco@uol
17/06/2004
With Query do
Begin
Close;
Sql.clear;
Sql.add(´UPDATE CADPRODUTO SET´);
SQL.ADD(´QUANTIATUAL = QUANTIATUAL - :I ´);
SQL.ADD(´WHERE CODIGO = :COD´);
Parameters.ParamByName(´I´).VALUE := 10; ** Valor para dar Baixa**
Parameters.ParamByName(´cod´).VALUE := 1; ** Codigo Produto**
OPEN;
END;
Esse exemplo e para vc dar baixa em um produto, caso vc queira dar baixa em varios produto vc tem que utilizar um laço (while not Query do Begin)
Falou
Begin
Close;
Sql.clear;
Sql.add(´UPDATE CADPRODUTO SET´);
SQL.ADD(´QUANTIATUAL = QUANTIATUAL - :I ´);
SQL.ADD(´WHERE CODIGO = :COD´);
Parameters.ParamByName(´I´).VALUE := 10; ** Valor para dar Baixa**
Parameters.ParamByName(´cod´).VALUE := 1; ** Codigo Produto**
OPEN;
END;
Esse exemplo e para vc dar baixa em um produto, caso vc queira dar baixa em varios produto vc tem que utilizar um laço (while not Query do Begin)
Falou
GOSTEI 0
Emerson Nascimento
17/06/2004
no exemplo do rodolfo é EXECSQL ao invés de OPEN.
GOSTEI 0
Tcharlos
17/06/2004
Valeu Galera!!!!
Ajudaram pra caramba já fiz e deu certo das duas maneiras.
Valeu!!!
Ajudaram pra caramba já fiz e deu certo das duas maneiras.
Valeu!!!
GOSTEI 0