roberto
e9d3eed1a8
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES/trunk@11 3f40d355-893c-4141-8e64-b1d9be72e7e7
260 lines
18 KiB
ObjectPascal
260 lines
18 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}
|
|
|
|
uses
|
|
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: TFrame},
|
|
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},
|
|
ListadoBeneficios in 'Contabilidad\ListadoBeneficios.pas' {frListadoBeneficios: TRdxFrameListadoBeneficios},
|
|
InformeListadoBeneficiosContrato in 'Informes\InformeListadoBeneficiosContrato.pas' {dmInformeListadoBeneficiosContrato: TDataModule},
|
|
InformeDetalleBeneficiosContrato in 'Informes\InformeDetalleBeneficiosContrato.pas' {dmInformeDetalleBeneficiosContrato: TDataModule},
|
|
SysUtils,
|
|
TablaObras in 'BaseDatos\TablaObras.pas' {dmTablaObras: TDataModule},
|
|
TablaObrasPedidos in 'BaseDatos\TablaObrasPedidos.pas' {dmTablaObrasPedidos: TDataModule},
|
|
TablaObrasInstaladores in 'BaseDatos\TablaObrasInstaladores.pas' {dmTablaObrasInstaladores: TDataModule},
|
|
TablaObrasGastos in 'BaseDatos\TablaObrasGastos.pas' {dmTablaObrasGastos: TDataModule},
|
|
InformeListadoPedidosObra in 'Informes\InformeListadoPedidosObra.pas' {dmInformeListadoPedidosObra: TDataModule},
|
|
InformeListadoTareasObra in 'Informes\InformeListadoTareasObra.pas' {dmInformeListadoTareasObra: TDataModule},
|
|
TablaTareas in 'BaseDatos\TablaTareas.pas' {dmTablaTareas: TDataModule},
|
|
CalendarioBasico in 'Agenda\CalendarioBasico.pas' {frCalendarioBasico: TRdxFrame},
|
|
ResourcesEditor in 'Agenda\ResourcesEditor.pas' {fmResourcesLayoutEditor3},
|
|
CalendarioMediciones in 'Agenda\CalendarioMediciones.pas' {frCalendarioMediciones: TRdxFrame},
|
|
TablaCitas in 'BaseDatos\TablaCitas.pas' {dmTablaCitas: TDataModule},
|
|
EditorEventos in 'Agenda\EditorEventos.pas' {frEditorEventos},
|
|
CalendarioRecepciones in 'Agenda\CalendarioRecepciones.pas' {frCalendarioRecepciones: TRdxFrame},
|
|
cxSchedulerEventEditor in 'C:\Archivos de programa\Developer Express Inc\ExpressScheduler 2\Sources\cxSchedulerEventEditor.pas' {cxSchedulerEventEditorForm},
|
|
CalendarioMontajes in 'Agenda\CalendarioMontajes.pas' {frCalendarioMontajes: TRdxFrame},
|
|
InformeBaseFR3 in 'Informes\InformeBaseFR3.pas' {dmInformeBaseFR3: TDataModule},
|
|
InformeEstadoObra in 'Informes\InformeEstadoObra.pas' {dmInformeEstadoObra: 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},
|
|
VistaRichEditor in 'VistaRichEditor.pas' {frVistaRichEdit: TFrame},
|
|
InformeEtiquetasClientes in 'Informes\InformeEtiquetasClientes.pas' {dmInformeEtiquetasClientes: TDataModule},
|
|
EtiquetasClientes in 'Clientes\EtiquetasClientes.pas' {frEtiquetasClientes: TRdxFrame};
|
|
|
|
{$R *.RES}
|
|
{$R Prueba.res}
|
|
|
|
type
|
|
TFormPrincipal = TForm;
|
|
|
|
var
|
|
Respuesta : integer;
|
|
FormPrincipal : TForm;
|
|
Version : String;
|
|
|
|
begin
|
|
Application.Initialize;
|
|
Application.Title := 'FactuGES';
|
|
Application.CreateForm(TdmBaseDatos, dmBaseDatos);
|
|
Application.CreateForm(TdmConfiguracion, dmConfiguracion);
|
|
if not LeerConfiguracion then
|
|
Exit;
|
|
|
|
fConfiguracion := TfConfiguracion.Create(Application);
|
|
try
|
|
if fConfiguracion.HayConfiguracion then
|
|
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.
|
|
|