Varela_PuntosVenta/Source/Cliente/uBootStrap.pas

unit uBootStrap;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, uSplash, uAdminPV_App, StdCtrls;

procedure Initialize;
procedure Run;
procedure Terminate;

implementation

uses
  uDMBase, 
  uMainMenuController, uNavPaneController, uPantallaPrincipal;

procedure DoAppLoadModules;
begin
  with AppAdminPV.ModuleManager do
  begin
    LoadModule('FicherosEDI.bpl');
    LoadModule('VentasTerminadas.bpl');
    LoadModule('VentasProceso.bpl');
    LoadModule('ReferenciaGenerica.bpl');
    LoadModule('Recepciones.bpl');
    LoadModule('Devoluciones.bpl');
    LoadModule('Traspasos.bpl');
    LoadModule('Stock.bpl');
  end;
end;

procedure DoAppMainForm;
begin
  Application.CreateForm(TfPantallaPrincipal, fPantallaPrincipal);
end;

procedure Initialize;
begin
{  dmConexion := TdmConexion.Create(NIL);
  dmConfiguracion := TdmConfiguracion.Create(NIL);}
  dmBase := TdmBase.Create(NIL);

  AppAdminPV := TAppAdminPV.Create;
  with AppAdminPV do
  begin
    AppSplashForm := TAppSplashForm.Create;
    DoMainFormEvent := DoAppMainForm;
    DoLoadModulesEvent := DoAppLoadModules;
  end;

  NavPaneController := TNavPaneController.Create;
  MainMenuController := TMainMenuController.Create;
end;

procedure Run;
begin
  AppAdminPV.Run;
end;

procedure Terminate;
begin
  FreeANDNIL(MainMenuController);
  FreeANDNIL(NavPaneController);

  AppAdminPV := NIL;

  FreeANDNIL(dmBase);
{  FreeANDNIL(dmConfiguracion);
  FreeAndNil(dmConexion);}

  Application.ProcessMessages
end;

end.