roberto
6ef2efd119
git-svn-id: https://192.168.0.254/svn/Proyectos.Miguelo_FactuGES/trunk@15 172823e9-465a-9d4b-80ba-0a9f016f4eb1
290 lines
21 KiB
ObjectPascal
290 lines
21 KiB
ObjectPascal
{
|
|
===============================================================================
|
|
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.
|
|
|