rique78 Novato

Registrado: Quarta-Feira, 6 de Abril de 2005 Mensagens: 47
|
Enviada: Ter Fev 06, 2007 3:37 pm Assunto: Atualizar Saldo no Estoque |
|
|
Boa tarde amigos, estou fazendo um aplicativo que controla o estoque de produtos, criei uma função chamada "Atualiza Estoque", o campo "Saldo", está vinculado na tabela de produtos. Tenho outra tabela chamada "Movimento", que faz está o processo de entrada e saída dos produtos. O Problema é quando cadastro um produto (logicamente fica com o saldo inicial zero), e vou no form de movimento para dar a primeira entrada no saldo, simplesmente fica "Null" no banco de dados, não acrescenta nada. Vou colocar abaixo meu código:
procedure TFrm_Movimento.AtualizaEstoque(CodPro, QTD: Integer;Tipo: String);
Var IBQueryTemp : TIBQuery;
begin
Try
Try
IBQueryTemp := TIBQuery.Create(Self);
IBQueryTemp.Database := DM_Movimento.IB_Movimento.Database;
IBQueryTemp.Transaction := DM_Movimento.TR_Movimento;
IBQueryTemp.Close;
IBQueryTemp.SQL.Clear;
IBQueryTemp.SQL.ADD('UPDATE PRODUTO SET SALDO=');
if Tipo = 'E' then
IBQueryTemp.SQL.ADD('SALDO + ' + IntToStr(QTD))
else
IBQueryTemp.SQL.ADD('SALDO - ' + IntToStr(QTD));
IBQueryTemp.SQL.ADD('WHERE NRPRO=' + IntToStr(CodPro));
IBQueryTemp.ExecSQL;
IBQueryTemp.Transaction.CommitRetaining;
Except
on E : Exception do
ShowMessage('Falha ao atualizar o estoque' + #13#10 + E.Message);
End;
Finally
FreeAndNil(IBQueryTemp);
End;
end; |
|