unit DLGSUBCUENTA;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
  Buttons, ExtCtrls, Mask, dialogs, messages, DBCtrls, DB;

type
  TFDLGSUBCUENTA = class(TForm)
    bACEPTAR: TButton;
    bCancelar: TButton;
    Label2: TLabel;
    DBEdit1: TDBEdit;
    DBText1: TDBText;
    DBText2: TDBText;
    Label1: TLabel;
    Label3: TLabel;
    DataSource1: TDataSource;
    Button1: TButton;
    procedure bACEPTARClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormShow(Sender: TObject);
    procedure bCancelarClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    fecha1:tdate;
    fecha2:tdate;
  public
      borrar:boolean;
        
      property fechainicio: tdate read fecha1 write fecha1;
      property fechafinal: tdate read fecha2 write fecha2;
  end;

var
  FDLGSUBCUENTA: TFDLGSUBCUENTA;

implementation
 USES UDMGS;
{$R *.DFM}

procedure TFDLGSUBCUENTA.bACEPTARClick(Sender: TObject);
begin
    DMGS.CDSQ_TIPOS.POST;
    modalresult:=mrok;
end;
procedure TFDLGSUBCUENTA.FormKeyPress(Sender: TObject; var Key: Char);
begin
    if ActiveControl=nil then
    begin
        Perform(WM_NextDLGCtl, 0, 0);
        key:=#0;
    end;

    if (key = #13) and not (activecontrol is tbutton) then
    begin
        Perform(WM_NextDLGCtl, 0, 0);
        key:=#0;
    end;

    if uppercase(key)='O' then if BAceptar.enabled then BAceptar.click;
    if uppercase(key)='C' then if BCancelar.enabled then BCancelar.click;
end;

procedure TFDLGSUBCUENTA.FormShow(Sender: TObject);
begin
   borrar := false;
   DBEDIT1.SetFocus;
end;

procedure TFDLGSUBCUENTA.bCancelarClick(Sender: TObject);
begin
  DMGS.CDSQ_TIPOS.CancelUpdates;
  modalresult:=mrCANCEL;
end;

procedure TFDLGSUBCUENTA.Button1Click(Sender: TObject);
begin
    DMGS.CDSQ_TIPOS.POST;
    modalresult:=mrok;
    borrar:=true;
end;

end.