{
===============================================================================
  Copyright (©) 2002. 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: 03-11-2002
  Versión actual: 1.0.0
  Fecha versión actual: 03-11-2002
===============================================================================
  Modificaciones:

    Fecha         Comentarios
    ---------------------------------------------------------------------------
===============================================================================
}

program FactuGES;

{$I COMPILE.INC}

{%ToDo 'Factuges.todo'}

uses
  ExceptionLog,
  Forms,
  Windows,
  Mensajes,
  Principal in 'Principal.pas' {frPrincipal: TRdxFrame},
  PantallaAcceso in 'PantallaAcceso.pas' {fPantallaAcceso},
  ContenidoPrincipal in 'ContenidoPrincipal.pas' {frContenidoPrincipal: TRdxFrame},
  Excepciones in 'Libreria\Excepciones.pas',
  BaseDatos in 'BaseDatos\BaseDatos.pas' {dmBaseDatos: TDataModule},
  TablaClientes in 'BaseDatos\TablaClientes.pas' {dmTablaClientes: TDataModule},
  BarraClientes in 'Clientes\BarraClientes.pas' {frBarraClientes: TRdxFrame},
  Clientes in 'Clientes\Clientes.pas' {frClientes: TRdxFrameClientes},
  Cliente in 'Clientes\Cliente.pas' {frCliente: TRdxFrameClientes},
  TablaProvincias in 'BaseDatos\TablaProvincias.pas' {dmTablaProvincias: TDataModule},
  TablaPoblaciones in 'BaseDatos\TablaPoblaciones.pas' {dmTablaPoblaciones: TDataModule},
  Poblaciones in 'Datos\Poblaciones.pas' {frPoblaciones: TRdxFramePoblaciones},
  Provincias in 'Datos\Provincias.pas' {frProvincias: TRdxFrameProvincias},
  TablaSucursalesCliente in 'BaseDatos\TablaSucursalesCliente.pas' {dmTablaSucursalesCliente: TDataModule},
  Configuracion in 'Libreria\Configuracion.pas' {dmConfiguracion: TDataModule},
  TablaProveedores in 'BaseDatos\TablaProveedores.pas' {dmTablaProveedores: TDataModule},
  Proveedores in 'Proveedores\Proveedores.pas' {frProveedores},
  BarraProveedores in 'Proveedores\BarraProveedores.pas' {frBarraProveedores: TRdxFrame},
  BarraDatos in 'Datos\BarraDatos.pas' {frBarraDatos: TRdxFrame},
  TablaVendedores in 'BaseDatos\TablaVendedores.pas' {dmTablaVendedores: TDataModule},
  Vendedores in 'Datos\Vendedores.pas' {frVendedores: TRdxFrameVendedores},
  Proveedor in 'Proveedores\Proveedor.pas' {frProveedor: TRdxFrameProveedores},
  TablaContratos in 'BaseDatos\TablaContratos.pas' {dmTablaContratos: TDataModule},
  DatosContadores in 'Opciones\DatosContadores.pas' {frDatosContadores: TRdxDBFrame},
  TablaContadores in 'BaseDatos\TablaContadores.pas' {dmTablaContadores: TDataModule},
  TablaFormasPago in 'BaseDatos\TablaFormasPago.pas' {dmTablaFormasPago: TDataModule},
  FormasPago in 'Datos\FormasPago.pas' {frFormasPago: TRdxDBFrame},
  TablaFacturasProveedor in 'BaseDatos\TablaFacturasProveedor.pas',
  FacturasProveedores in 'Proveedores\FacturasProveedores.pas' {frFacturasProveedores: TRdxFrameFacturasProveedor},
  FacturaProveedor in 'Proveedores\FacturaProveedor.pas' {frFacturaProveedor: TRdxFrameFacturasProveedor},
  TablaInstaladores in 'BaseDatos\TablaInstaladores.pas' {dmTablaInstaladores: TDataModule},
  Instaladores in 'Datos\Instaladores.pas' {frInstaladores},
  Instalador in 'Datos\Instalador.pas' {frInstalador},
  ArticulosModelo in 'Datos\ArticulosModelo.pas' {frArticulosModelo: TRdxFrameArticulos},
  Familias in 'Datos\Familias.pas' {frFamilias: TRdxDBFrame},
  TablaValores in 'BaseDatos\TablaValores.pas' {dmTablaValores: TDataModule},
  TablaArticulos in 'BaseDatos\TablaArticulos.pas' {dmTablaArticulos: TDataModule},
  TablaFamilias in 'BaseDatos\TablaFamilias.pas' {dmTablaFamilias: TDataModule},
  TablaPropiedadesArticulo in 'BaseDatos\TablaPropiedadesArticulo.pas' {dmTablaPropiedadesArticulo: TDataModule},
  FacturasClientes in 'Clientes\FacturasClientes.pas',
  FacturaCliente in 'Clientes\FacturaCliente.pas',
  TablaFacturasCliente in 'BaseDatos\TablaFacturasCliente.pas' {dmTablaFacturasCliente: TDataModule},
  ImprimirFacturasCliente in 'Clientes\ImprimirFacturasCliente.pas' {frImprimirFacturasCliente: TRdxFrame},
  VistaPrevia in 'VistaPrevia.pas' {frVistaPrevia: TRdxFrame},
  Literales in 'Libreria\Literales.pas',
  PagosClientes in 'Clientes\PagosClientes.pas',
  PagoCliente in 'Clientes\PagoCliente.pas',
  TablaLibros in 'BaseDatos\TablaLibros.pas' {dmTablaLibros: TDataModule},
  BarraLibros in 'Libros\BarraLibros.pas' {frBarraLibros: TRdxFrame},
  DetallesLibro in 'Libros\DetallesLibro.pas' {frDetallesLibro: TRdxFrameDetallesLibro},
  DetalleLibro in 'Libros\DetalleLibro.pas' {frDetalleLibro: TRdxFrameDetallesLibro},
  PagosProveedores in 'Proveedores\PagosProveedores.pas' {frPagosProveedores: TRdxFramePagos},
  PagoProveedor in 'Proveedores\PagoProveedor.pas' {frPagoProveedor: TRdxFramePagos},
  ArticuloModelo in 'Datos\ArticuloModelo.pas' {frArticuloModelo: TRdxFrameArticulos},
  ContratosClientes in 'Clientes\ContratosClientes.pas' {frContratosClientes: TRdxFramePresupuestos},
  ContratoCliente in 'Clientes\ContratoCliente.pas' {frContratoCliente: TRdxFramePresupuestos},
  HacerCopiaSeguridad in 'Opciones\HacerCopiaSeguridad.pas' {frHacerCopiaSeguridad: TRdxFrame},
  RestaurarCopiaSeguridad in 'Opciones\RestaurarCopiaSeguridad.pas' {frRestaurarCopiaSeguridad: TRdxFrame},
  InformeBase in 'Informes\InformeBase.pas' {dmInformeBase: TDataModule},
  InformeFacturaCliente in 'Informes\InformeFacturaCliente.pas' {dmInformeFacturaCliente: TDataModule},
  BarraInformes in 'Informes\BarraInformes.pas' {frBarraInformes: TRdxFrame},
  RdxFrame in 'Frames\RdxFrame.pas' {RdxFrame: TFrame},
  HistorialFacturacionProveedores in 'Proveedores\HistorialFacturacionProveedores.pas' {frHistorialFacturacionProveedores: TRdxFrame},
  InformeHistorialFacturacionProveedores in 'Informes\InformeHistorialFacturacionProveedores.pas' {dmInformeHistorialFacturacionProveedores: TDataModule},
  ComisionesVendedores in 'Datos\ComisionesVendedores.pas' {frComisionesVendedores: TRdxFrameComisiones},
  InformeLibro in 'Informes\InformeLibro.pas' {dmInformeLibro: TDataModule},
  InformePagoCliente in 'Informes\InformePagoCliente.pas' {dmInformePagoCliente: TDataModule},
  InformeComisionesVendedores in 'Informes\InformeComisionesVendedores.pas' {dmInformeComisionesVendedores: TDataModule},
  ImprimirLibro in 'Libros\ImprimirLibro.pas' {frImprimirLibro: TRdxFrame},
  ImprimirPagoCliente in 'Clientes\ImprimirPagoCliente.pas' {frImprimirPagoCliente: TRdxFrame},
  HistorialFacturacionClientes in 'Clientes\HistorialFacturacionClientes.pas' {frHistorialFacturacionClientes: TRdxFrame},
  InformeHistorialFacturacionClientes in 'Informes\InformeHistorialFacturacionClientes.pas' {dmInformeHistorialFacturacionClientes: TDataModule},
  Articulos in 'Datos\Articulos.pas' {frArticulos: TRdxFrameArticulos},
  Articulo in 'Datos\Articulo.pas' {frArticulo: TRdxFrameArticulos},
  ListadoClientes in 'Clientes\ListadoClientes.pas' {frListadoClientes: TRdxFrame},
  ListadoProveedores in 'Proveedores\ListadoProveedores.pas' {frListadoProveedores: TRdxFrame},
  InformeListadoClientes in 'Informes\InformeListadoClientes.pas' {dmInformeListadoClientes: TDataModule},
  InformeListadoProveedores in 'Informes\InformeListadoProveedores.pas' {dmInformeListadoProveedores: TDataModule},
  InformeResumenFacturacionProveedores in 'Informes\InformeResumenFacturacionProveedores.pas',
  InformeResumenFacturacionClientes in 'Informes\InformeResumenFacturacionClientes.pas' {dmInformeResumenFacturacionClientes: TDataModule},
  TablaRepresentantesProveedor in 'BaseDatos\TablaRepresentantesProveedor.pas' {dmTablaRepresentantesProveedor: TDataModule},
  Constantes in 'Libreria\Constantes.pas',
  ElegirDireccionCliente in 'Clientes\ElegirDireccionCliente.pas' {frElegirDireccionCliente},
  PropiedadesArticulo in 'Clientes\PropiedadesArticulo.pas' {frPropiedadesArticulo},
  RdxDBFrame in 'Frames\RdxDBFrame.pas' {RdxDBFrame: TRdxFrame},
  TablaTrimestres in 'BaseDatos\TablaTrimestres.pas' {dmTablaTrimestres: TDataModule},
  ImprimirContratosCliente in 'Clientes\ImprimirContratosCliente.pas' {frImprimirContratosCliente: TRdxFrame},
  RechazarPresupuestoCliente in 'Clientes\RechazarPresupuestoCliente.pas' {frRechazarPresupuestoCliente},
  InformeTrimestralCompras in 'Informes\InformeTrimestralCompras.pas' {dmInformeTrimestralCompras: TDataModule},
  InformeTrimestralVentas in 'Informes\InformeTrimestralVentas.pas' {dmInformeTrimestralVentas: TDataModule},
  ImprimirInformeTrimestral in 'Contabilidad\ImprimirInformeTrimestral.pas' {frImprimirInformeTrimestral: TRdxFrame},
  InformeTrimestral in 'Contabilidad\InformeTrimestral.pas' {frInformeTrimestral: TRdxFrameInformeTrimestral},
  ListadoPagosCliente in 'Clientes\ListadoPagosCliente.pas' {frListadoPagosCliente: TRdxFrameComisiones},
  InformeListadoPagosCliente in 'Informes\InformeListadoPagosCliente.pas' {dmInformeListadoPagosCliente: TDataModule},
  TablaPropiedades in 'BaseDatos\TablaPropiedades.pas' {dmTablaPropiedades: TDataModule},
  Documentos in 'Configuracion\Documentos.pas' {frDocumentos},
  TablaDocumentos in 'BaseDatos\TablaDocumentos.pas' {dmTablaDocumentos: TDataModule},
  Propiedades in 'Datos\Propiedades.pas' {frPropiedades},
  ImprimirFacturasProforma in 'Clientes\ImprimirFacturasProforma.pas' {frImprimirFacturasProforma: TRdxFrame},
  FacturaProforma in 'Clientes\FacturaProforma.pas' {frFacturaProforma: TRdxFrameFacturasProforma},
  FacturasProforma in 'Clientes\FacturasProforma.pas' {frFacturasProforma: TRdxFrameFacturasProforma},
  TablaFacturasProforma in 'BaseDatos\TablaFacturasProforma.pas' {dmTablaFacturasProforma: TDataModule},
  InformeFacturaProforma in 'Informes\InformeFacturaProforma.pas' {dmInformeFacturaProforma: TDataModule},
  InformeListadoPagosClientes in 'Informes\InformeListadoPagosClientes.pas' {dmInformeListadoPagosClientes: TDataModule},
  TablaPresupuestos in 'BaseDatos\TablaPresupuestos.pas' {dmTablaPresupuestos: TDataModule},
  PresupuestosClientes in 'Clientes\PresupuestosClientes.pas' {frPresupuestosClientes: TRdxFramePresupuestos},
  AceptarPresupuestoCliente in 'Clientes\AceptarPresupuestoCliente.pas' {frAceptarPresupuestoCliente},
  ImprimirPresupuestosCliente in 'Clientes\ImprimirPresupuestosCliente.pas' {frImprimirPresupuestosCliente: TRdxFrame},
  InformePresupuestoCliente in 'Informes\InformePresupuestoCliente.pas' {dmInformePresupuestoCliente: TDataModule},
  PresupuestoCliente in 'Clientes\PresupuestoCliente.pas' {frPresupuestoCliente: TRdxFramePresupuestos},
  FacturarContrato in 'Clientes\FacturarContrato.pas' {frFacturarContrato},
  ImprimirBeneficiosAnuales in 'Contabilidad\ImprimirBeneficiosAnuales.pas' {frImprimirBeneficiosAnuales: TRdxDBFrame},
  InformeBeneficiosAnuales in 'Informes\InformeBeneficiosAnuales.pas' {dmInformeBeneficiosAnuales: TDataModule},
  PantallaInformesCompras in 'Informes\PantallaInformesCompras.pas' {frInformesCompras: TRdxFrame},
  PantallaInformesVentas in 'Informes\PantallaInformesVentas.pas' {frInformesVentas: TRdxFrame},
  PantallaInformesGeneral in 'Informes\PantallaInformesGeneral.pas' {frInformesGenerales: TRdxFrame},
  PantallaInformesContabilidad in 'Informes\PantallaInformesContabilidad.pas' {frInformesContabilidad: TRdxFrame},
  TrimestrePredeterminado in 'Contabilidad\TrimestrePredeterminado.pas' {fTrimestrePredeterminado},
  ImprimirBeneficiosAnualesContratos in 'Contabilidad\ImprimirBeneficiosAnualesContratos.pas' {frImprimirBeneficiosAnualesContratos: TRdxDBFrame},
  AsignarTrimestre in 'Contabilidad\AsignarTrimestre.pas' {fAsignarTrimestre},
  InformeBeneficiosAnualesContratos in 'Informes\InformeBeneficiosAnualesContratos.pas' {dmInformeBeneficiosAnualesContratos: TDataModule},
  CalendarioPagos in 'Calendario\CalendarioPagos.pas' {frCalendarioPagos: TFrame},
  FacturasProveedorPendientes in 'Proveedores\FacturasProveedorPendientes.pas' {frFacturasProveedorPendientes: TRdxFrame},
  TablaPagosCliente in 'BaseDatos\TablaPagosCliente.pas' {dmTablaPagosCliente: TDataModule},
  TablaPagosProveedor in 'BaseDatos\TablaPagosProveedor.pas' {dmTablaPagosProveedor: TDataModule},
  Contadores in 'Frames\Contadores.pas',
  Empresa in 'Empresas\Empresa.pas' {frEmpresa: TRdxFrameEmpresas},
  ElegirEmpresa in 'Empresas\ElegirEmpresa.pas' {frElegirEmpresa: TRdxFrameEmpresas},
  InformeContratoCliente in 'Informes\InformeContratoCliente.pas' {dmInformeContratoCliente: TDataModule},
  Sincronizacion in 'Sincronizacion.pas' {fSincronizacion},
  TablaAgenda in 'BaseDatos\TablaAgenda.pas' {dmTablaAgenda: TDataModule},
  BarraAgenda in 'Agenda\BarraAgenda.pas' {frBarraAgenda: TRdxFrame},
  Agenda in 'Agenda\Agenda.pas' {frAgenda: TRdxFrame},
  SincronizarCalendario in 'Sincronizacion\SincronizarCalendario.pas',
  RdxEmpresaActiva in 'Libreria\RdxEmpresaActiva.pas',
  TablaEmpresas in 'BaseDatos\TablaEmpresas.pas' {dmTablaEmpresas: TDataModule},
  CambiarSituacionFacturas in 'Clientes\CambiarSituacionFacturas.pas' {frCambiarSituacionFacturas},
  Actualizacion in 'Configuracion\Actualizacion.pas' {fConfiguracion},
  Vendedor in 'Datos\Vendedor.pas' {frVendedor: TRdxFrameVendedores},
  InformeListadoBeneficiosContrato in 'Informes\InformeListadoBeneficiosContrato.pas' {dmInformeListadoBeneficiosContrato: TDataModule},
  InformeDetalleBeneficiosContrato in 'Informes\InformeDetalleBeneficiosContrato.pas' {dmInformeDetalleBeneficiosContrato: TDataModule},
  SysUtils,
  InformeListadoPedidosObra in 'Informes\InformeListadoPedidosObra.pas' {dmInformeListadoPedidosObra: TDataModule},
  InformeListadoTareasObra in 'Informes\InformeListadoTareasObra.pas' {dmInformeListadoTareasObra: TDataModule},
  TablaTareas in 'BaseDatos\TablaTareas.pas' {dmTablaTareas: TDataModule},
  TablaCitas in 'BaseDatos\TablaCitas.pas' {dmTablaCitas: TDataModule},
  InformeBaseFR3 in 'Informes\InformeBaseFR3.pas' {dmInformeBaseFR3: TDataModule},
  TablaAlbaranesCliente in 'BaseDatos\TablaAlbaranesCliente.pas' {dmTablaAlbaranesCliente: TDataModule},
  AlbaranCliente in 'Clientes\AlbaranCliente.pas' {frAlbaranCliente: TRdxFrameAlbaranesCliente},
  AlbaranesClientes in 'Clientes\AlbaranesClientes.pas' {frAlbaranesClientes: TRdxFrameAlbaranesCliente},
  InformeAlbaranCliente in 'Informes\InformeAlbaranCliente.pas' {dmInformeAlbaranCliente: TDataModule},
  ImprimirAlbaranCliente in 'Clientes\ImprimirAlbaranCliente.pas' {frImprimirAlbaranCliente: TRdxFrame},
  ListadoBeneficios in 'Clientes\ListadoBeneficios.pas' {frListadoBeneficios: TRdxFrameListadoBeneficios},
  TablaObrasGastos in 'BaseDatos\TablaObrasGastos.pas' {dmTablaObrasGastos: TDataModule},
  TablaObras in 'BaseDatos\TablaObras.pas' {dmTablaObras: TDataModule},
  VistaPreviaPresupuestos in 'Clientes\VistaPreviaPresupuestos.pas' {frVistaPreviaPresupuestos: TRdxFrame},
  TablaAlmacenes in 'BaseDatos\TablaAlmacenes.pas' {dmTablaAlmacenes: TDataModule},
  BarraAlmacenes in 'Almacenes\BarraAlmacenes.pas' {frBarraAlmacenes: TRdxFrame},
  Tipos in 'Libreria\Tipos.pas',
  Almacen in 'Almacenes\Almacen.pas' {frAlmacen},
  Almacenes in 'Almacenes\Almacenes.pas' {frAlmacenes},
  TablaPedidosProveedor in 'BaseDatos\TablaPedidosProveedor.pas' {dmTablaPedidosProveedor: TDataModule},
  TablaUnidadesMedida in 'BaseDatos\TablaUnidadesMedida.pas' {dmTablaUnidadesMedida: TDataModule},
  ElegirTipoAlmacen in 'Almacenes\ElegirTipoAlmacen.pas' {frElegirTipoAlmacen: TRdxFrame},
  Entidades in 'Frames\Entidades.pas',
  TablaArticulosObraHistorica in 'BaseDatos\TablaArticulosObraHistorica.pas' {dmTablaArticulosObraHistorica: TDataModule},
  TablaMovimientos in 'BaseDatos\TablaMovimientos.pas' {dmTablaMovimientos: TDataModule},
  ArticulosAlmacen in 'Almacenes\ArticulosAlmacen.pas' {frArticulosAlmacen: TRdxFrameArticulosAlmacen},
  ArticuloAlmacen in 'Almacenes\ArticuloAlmacen.pas' {frArticuloAlmacen: TRdxFrameArticulosAlmacen},
  TablaArticulosAlmacen in 'BaseDatos\TablaArticulosAlmacen.pas' {dmTablaArticulosAlmacen: TDataModule},
  ListadoArticulosAlmacen in 'Almacenes\ListadoArticulosAlmacen.pas',
  InformeEstadoAlmacen in 'Informes\InformeEstadoAlmacen.pas' {dmInformeEstadoAlmacen: TDataModule},
  MovimientoAlmacenes in 'Almacenes\MovimientoAlmacenes.pas' {frMovimientoAlmacenes: TRdxFrameMovimientos},
  PedidosProveedores in 'Proveedores\PedidosProveedores.pas' {frPedidosProveedores: TRdxFramePedidosProveedor},
  PedidoProveedor in 'Proveedores\PedidoProveedor.pas' {frPedidoProveedor: TRdxFramePedidosProveedor},
  EditorDescripcion in 'EditorDescripcion.pas' {frEditorDescripcion: TRdxFrame},
  EmitirPedidoProveedor in 'Proveedores\EmitirPedidoProveedor.pas' {frEmitirPedidoProveedor: TRdxFrame},
  ListadoPedidosProv in 'Proveedores\ListadoPedidosProv.pas' {frListadoPedidosProv: TRdxFrame},
  InformeListadoPedidosProv in 'Informes\InformeListadoPedidosProv.pas' {dmInformeListadoPedidosProv: TDataModule},
  FinalizarObra in 'Almacenes\FinalizarObra.pas' {frFinalizarObra: TRdxFrame},
  HistoricoMovimientos in 'Almacenes\HistoricoMovimientos.pas' {frHistoricoMovimientos: TRdxFrameHistoricoMovimientos},
  TablaHistoricoMovimientos in 'BaseDatos\TablaHistoricoMovimientos.pas' {dmTablaHistoricoMovimientos: TDataModule},
  HistoricoMovimiento in 'Almacenes\HistoricoMovimiento.pas' {frHistoricoMovimiento: TRdxFrameHistoricoMovimientos},
  InformePedidoProveedor in 'Informes\InformePedidoProveedor.pas' {dmInformePedidoProveedor: TDataModule},
  ImprimirPedidosProveedor in 'Proveedores\ImprimirPedidosProveedor.pas' {frImprimirPedidosProveedor: TRdxFrame},
  ArticulosObraHistorica in 'Almacenes\ArticulosObraHistorica.pas',
  ArticuloObraHistorica in 'Almacenes\ArticuloObraHistorica.pas' {frArticuloObraHistorica: TRdxFrameArticulosObraHistorica},
  Procedencias in 'Datos\Procedencias.pas' {frProcedencias: TRdxDBFrame},
  TablaProcedencias in 'BaseDatos\TablaProcedencias.pas' {dmTablaProcedencias: TDataModule},
  InformeListadoFacturacionProcedencia in 'Informes\InformeListadoFacturacionProcedencia.pas' {dmInformeListadoFacturacionProcedencia: TDataModule},
  ListadoFacturacionProcedencia in 'Clientes\ListadoFacturacionProcedencia.pas' {frListadoFacturacionProcedencia: TRdxFrame},
  InformeListadoContratacionProcedencia in 'Informes\InformeListadoContratacionProcedencia.pas' {dmInformeListadoContratacionProcedencia: TDataModule},
  ListadoContratacionProcedencia in 'Clientes\ListadoContratacionProcedencia.pas' {frListadoContratacionProcedencia: TRdxFrame},
  InformeListadoProcedencias in 'Informes\InformeListadoProcedencias.pas' {dmInformeListadoProcedencias: TDataModule},
  ListadoProcedencias in 'Clientes\ListadoProcedencias.pas' {frListadoProcedencias: TRdxFrame},
  InformeListadoPresupuestosProcedencia in 'Informes\InformeListadoPresupuestosProcedencia.pas' {dmInformeListadoPresupuestosProcedencia: TDataModule},
  ListadoPresupuestosProcedencia in 'Clientes\ListadoPresupuestosProcedencia.pas' {frListadoPresupuestosProcedencia: TRdxFrame};

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

type
  TFormPrincipal = TForm;

var
  Respuesta : integer;
  FormPrincipal : TForm;
  Version : String;

begin
  Application.Initialize;
  Application.CreateForm(TdmBaseDatos, dmBaseDatos);
  Application.CreateForm(TdmConfiguracion, dmConfiguracion);
  if not LeerConfiguracion then
    Exit;

  fConfiguracion := TfConfiguracion.Create(Application);
  try
    fConfiguracion.Actualizar;
    Version := fConfiguracion.darVersion;
  finally
    fConfiguracion.Free;
  end;

  fPantallaAcceso := TfPantallaAcceso.Create(Application);
  try
    fPantallaAcceso.Version := Version;
    Respuesta := fPantallaAcceso.ShowModal;
  finally
    fPantallaAcceso.Free;
  end;

  if Respuesta <> idCancel then
  begin
    Application.CreateForm(TFormPrincipal, FormPrincipal);
    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.Update;
    Application.ProcessMessages;
    frPrincipal.actEmpresas.Execute;
  end;
  Application.Run;
  Application.Terminate;
end.

