Tecistel/Tecsitel_FactuGES
Archived
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
This repository has been archived on 2024-11-29. You can view files and clone it, but cannot push or open issues or pull requests.
7291f69f59
Tecsitel_FactuGES/FactuGES.dpr
david bd7a099c7d Importación inicial 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES/trunk@4 b68bf8ae-e977-074f-a058-3cfd71dd8f45
2007-06-21 15:47:20 +00:00

254 lines
18 KiB
ObjectPascal
Raw Blame History

{
===============================================================================
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.
Reference in New Issue View Git Blame Copy Permalink