unit fcajaFACTURAS;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DBCtrls, StdCtrls, Buttons, Mask, DB,MATH;

type
  TCAJAFACTURAS = class(TForm)
    bok: TBitBtn;
    bcancelar: TBitBtn;
    BitBtn6: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    DataSource1: TDataSource;
    DBEdit5: TDBEdit;
    procedure BitBtn6Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure bokClick(Sender: TObject);
    procedure DBEdit5Exit(Sender: TObject);
    procedure DBEdit5KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    ENTREGA,DEVOLUCION,ID_FORMA:STRING;
    total_cobrado:string;
    { Public declarations }
  end;

var
  CAJAFACTURAS: TCAJAFACTURAS;

implementation

uses UDMGS, DLGFORMAPAGOAUX,  menu;

{$R *.dfm}

procedure TCAJAFACTURAS.BitBtn6Click(Sender: TObject);
begin
     DMGS.cdsq_FORMAPAGOAUX.Close;
     fdlgFORMAPAGOAUX := tfdlgFORMAPAGOAUX.Create(NIL);
     if fdlgFORMAPAGOAUX.Showmodal=mrok then
     BEGIN
        LABEL5.Caption := DMGS.CDSQ_FORMAPAGOAUXDESCRIPCION.AsString;
        LABEL9.Caption := DMGS.CDSQ_FORMAPAGOAUXID_FORMA.AsString;
        ID_FORMA :=DMGS.CDSQ_FORMAPAGOAUXID_FORMA.AsString;
     END;
     fdlgFORMAPAGOAUX.Free;
     fdlgFORMAPAGOAUX := nil;
end;

procedure TCAJAFACTURAS.FormCreate(Sender: TObject);
begin
  LABEL5.CAPTION := '';
  LABEL6.CAPTION := '';
  LABEL8.CAPTION := '';
end;

procedure TCAJAFACTURAS.FormShow(Sender: TObject);
begin
  LABEL6.CAPTION := DMGS.CDSQ_MDFACTURADESCTOTAL.AsString+ ' €';
  LABEL8.CAPTION := DMGS.CDSQ_MDFACTURADEVOLUCION.AsString+ ' €';
  DBEDIT5.SETFOCUS;
  LABEL9.Caption := DMGS.CDSQ_MDFACTURAid_forma.AsString;

  IF LABEL9.CAPTION = '' THEN
      LABEL9.CAPTION := FMENU.ID_FORMAPAGO;

  DMGS.CDSQ_FLOAT.CLOSE;
  DMGS.CDSQ_FLOAT.COMMANDTEXT := 'SELECT  DESCRIPCION FROM FORMAPAGO WHERE ID_FORMA=''' +LABEL9.CAPTION+ ''' ';
  DMGS.CDSQ_FLOAT.Open;
  LABEL5.Caption := TRIM(DMGS.CDSQ_FLOAT.Fields[0].ASSTRING);
  DMGS.CDSQ_FLOAT.CLOSE;
end;

procedure TCAJAFACTURAS.bokClick(Sender: TObject);
begin
  ID_FORMA := LABEL9.CAPTION;
  IF ID_FORMA = '' THEN
  BEGIN
    SHOWMESSAGE('DEBE ELEGIR UNA FORMA DE PAGO.');
    ABORT;
  END;
  DEVOLUCION := LABEL8.CAPTION;
  if (dmgs.cdsq_mdfacturaentrega.AsFloat >= DMGS.CDSQ_MDfacturaDESCTOTAL.Asfloat ) then
     total_cobrado := DMGS.CDSQ_MDfacturaDESCTOTAL.AsString
  else
  begin
     total_cobrado := dmgs.CDSQ_MDfacturaentrega.AsString;
  end;
  MODALRESULT := MROK;
end;

procedure TCAJAFACTURAS.DBEdit5Exit(Sender: TObject);
begin
  LABEL8.CAPTION := FLOATTOSTR(ROUNDTO(DMGS.CDSQ_MDFACTURAENTREGA.ASFLOAT - STRTOFLOAT(copy(LABEL6.CAPTION,1,length(label6.caption)-2)),DMGS.DECIMALESMON));
end;

procedure TCAJAFACTURAS.DBEdit5KeyPress(Sender: TObject; var Key: Char);
begin
    IF (KEY='.') THEN
       KEY:=',';
    if (key=#13) then
    begin
        Perform(WM_NextDLGCtl, 0, 0);
        key:=#0;
    end;
end;

end.