(Resolvido) Editando um campo que busca valor de uma variavel

[Riatla]

Caro amigos, estou com uma dúvida que não consigo resolver e gostaria da ajuda de vocês.. tenho um campo que recebe valor de uma variável... e está tudo certo funcionando perfeitamente, (mas se eu colocar o valor errado e tentar editar o mesmo ele acaba somando ao valor da variável que já existia no campo) preciso de ajuda....

Minha linha de comando esta sendo essa :

begin

total := dm.CdsItpdcmpQTD_PRODUTO.Value * Dm.CdsItpdcmpPRC_UNT.Value;

if total > 0 then begin

dm.CdsItpdcmp.Edit;

Dm.CdsItpdcmpPRC_UNT.Value := StrToFloat(DBEdit7.Text);

Dm.CdsItpdcmpPRC_TOT.Value := total;

vlrtotalped := vlrtotalped + total;

dm.CdsPedidoCompraVLR_PED.Value := vlrtotalped;

dm.CdsItpdcmp.post;

dm.CdsItpdcmp.ApplyUpdates(0);

end;

end;

gostaria que ao invés dele somar.. ele editasse o valor que já tinha colocado... isso seria possivel ?

Uso Firebird 2.0 e DELPHI 7

Desde já agradeço

Editado Julho 7, 2010 por Riatla

[Jhonas]

Seria algo assim:

procedure TForm1.DBEdit7KeyPress(Sender: TObject; var Key: Char);
begin
   if not (Key in ['0'..'9']) then
          Key:= #0;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   total := dm.CdsItpdcmpQTD_PRODUTO.Value * Dm.CdsItpdcmpPRC_UNT.Value;
   if total > 0 then
   begin
      if (DBEdit7.Text <> '') then
         begin
            dm.CdsItpdcmp.Edit;
            Dm.CdsItpdcmpPRC_UNT.Value := StrToFloat(DBEdit7.Text);
            Dm.CdsItpdcmpPRC_TOT.Value := total;
            vlrtotalped := vlrtotalped + total;
            dm.CdsPedidoCompraVLR_PED.Value := vlrtotalped;
            dm.CdsItpdcmp.post;
            dm.CdsItpdcmp.ApplyUpdates(0);
         end
      else
         DBEdit7.Setfocus;
   end;
end;

abraço

[Riatla]

Seria algo assim:

procedure TForm1.DBEdit7KeyPress(Sender: TObject; var Key: Char);
begin
   if not (Key in ['0'..'9']) then
          Key:= #0;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   total := dm.CdsItpdcmpQTD_PRODUTO.Value * Dm.CdsItpdcmpPRC_UNT.Value;
   if total > 0 then
   begin
      if (DBEdit7.Text <> '') then
         begin
            dm.CdsItpdcmp.Edit;
            Dm.CdsItpdcmpPRC_UNT.Value := StrToFloat(DBEdit7.Text);
            Dm.CdsItpdcmpPRC_TOT.Value := total;
            vlrtotalped := vlrtotalped + total;
            dm.CdsPedidoCompraVLR_PED.Value := vlrtotalped;
            dm.CdsItpdcmp.post;
            dm.CdsItpdcmp.ApplyUpdates(0);
         end
      else
         DBEdit7.Setfocus;
   end;
end;

abraço

Olá Jhonas, bem valeu pela força mesmo, mas eu achei melhor usar campos calculados para esta parte de programação e esta tudo certo agora ! Obrigado pela força !

um abraço, até a próxima !