From 3ef09adf508214b60156b33b3d44ee4c060ef24d Mon Sep 17 00:00:00 2001
From: JORGE LUIS CAUDILLO ESPARZA <caudillo_90@hotmail.com>
Date: Wed, 18 Mar 2020 13:49:41 -0700
Subject: [PATCH]

---
 Contabilidad2/CatCuentas.aspx.vb | 27 +++++++++++++++------------
 1 file changed, 15 insertions(+), 12 deletions(-)

diff --git a/Contabilidad2/CatCuentas.aspx.vb b/Contabilidad2/CatCuentas.aspx.vb
index f96e41d01..7bbd87a3c 100644
--- a/Contabilidad2/CatCuentas.aspx.vb
+++ b/Contabilidad2/CatCuentas.aspx.vb
@@ -234,7 +234,7 @@ Partial Class Contabilidad2_CatCuentas
                     DdlClientesWS.SelectedText = rowcc("Cliente").ToString().ToEntero()
                     DdlClientesWS.SelectedValue = CveCliente
                     Dim PorcentajeImpuesto As Decimal = rowcc("PorcentajeImpuesto").ToString().ToDecimal() * 100
-                    DdlClasificacion.SelectedValueExist(PorcentajeImpuesto)
+                    TxtPorcentaje.Text = (PorcentajeImpuesto)
                     CveClasificacion = rowcc("CveClasificacion").ToString().ToEntero()
                     DdlClasificacion.SelectedValueExist(CveClasificacion)
                     CveBancoCuenta = rowcc("CveBancoCuenta").ToString().ToEntero()
@@ -292,21 +292,24 @@ Partial Class Contabilidad2_CatCuentas
                                 CveConceptoAdmin:=CveConceptoAdmin, CveProveedor:=CveProveedor, CveCliente:=CveCliente, CveClasificacion:=CveClasificacion, PorcentajeImpuesto:=PorcentajeImpuesto, CveBancoCuenta:=CveBancoCuenta, CveAlmacen:=CveAlmacen) Then
 
             Dim codigo As String = DtDatos.FiltroPrimeroValor("Codigo", $"CveCuenta={IDSelected}")
-            Using ObjConta2 As New ClsContPAQi(UsuarioActual.Empresa)
+            If UsuarioActual.Empresa.TipoContabilizacion <> 1 Then
 
-                If ObjConta2.GetCuentas(-1, "-1", -1) Then
-                    Dim Id As Integer = ObjConta2.DtResultados.FiltroPrimeroValor("Id", $"Codigo='{codigo}'").ToEntero
-                    Dim IdAgrupador As Integer
+                Using ObjConta2 As New ClsContPAQi(UsuarioActual.Empresa)
 
-                    If ObjConta2.GetAgrupadoresSAT() Then
-                        IdAgrupador = ObjConta2.DtResultados.FiltroPrimeroValor("Id", $"CodigoNombre='{DdlAgrupadorSAT.SelectedItem.Text}'").ToEntero
-                    End If
-                    If Id > 0 Then
-                        If ObjConta2.UpdateCuenta(Id, Tnombre.Text, DTcuenta.SelectedValue.ToString, DcuentaMayor.SelectedValue.ToString.ToEntero, DdlMoneda.SelectedValue.ToEntero, IdAgrupador, SubCuentaDe:=Tsubcuenta.Text.Trim) > 0 Then
+                    If ObjConta2.GetCuentas(-1, "-1", -1) Then
+                        Dim Id As Integer = ObjConta2.DtResultados.FiltroPrimeroValor("Id", $"Codigo='{codigo}'").ToEntero
+                        Dim IdAgrupador As Integer
+
+                        If ObjConta2.GetAgrupadoresSAT() Then
+                            IdAgrupador = ObjConta2.DtResultados.FiltroPrimeroValor("Id", $"CodigoNombre='{DdlAgrupadorSAT.SelectedItem.Text}'").ToEntero
+                        End If
+                        If Id > 0 Then
+                            If ObjConta2.UpdateCuenta(Id, Tnombre.Text, DTcuenta.SelectedValue.ToString, DcuentaMayor.SelectedValue.ToString.ToEntero, DdlMoneda.SelectedValue.ToEntero, IdAgrupador, SubCuentaDe:=Tsubcuenta.Text.Trim) > 0 Then
+                            End If
                         End If
                     End If
-                End If
-            End Using
+                End Using
+            End If
 
             Dim customerRow As Data.DataRow
             customerRow = DtDatos.Select(String.Format("CveCuenta = {0}", IDSelected))(0)