git-svn-id: https://192.168.0.254/svn/Proyectos.EstudioCarnicero_ProGestion/trunk@6 1b8572a8-2d6b-b84e-8c90-20ed86fa4eca
42 lines
2.2 KiB
ObjectPascal
42 lines
2.2 KiB
ObjectPascal
program ProGestion_Server;
|
||
|
||
{#ROGEN:FactuGES.rodl} // RemObjects: Careful, do not remove!
|
||
|
||
uses
|
||
uROComInit,
|
||
Forms,
|
||
fServerForm in 'fServerForm.pas' {ServerForm},
|
||
uDataModuleServer in 'uDataModuleServer.pas' {dmServer: TDataModule},
|
||
srvContactos_Impl in '..\Modulos\Contactos\Servidor\srvContactos_Impl.pas' {srvContactos: TDARemoteService},
|
||
uConexionBD in 'uConexionBD.pas',
|
||
uConfiguracion in 'uConfiguracion.pas' {fConfiguracion},
|
||
uFrameConfiguracion in 'uFrameConfiguracion.pas' {FrameConfiguracion: TFrame},
|
||
srvLogin_Impl in 'srvLogin_Impl.pas' {srvLogin: TDALoginService},
|
||
uConfGeneral in 'uConfGeneral.pas' {frConfGeneral: TFrame},
|
||
FactuGES_Intf in 'FactuGES_Intf.pas',
|
||
FactuGES_Invk in 'FactuGES_Invk.pas',
|
||
schContactosClient_Intf in '..\Modulos\Contactos\Reglas\schContactosClient_Intf.pas',
|
||
schContactosServer_Intf in '..\Modulos\Contactos\Reglas\schContactosServer_Intf.pas',
|
||
schObrasClient_Intf in '..\Modulos\Obras\Reglas\schObrasClient_Intf.pas',
|
||
schObrasServer_Intf in '..\Modulos\Obras\Reglas\schObrasServer_Intf.pas',
|
||
srvObras_Impl in '..\Modulos\Obras\Servidor\srvObras_Impl.pas' {srvObras: TDARemoteService},
|
||
srvConfiguracion_Impl in 'srvConfiguracion_Impl.pas' {srvConfiguracion: TDARemoteService},
|
||
srvFacturasCliente_Impl in '..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas' {srvFacturasCliente: TDARemoteService},
|
||
schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Reglas\schFacturasClienteClient_Intf.pas',
|
||
schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Reglas\schFacturasClienteServer_Intf.pas',
|
||
srvRecibosCliente_Impl in '..\Modulos\Recibos\Servidor\srvRecibosCliente_Impl.pas' {srvRecibosCliente: TDARemoteService},
|
||
schRecibosClienteClient_Intf in '..\Modulos\Recibos\Reglas\schRecibosClienteClient_Intf.pas',
|
||
schRecibosClienteServer_Intf in '..\Modulos\Recibos\Reglas\schRecibosClienteServer_Intf.pas',
|
||
srvCitas_Impl in '..\Modulos\Calendarios\Servidor\srvCitas_Impl.pas' {srvCitas: TDARemoteService};
|
||
|
||
{$R *.res}
|
||
{$R RODLFile.res}
|
||
|
||
begin
|
||
Application.Initialize;
|
||
Application.Title := 'ProGesti<74>n Server';
|
||
Application.CreateForm(TdmServer, dmServer);
|
||
Application.CreateForm(TServerForm, ServerForm);
|
||
Application.Run;
|
||
end.
|