ERRO AO GRAVAR DADOS QUANDO DA DESCONTO

OLA

ESTOU CRIANDO UMA APLICAÇÃO COMERCIAL COLOQUEI EM MEU CODIGO UMA FUNÇÃO PARA DAR DESCONTO NO PEDIDO DE VENDA,AO COLOCAR ALGUM VALOR NO DESCONTO AO SALVAR A APLICAÇÃO ELA ZERA E COMEÇA DO ZERO SE ADICIONAR UM VALOR NO CAMPO VALORTOTAL ACONTECE O MESMO MAS SE NÃO COLOCAR NENHUM VALOR NO DESCONTO OU VALOR TOTAL ELE GRAVA NORMAL NO BANCO ALGUEM PODE ME AJUDAR SOU PRICIPIANTE AINDA O CODIGO DO MEU FORM ESTA ABAIXO:


unit UFRMPEDVENDASOK;

interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.DBCtrls, Data.DB, Vcl.StdCtrls,
Vcl.Mask, Vcl.Grids, Vcl.DBGrids, Vcl.Buttons, Vcl.ExtCtrls;

type
TFRMPEDVENDAOK = class(TForm)
DTSPEDVENDAS: TDataSource;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
Label4: TLabel;
DBGITEMPEDIDO: TDBGrid;
DTSITEMPEDVENDAS: TDataSource;
BTNNOVO: TButton;
Button1: TButton;
DBEdit4: TDBEdit;
DBEdit5: TDBEdit;
Panel1: TPanel;
Panel2: TPanel;
Timer1: TTimer;
Label1: TLabel;
DBEdit6: TDBEdit;
DBEdit7: TDBEdit;
DBEdit8: TDBEdit;
DBEdit9: TDBEdit;
DBEdit10: TDBEdit;
Label2: TLabel;
Label3: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
BitBtn1: TBitBtn;
procedure Button1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure BTNNOVOClick(Sender: TObject);
procedure DBEdit5Exit(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure DBEdit7Exit(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
FRMPEDVENDAOK: TFRMPEDVENDAOK;

implementation

{$R *.dfm}

uses uDMVENDASOK, ufrmpesquisadeproduto;

procedure TFRMPEDVENDAOK.BitBtn1Click(Sender: TObject);
begin

try

frmPesqUISADEProduto:=TfrmPesqUISADEProduto.Create(self);

frmPesqUISADEProduto.ShowModal;

finally

With dmVENDASOK.cdsIteMPEDVENDAS do

begin

Open;

Append;

FieldByName('CODPRODUTO').AsSTRING:=dmVENDASOK.cdsPesqProdutoCODIGO_PRODUTO.AsSTRING;

FieldByName('NOME_PRODUTO').AsString:=dmVENDASOK.cdsPesqProdutoNOME_PRODUTO.AsString;

end;

freeAndNIl(frmPesqUISADEProduto);
end;



end;



procedure TFRMPEDVENDAOK.BTNNOVOClick(Sender: TObject);
begin
DMVENDASOK.CDSPEDVENDAS.APPEND;
DMVENDASOK.CDSITEMPEDVENDAS.Append;
DBEDIT5.SetFocus;
end;

procedure TFRMPEDVENDAOK.Button1Click(Sender: TObject);
begin
DMVENDASOK.CDSPEDVENDASVALOR.AsFloat:=
DMVENDASOK.CDSITEMPEDVENDASVALORTOTAL.VALUE;
DMVENDASOK.CDSPEDVENDAS.Post;
if DMVENDASOK.CDSPEDVENDAS.ApplyUpdates(0)<>0 then
DMVENDASOK.CDSPEDVENDAS.CancelUpdates;







end;

procedure TFRMPEDVENDAOK.DBEdit5Exit(Sender: TObject);
begin
DBGITEMPEDIDO.SetFocus;
end;

procedure TFRMPEDVENDAOK.DBEdit7Exit(Sender: TObject);
begin
dmvendasok.CDSITEMPEDVENDAS.Next;
end;

procedure TFRMPEDVENDAOK.Timer1Timer(Sender: TObject);
begin
DBEDIT2.TEXT:=DateTIMEToStr(Now);

end;

end.