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.
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.
Jonny Moraes
Curtidas 0