Cambio en informes se añade logo

git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@181 93f398dd-4eb6-7a46-baf6-13f46f578da2

Source/Cliente/uPantallaPrincipal.pas

@@ -194,14 +194,12 @@ end;
 
 procedure TfPantallaPrincipal.FormShow(Sender: TObject);
 begin
-  //El usuario vendedor de graden solo podrá ver ventas (Graden-Vendedor(2))
+  //El usuario vendedor de graden solo podrá ver ventas y caja (Graden-Vendedor(2))
   if (AppFactuGES.UsuarioActivo.ID_PERFIL = CTE_PERFIL_VENDEDOR_GRADEN)
   or (AppFactuGES.UsuarioActivo.ID_PERFIL = CTE_PERFIL_VENDEDOR_MARBELLA)
   or (AppFactuGES.UsuarioActivo.ID_PERFIL = CTE_PERFIL_VENDEDOR_DONOSTI)
   or (AppFactuGES.UsuarioActivo.ID_PERFIL = CTE_PERFIL_VENDEDOR_GRADEN_UECKO) then
   begin
-    Contabilidad1.Enabled := False;
-    Contabilidad1.Visible := False;
     Compras1.Enabled := False;
     Compras1.Visible := False;
     Logistica1.Enabled := False;
@@ -209,7 +207,7 @@ begin
     ConfigurarFactuGES1.Enabled := False;
     ConfigurarFactuGES1.Visible := False;
   end
-  //El usuario normal de uecko solo no verá los bancos
+  //El usuario normal de uecko solo no verá contabilidad
   else if (AppFactuGES.UsuarioActivo.ID_PERFIL = CTE_PERFIL_USUARIO) then
   begin
     Contabilidad1.Enabled := False;

Source/Modulos/Contabilidad/Controller/uSubCuentasController.pas

@@ -178,40 +178,32 @@ var
   Condicion: TDAWhereExpression;
   Condicion1: TDAWhereExpression;
   Condicion2: TDAWhereExpression;
-  Condicion3: TDAWhereExpression;
-  Condicion4: TDAWhereExpression;
 
 begin
   ShowHourglassCursor;
   try
-    Result := BuscarTodos;
+    Result := BuscarCajasBancos;
 
     with Result.DataTable.DynamicWhere do
     begin
-      // (REF_CUENTAS = 570 cajas)
-      Condicion1 := NewBinaryExpression(NewField('', fld_SubCuentasREF_CUENTA), NewConstant(CTE_CUENTASCAJA, datInteger), dboEqual);
 
-      // (REF_CUENTAS = 572 bancos)
+      //Añadimos los banco de pago segun empresa
-      //CAMBIO DE PRIVILEGIOS BANCO
+      //Si estamos en Abeto solo presentamos la cuenta bancaria que tengan por defecto en esa empresa/ejercicio
-      Condicion3 := NewBinaryExpression(NewField('', fld_SubCuentasREF_CUENTA), NewConstant(CTE_CUENTASBANCO, datInteger), dboEqual);
+      if (AppFactuGES.EmpresaActiva.ID = CTE_EMPRESA_ABETO) then
-      if (AppFactuGES.UsuarioActivo.ID_PERFIL = CTE_PERFIL_ADMINISTRADOR)
+        Condicion1 := NewBinaryExpression(NewField('', fld_SubCuentasID_Ejercicio), NewConstant(AppFactuGES.EjercicioActivo.ID, datInteger), dboEqual)
-      or (AppFactuGES.UsuarioActivo.ID_PERFIL = CTE_PERFIL_GERENCIA) then
+      //En el resto de casos e¡presentamos siempre las cuentas bancarias de Graden empresa 2/ejercicio 2
-      begin
-        Condicion2 := Condicion3;
-      end
       else
-      begin
+        Condicion1 := NewBinaryExpression(NewField('', fld_SubCuentasID_Ejercicio), NewConstant(2, datInteger), dboEqual);
-        Condicion4 := NewBinaryExpression(NewField('', fld_SubCuentasPAGO_DEFECTO), NewConstant(1, datInteger), dboEqual);
-        Condicion2 := NewBinaryExpression(Condicion3, Condicion4, dboAnd);
-      end;
 
-      //Acoplamos cajas y bancos a cuento
+      //Añadimos presentar solo banco de pago por defecto
-      Condicion := NewBinaryExpression(Condicion1, Condicion2, dboOr);
+      Condicion2 := NewBinaryExpression(NewField('', fld_SubCuentasPAGO_DEFECTO), NewConstant(1, datInteger), dboEqual);
+
+      Condicion := NewBinaryExpression(Condicion1, Condicion2, dboAnd);
 
       if IsEmpty then
          Expression := Condicion
       else
-         Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
+         Expression := NewBinaryExpression(Expression, Condicion, dboOr);
     end;
 
   finally