Problemas com Opera��es

18/03/2018

Estou enfrentando um problema ao fazer opera��es simples como:

    dmCantina.ztrCaixas_saldo_total.Value :=   dmCantina.ztrCaixas_saldo_total.Value +  FieldByName('Total').Value;

Ele simplesmente d� um valor exorbitante exemplo ta com 50 o saldo total ai vou adicionar mais 30 no Total vai para 110 ao inv�s de ir para 80

Segue o C�digo completo abaixo:

     Params[0].Value := dsVenda.DataSet.FieldByName('v_id').Value;
    Open;
    dsVenda.DataSet.Edit;
    dsVenda.DataSet.FieldByName('v_total').Value := FieldByName('Total').Value;

    if dmcantina.ztrCaixa.locate ( 's_id', dmCantina.ztqrCaixaids_caixa_aberturaid.Value, []) then
    begin
    dmcantina.ztrCaixa.Active;
    dmcantina.ztrCaixa.Edit;
    dmCantina.ztrCaixas_saldo_total.Value :=   dmCantina.ztrCaixas_saldo_total.Value +  FieldByName('Total').Value;
    dmcantina.ztrCaixa.Post;
    end;

Michel

Curtir t�pico + 0

Responder

Post mais votado

19/03/2018

Michel
o Active voc� tem que dar antes de fazer o Locate, caso contr�rio ir� apontar para o primeiro item da tabela, e n�o mais o que voc� consultou.

Params[0].Value := dsVenda.DataSet.FieldByName('v_id').Value;
Open;
dsVenda.DataSet.Edit;
dsVenda.DataSet.FieldByName('v_total').Value := FieldByName('Total').Value;
dmcantina.ztrCaixa.Active; 
if dmcantina.ztrCaixa.locate ( 's_id', dmCantina.ztqrCaixaids_caixa_aberturaid.Value, []) then
begin
dmcantina.ztrCaixa.Edit;
dmCantina.ztrCaixas_saldo_total.Value :=   dmCantina.ztrCaixas_saldo_total.Value +  FieldByName('Total').Value;
dmcantina.ztrCaixa.Post;
end;

Luiz Vichiatto

Responder

Gostei + 1