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', uConfGeneral in 'Configuracion\uConfGeneral.pas', uConfiguracion in 'Configuracion\uConfiguracion.pas' {fConfiguracion}, 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 '..\Servicios\srvLogin_Impl.pas', srvPresupuestos_Impl in '..\Modulos\Presupuestos\Servidor\srvPresupuestos_Impl.pas' {srvPresupuestos: TDARemoteService}, schPresupuestosClient_Intf in '..\Modulos\Presupuestos\Model\schPresupuestosClient_Intf.pas', schPresupuestosServer_Intf in '..\Modulos\Presupuestos\Model\schPresupuestosServer_Intf.pas', srvEmpresas_Impl in '..\Modulos\Empresas\Servidor\srvEmpresas_Impl.pas', schEmpresasClient_Intf in '..\Modulos\Empresas\Model\schEmpresasClient_Intf.pas', schEmpresasServer_Intf in '..\Modulos\Empresas\Model\schEmpresasServer_Intf.pas', uSesionesUtils in 'Utiles\uSesionesUtils.pas', uUsersManager in 'uUsersManager.pas', schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas', schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas', srvFacturasCliente_Impl in '..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas' {srvFacturasCliente: TDARemoteService}, schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas', schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas'; {$R *.res} {$R ..\Servicios\RODLFile.res} begin Application.Initialize; Application.Title := 'FactuGES (Servidor)'; Application.CreateForm(TdmServer, dmServer); Application.CreateForm(TfServerForm, fServerForm); Application.Run; Application.Terminate; end.