program Etiquetas_Server;

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

uses
  uROComInit,
  uROComboService,
  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},
  srvContactos_Impl in '..\Modulos\Contactos\Servidor\srvContactos_Impl.pas' {srvContactos: TDARemoteService},
  srvLogin_Impl in 'srvLogin_Impl.pas' {srvLogin: TDARemoteService},
  srvEmpresas_Impl in '..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas' {srvEmpresas: TDARemoteService},
  srvConfiguracion_Impl in 'Configuracion\srvConfiguracion_Impl.pas' {srvConfiguracion: TDataAbstractService},
  srvUsuarios_Impl in '..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas' {srvUsuarios: TDataAbstractService},
  RegExpr in 'Utiles\RegExpr.pas',
  uBusinessUtils in 'Utiles\uBusinessUtils.pas',
  uDatabaseUtils in 'Utiles\uDatabaseUtils.pas',
  uReferenciasUtils in 'Utiles\uReferenciasUtils.pas',
  uRestriccionesUsuarioUtils in 'Utiles\uRestriccionesUsuarioUtils.pas',
  uSchemaUtilsServer in 'Utiles\uSchemaUtilsServer.pas',
  uServerAppUtils in 'Utiles\uServerAppUtils.pas',
  uSesionesUtils in 'Utiles\uSesionesUtils.pas',
  uBizContactosServer in '..\Modulos\Contactos\Model\uBizContactosServer.pas',
  uBizPacientesServer in '..\Modulos\Contactos\Model\uBizPacientesServer.pas',
  schBase_Intf in '..\Base\schBase_Intf.pas',
  srvArticulos_Impl in '..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas' {srvArticulos: TDARemoteService},
  srvUnidadesMedida_Impl in '..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas' {srvUnidadesMedida: TDataAbstractService},
  schUnidadesMedidaClient_Intf in '..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas',
  schUnidadesMedidaServer_Intf in '..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas',
  uStringsUtils in '..\Base\Utiles\uStringsUtils.pas',
  uSistemaFunc in '..\Base\Utiles\uSistemaFunc.pas',
  srvReferencias_Impl in '..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas' {srvReferencias: TDataAbstractService},
  schReferenciasServer_Intf in '..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas',
  schReferenciasClient_Intf in '..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas',
  uRptFichasPaciente_Server in '..\Modulos\Contactos\Reports\uRptFichasPaciente_Server.pas' {RptFichasPaciente: TDataModule},
  uRptEtiquetasContacto_Server in '..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas' {RptEtiquetasContacto: TDataModule},
  srvProvinciasPoblaciones_Impl in '..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas' {srvProvinciasPoblaciones_Impl: TDataModule},
  uBizEmpresasServer in '..\ApplicationBase\Empresas\Model\uBizEmpresasServer.pas',
  schUsuariosClient_Intf in '..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas',
  schUsuariosServer_Intf in '..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas',
  MidasSpeedFix in 'Utiles\MidasSpeedFix.pas',
  schEmpresasClient_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas',
  schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas',
  schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_Intf.pas',
  schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas',
  uConexionBD_MSSQL in 'Configuracion\uConexionBD_MSSQL.pas' {frConexionBD_MSSQL: TFrame},
  srvMedicacion_Impl in '..\Modulos\Medicaciones\Servidor\srvMedicacion_Impl.pas' {srvMedicacion: TDataAbstractService},
  Etiquetas_Invk in '..\Servicios\Etiquetas_Invk.pas',
  Etiquetas_Intf in '..\Servicios\Etiquetas_Intf.pas',
  schMedicacionClient_Intf in '..\Modulos\Medicaciones\Model\schMedicacionClient_Intf.pas',
  schMedicacionServer_Intf in '..\Modulos\Medicaciones\Model\schMedicacionServer_Intf.pas',
  uBizMedicacionServer in '..\Modulos\Medicaciones\Model\uBizMedicacionServer.pas',
  uRptMedicaciones_Server in '..\Modulos\Medicaciones\Reports\uRptMedicaciones_Server.pas' {RptMedicaciones: TDataModule},
  schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
  schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas';

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

const
  ETIQUETAS_NAME = 'Etiquetas Servidor';

begin
  if ROStartService(ETIQUETAS_NAME, ETIQUETAS_NAME) then
  begin
    // Aqui hay que comprobar antes si el servicio ya está en ejecucion
    ROService.CreateForm(TdmServer, dmServer);
    ROService.Run;
    Exit;
  end;

  Application.Initialize;
//  ReportMemoryLeaksOnShutdown := True;
  Application.Title := 'Etiquetas Server';
  Application.ShowMainForm := False;
  Application.CreateForm(TdmServer, dmServer);
  Application.CreateForm(TfServerForm, fServerForm);
  Application.Run;
  Application.Terminate;
end.
