ActiveDelphi

[rique78]

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;

[gustavocco]

Olá, seu banco de dados é firebird? Tentou a função coalesce.

http://www.activedelphi.com.br/forum/viewtopic.php?t=25297&highlight=coalesce

Flw.
_________________
Top System - www.topsystem.com.br