From dc56c25900db9b9021b1e9fddf2d619d717dfbee Mon Sep 17 00:00:00 2001
From: Rene Molina <rrene33@hotmail.com>
Date: Wed, 11 Sep 2019 17:12:44 -0700
Subject: [PATCH] cambios en ajuste de cuentas

---
 Compras/Proveedores.aspx.vb | 26 ++++++++++++++++++++------
 1 file changed, 20 insertions(+), 6 deletions(-)

diff --git a/Compras/Proveedores.aspx.vb b/Compras/Proveedores.aspx.vb
index 085417382..c65a64af2 100644
--- a/Compras/Proveedores.aspx.vb
+++ b/Compras/Proveedores.aspx.vb
@@ -1091,7 +1091,7 @@ Partial Class Compras_Proveedores
 
         Select Case HdnCuenta.Value
             Case "1"
-                CargaCuentasDDL(DdlCtaContProveedores, 201)
+                CargaCuentasDDL(DdlCtaContProveedores, If(DdlCveTipoProveedor.SelectedValue = "2", 202, 201))
             Case "2"
                 CargaCuentasDDL(DdlCtaContAnticipos, 204)
             Case "3"
@@ -1299,7 +1299,13 @@ Partial Class Compras_Proveedores
                 ObjContaAC = New ClsContPAQi(UsuarioActual.Empresa)
                 ObjContaAC.IniciaTransacSQL()
 
-                IdCuentaContable = ObjContaAC.AddSiguienteCuentaHijo(UsuarioActual.Empresa.Funcionalidad(201).ToEntero, TxtRazonSocial.Text.Trim, "D", 2)
+                Dim ClaveFuncionalidad As Integer = UsuarioActual.Empresa.Funcionalidad(201).ToEntero
+                If DdlCveTipoProveedor.SelectedValue = "2" Then 'cuando es acreedor
+                    ClaveFuncionalidad = UsuarioActual.Empresa.Funcionalidad(202).ToEntero
+                End If
+
+
+                IdCuentaContable = ObjContaAC.AddSiguienteCuentaHijo(ClaveFuncionalidad, TxtRazonSocial.Text.Trim, "D", 2)
                 If IdCuentaContable > 0 Then
 
                     ObjContaAC.GetCuentas(IdCuentaContable, "-1", -1)
@@ -1396,10 +1402,13 @@ Partial Class Compras_Proveedores
                     Next
                 End If
 
-                If Not AsignaCuentasAutomaticas(ObjProveedores, NuevoCveProveedor) Then
-                    ErrorCuentasContables = True
+                If UsuarioActual.CveEmpresa = 119 Then
+                    If Not AsignaCuentasAutomaticas(ObjProveedores, NuevoCveProveedor) Then
+                        ErrorCuentasContables = True
+                    End If
                 End If
 
+
                 ''Agrega Sucursales
                 If TempDTSucursales.Rows.Count > 0 Then
                     For Each row As DataRow In TempDTSucursales.Rows
@@ -3684,7 +3693,9 @@ Partial Class Compras_Proveedores
 
             '' 17/03/2017 FUNCIONALIDADES 249,250,251
             '' Proveedores
-            If DdlCtaContProveedores.SelectedValue.ToEntero <= 0 And UsuarioActual.Empresa.Funcionalidad(201).ToEntero > 0 Then
+            Dim ClaveFuncionalidad As Integer = UsuarioActual.Empresa.Funcionalidad(201).ToEntero
+            If DdlCveTipoProveedor.SelectedValue = "2" Then ClaveFuncionalidad = UsuarioActual.Empresa.Funcionalidad(202).ToEntero
+            If DdlCtaContProveedores.SelectedValue.ToEntero <= 0 And ClaveFuncionalidad > 0 Then
                 DdlCtaContProveedores.Width = 175
                 BtnActivaRegistroProveedores.Visible = True
 
@@ -3866,7 +3877,7 @@ Partial Class Compras_Proveedores
 
             Select Case btn.CommandArgument.ToString
                 Case "Proveedores"
-                    CuentaPadre = UsuarioActual.Empresa.Funcionalidad(201).ToEntero
+                    CuentaPadre = If(DdlCveTipoProveedor.SelectedValue = "2", UsuarioActual.Empresa.Funcionalidad(202).ToEntero, UsuarioActual.Empresa.Funcionalidad(201).ToEntero)
                 Case "Acreedores"
                     CuentaPadre = UsuarioActual.Empresa.Funcionalidad(202).ToEntero
                 Case "DocsXPagar"
@@ -5534,6 +5545,7 @@ Partial Class Compras_Proveedores
     End Sub
 #End Region
     Protected Sub DdlCveTipoProveedor_SelectedIndexChanged(sender As Object, e As EventArgs)
+
         If UsuarioActual.Empresa.Funcionalidad(544).ToString = "1" Then
             TxtCodigo.Enabled = True
             TxtCodigo.Text = ""
@@ -5568,6 +5580,8 @@ Partial Class Compras_Proveedores
                 Alert("No tiene registrados Folios Automáticos.", TipoMensaje.MsgAdvertencia)
             End If
         End If
+        ObjSub.Dispose()
+        ObjFolios.Dispose()
     End Sub
     Protected Sub LblB_Click(sender As Object, e As EventArgs)
         Dim GvRow As GridViewRow = CType(((CType(sender, LinkButton)).NamingContainer), GridViewRow)