david
bd7a099c7d
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES/trunk@4 b68bf8ae-e977-074f-a058-3cfd71dd8f45
254 lines
18 KiB
ObjectPascal
254 lines
18 KiB
ObjectPascal
{
|
|
===============================================================================
|
|
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.
|