diff --git a/Source/Modulos/Almacenes/Almacenes_Group.groupproj b/Source/Modulos/Almacenes/Almacenes_Group.groupproj
new file mode 100644
index 00000000..cc5e0b7e
--- /dev/null
+++ b/Source/Modulos/Almacenes/Almacenes_Group.groupproj
@@ -0,0 +1,104 @@
+
+
+ {d11a1db7-eff8-4cb6-8678-b1928036ff3f}
+
+
+
+
+
+
+
+
+
+
+
+
+
+ Default.Personality
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
\ No newline at end of file
diff --git a/Source/Modulos/Almacenes/Controller/uAlmacenesController.pas b/Source/Modulos/Almacenes/Controller/uAlmacenesController.pas
index a9c3eb9a..e4bc4724 100644
--- a/Source/Modulos/Almacenes/Controller/uAlmacenesController.pas
+++ b/Source/Modulos/Almacenes/Controller/uAlmacenesController.pas
@@ -74,7 +74,7 @@ implementation
uses
cxControls, DB, uEditorRegistryUtils, schAlmacenesClient_Intf,
uIEditorAlmacenes, uIEditorAlmacen, uDataModuleAlmacenes,
- uDataModuleUsuarios, uDAInterfaces, uDataTableUtils,
+ uDataModuleUsuarios, uDAInterfaces, uDataTableUtils, uFactuGES_App,
uDateUtils, uROTypes, DateUtils, Controls, Windows, uIEditorListaAlmacenes;
{ TAlmacenesController }
@@ -170,8 +170,8 @@ begin
Result.Edit;
with Result do
begin
-// ID_EMPRESA := dmUsuarios.IDEmpresaActual;
-// USUARIO := dmUsuarios.LoginInfo.Usuario;
+ ID_EMPRESA := AppFactuGES.EmpresaActiva.ID;
+ USUARIO := AppFactuGES.UsuarioActivo.UserName;
end;
Result.Post;
@@ -190,7 +190,7 @@ begin
// Asegurarse de valores en campos "automáticos"
AAlmacen.Edit;
try
-// AAlmacen.USUARIO := dmUsuarios.LoginInfo.Usuario;
+ AAlmacen.USUARIO := AppFactuGES.UsuarioActivo.UserName;
Result := True;
finally
@@ -422,3 +422,4 @@ begin
end;
end.
+
\ No newline at end of file
diff --git a/Source/Modulos/Almacenes/Model/Almacenes_model.dpk b/Source/Modulos/Almacenes/Model/Almacenes_model.dpk
index 179f2365..fa9ae514 100644
--- a/Source/Modulos/Almacenes/Model/Almacenes_model.dpk
+++ b/Source/Modulos/Almacenes/Model/Almacenes_model.dpk
@@ -25,7 +25,8 @@ package Almacenes_model;
{$IMPLICITBUILD ON}
requires
- Base;
+ Base,
+ ApplicationBase;
contains
uBizAlmacenes in 'uBizAlmacenes.pas',
diff --git a/Source/Modulos/Almacenes/Model/Almacenes_model.dproj b/Source/Modulos/Almacenes/Model/Almacenes_model.dproj
index 3e6d527e..a17ac897 100644
--- a/Source/Modulos/Almacenes/Model/Almacenes_model.dproj
+++ b/Source/Modulos/Almacenes/Model/Almacenes_model.dproj
@@ -41,18 +41,7 @@
Delphi.Personality
Package
-FalseTrueFalseTrueFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0Almacenes_model.dpk
-
-
-
-
-
-
-
-
-
-
-
+FalseTrueFalseTrueFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0Almacenes_model.dpk
Internet Explorer Hosting Support Package
CodeGear Control Panel Applet Package
CodeGear WebSnap Components
@@ -64,18 +53,15 @@
Borland Sample Controls Design Time Package
CodeGear C++Builder Office 2000 Servers Package
CodeGear C++Builder Office XP Servers Package
-
-
+
MainSource
-
-
-
-
+
+