From f91f23e2b16ea66d03aaa2d0386bdf34dda22772 Mon Sep 17 00:00:00 2001
From: rrene <rrene@DESKTOP-04EII7E>
Date: Tue, 7 Apr 2020 20:28:53 -0700
Subject: [PATCH] -cvesubproyecto

---
 Contabilidad/ContabilizacionVentas.aspx.cs | 16 +++++++++-------
 Ventas/ClientesAbonar.aspx.vb              |  2 +-
 2 files changed, 10 insertions(+), 8 deletions(-)

diff --git a/Contabilidad/ContabilizacionVentas.aspx.cs b/Contabilidad/ContabilizacionVentas.aspx.cs
index a1f1b73db..73e61b3ac 100644
--- a/Contabilidad/ContabilizacionVentas.aspx.cs
+++ b/Contabilidad/ContabilizacionVentas.aspx.cs
@@ -35,21 +35,23 @@ public partial class Contabilidad_ContabilizacionVentas : ClsPaginas
         {
             TienePermisoVerPoliza = false;
             TienePermisoEditar = false;
+
+            if (UsuarioActual.CveRol == 1 || UsuarioActual.CveUsuario == 17 || UsuarioActual.CveUsuario == 171 || UsuarioActual.TienePermisoProceso(221))
+            {
+                TienePermisoEditar = true;
+                TienePermisoVerPoliza = true;
+            }
+
             if (UsuarioActual.Empresa.TipoContabilidad == 2 && UsuarioActual.Empresa.UsaContabilidad)
             {
-                TienePermisoEditar = UsuarioActual.TienePermisoProceso(221);
-
+               
                 ClsContPAQi ObjCont = new ClsContPAQi(UsuarioActual.Empresa);
                 ObjCont.GetCuentas(-1, "-1", -1);
                 string[] columnas = new string[3] { "Id", "CuentaFormato", "Nombre" };
                 DTmpC = ObjCont.DtResultados.FiltraParametros("", "", columnas);
                 ObjCont.Dispose();
 
-                if (UsuarioActual.CveRol == 1 || UsuarioActual.CveUsuario == 17 || UsuarioActual.CveUsuario == 171 || UsuarioActual.TienePermisoProceso(221))
-                {
-                    TienePermisoEditar = true;
-                    TienePermisoVerPoliza = true;
-                }
+               
             }
             //else
             //{
diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb
index 6d0ebb761..85452eab9 100644
--- a/Ventas/ClientesAbonar.aspx.vb
+++ b/Ventas/ClientesAbonar.aspx.vb
@@ -1475,7 +1475,7 @@ Partial Class Ventas_ClientesAbonar
                                             CveCuentaContabilizacion = 0
                                         End If
 
-                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, Referencia, ConceptoContable, ConceptoMovimiento, FechaMovimiento, IdCtaContable, -1, CveIE, gvr.FCHyperLink("HplF2").Text.ToEntero, -1, CveSubProyecto:=CveSubProyectoContabilizar, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=importeMX, CveCuenta:=CveCuenta, TipoCambio:=TipoCambioGeneral, TipoCambioPago:=tipoCambioPago, PorcentajeImpuesto:=PorcentajeImpuesto) Then
+                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, Referencia, ConceptoContable, ConceptoMovimiento, FechaMovimiento, IdCtaContable, -1, CveIE, gvr.FCHyperLink("HplF2").Text.ToEntero, -1, CveSubProyectoContabilizar, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=importeMX, CveCuenta:=CveCuenta, TipoCambio:=TipoCambioGeneral, TipoCambioPago:=tipoCambioPago, PorcentajeImpuesto:=PorcentajeImpuesto) Then
                                             MsgError = "No se pudo insertar la póliza"
                                         End If