roberto
c83756255b
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@309 c93665c3-c93d-084d-9b98-7d5f4a9c3376
171 lines
14 KiB
ObjectPascal
171 lines
14 KiB
ObjectPascal
program FactuGES_Server;
|
||
|
||
{#ROGEN:..\Servicios\FactuGES.rodl} // RemObjects: Careful, do not remove!
|
||
|
||
uses
|
||
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',
|
||
RegExpr in 'Utiles\RegExpr.pas',
|
||
srvLogin_Impl in '..\Servicios\srvLogin_Impl.pas',
|
||
srvEmpresas_Impl in '..\Modulos\Empresas\Servidor\srvEmpresas_Impl.pas',
|
||
uSesionesUtils in 'Utiles\uSesionesUtils.pas',
|
||
uUsersManager in 'uUsersManager.pas',
|
||
uServerAppUtils in 'Utiles\uServerAppUtils.pas',
|
||
uBizAgentesServer in '..\Modulos\Contactos\Model\uBizAgentesServer.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',
|
||
srvFacturasCliente_Impl in '..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas' {srvFacturasCliente: TDARemoteService},
|
||
uRestriccionesUsuarioUtils in 'Utiles\uRestriccionesUsuarioUtils.pas',
|
||
uRptFacturasCliente_Server in '..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas' {RptFacturasCliente: TDataModule},
|
||
srvPedidosProveedor_Impl in '..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas' {srvPedidosProveedor: TDARemoteService},
|
||
uReferenciasUtils in 'Utiles\uReferenciasUtils.pas',
|
||
uBizFacturasClienteServer in '..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas',
|
||
uRptPedidosProveedor_Server in '..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas' {RptPedidosProveedor: TDataModule},
|
||
srvConfiguracion_Impl in '..\Servicios\srvConfiguracion_Impl.pas' {srvConfiguracion: TDARemoteService},
|
||
srvAlmacenes_Impl in '..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas' {srvAlmacenes: TDARemoteService},
|
||
srvArticulos_Impl in '..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas' {srvArticulos: TDARemoteService},
|
||
srvInventario_Impl in '..\Modulos\Inventario\Servidor\srvInventario_Impl.pas' {srvInventario: TDARemoteService},
|
||
srvPedidosCliente_Impl in '..\Modulos\Pedidos de cliente\Servidor\srvPedidosCliente_Impl.pas' {srvPedidosCliente: TDARemoteService},
|
||
schAlmacenesClient_Intf in '..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas',
|
||
schAlmacenesServer_Intf in '..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas',
|
||
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 '..\Modulos\Empresas\Model\schEmpresasClient_Intf.pas',
|
||
schEmpresasServer_Intf in '..\Modulos\Empresas\Model\schEmpresasServer_Intf.pas',
|
||
uRptPedidosCliente_Server in '..\Modulos\Pedidos de cliente\Reports\uRptPedidosCliente_Server.pas' {RptPedidosCliente: TDataModule},
|
||
srvAlbaranesCliente_Impl in '..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas' {srvAlbaranesCliente: TDARemoteService},
|
||
srvAlbaranesProveedor_Impl in '..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas' {srvAlbaranesProveedor: TDARemoteService},
|
||
uRptAlbaranesCliente_Server in '..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas' {RptAlbaranesCliente: TDataModule},
|
||
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',
|
||
uBizPedidosClienteServer in '..\Modulos\Pedidos de cliente\Model\uBizPedidosClienteServer.pas',
|
||
uBizAlbaranClienteServer in '..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas',
|
||
uBizPedidosProveedorServer in '..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas',
|
||
uBizAlbaranProveedorServer in '..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS',
|
||
srvRecibosCliente_Impl in '..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas' {srvRecibosCliente: TDARemoteService},
|
||
srvRemesasCliente_Impl in '..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas' {srvRemesasCliente: TDARemoteService},
|
||
uBizRemesasClienteServer in '..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas',
|
||
uRptRemesasCliente_Server in '..\Modulos\Remesas de cliente\Reports\uRptRemesasCliente_Server.pas' {RptRemesasCliente: TDataModule},
|
||
uRptRecibosCliente_Server in '..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas' {RptRecibosCliente: TDataModule},
|
||
srvComisiones_Impl in '..\Modulos\Comisiones\Servidor\srvComisiones_Impl.pas' {srvComisiones: TDARemoteService},
|
||
schComisionesClient_Intf in '..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas',
|
||
schComisionesServer_Intf in '..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas',
|
||
srvTiendaWeb_Impl in '..\Modulos\Tienda web\Servidor\srvTiendaWeb_Impl.pas',
|
||
uBizTiendaWebServer in '..\Modulos\Tienda web\Model\uBizTiendaWebServer.pas',
|
||
uRptComisiones_Server in '..\Modulos\Comisiones\Reports\uRptComisiones_Server.pas' {RptComisiones: TDataModule},
|
||
uBizComisionesServer in '..\Modulos\Comisiones\Model\uBizComisionesServer.pas',
|
||
schReportServer_Intf in '..\Modulos\Comisiones\Model\schReportServer_Intf.pas',
|
||
schReportClient_Intf in '..\Modulos\Comisiones\Model\schReportClient_Intf.pas',
|
||
srvFacturasProveedor_Impl in '..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas' {srvFacturasProveedor: TDARemoteService},
|
||
srvRecibosProveedor_Impl in '..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas' {srvRecibosProveedor: TDARemoteService},
|
||
uBizFacturasProveedorServer in '..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas',
|
||
uBizOscAddressBookServer in '..\Modulos\Tienda web\Model\uBizOscAddressBookServer.pas',
|
||
uBizOscCustomerServer in '..\Modulos\Tienda web\Model\uBizOscCustomerServer.pas',
|
||
uBizOscManufacturerServer in '..\Modulos\Tienda web\Model\uBizOscManufacturerServer.pas',
|
||
uBizOscProductServer in '..\Modulos\Tienda web\Model\uBizOscProductServer.pas',
|
||
uConexionOSC in 'Configuracion\uConexionOSC.pas' {frConexionOSC: TFrame},
|
||
uTiendaWebUtils in 'Utiles\uTiendaWebUtils.pas',
|
||
uBizOscOrderServer in '..\Modulos\Tienda web\Model\uBizOscOrderServer.pas',
|
||
srvHistoricoMovimientos_Impl in '..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas' {srvHistoricoMovimientos: TDARemoteService},
|
||
uRptAlbaranesProveedor_Server in '..\Modulos\Albaranes de proveedor\Reports\uRptAlbaranesProveedor_Server.pas' {RptAlbaranesProveedor: TDataModule},
|
||
uRptFacturasProveedor_Server in '..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas' {RptFacturasProveedor: TDataModule},
|
||
srvRemesasProveedor_Impl in '..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas' {srvRemesasProveedor: TDARemoteService},
|
||
uRptRemesasProveedor_Server in '..\Modulos\Remesas de proveedor\Reports\uRptRemesasProveedor_Server.pas' {RptRemesasProveedor: TDataModule},
|
||
uBizRemesasProveedorServer in '..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas',
|
||
srvReferencias_Impl in '..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas' {srvReferencias: TDARemoteService},
|
||
schReferenciasClient_Intf in '..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas',
|
||
schReferenciasServer_Intf in '..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas',
|
||
srvInformes_Impl in '..\Modulos\Informes base\Servidor\srvInformes_Impl.pas' {srvInformes: TDARemoteService},
|
||
srvInfVentasArticulo_Impl in '..\Modulos\Informe ventas por articulo\Servidor\srvInfVentasArticulo_Impl.pas' {srvInfVentasArticulo: TDARemoteService},
|
||
uSchemaUtilsServer in 'Utiles\uSchemaUtilsServer.pas',
|
||
srvInfMargenArticulo_Impl in '..\Modulos\Informe margen por articulo\Servidor\srvInfMargenArticulo_Impl.pas' {srvInfMargenArticulo: TDARemoteService},
|
||
schInfVentasArticuloClient_Intf in '..\Modulos\Informe ventas por articulo\Model\schInfVentasArticuloClient_Intf.pas',
|
||
schInfVentasArticuloServer_Intf in '..\Modulos\Informe ventas por articulo\Model\schInfVentasArticuloServer_Intf.pas',
|
||
schTiendaWebClient_Intf in '..\Modulos\Tienda web\Model\schTiendaWebClient_Intf.pas',
|
||
schTiendaWebServer_Intf in '..\Modulos\Tienda web\Model\schTiendaWebServer_Intf.pas',
|
||
uRptEtiquetasContactos_Server in '..\Modulos\Contactos\Reports\uRptEtiquetasContactos_Server.pas' {RptEtiquetasContactos: TDataModule},
|
||
schInformesClient_Intf in '..\Modulos\Informes base\Model\schInformesClient_Intf.pas',
|
||
schInformesServer_Intf in '..\Modulos\Informes base\Model\schInformesServer_Intf.pas',
|
||
schInventarioClient_Intf in '..\Modulos\Inventario\Model\schInventarioClient_Intf.pas',
|
||
schInventarioServer_Intf in '..\Modulos\Inventario\Model\schInventarioServer_Intf.pas',
|
||
schInfMargenArticuloClient_Intf in '..\Modulos\Informe margen por articulo\Model\schInfMargenArticuloClient_Intf.pas',
|
||
schInfMargenArticuloServer_Intf in '..\Modulos\Informe margen por articulo\Model\schInfMargenArticuloServer_Intf.pas',
|
||
schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_Intf.pas',
|
||
schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas',
|
||
uCheckPrevious in 'Utiles\uCheckPrevious.pas',
|
||
srvImpresiones_Impl in '..\Modulos\Impresiones\Servidor\srvImpresiones_Impl.pas' {srvImpresiones: TDARemoteService},
|
||
schImpresionesClient_Intf in '..\Modulos\Impresiones\Model\schImpresionesClient_Intf.pas',
|
||
schImpresionesServer_Intf in '..\Modulos\Impresiones\Model\schImpresionesServer_Intf.pas',
|
||
srvRegistroCorreos_Impl in '..\Modulos\Registro de correos\Servidor\srvRegistroCorreos_Impl.pas' {srvRegistroCorreos: TDARemoteService},
|
||
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
|
||
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
|
||
schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
|
||
schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
|
||
schRemesasProveedorClient_Intf in '..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas',
|
||
schRemesasProveedorServer_Intf in '..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas',
|
||
schRemesasClienteClient_Intf in '..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas',
|
||
schRemesasClienteServer_Intf in '..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas',
|
||
schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas',
|
||
schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas',
|
||
schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas',
|
||
schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas',
|
||
schPedidosClienteClient_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteClient_Intf.pas',
|
||
schPedidosClienteServer_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteServer_Intf.pas',
|
||
schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas',
|
||
schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas',
|
||
schAlbaranesProveedorClient_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas',
|
||
schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas',
|
||
schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
|
||
schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas',
|
||
schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
|
||
schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas';
|
||
|
||
{$R *.res}
|
||
{$R ..\Servicios\RODLFile.res}
|
||
|
||
const
|
||
FACTUGES_NAME = 'FactuGES Servidor';
|
||
|
||
begin
|
||
{ if ROStartService(FACTUGES_NAME, FACTUGES_NAME) then
|
||
begin
|
||
// Aqui hay que comprobar antes si el servicio ya est<73> en ejecucion
|
||
|
||
ROService.CreateForm(TdmServer, dmServer);
|
||
ROService.Run;
|
||
Exit;
|
||
end;}
|
||
|
||
|
||
begin
|
||
if not uCheckPrevious.CheckIfRunning(Application.ExeName) then
|
||
begin
|
||
Application.Initialize;
|
||
Application.Title := FACTUGES_NAME;
|
||
Application.CreateForm(TfServerForm, fServerForm);
|
||
Application.CreateForm(TdmServer, dmServer);
|
||
Application.Run;
|
||
Application.Terminate;
|
||
end;
|
||
end;
|
||
|
||
end.
|