Rellenar los campos ID_EMPRESA y USUARIO con sus valores.

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@137 0c75b7a4-871f-7646-8a2f-f78d34cc349f

Source/Modulos/Comisiones/Controller/uComisionesController.pas

@@ -279,7 +279,7 @@ begin
   // Asegurarse de valores en campos "automáticos"
   AComision.Edit;
   try
-    AComision.USUARIO := dmUsuarios.LoginInfo.Usuario;
+    AComision.USUARIO := AppFactuGES.UsuarioActivo.UserName;
     Result := True;
   finally
     AComision.Post;

Source/Modulos/Comisiones/Model/uBizComisiones.pas

@@ -81,9 +81,9 @@ end;
 
 procedure TBizComisiones.IniciarValoresComisionLiquidacionNuevo;
 begin
-  ID_EMPRESA := dmUsuarios.IDEmpresaActual;
+  ID_EMPRESA := AppFactuGES.EmpresaActiva.ID;
   FECHA := Date;
-  USUARIO := dmUsuarios.LoginInfo.Usuario;
+  USUARIO := AppFactuGES.UsuarioActivo.UserName;
   DESCRIPCION := 'Liquidación de comisiones del mes de ' + UpperCase(FormatDateTime('mmmm', date));
 end;
 

Source/Modulos/Comisiones/Views/uEditorComision.pas

@@ -167,7 +167,7 @@ begin
 
   inherited PonerTitulos(FTitulo);
 
-  Self.Caption := FTitulo + ' (' + dmUsuarios.EmpresaActual.NOMBRE + ')';
+  Self.Caption := FTitulo + ' (' + AppFactuGES.EmpresaActiva.NOMBRE + ')';
 end;
 
 procedure TfEditorComision.PrevisualizarInterno;
@@ -305,3 +305,4 @@ end;
 
 end.
 
+