unit fcajaalbaranes;

interface

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

type
  TCAJAALBARANES = 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
  CAJAALBARANES: TCAJAALBARANES;

implementation

uses UDMGS, DLGFORMAPAGOAUX,  menu;

{$R *.dfm}

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

procedure TCAJAALBARANES.FormShow(Sender: TObject);
begin
  LABEL6.CAPTION := DMGS.CDSQ_MDALBARANDESCTOTAL.AsString+ ' €';
  LABEL8.CAPTION := DMGS.CDSQ_MDALBARANDEVOLUCION.AsString+ ' €';
  DBEDIT5.SETFOCUS;
  
  IF DMGS.CDSQ_MDALBARANID_FORMA.ASSTRING <> '' THEN
     LABEL9.Caption := DMGS.CDSQ_MDALBARANid_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 TCAJAALBARANES.bokClick(Sender: TObject);
begin
  ID_FORMA := LABEL9.CAPTION;
  DEVOLUCION := LABEL8.CAPTION;
  if (dmgs.cdsq_mdalbaranentrega.AsFloat >= DMGS.CDSQ_MDALBARANDESCTOTAL.Asfloat ) then
     total_cobrado := DMGS.CDSQ_MDALBARANDESCTOTAL.AsString
  else
  begin
     total_cobrado := dmgs.CDSQ_MDALBARANentrega.AsString;
  end;
  MODALRESULT := MROK;

end;

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

procedure TCAJAALBARANES.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.