{
===============================================================================
  Copyright (©) 2001. Rodax Software.
===============================================================================
  Los contenidos de este fichero son propiedad de Rodax Software titular del
  copyright. Este fichero sólo podrá ser copiado, distribuido y utilizado,
  en su totalidad o en parte, con el permiso escrito de Rodax Software, o de
  acuerdo con los términos y condiciones establecidas en el acuerdo/contrato
  bajo el que se suministra.
  -----------------------------------------------------------------------------
  Web:  www.rodax-software.com
===============================================================================
  Fecha primera versión: 01-10-2001
  Versión actual: 1.0.1
  Fecha versión actual: 03-10-2001
===============================================================================
  Modificaciones:

    Fecha         Comentarios
    ---------------------------------------------------------------------------
    03-10-2001    Añadir la versión del programa al título de la ventana de la
                  aplicación.
===============================================================================
}

program FactuGES;

uses
  Forms,
  Windows,
  MovimientoAlmacenes in 'Almacenes\MovimientoAlmacenes.pas' {frMovimientoAlmacenes: TFrame},
  ArticuloAlmacen in 'Almacenes\ArticuloAlmacen.pas' {frArticuloAlmacen: TFrame},
  BarraObras in 'Obras\BarraObras.pas' {frBarraObras: TFrame},
  BuscarAlmacen in 'Almacenes\BuscarAlmacen.pas' {frBuscarAlmacen: TFrame},
  BuscarArticuloAlmacen in 'Almacenes\BuscarArticuloAlmacen.pas' {frBuscarArticuloAlmacen: TFrame},
  BuscarMovimiento in 'Almacenes\BuscarMovimiento.pas' {frBuscarMovimiento: TFrame},
  HistoricoMovimiento in 'Almacenes\HistoricoMovimiento.pas' {frHistoricoMovimiento: TFrame},
  HistoricoMovimientos in 'Almacenes\HistoricoMovimientos.pas' {frHistoricoMovimientos: TFrame},
  BuscarArticulo in 'Articulos\BuscarArticulo.pas' {frBuscarArticulo: TFrame},
  AceptarRechazarPresupuestoCliente in 'Clientes\AceptarRechazarPresupuestoCliente.pas' {frAceptarRechazarPresupuestoCliente: TFrame},
  AlbaranInstalador in 'Obras\AlbaranInstalador.pas' {frAlbaranInstalador: TFrame},
  AlbaranesClientes in 'Clientes\AlbaranesClientes.pas' {frAlbaranesClientes: TFrame},
  BarraClientes in 'Clientes\BarraClientes.pas' {frBarraClientes: TFrame},
  BuscarAlbaranInstalador in 'Obras\BuscarAlbaranInstalador.pas' {frBuscarAlbaranInstalador: TFrame},
  BuscarCliente in 'Clientes\BuscarCliente.pas' {frBuscarCliente: TFrame},
  BuscarFacturaCliente in 'Clientes\BuscarFacturaCliente.pas' {frBuscarFacturaCliente: TFrame},
  BuscarPresupuestoCliente in 'Clientes\BuscarPresupuestoCliente.pas' {frBuscarPresupuestoCliente: TFrame},
  FacturaCliente in 'Clientes\FacturaCliente.pas' {frFacturaCliente: TFrame},
  FacturasClientes in 'Clientes\FacturasClientes.pas' {frFacturasClientes: TFrame},
  PresupuestoCliente in 'Clientes\PresupuestoCliente.pas' {frPresupuestoCliente: TFrame},
  PresupuestosClientes in 'Clientes\PresupuestosClientes.pas' {frPresupuestosClientes: TFrame},
  BarraProveedores in 'Proveedores\BarraProveedores.pas' {frBarraProveedores: TFrame},
  BuscarFacturaProveedor in 'Proveedores\BuscarFacturaProveedor.pas' {frBuscarFacturaProveedor: TFrame},
  BuscarPedidoProveedor in 'Proveedores\BuscarPedidoProveedor.pas' {frBuscarPedidoProveedor: TFrame},
  BuscarProveedor in 'Proveedores\BuscarProveedor.pas' {frBuscarProveedor: TFrame},
  PedidoProveedor in 'Proveedores\PedidoProveedor.pas' {frPedidoProveedor: TFrame},
  PedidosProveedores in 'Proveedores\PedidosProveedores.pas' {frPedidosProveedores: TFrame},
  ContenidoPrincipal in 'ContenidoPrincipal.pas' {frContenidoPrincipal: TFrame},
  TablaArticulos in 'BaseDatos\TablaArticulos.pas' {dmTablaArticulos: TDataModule},
  LocalizarArticulo in 'Articulos\LocalizarArticulo.pas' {frLocalizarArticulo: TFrame},
  TablaClientes in 'BaseDatos\TablaClientes.pas' {dmTablaClientes: TDataModule},
  TablaProveedores in 'BaseDatos\TablaProveedores.pas' {dmTablaProveedores: TDataModule},
  BaseDatos in 'BaseDatos\BaseDatos.pas' {dmBaseDatos: TDataModule},
  Proveedores in 'Proveedores\Proveedores.pas' {frProveedores: TRdxFrameProveedores},
  Proveedor in 'Proveedores\Proveedor.pas' {frProveedor: TRdxFrameProveedores},
  TablaPedidosProveedor in 'BaseDatos\TablaPedidosProveedor.pas' {dmTablaPedidosProveedor: TDataModule},
  TablaProvincias in 'BaseDatos\TablaProvincias.pas' {dmTablaProvincias: TDataModule},
  TablaPoblaciones in 'BaseDatos\TablaPoblaciones.pas' {dmTablaPoblaciones: TDataModule},
  TablaAlmacenes in 'BaseDatos\TablaAlmacenes.pas' {dmTablaAlmacenes: TDataModule},
  Almacenes in 'Almacenes\Almacenes.pas' {frAlmacenes: TRdxDBFrame},
  Almacen in 'Almacenes\Almacen.pas' {frAlmacen: TRdxDBFrame},
  Articulos in 'Articulos\Articulos.pas' {frArticulos: TRdxDBFrame},
  Articulo in 'Articulos\Articulo.pas' {frArticulo: TRdxFrame},
  Clientes in 'Clientes\Clientes.pas' {frClientes: TRdxFrameClientes},
  Cliente in 'Clientes\Cliente.pas' {frCliente: TRdxFrameClientes},
  Principal in 'Principal.pas' {frPrincipal: TRdxFrame},
  EmitirPedidoProveedor in 'Proveedores\EmitirPedidoProveedor.pas' {frEmitirPedidoProveedor: TRdxFrame},
  ArticulosAlmacen in 'Almacenes\ArticulosAlmacen.pas' {frArticulosAlmacen: TRdxFrameArticulosAlmacen},
  TablaArticulosAlmacen in 'BaseDatos\TablaArticulosAlmacen.pas' {dmTablaArticulosAlmacen: TDataModule},
  TablaMovimientos in 'BaseDatos\TablaMovimientos.pas' {dmTablaMovimientos: TDataModule},
  TablaFabricantes in 'BaseDatos\TablaFabricantes.pas' {dmTablaFabricantes: TDataModule},
  TablaFamilias in 'BaseDatos\TablaFamilias.pas' {dmTablaFamilias: TDataModule},
  TablaPresupuestos in 'BaseDatos\TablaPresupuestos.pas' {dmTablaPresupuestos: TDataModule},
  BarraInformes in 'Informes\BarraInformes.pas' {frBarraInformes: TRdxFrame},
  TablaBancos in 'BaseDatos\TablaBancos.pas' {dmTablaBancos: TDataModule},
  TablaFacturasProveedor in 'BaseDatos\TablaFacturasProveedor.pas',
  FacturasProveedores in 'Proveedores\FacturasProveedores.pas' {frFacturasProveedores: TRdxFrameFacturasProveedor},
  FacturaProveedor in 'Proveedores\FacturaProveedor.pas' {frFacturaProveedor: TRdxFrameFacturasProveedor},
  TablaUnidadesMedida in 'BaseDatos\TablaUnidadesMedida.pas' {dmTablaUnidadesMedida: TDataModule},
  InformePedidoProveedor in 'Informes\InformePedidoProveedor.pas',
  InformePresupuesto in 'Informes\InformePresupuesto.pas',
  TablaHistoricoMovimientos in 'BaseDatos\TablaHistoricoMovimientos.pas' {dmTablaHistoricoMovimientos: TDataModule},
  TablaFacturasCliente in 'BaseDatos\TablaFacturasCliente.pas' {dmTablaFacturasCliente: TDataModule},
  PagarFacturaCliente in 'Clientes\PagarFacturaCliente.pas' {frPagarFacturaCliente: TRdxFrame},
  PagarFacturaProveedor in 'Proveedores\PagarFacturaProveedor.pas' {frPagarFacturaProveedor: TRdxFrame},
  TablaAlbaranesInstalador in 'BaseDatos\TablaAlbaranesInstalador.pas' {dmTablaAlbaranesInstalador: TDataModule},
  UnidadesMedida in 'Datos\UnidadesMedida.pas' {frUnidadesMedida: TRdxDBFrame},
  Familias in 'Datos\Familias.pas' {frFamilias: TRdxDBFrame},
  Fabricantes in 'Datos\Fabricantes.pas' {frFabricantes: TRdxDBFrame},
  Bancos in 'Datos\Bancos.pas' {frBancos: TRdxDBFrame},
  Poblaciones in 'Datos\Poblaciones.pas' {frPoblaciones: TRdxFramePoblaciones},
  Provincias in 'Datos\Provincias.pas' {frProvincias: TRdxFrameProvincias},
  InformeAlbaranInstalador in 'Informes\InformeAlbaranInstalador.pas',
  InformeFacturaCliente in 'Informes\InformeFacturaCliente.pas',
  InformeCarta in 'Informes\InformeCarta.pas',
  ElegirTipoAlmacen in 'Almacenes\ElegirTipoAlmacen.pas' {frElegirTipoAlmacen: TRdxFrame},
  TablaSucursalesProveedor in 'BaseDatos\TablaSucursalesProveedor.pas' {dmTablaSucursalesProveedor: TDataModule},
  TablaSucursalesCliente in 'BaseDatos\TablaSucursalesCliente.pas' {dmTablaSucursalesCliente: TDataModule},
  Instalador in 'Datos\Instalador.pas' {frInstalador: TRdxFrameInstaladores},
  Instaladores in 'Datos\Instaladores.pas' {frInstaladores: TRdxFrameInstaladores},
  BuscarInstalador in 'Datos\BuscarInstalador.pas' {frBuscarInstalador: TRdxFrameInstaladores},
  TablaInstaladores in 'BaseDatos\TablaInstaladores.pas' {dmTablaInstaladores: TDataModule},
  ArticuloObraHistorica in 'Almacenes\ArticuloObraHistorica.pas' {frArticuloObraHistorica: TRdxFrameArticulosObraHistorica},
  ArticulosObraHistorica in 'Almacenes\ArticulosObraHistorica.pas' {frArticulosObraHistorica: TRdxFrameArticulosObraHistorica},
  BuscarArticuloObraHistorica in 'Almacenes\BuscarArticuloObraHistorica.pas' {frBuscarArticuloObraHistorica: TRdxFrameArticulosObraHistorica},
  FinalizarObra in 'Almacenes\FinalizarObra.pas' {frFinalizarObra: TRdxDBFrame},
  TablaArticulosObraHistorica in 'BaseDatos\TablaArticulosObraHistorica.pas' {dmTablaArticulosObraHistorica: TDataModule},
  Tipos in 'Libreria\Tipos.pas',
  Excepciones in 'Libreria\Excepciones.pas',
  Mensajes in 'Libreria\Mensajes.pas',
  Entidades in 'Libreria\Entidades.pas',
  EditorDescripcion in 'EditorDescripcion.pas' {frEditorDescripcion: TRdxFrame},
  TiposCliente in 'Datos\TiposCliente.pas' {frTiposCliente: TRdxDBFrame},
  TablaTiposCliente in 'BaseDatos\TablaTiposCliente.pas' {dmTablaTiposCliente: TDataModule},
  EditorCartas in 'Cartas\EditorCartas.pas' {frEditorCartas: TRdxFrame},
  GenerarEtiquetasProveedores in 'Cartas\GenerarEtiquetasProveedores.pas' {frGenerarEtiquetasProveedores: TRdxFrame},
  GenerarEtiquetasClientes in 'Cartas\GenerarEtiquetasClientes.pas' {frGenerarEtiquetasClientes: TRdxFrame},
  Configuracion in 'Libreria\Configuracion.pas' {dmConfiguracion: TDataModule},
  Constantes in 'Libreria\Constantes.pas',
  Literales in 'Libreria\Literales.pas',
  CambiarSituacionPresupuesto in 'Clientes\CambiarSituacionPresupuesto.pas' {frCambiarSituacionPresupuesto: TRdxFrame},
  Contadores in 'Frames\Contadores.pas',
  VistaPrevia in 'Informes\VistaPrevia.pas' {frVistaPrevia: TRdxFrame},
  InformeBase in 'Informes\InformeBase.pas' {dmInformeBase: TDataModule},
  InformeListadoMateriales in 'Informes\InformeListadoMateriales.pas' {dmInformeListadoMateriales: TDataModule},
  RdxFrame in 'Frames\RdxFrame.pas' {RdxFrame: TFrame},
  ListadoBase in 'ListadoBase.pas' {frListadoBase: TRdxFrame},
  ListarClientes in 'Clientes\ListarClientes.pas' {frListarClientes: TRdxFrame},
  InformeListadoClientes in 'Informes\InformeListadoClientes.pas' {dmInformeListadoClientes: TDataModule},
  ListarArticulos in 'Articulos\ListarArticulos.pas' {frListarArticulos: TRdxFrame},
  TablaEmpresas in 'BaseDatos\TablaEmpresas.pas' {dmTablaEmpresas: TDataModule},
  ListarProveedores in 'Proveedores\ListarProveedores.pas' {frListarProveedores: TRdxFrame},
  InformeListadoProveedores in 'Informes\InformeListadoProveedores.pas' {dmInformeListadoProveedores: TDataModule},
  ListadoContabilidad in 'ListadoContabilidad.pas' {frListadoContabilidad: TRdxFrame},
  InformeListadoContabilidad in 'Informes\InformeListadoContabilidad.pas' {dmInformeListadoContabilidad: TDataModule},
  ListadoArticulosObraHistorica in 'Almacenes\ListadoArticulosObraHistorica.pas' {frListadoArticulosObraHistorica: TRdxFrame},
  ElegirEmpresa in 'Empresas\ElegirEmpresa.pas' {frElegirEmpresa},
  RdxEmpresaActiva in 'Libreria\RdxEmpresaActiva.pas',
  Empresa in 'Empresas\Empresa.pas' {frEmpresa: TRdxFrameEmpresas},
  PantallaAcceso in 'PantallaAcceso.pas' {fPantallaAcceso},
  BarraDatos in 'Articulos\BarraDatos.pas' {frBarraDatos: TRdxFrame},
  InformeEstadoObraHistorica in 'Informes\InformeEstadoObraHistorica.pas' {dmInformeEstadoObraHistorica: TDataModule},
  InformeListadoMovimientos in 'Informes\InformeListadoMovimientos.pas' {dmInformeListadoMovimientos: TDataModule},
  ListadoHistoricoMovimientos in 'Almacenes\ListadoHistoricoMovimientos.pas' {frListadoHistoricoMovimientos: TRdxFrame},
  InformeEstadoAlmacen in 'Informes\InformeEstadoAlmacen.pas' {dmInformeEstadoAlmacen: TDataModule},
  ListadoArticulosAlmacen in 'Almacenes\ListadoArticulosAlmacen.pas' {frListadoArticulosAlmacen: TRdxFrame},
  InformeListadoFacturasProv in 'Informes\InformeListadoFacturasProv.pas' {dmInformeListadoFacturasProv: TDataModule},
  InformeListadoFacturasProvPendientes in 'Informes\InformeListadoFacturasProvPendientes.pas' {dmInformeListadoFacturasProvPendientes: TDataModule},
  ListadoFacturasProvPenIVA in 'Proveedores\ListadoFacturasProvPenIVA.pas' {frListadoFacturasProvPenIVA: TRdxFrame},
  ListadoPedidosProv in 'Proveedores\ListadoPedidosProv.pas' {frListadoPedidosProv: TRdxFrame},
  InformeListadoPedidosProv in 'Informes\InformeListadoPedidosProv.pas' {dmInformeListadoPedidosProv: TDataModule},
  ListadoPresupuestosCli in 'Clientes\ListadoPresupuestosCli.pas' {frListadoPresupuestosCli: TRdxFrame},
  InformeListadoFacturasProvIVA in 'Informes\InformeListadoFacturasProvIVA.pas' {dmInformeListadoFacturasProvIVA: TDataModule},
  InformeListadoFacturasCliIVA in 'Informes\InformeListadoFacturasCliIVA.pas' {dmInformeListadoFacturasCliIVA: TDataModule},
  ListadoFacturasCliPenIVA in 'Clientes\ListadoFacturasCliPenIVA.pas' {frListadoFacturasCliPenIVA: TRdxFrame},
  InformeListadoFacturasCliPendientes in 'Informes\InformeListadoFacturasCliPendientes.pas' {dmInformeListadoFacturasCliPendientes: TDataModule},
  InformeListadoPresupuestosCli in 'Informes\InformeListadoPresupuestosCli.pas' {dmInformeListadoPresupuestosCli: TDataModule},
  ListadoFacturasProv in 'Proveedores\ListadoFacturasProv.pas' {frListadoFacturasProv: TRdxFrame},
  InformeListadoFacturasCli in 'Informes\InformeListadoFacturasCli.pas' {dmInformeListadoFacturasCli: TDataModule},
  ListadoFacturasCli in 'Clientes\ListadoFacturasCli.pas' {frListadoFacturasCli: TRdxFrame},
  DatosContadores in 'Opciones\DatosContadores.pas' {frDatosContadores: TRdxDBFrame},
  TablaContadores in 'BaseDatos\TablaContadores.pas' {dmTablaContadores: TDataModule},
  AlbaranesInstaladores in 'Obras\AlbaranesInstaladores.pas' {frAlbaranesInstaladores: TRdxFrameAlbaranesCliente},
  TablaAlbaranesCliente in 'BaseDatos\TablaAlbaranesCliente.pas' {dmTablaAlbaranesCliente: TDataModule},
  AlbaranCliente in 'Clientes\AlbaranCliente.pas' {frAlbaranCliente: TRdxFrameAlbaranes},
  BuscarAlbaranCliente in 'Clientes\BuscarAlbaranCliente.pas' {frBuscarAlbaranCliente: TRdxFrameAlbaranes},
  BarraAlmacenes in 'Almacenes\BarraAlmacenes.pas' {frBarraAlmacenes: TRdxFrame},
  AlbaranesProveedores in 'Proveedores\AlbaranesProveedores.pas' {frAlbaranesProveedores: TRdxFrameAlbaranes},
  TablaAlbaranesProveedor in 'BaseDatos\TablaAlbaranesProveedor.pas' {dmTablaAlbaranesProveedor: TDataModule},
  InformeAlbaranProveedor in 'Informes\InformeAlbaranProveedor.pas',
  InformeAlbaranCliente in 'Informes\InformeAlbaranCliente.pas',
  AlbaranProveedor in 'Proveedores\AlbaranProveedor.pas' {frAlbaranProveedor: TRdxFrameAlbaranes},
  BuscarAlbaranProveedor in 'Proveedores\BuscarAlbaranProveedor.pas' {frBuscarAlbaranProveedor: TRdxFrameAlbaranes},
  FormasPago in 'Datos\FormasPago.pas' {frFormasPago: TRdxDBFrame},
  TablaFormasPago in 'BaseDatos\TablaFormasPago.pas' {dmTablaFormasPago: TDataModule},
  ArticulosFabPro in 'Articulos\ArticulosFabPro.pas' {frArticulosFabPro: TRdxFrameArticulos},
  BuscarArticuloFabPro in 'Articulos\BuscarArticuloFabPro.pas' {frBuscarArticuloFabPro: TRdxFrameArticulos},
  PantallaInformesContabilidad in 'Informes\PantallaInformesContabilidad.pas' {frInformesContabilidad: TRdxFrame},
  PantallaInformesGenerales in 'Informes\PantallaInformesGenerales.pas' {frInformesGenerales: TRdxFrame},
  PantallaInformesCompras in 'Informes\PantallaInformesCompras.pas' {frInformesCompras: TRdxFrame},
  PantallaInformesVentas in 'Informes\PantallaInformesVentas.pas' {frInformesVentas: TRdxFrame},
  InformeEstadistico in 'Informes\InformeEstadistico.pas' {frInformeEstadistico: TRdxFrame},
  InformeEstPresupuestos in 'Informes\InformeEstPresupuestos.pas' {frInformeEstPresupuestos: TRdxDBFrame},
  InfEstReportFacturasCliPro in 'Informes\InfEstReportFacturasCliPro.pas' {dmInfEstReportFacturasCliPro: TDataModule},
  InformeEstFacturasCliPro in 'Informes\InformeEstFacturasCliPro.pas' {frInformeEstFacturasCliPro: TRdxDBFrame},
  InformeEstBeneficios in 'Informes\InformeEstBeneficios.pas' {frInformeEstBeneficios: TRdxDBFrame},
  InfEstReportBeneficios in 'Informes\InfEstReportBeneficios.pas' {dmInfEstReportBeneficios: TDataModule},
  InfEstReportPresupuestos in 'Informes\InfEstReportPresupuestos.pas' {dmInfEstReportPresupuestos: TDataModule},
  Correo in 'Correo.pas',
  Sincronizacion in 'Sincronizacion\Sincronizacion.pas' {fSincronizacion},
  OfficeXP in 'Sincronizacion\OfficeXP.pas',
  OutlookXP in 'Sincronizacion\OutlookXP.pas',
  RdxGestorContadores in 'Libreria\RdxGestorContadores.pas',
  DateFunc in 'Libreria\DateFunc.pas',
  NumFunc in 'Libreria\NumFunc.pas',
  StrFunc in 'Libreria\StrFunc.pas',
  SysFunc in 'Libreria\SysFunc.pas',
  Framework in 'Libreria\Framework.pas';

