unit FEMPRESA;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  DBCtrls, StdCtrls, Buttons, ExtCtrls, Menus, Mask, db,TIPOSDEFINIDOS,
  ActnList, ImgList, ComCtrls, ToolWin,DBCLIENT, ExtDlgs,PRINTERS, mydbedit;

type
  TEMPRESA = class(TForm)
    Menu: TMainMenu;
    EMPRESA1: TMenuItem;
    DSEMPRESA: TDataSource;
    ALTAS1: TMenuItem;
    BAJAS1: TMenuItem;
    CONSULTAS1: TMenuItem;
    MODIFICACIONES1: TMenuItem;
    LISTADO1: TMenuItem;
    N1: TMenuItem;
    SALIR1: TMenuItem;
    REGISTRO1: TMenuItem;
    PRIMERO1: TMenuItem;
    ANTERIOR1: TMenuItem;
    SIGUIENTE1: TMenuItem;
    ToolBar1: TToolBar;
    BALTAS: TToolButton;
    BBAJAS: TToolButton;
    BCONSULTAS: TToolButton;
    BMODIFICACIONES: TToolButton;
    BLISTADO: TToolButton;
    ToolButton6: TToolButton;
    DBNavigator2: TDBNavigator;
    ToolButton7: TToolButton;
    BSALIR: TToolButton;
    ActionList1: TActionList;
    AAltas: TAction;
    ABajas: TAction;
    AConsultas: TAction;
    AModificaciones: TAction;
    ASalir: TAction;
    ALISTADO: TAction;
    ImageList1: TImageList;
    OpenPictureDialog1: TOpenPictureDialog;
    ToolButton1: TToolButton;
    BSELECCIONAR: TToolButton;
    ASELECCIONAR: TAction;
    Label22: TLabel;
    PCEMPRESA: TPageControl;
    TBDATOS: TTabSheet;
    TBOPCIONES: TTabSheet;
    Panel1: TPanel;
    Label7: TLabel;
    Label2: TLabel;
    Label1: TLabel;
    Label4: TLabel;
    Label3: TLabel;
    Label5: TLabel;
    Label17: TLabel;
    Label6: TLabel;
    Label12: TLabel;
    Label9: TLabel;
    Label8: TLabel;
    Label10: TLabel;
    Label21: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    DBEdit1: TDBEdit;
    DBImage1: TDBImage;
    DBEdit8: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit12: TDBEdit;
    DBEdit10: TDBEdit;
    CheckBox1: TDBCheckBox;
    DBEdit7: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit13: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit16: TDBEdit;
    DBEdit14: TDBEdit;
    DBEdit11: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit23: TDBEdit;
    DBEdit15: TDBEdit;
    DBEdit9: TDBEdit;
    Panel2: TPanel;
    DBCheckBox1: TDBCheckBox;
    DBCheckBox2: TDBCheckBox;
    DBCheckBox3: TDBCheckBox;
    DBCheckBox4: TDBCheckBox;
    Label25: TLabel;
    DBEdit26: TDBEdit;
    Label18: TLabel;
    DBEdit20: TDBEdit;
    Label27: TLabel;
    DBEdit28: TDBEdit;
    Label26: TLabel;
    DBEdit27: TDBEdit;
    DBEdit21: TDBEdit;
    DBEdit25: TDBEdit;
    DBEdit19: TDBEdit;
    Label14: TLabel;
    Label24: TLabel;
    Label19: TLabel;
    Label23: TLabel;
    Label11: TLabel;
    DBEdit17: TDBEdit;
    DBEdit24: TDBEdit;
    Label20: TLabel;
    DBEdit22: TDBEdit;
    Label13: TLabel;
    DBEdit18: TDBEdit;
    Label28: TLabel;
    DBEdit29: TDBEdit;
    DBCheckBox5: TDBCheckBox;
    Label29: TLabel;
    DBEdit30: TDBEdit;
    DBCheckBox6: TDBCheckBox;
    Label30: TLabel;
    DBEdit31: TDBEdit;
    Label31: TLabel;
    Label32: TLabel;
    DBCheckBox7: TDBCheckBox;
    Action1: TAction;
    DBCheckBox8: TDBCheckBox;
    Label33: TLabel;
    DBEdit32: TDBEdit;
    Label34: TLabel;
    DBRadioGroup1: TDBRadioGroup;
    DBCheckBox9: TDBCheckBox;
    DBCheckBox10: TDBCheckBox;
    Label35: TLabel;
    GroupBox1: TGroupBox;
    DBCheckBox14: TDBCheckBox;
    DBCheckBox13: TDBCheckBox;
    DBCheckBox11: TDBCheckBox;
    Label36: TLabel;
    DBEdit33: TDBEdit;
    DBCheckBox12: TDBCheckBox;
    Label37: TLabel;
    DBEdit34: TDBEdit;
    Label38: TLabel;
    DBEdit35: TDBEdit;
    Label39: TLabel;
    Label40: TLabel;
    DBComboBox1: TDBComboBox;
    DBComboBox2: TDBComboBox;
    DBCheckBox15: TDBCheckBox;
    DBCheckBox16: TDBCheckBox;
    DBCheckBox17: TDBCheckBox;
    Label41: TLabel;
    DBEdit36: TDBEdit;
    DBCheckBox18: TDBCheckBox;
    Label42: TLabel;
    DBEdit37: TDBEdit;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure BAltasClick(Sender: TObject);
    procedure BConsultasClick(Sender: TObject);
    procedure BBajasClick(Sender: TObject);
    procedure BModificacionesClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure BSalirClick(Sender: TObject);
    procedure DSEMPRESAStateChange(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure BListadoClick(Sender: TObject);
    procedure REGISTRO1Click(Sender: TObject);
    procedure PRIMERO1Click(Sender: TObject);
    procedure ANTERIOR1Click(Sender: TObject);
    procedure SIGUIENTE1Click(Sender: TObject);
    procedure EMPRESA1Click(Sender: TObject);
    procedure DBEdit6KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit6Exit(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure DSEMPRESADataChange(Sender: TObject; Field: TField);
    procedure DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
    procedure CheckBox1Click(Sender: TObject);
    procedure BIMAGENClick(Sender: TObject);
    procedure BBORRARIMAGENClick(Sender: TObject);
    procedure DBImage1DblClick(Sender: TObject);
    procedure DBEdit22KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBEdit22DblClick(Sender: TObject);
    procedure BSELECCIONARClick(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure FormShortCut(var Msg: TWMKey; var Handled: Boolean);
    procedure DBEdit32KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBEdit32DblClick(Sender: TObject);
    procedure DBCheckBox14Click(Sender: TObject);
    procedure DBCheckBox13Click(Sender: TObject);
    procedure DBCheckBox11Click(Sender: TObject);
    procedure DBEdit34KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBEdit34DblClick(Sender: TObject);
  private
    { Private declarations }
    PAUX :STRING;
    ancho:integer;
    entra:boolean;
    procedure EstadoBotones;
    function GetEMPRESA:string;
    procedure cliente;
    procedure formapago;
    procedure impresoras;
    procedure impresoras2;
    procedure PUERTOS;
  public
    { Public declarations }
     property codigo:string read GetEMPRESA;// write SetCONDUCTOR;
     PROCEDURE COMPROBARLOGO;
  end;

var
  EMPRESA: TEMPRESA;

implementation

uses RUTINAS, UDMGS, fdlgEMPRESA,  fprevio,
  FLISTADOS, DLGSERIESAUX, menu, FOPCIONESNUMERICAS, FDLGCLIENTEAUX,
  DLGFORMAPAGOAUX;

{$R *.DFM}


//********************    FALTA POR HACER EL LISTADO

procedure TEMPRESA.BListadoClick(Sender: TObject);
VAR PATH:STRING;
    bookmark:tbookmark;
begin
    bookmark := dmgs.cdsq_empresa.GetBookmark ;
    DSEMPRESA.DataSet := NIL; // HACE FALTA
    LISTADOS := tLISTADOS.Create(nil);
    PREVIO := TPREVIO.Create(NIL);
    LISTADOS.FRDB.DataSet := DMGS.CDSQ_EMPRESA;
 //   Path := ExtractFilePath(ParamStr(0));
    LISTADOS.frReport1.LoadFromFile(dmgs.Path + 'LISTADOS\EMPRESA.frf');
    LISTADOS.frReport1.Preview := PREVIO.frPreview1;
    LISTADOS.frReport1.ShowReport;
    PREVIO.ShowModal;
    DSEMPRESA.DataSet := DMGS.CDSQ_EMPRESA;
    LISTADOS.Free;
    LISTADOS := NIL;
    PREVIO.FREE;
    PREVIO := NIL;
    dmgs.cdsq_empresa.GotoBookmark (bookmark);
    dmgs.cdsq_empresa.FreeBookmark(bookmark);
end;


//***********************************************************
function TEMPRESA.GetEMPRESA:string;
begin
    result:=DMGS.CDSQ_EMPRESAcif_empresa.asstring;
end;


procedure TEMPRESA.FormDestroy(Sender: TObject);
begin
 if DMGS.CDSQ_EMPRESA.active then
     DMGS.CDSQ_EMPRESA.close;

 DMGS.CDSQ_MAXIMO.CLOSE;

end;
procedure TEMPRESA.FormCreate(Sender: TObject);
begin
  ancho := Width ;
  entra := true;
  with DMGS.CDSQ_EMPRESA do
  BEGIN
    Close;
    DMGS.VEMPRESAS.ID  :='%';
    Open;
  END;

end;
procedure TEMPRESA.FormShow(Sender: TObject);
begin
    PCEMPRESA.ActivePage := TBDATOS;
    EstadoBotones;
end;
procedure TEMPRESA.BConsultasClick(Sender: TObject);
begin
    dsEMPRESA.DataSet := nil;
    dlgEMPRESA:=tdlgEMPRESA.create(nil);
    dlgEMPRESA.CerrarDataset := false;
    dlgEMPRESA.Showmodal;
    dlgEMPRESA.Free;
    dlgEMPRESA := nil;
    IF NOT DMGS.CDSQ_EMPRESA.ACTIVE THEN
       ESTADOBOTONES;
    dsEMPRESA.dataset := DMGS.CDSQ_EMPRESA;
end;

procedure TEMPRESA.FormKeyPress(Sender: TObject; var Key: Char);
begin
    if (ActiveControl=nil) and (key=#13) then
    begin
        Perform(WM_NextDLGCtl, 0, 0);
        key:=#0;
    end;
   if (key = #13) and not (ActiveControl is TButton) then
    begin
        PAUX:='';
        if (uppercase(activecontrol.name)='DBEDIT9')
        OR (uppercase(activecontrol.name)='DBEDIT19')
          then
            DMGS.CDSQ_EMPRESA.post;
        IF  DMGS.CDSQ_EMPRESA.STATE IN [DSEDIT,DSINSERT] THEN
            PAUX:=Uppercase(activecontrol.name);
        Perform(WM_NextDLGCtl, 0, 0);
        key:=#0 ;
        IF PAUX='DBEDIT6' THEN
             DBEDIT8.SetFocus ;

    end;

    if not (activeControl is TDBEdit) then
    begin
       if uppercase(key)='A' then if BAltas.enabled then BAltas.click;
       if uppercase(key)='B' then if BBajas.enabled then BBajas.click;
       if uppercase(key)='C' then if BConsultas.enabled then BConsultas.click;
       if uppercase(key)='M' then if BModificaciones.enabled then BModificaciones.click;
       if uppercase(key)='L' then if BListado.enabled then BListado.click;
    end;

    if (key = #27) and not (DMGS.CDSQ_EMPRESA.state in [dsedit,dsinsert])
     then
       close;

    if (key = #27) and not (ActiveControl is TButton) then
        if DMGS.CDSQ_EMPRESA.state in [dsedit,dsinsert]
          then
            DMGS.CDSQ_EMPRESA.post;

end;

procedure TEMPRESA.BSalirClick(Sender: TObject);
begin
    close;
    modalresult := mrOk;
end;
procedure TEMPRESA.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
    if key=38 then CambiarControl(self,false);
    if key=40 then CambiarControl(self,true);
end;
procedure TEMPRESA.REGISTRO1Click(Sender: TObject);
begin
   if (DMGS.CDSQ_EMPRESA.state in [dsedit,dsinsert]) then
   begin
      primero1.enabled:=false;
      anterior1.enabled:=false;
      siguiente1.enabled:=false;
   end
   else
   begin
    primero1.enabled:=DMGS.CDSQ_EMPRESA.bof=false;
    anterior1.enabled:=primero1.enabled;
    siguiente1.enabled:=DMGS.CDSQ_EMPRESA.eof=false;
   end;
end;

procedure TEMPRESA.PRIMERO1Click(Sender: TObject);
begin
   DMGS.CDSQ_EMPRESA.first;
end;

procedure TEMPRESA.ANTERIOR1Click(Sender: TObject);
begin
    DMGS.CDSQ_EMPRESA.Prior;
end;

procedure TEMPRESA.SIGUIENTE1Click(Sender: TObject);
begin
    DMGS.CDSQ_EMPRESA.next;
end;

procedure TEMPRESA.EstadoBotones;
begin
//    PDatos.enabled:=DMGS.CDSQ_EMPRESA.state in [dsedit,dsinsert];
    PANEL1.enabled:=DMGS.CDSQ_EMPRESA.state in [dsedit,dsinsert];
    PANEL2.enabled:=DMGS.CDSQ_EMPRESA.state in [dsedit,dsinsert];
    BAltas.enabled:=(DMGS.CDSQ_EMPRESA.state=dsbrowse) or (DMGS.CDSQ_EMPRESA.state=dsinactive);
    BListado.enabled:=(DMGS.CDSQ_EMPRESA.state=dsbrowse) and (DMGS.CDSQ_EMPRESA.RecordCount >0 );
    BConsultas.enabled:=(DMGS.CDSQ_EMPRESA.state=dsbrowse) or (DMGS.CDSQ_EMPRESA.state=dsinactive);
    BModificaciones.enabled:=(DMGS.CDSQ_EMPRESA.state=dsbrowse)  and (DMGS.CDSQ_EMPRESA.RecordCount >0 );//AND (DMGS.CDSQ_EMPRESABORRADO.VALUE = 0);
    BSELECCIONAR.enabled:=(DMGS.CDSQ_EMPRESA.state=dsbrowse)  and (DMGS.CDSQ_EMPRESA.RecordCount >0 );//AND (DMGS.CDSQ_EMPRESABORRADO.VALUE = 0);    
    BBajas.enabled:=(DMGS.CDSQ_EMPRESA.state=dsbrowse) and (DMGS.CDSQ_EMPRESA.RecordCount >0 );
end;

procedure TEMPRESA.BAltasClick(Sender: TObject);
begin
 WITH DMGS.CDSQ_EMPRESA DO
  BEGIN
    IF NOT DMGS.CDSQ_EMPRESA.ACTIVE THEN
    BEGIN
     DMgs.VEMPRESAS.ID :='/*/*/*/*/*/*';
     OPEN;
    END;
     pcempresa.ActivePage := tbdatos;
     APPEND;
  END;
  dbedit1.setfocus;
  impresoras;
  impresoras2;
  puertos;
end;
procedure TEMPRESA.BBajasClick(Sender: TObject);
VAR AUX:STRING;
begin
    if (DMGS.CDSQ_EMPRESA.recordcount>0)// or (DMGS.CDSQ_EMPRESA.state in [dsedit,dsinsert])
      then
      begin
        aux := dmgs.cdsq_empresaid_empresa.AsString;
        DMGS.CDsQ_EMPRESA.delete;
        DMGS.CDsQ_EMPRESAafterpost(dmGS.CDsQ_EMPRESA);
        if aux= fmenu.ID_EMPRESA then
        begin
           FMENU.ID_EMPRESA := '';
           FMENU.ANYO := '';
           FMENU.NOMBREEMPRESA := '';
           FMENU.CIF_EMPRESA := '';
           FMENU.ID_SERIE := '';
           FMENU.VALIDEZ := 30;
           FMENU.Caption := ' GESTISHOP - ';
        end;
      end;
end;
procedure TEMPRESA.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if DMGS.CDSQ_EMPRESA.State in [dsedit,dsinsert] then
      DMGS.CDSQ_EMPRESA.post;
  ACTION := CAFREE;
end;
procedure TEMPRESA.BModificacionesClick(Sender: TObject);
begin
    if DMGS.CDSQ_EMPRESA.recordcount>0 then
    begin
        DMGS.CDSQ_EMPRESA.edit;
//        dbedit1.setfocus;
        IF (pcempresa.ActivePage = tbdatos) THEN
            dbedit1.setfocus
        ELSE
            DBCHECKBOX1.SetFocus ;
    end;
    impresoras;
    impresoras2;
    puertos;
end;
procedure TEMPRESA.DSEMPRESAStateChange(Sender: TObject);
begin
    EstadoBotones;
end;
procedure TEMPRESA.EMPRESA1Click(Sender: TObject);
begin
    altas1.enabled:=baltas.enabled;
    bajas1.enabled:=bbajas.enabled;
    consultas1.enabled:=bconsultas.enabled;
    modificaciones1.enabled:=bmodificaciones.enabled;
    listado1.enabled:=blistado.enabled;
end;
//******* PONERLO EN RUTINAS ES DIFERENTE DE LA FUNCION DE EMPRESAS
//******* VER CON JJ PARA HACER UNA PARA LOS DOS.
procedure TEMPRESA.DBEdit6Exit(Sender: TObject);
VAR CIF:STRING;
    ultimo,valido:boolean;
begin

if (dbedit6.text = '') and (DMGS.CDSQ_EMPRESA.State in [dsedit,dsinsert]) then
 begin
  showmessage('El NIF introducido es erroneo, introduzcalo correctamente');
  valido:=false;
//  dbedit6.setfocus;
  PAUX:='';
  EXIT;
 end
 else
 if (DMGS.CDSQ_EMPRESA.State in [dsedit,dsinsert]) then
 begin
    ultimo:=false;
    valido:=true;
    CIF:=TRIM(DBEDIT6.Text);
    comprobarnifcif(cif,ultimo,valido);
    if not valido then
    begin
      showmessage('El NIF introducido es erroneo, introduzcalo correctamente');
      valido:=false;
//      dbedit6.setfocus;
      PAUX:='';
      EXIT;
    end
 END;
//  DBEDIT8.SETFOCUS;
end;
procedure TEMPRESA.DBEdit6KeyPress(Sender: TObject; var Key: Char);
begin
IF   ((key>='0') and (key<='9')) or (key =#13) or ((key>='A') and (key<='Z')) and (key <>#8)  then
  begin
     if (key =#13) and not (Activecontrol is TButton) then
     begin
 //         Perform(WM_NEXTDLGCTL,0,0);
 //          key:=#0;
     end;
  end
  else key:=#0;

end;



procedure TEMPRESA.DSEMPRESADataChange(Sender: TObject;
  Field: TField);
begin
  comprobarlogo;
  IF (DMGS.CDSQ_EMPRESA.EOF) AND (NOT(DMGS.CDSQ_EMPRESA.STATE IN [DSEDIT,DSINSERT])) THEN
  try // para evitar el error de memoria bloqueada en el server.
    DMGS.CDSQ_EMPRESA.GetNextPacket;
  except
  end;
  ESTADOBOTONES;
end;

procedure TEMPRESA.DBNavigator1Click(Sender: TObject;
  Button: TNavigateBtn);
begin
  IF DMGS.CDSQ_EMPRESA.EOF  THEN
  try // para evitar el error de memoria bloqueada en el server.
    DMGS.CDSQ_EMPRESA.GetNextPacket;
  except
  end;
end;

procedure TEMPRESA.CheckBox1Click(Sender: TObject);
begin
  if (dmgs.cdsq_EMPRESA.state in [dsedit,dsinsert]) then
  begin
   if checkbox1.Checked THEN
   BEGIN
    DMGS.CDSQ_EMPRESADIRECCION_POSTAL.ASSTRING := DMGS.CDSQ_EMPRESADIRECCION.ASSTRING ;
    DMGS.CDSQ_EMPRESAPOBLACION_POSTAL.ASSTRING := DMGS.CDSQ_EMPRESAPOBLACION.ASSTRING ;
    DMGS.CDSQ_EMPRESACOD_POSTAL_POSTAL.ASSTRING := DMGS.CDSQ_EMPRESACOD_POSTAL.ASSTRING ;
    DMGS.CDSQ_EMPRESAPROVINCIA_POSTAL.ASSTRING :=DMGS.CDSQ_EMPRESAPROVINCIA.ASSTRING;
    DBEDIT11.SetFOCUS;
   END
   ELSE
   BEGIN
    DMGS.CDSQ_EMPRESADIRECCION_POSTAL.Clear;
    DMGS.CDSQ_EMPRESAPOBLACION_POSTAL.CLEAR;
    DMGS.CDSQ_EMPRESACOD_POSTAL_POSTAL.CLEAR;
    DMGS.CDSQ_EMPRESAPROVINCIA_POSTAL.CLEAR;
    DBEDIT7.SetFocus;
   END
  end;
end;

procedure TEMPRESA.BIMAGENClick(Sender: TObject);
begin
{  IF NOT (DMGS.CDSQ_EMPRESA.STATE IN [DSEDIT,DSINSERT]) THEN
  BEGIN
    DMGS.CDSQ_EMPRESA.EDIT;
    try
     IF OPENPICTUREDIALOG1.EXECUTE THEN
       DMGS.CDSQ_EMPRESALOGO.ASSTRING := OPENPICTUREDIALOG1.FILENAME;
    except
    on EInvalidGraphic do
      Image1.Picture.Graphic := nil;
    end;
    DMGS.CDSQ_EMPRESA.POST;
  END
  ELSE
    IF OPENPICTUREDIALOG1.EXECUTE THEN
       DMGS.CDSQ_EMPRESALOGO.ASSTRING := OPENPICTUREDIALOG1.FILENAME;
}
end;

procedure TEMPRESA.BBORRARIMAGENClick(Sender: TObject);
begin
{ IF NOT (DMGS.CDSQ_EMPRESA.STATE IN [DSEDIT,DSINSERT]) THEN
  BEGIN
    DMGS.CDSQ_EMPRESA.EDIT;
    DMGS.CDSQ_EMPRESALOGO.ASSTRING := '';
    DMGS.CDSQ_EMPRESA.POST;
  END
  ELSE
    DMGS.CDSQ_EMPRESALOGO.ASSTRING := '';
}
end;
PROCEDURE TEMPRESA.COMPROBARLOGO ;
BEGIN
{   IF DMGS.CDSQ_EMPRESALOGO.ASSTRING <> '' THEN
     IMAGE1.PICTURE.LOADFROMFILE (DMGS.CDSQ_EMPRESALOGO.ASSTRING)
   ELSE
     IMAGE1.Picture := NIL;
}
END;

procedure TEMPRESA.DBImage1DblClick(Sender: TObject);
begin
 if (dmgs.cdsq_empresa.state in [dsedit,dsinsert]) then
  IF OPENPICTUREDIALOG1.EXECUTE THEN
    dbimage1.Picture.LoadFromFile (OPENPICTUREDIALOG1.FILENAME);
end;

procedure TEMPRESA.DBEdit22KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  IF (DMGS.CDSQ_empresa.STATE IN [DSEDIT,DSINSERT]) THEN
   if key=112 then
    begin
        DMGS.CDSQ_SERIESAUX.Close;
        FDLGSERIESAUX := TFDLGSERIESAUX.Create(NIL);
        FDLGSERIESAUX.SERIE := DMGS.CDSQ_EMPRESAID_EMPRESA.AsString ;
        if FDLGSERIESAUX.Showmodal=mrok then
        begin
            DMGS.CDSQ_EMPRESAID_SERIE.ASSTRING := FDLGSERIESAUX.SERIE;
            Perform(WM_NextDLGCtl, 0, 0);
        end;
        FDLGSERIESAUX.Free;
        FDLGSERIESAUX := nil;
    end;
end;

procedure TEMPRESA.DBEdit22DblClick(Sender: TObject);
begin
  IF (DMGS.CDSQ_empresa.STATE IN [DSEDIT,DSINSERT]) THEN
    begin
        DMGS.CDSQ_SERIESAUX.Close;
        FDLGSERIESAUX := TFDLGSERIESAUX.Create(NIL);
        FDLGSERIESAUX.SERIE := DMGS.CDSQ_EMPRESAID_EMPRESA.AsString ;
        if FDLGSERIESAUX.Showmodal=mrok then
        begin
            DMGS.CDSQ_EMPRESAID_SERIE.ASSTRING := FDLGSERIESAUX.SERIE;
            Perform(WM_NextDLGCtl, 0, 0);
        end;
        FDLGSERIESAUX.Free;
        FDLGSERIESAUX := nil;
    end;

end;

procedure TEMPRESA.BSELECCIONARClick(Sender: TObject);
begin
//  Fmenu.Caption := '';
  IF DMGS.CDSQ_EMPRESA.RECORDCOUNT > 0 THEN
  BEGIN
{   FMENU.ID_EMPRESA := DMGS.CDSQ_EMPRESAID_EMPRESA.ASSTRING;
   FMENU.NOMBREEMPRESA := DMGS.CDSQ_EMPRESANOMBRE.ASSTRING;
   FMENU.CIF_EMPRESA := DMGS.CDSQ_EMPRESACIF_EMPRESA.ASSTRING;
   FMENU.ID_SERIE := DMGS.CDSQ_EMPRESAID_SERIE.AsString;
   FMENU.VALIDEZ := DMGS.CDSQ_EMPRESAPRESUPUESTOVALIDO.Value;
   FMENU.DAR_AVISO := DMGS.CDSQ_EMPRESADAR_AVISO.AsString;
}
   FMENU.ASIGNARVARIABLES;
   FMENU.Caption := ' GESTISHOP - '+ fmenu.NOMBREEMPRESA + ' - ' + fmenu.ID_SERIE ;
   FMENU.CERRARHIJAS;
  END;

//  IF (FMENU.TIPO='1') and (fmenu.caption <> '') THEN
//      FMENU.CAPTION := FMENU.CAPTION + ' AUXILIAR ';
end;

procedure TEMPRESA.FormResize(Sender: TObject);
begin
   pcempresa.Left := 10 + (ClientWidth - ancho ) div 2 ;
end;

procedure TEMPRESA.FormShortCut(var Msg: TWMKey; var Handled: Boolean);
begin
   pcempresa.Left := 10 + (ClientWidth - ancho ) div 2 ;
end;


procedure TEMPRESA.DBEdit32KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=112 then
     cliente;
end;

procedure TEMPRESA.DBEdit32DblClick(Sender: TObject);
begin
  cliente;
end;
procedure tempresa.cliente;
begin
   IF (DMGS.cdsq_empresa.STATE IN [DSEDIT,DSINSERT]) THEN
   BEGIN
        DMGS.cdsq_clienteaux.Close;
        dlgclienteAUX := tdlgclienteAUX.Create(NIL);
        if dlgclienteAUX.Showmodal=mrok then
        begin
            DMGS.cdsq_empresaclxdefecto.ASSTRING := dlgclienteaux.codigo;
            Perform(WM_NextDLGCtl, 0, 0);
        end;
        dlgclienteaux.Free;
        dlgclienteaux := nil;
  end;
end;

procedure TEMPRESA.DBCheckBox14Click(Sender: TObject);
begin
 if(dmgs.cdsq_empresa.state in [dsedit,dsinsert]) then
  if dbcheckbox14.Checked
  then
  begin
     dmgs.cdsq_empresafposicionuso.value := 0;
     dmgs.cdsq_empresafdescripcion.value := 0;
  end;
end;

procedure TEMPRESA.DBCheckBox13Click(Sender: TObject);
begin
 if(dmgs.cdsq_empresa.state in [dsedit,dsinsert]) then
  if dbcheckbox13.Checked
  then
  begin
     dmgs.cdsq_empresafposicion.value := 0;
     dmgs.cdsq_empresafposicionuso.value := 0;
  end;
end;

procedure TEMPRESA.DBCheckBox11Click(Sender: TObject);
begin
 if(dmgs.cdsq_empresa.state in [dsedit,dsinsert]) then
  if dbcheckbox11.Checked
  then
  begin
     dmgs.cdsq_empresafposicion.value := 0;
     dmgs.cdsq_empresafdescripcion.value := 0;
  end;
end;

procedure TEMPRESA.DBEdit34KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if key=112 then
    formapago;
end;

procedure tempresa.formapago ;
begin
   IF (DMGS.cdsq_empresa.STATE IN [DSEDIT,DSINSERT]) THEN
   BEGIN
        DMGS.cdsq_formapagoaux.Close;
        fdlgformapagoAUX := tfdlgformapagoAUX.Create(NIL);
        if fdlgformapagoAUX.Showmodal=mrok then
        begin
            DMGS.cdsq_empresaformapago.ASSTRING := dmgs.cdsq_formapagoauxid_forma.AsString ;
            Perform(WM_NextDLGCtl, 0, 0);
        end;
        fdlgformapagoaux.Free;
        fdlgformapagoaux := nil;
  end;
end;
procedure TEMPRESA.DBEdit34DblClick(Sender: TObject);
begin
  formapago;
end;

procedure TEMPRESA.impresoras;
var aux :tprinter;
    I:integer;
begin
    i:= 0;
    aux := tprinter.create;
    while aux.Printers.Count > i do
    begin
       dbcombobox1.Items.add(aux.printers[i]);
       i:=i+1;
    end;
    aux.free;
    aux := nil;
//    dbcombobox1.Text := dmgs.CDSQ_EMPRESAIMPRESORATICKET.asstring;
end;
procedure TEMPRESA.impresoras2;
var aux :tprinter;
    I:integer;
begin
    i:= 0;
    aux := tprinter.create;
    while aux.Printers.Count > i do
    begin
       dbcombobox2.Items.add(aux.printers[i]);
       i:=i+1;
    end;
    aux.free;
    aux := nil;
//    dbcombobox2.Text := dmgs.CDSQ_EMPRESAIMPRESORAINFORMES.asstring;
end;
procedure TEMPRESA.PUERTOS;
begin

end;



end.