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;
    { 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;
  IF DMGS.CDSQ_MDFACTURAID_FORMA.ASSTRING <> '' THEN
     LABEL9.Caption := DMGS.CDSQ_MDFACTURAid_forma.AsString
  ELSE
     LABEL9.CAPTION := FMENU.ID_FORMAPAGO;

  DMGS.CDSQ_FLOAT.CLOSE;
  DMGS.CDSQ_FLOAT.COMMANDTEXT := 'SELECT  DESCRIPCION FROM FORMAPAGO WHERE ID_FORMA=''' +FMENU.ID_FORMAPAGO+ ''' ';
  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;
  DEVOLUCION := LABEL8.CAPTION;
  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.