{$R *.RES}
{$R Prueba.res}

var
  Respuesta : integer;
  FormPrincipal : TForm;

const
  VERSION = '2.3.7';

begin
  Application.Initialize;
  Application.CreateForm(TForm, FormPrincipal);
    
  Application.CreateForm(TdmBaseDatos, dmBaseDatos);
  Application.CreateForm(TdmConfiguracion, dmConfiguracion);
  Application.CreateForm(TfPantallaAcceso, fPantallaAcceso);
  fPantallaAcceso.Version := VERSION;
  LeerConfiguracion;
  Respuesta := fPantallaAcceso.ShowModal;
  case Respuesta of
       idCancel   :  begin
                      fPantallaAcceso.Free;
                      Application.Terminate;
                      Exit;
                     end;
  end;
  Application.CreateForm(TfrPrincipal, frPrincipal);
  with FormPrincipal do begin
    Caption := 'FactuGES v' + VERSION;
    Height := 480;
    Width := 696;
    WindowState := wsMaximized;
  end;
  frPrincipal.Parent := FormPrincipal;
  frPrincipal.Version := VERSION;
  Application.OnException := frPrincipal.manejadorExcepciones;
  FormPrincipal.OnClose := frPrincipal.OnCloseApp;
  FormPrincipal.Visible := True;
  FormPrincipal.Refresh;
  frPrincipal.actEmpresas.Execute;
  Application.Run;
  Application.Terminate;
end.