Tecsitel_FactuGES2/Source/Servidor/FactuGES_Server.dpr

program FactuGES_Server;

{#ROGEN:..\Servicios\FactuGES.rodl} // RemObjects: Careful, do not remove!

uses
  ExceptionLog,
  uROComInit,
  Forms,
  uServerMainForm in 'uServerMainForm.pas' {fServerForm},
  uAcercaDe in 'uAcercaDe.pas' {fAcercaDe},
  uConexionBD in 'Configuracion\uConexionBD.pas' {frConexionBD: TFrame},
  uConfGeneral in 'Configuracion\uConfGeneral.pas' {frConfGeneral: TFrame},
  uConfiguracion in 'Configuracion\uConfiguracion.pas' {fConfiguracion: TForm},
  uFrameConfiguracion in 'Configuracion\uFrameConfiguracion.pas' {FrameConfiguracion: TFrame},
  uDataModuleServer in 'uDataModuleServer.pas' {dmServer: TDataModule},
  FactuGES_Intf in '..\Servicios\FactuGES_Intf.pas',
  FactuGES_Invk in '..\Servicios\FactuGES_Invk.pas',
  srvContactos_Impl in '..\Modulos\Contactos\Servidor\srvContactos_Impl.pas' {srvContactos: TDARemoteService},
  uDatabaseUtils in 'Utiles\uDatabaseUtils.pas',
  srvLogin_Impl in 'srvLogin_Impl.pas',
  srvEmpresas_Impl in '..\Base\Empresas\Servidor\srvEmpresas_Impl.pas' {srvEmpresas: TDARemoteService},
  srvConfiguracion_Impl in 'Configuracion\srvConfiguracion_Impl.pas' {srvConfiguracion: TDataAbstractService};

uses
  ExceptionLog,
  uROComInit,
  Forms,
  uServerMainForm in 'uServerMainForm.pas' {fServerForm},
  uAcercaDe in 'uAcercaDe.pas' {fAcercaDe},
  uConexionBD in 'Configuracion\uConexionBD.pas' {frConexionBD: TFrame},
  uConfGeneral in 'Configuracion\uConfGeneral.pas' {frConfGeneral: TFrame},
  uConfiguracion in 'Configuracion\uConfiguracion.pas' {fConfiguracion: TForm},
  uFrameConfiguracion in 'Configuracion\uFrameConfiguracion.pas' {FrameConfiguracion: TFrame},
  uDataModuleServer in 'uDataModuleServer.pas' {dmServer: TDataModule},
  FactuGES_Intf in '..\Servicios\FactuGES_Intf.pas',
  FactuGES_Invk in '..\Servicios\FactuGES_Invk.pas',
  srvContactos_Impl in '..\Modulos\Contactos\Servidor\srvContactos_Impl.pas' {srvContactos: TDARemoteService},
  uDatabaseUtils in 'Utiles\uDatabaseUtils.pas',
  srvLogin_Impl in 'srvLogin_Impl.pas',
  srvEmpresas_Impl in '..\Base\Empresas\Servidor\srvEmpresas_Impl.pas' {srvEmpresas: TDARemoteService},,
  uSesionesUtils in 'Utiles\uSesionesUtils.pas',
  uUsersManager in 'uUsersManager.pas',
  uServerAppUtils in 'Utiles\uServerAppUtils.pas',
  uBizEmpleadosServer in '..\Modulos\Contactos\Model\uBizEmpleadosServer.pas',
  uBusinessUtils in 'Utiles\uBusinessUtils.pas',
  uBizContactosServer in '..\Modulos\Contactos\Model\uBizContactosServer.pas',
  uBizClientesServer in '..\Modulos\Contactos\Model\uBizClientesServer.pas',
  uBizProveedoresServer in '..\Modulos\Contactos\Model\uBizProveedoresServer.pas',
  uRestriccionesUsuarioUtils in 'Utiles\uRestriccionesUsuarioUtils.pas',
  uReferenciasUtils in 'Utiles\uReferenciasUtils.pas',
  srvConfiguracion_Impl in 'srvConfiguracion_Impl.pas' {srvConfiguracion: TDARemoteService},
  srvFamilias_Impl in '..\Modulos\Familias\Servidor\srvFamilias_Impl.pas' {srvFamilias: TDARemoteService},
  schFamiliasClient_Intf in '..\Modulos\Familias\Model\schFamiliasClient_Intf.pas',
  schFamiliasServer_Intf in '..\Modulos\Familias\Model\schFamiliasServer_Intf.pas',
  schEmpresasClient_Intf in '..\Base\Empresas\Model\schEmpresasClient_Intf.pas',
  schEmpresasServer_Intf in '..\Base\Empresas\Model\schEmpresasServer_Intf.pas',
  srvFormasPago_Impl in '..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas' {srvFormasPago: TDARemoteService},
  srvTiposIVA_Impl in '..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas' {srvTiposIVA: TDARemoteService},
  schTiposIVAClient_Intf in '..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas',
  schTiposIVAServer_Intf in '..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas',
  schFormasPagoServer_Intf in '..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas',
  schFormasPagoClient_Intf in '..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas',
  uSchemaUtilsServer in 'Utiles\uSchemaUtilsServer.pas',
  RegExpr in 'Utiles\RegExpr.pas',
  schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
  schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
  srvUsuarios_Impl in '..\Base\Usuarios\Servidor\srvUsuarios_Impl.pas' {srvUsuarios: TDARemoteService},;

{$R *.res}
{$R ..\Servicios\RODLFile.res}

begin
  Application.Initialize;
  Application.Title := 'FactuGES (Servidor)';
  Application.CreateForm(TfServerForm, fServerForm);
  Application.CreateForm(TdmServer, dmServer);
  Application.ShowMainForm := False;
  Application.Run;
  Application.Terminate;
end.