roberto
34297092ec
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@213 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2
121 lines
3.0 KiB
ObjectPascal
121 lines
3.0 KiB
ObjectPascal
unit uBootStrap;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, uSplash, uFactuGES_App, StdCtrls;
|
|
|
|
procedure Initialize;
|
|
procedure Run;
|
|
procedure Terminate;
|
|
|
|
implementation
|
|
|
|
uses
|
|
uDMBase, uDataModuleConexion, uDataModuleConfiguracion, uDataModuleImpresiones,
|
|
uPlugins_Intf, uMainMenuController, uNavPaneController, uPantallaPrincipal;
|
|
|
|
procedure DoAppLoadModules;
|
|
begin
|
|
with AppFactuGES.ModuleManager do
|
|
begin
|
|
LoadModule('Referencias_plugin.bpl');
|
|
LoadModule('FormasPago_plugin.bpl');
|
|
LoadModule('TiposIVA_plugin.bpl');
|
|
LoadModule('Familias_plugin.bpl');
|
|
LoadModule('Fabricantes_plugin.bpl');
|
|
LoadModule('UnidadesMedida_plugin.bpl');
|
|
|
|
LoadModule('Contactos_plugin.bpl');
|
|
|
|
LoadModule('Almacenes_plugin.bpl');
|
|
// LoadModule('Obras_plugin.bpl');
|
|
LoadModule('Articulos_plugin.bpl');
|
|
|
|
LoadModule(MODULENAME_PRESUPUESTOS_CLIENTE);
|
|
LoadModule(MODULENAME_PEDIDOS_CLIENTE);
|
|
LoadModule(MODULENAME_ALBARANES_CLIENTE);
|
|
|
|
LoadModule('RecibosCliente_plugin.bpl');
|
|
LoadModule(MODULENAME_FACTURAS_CLIENTE);
|
|
LoadModule(MODULENAME_FACTURAS_PROFORMA);
|
|
|
|
LoadModule(MODULENAME_PEDIDOS_PROVEEDOR);
|
|
LoadModule(MODULENAME_ALBARANES_PROVEEDOR);
|
|
|
|
LoadModule(MODULENAME_RECIBOS_PROVEEDOR);
|
|
LoadModule(MODULENAME_FACTURAS_PROVEEDOR);
|
|
|
|
LoadModule('RemesasCliente_plugin.bpl');
|
|
LoadModule('RemesasProveedor_plugin.bpl');
|
|
|
|
LoadModule('Inventario_plugin.bpl');
|
|
LoadModule('HistoricoMovimientos_plugin.bpl');
|
|
|
|
LoadModule('GestorInformes_plugin.bpl');
|
|
LoadModule('Comisiones_plugin.bpl');
|
|
LoadModule('BancaElectronica_plugin.bpl');
|
|
LoadModule('TiendaWeb_plugin.bpl');
|
|
|
|
LoadModule('Informes_plugin.bpl');
|
|
LoadModule('InfVentasArticulo_plugin.bpl');
|
|
LoadModule('InfMargenArticulo_plugin.bpl');
|
|
|
|
LoadModule('ProcesoPresupuestosCliente_plugin.bpl');
|
|
|
|
end;
|
|
end;
|
|
|
|
procedure DoRefreshMainForm;
|
|
begin
|
|
fPantallaPrincipal.RefrescarUI;
|
|
end;
|
|
|
|
procedure DoAppMainForm;
|
|
begin
|
|
Application.CreateForm(TfPantallaPrincipal, fPantallaPrincipal);
|
|
end;
|
|
|
|
procedure Initialize;
|
|
begin
|
|
dmConexion := TdmConexion.Create(NIL);
|
|
dmConfiguracion := TdmConfiguracion.Create(NIL);
|
|
dmBase := TdmBase.Create(NIL);
|
|
dmImpresiones := TDataModuleImpresiones.Create(NIL);
|
|
|
|
AppFactuGES := TAppFactuGES.Create;
|
|
with AppFactuGES do
|
|
begin
|
|
AppSplashForm := TAppSplashForm.Create;
|
|
DoMainFormEvent := DoAppMainForm;
|
|
DoLoadModulesEvent := DoAppLoadModules;
|
|
DoRefreshMainFormEvent := DoRefreshMainForm;
|
|
end;
|
|
|
|
NavPaneController := TNavPaneController.Create;
|
|
MainMenuController := TMainMenuController.Create;
|
|
end;
|
|
|
|
procedure Run;
|
|
begin
|
|
AppFactuGES.Run;
|
|
end;
|
|
|
|
procedure Terminate;
|
|
begin
|
|
FreeANDNIL(MainMenuController);
|
|
FreeANDNIL(NavPaneController);
|
|
|
|
AppFactuGES := NIL;
|
|
|
|
FreeANDNIL(dmBase);
|
|
FreeANDNIL(dmConfiguracion);
|
|
FreeAndNil(dmConexion);
|
|
FreeAndNil(dmImpresiones);
|
|
|
|
Application.ProcessMessages
|
|
end;
|
|
|
|
end.
|