unit FCAJA;

interface

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

type
  TCAJA = class(TForm)
    bok: TBitBtn;
    bcancelar: TBitBtn;
    BitBtn6: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    procedure BitBtn6Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    ENTREGA,DEVOLUCION,ID_FORMA:STRING;
    { Public declarations }
  end;

var
  CAJA: TCAJA;

implementation

uses UDMGS, DLGFORMAPAGOAUX, FTICKET, menu;

{$R *.dfm}

procedure TCAJA.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 TCAJA.FormCreate(Sender: TObject);
begin
  LABEL5.CAPTION := '';
  LABEL6.CAPTION := '';
  LABEL7.CAPTION := '';
  LABEL8.CAPTION := '';
end;

procedure TCAJA.FormShow(Sender: TObject);
begin
  LABEL6.CAPTION := DMGS.CDSQ_MDTICKETTOTAL.AsString+ ' €';
  LABEL7.CAPTION := ENTREGA + ' €';
  LABEL8.CAPTION := DEVOLUCION;
  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;

end.