diff --git a/Source/Cliente/FactuGES.dpr b/Source/Cliente/FactuGES.dpr
index 173e35e0..10a482a8 100644
--- a/Source/Cliente/FactuGES.dpr
+++ b/Source/Cliente/FactuGES.dpr
@@ -16,8 +16,7 @@ uses
uNavPaneUtils in 'Utiles\uNavPaneUtils.pas',
uMainMenuController in 'uMainMenuController.pas',
uClienteUtils in 'Utiles\uClienteUtils.pas',
- uBootStrap in 'uBootStrap.pas' {BootStrap},
- uBootStrap2 in 'uBootStrap2.pas';
+ uBootStrap in 'uBootStrap.pas';
{$R *.res}
@@ -31,9 +30,9 @@ begin
// Tengo que ponerlo a false porque si no el formulario principal no se puede poner por encima de los formularios hijos.
// Luego, en el formulario principal cambio los paramátros para obligar a que aparezca el icono en la barra de tareas.
- uBootStrap2.Initialize;
- uBootStrap2.Run; // <- Aquí dentro esta Application.Run
- uBootStrap2.Terminate;
+ uBootStrap.Initialize;
+ uBootStrap.Run; // <- Aquí dentro esta Application.Run
+ uBootStrap.Terminate;
//Application.Terminate; //<- No descomentar para así ver los Memory Leaks
diff --git a/Source/Cliente/FactuGES.dproj b/Source/Cliente/FactuGES.dproj
index 02e152bf..3ff7f264 100644
--- a/Source/Cliente/FactuGES.dproj
+++ b/Source/Cliente/FactuGES.dproj
@@ -52,17 +52,6 @@
VCLApplication
T:\Codigo (Luis Leon)\Source\Modulos\Pedidos de cliente\Controller\FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse2220FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.2.2.0FactuGESFactuGES2.1.4
-
-
-
-
-
-
-
-
-
-
-
Internet Explorer Hosting Support Package
CodeGear Control Panel Applet Package
CodeGear WebSnap Components
@@ -82,10 +71,7 @@
MainSource
-
-
-
-
+
diff --git a/Source/Cliente/FactuGES.drc b/Source/Cliente/FactuGES.drc
index 3cf7dbf9..eded6c3a 100644
--- a/Source/Cliente/FactuGES.drc
+++ b/Source/Cliente/FactuGES.drc
@@ -18,6 +18,5 @@ END
/* C:\Codigo Tecsitel\Source\Cliente\uSplash.dfm */
/* C:\Codigo Tecsitel\Source\Cliente\uAcercaDe.dfm */
/* C:\Codigo Tecsitel\Source\Cliente\uPantallaPrincipal.dfm */
-/* C:\Codigo Tecsitel\Source\Cliente\uBootStrap.dfm */
/* C:\Codigo Tecsitel\Source\Cliente\FactuGES.res */
/* C:\Codigo Tecsitel\Source\Cliente\FactuGES.drf */
diff --git a/Source/Cliente/uBootStrap.pas b/Source/Cliente/uBootStrap.pas
new file mode 100644
index 00000000..d138a1cb
--- /dev/null
+++ b/Source/Cliente/uBootStrap.pas
@@ -0,0 +1,75 @@
+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
+ uDataModuleBase, uDataModuleConexion, uDataModuleConfiguracion,
+ uMainMenuController, uNavPaneController, uPantallaPrincipal;
+
+procedure DoAppLoadModules;
+begin
+ with AppFactuGES.ModuleManager do
+ begin
+ LoadModule('FormasPago_plugin.bpl');
+ LoadModule('TiposIVA_plugin.bpl');
+ LoadModule('Familias_plugin.bpl');
+ LoadModule('Contactos_plugin.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);
+
+ AppFactuGES := TAppFactuGES.Create;
+ with AppFactuGES do
+ begin
+ AppSplashForm := TAppSplashForm.Create;
+ DoMainFormEvent := DoAppMainForm;
+ DoLoadModulesEvent := DoAppLoadModules;
+ end;
+
+ NavPaneController := TNavPaneController.Create;
+ MainMenuController := TMainMenuController.Create;
+end;
+
+procedure Run;
+begin
+ AppFactuGES.Run;
+ repeat
+ //Nada
+ until AppFactuGES.Terminated;
+end;
+
+procedure Terminate;
+begin
+ FreeANDNIL(MainMenuController);
+ FreeANDNIL(NavPaneController);
+
+ AppFactuGES := NIL;
+
+ FreeANDNIL(dmBase);
+ FreeANDNIL(dmConfiguracion);
+ FreeAndNil(dmConexion);
+
+ Application.ProcessMessages
+end;
+
+end.
diff --git a/Source/GUIBase/GUIBase.drc b/Source/GUIBase/GUIBase.drc
index 5dd2a2d9..c1adf14b 100644
--- a/Source/GUIBase/GUIBase.drc
+++ b/Source/GUIBase/GUIBase.drc
@@ -35,4 +35,4 @@ END
/* C:\Codigo Tecsitel\Source\GUIBase\uDialogBase.dfm */
/* C:\Codigo Tecsitel\Source\GUIBase\uViewGrid.dfm */
/* C:\Codigo Tecsitel\Source\GUIBase\GUIBase.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf37.tmp */
+/* C:\Codigo Tecsitel\Source\GUIBase\GUIBase.drf */
diff --git a/Source/Modulos/Contactos/Project1.mpb b/Source/Modulos/Contactos/Project1.mpb
deleted file mode 100644
index b27cc9b3..00000000
Binary files a/Source/Modulos/Contactos/Project1.mpb and /dev/null differ