From b8e46c976090ed87c417791201f06721f6b8697a Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Fri, 3 May 2024 16:32:56 -0700
Subject: [PATCH] =?UTF-8?q?--=20columna=20nueva=20de=20la=20cuenta=20C?=
 =?UTF-8?q?=C3=B3digoVinculaci=C3=B3n,=20para=20mandar=20all=C3=AD=20el=20?=
 =?UTF-8?q?c=C3=B3digo=20de=20la=20cuenta=20para=20carga=20de=20saldos=20i?=
 =?UTF-8?q?niciales?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 App_Code/ClsContabilidad.vb     | 3 ++-
 General/SaldosIniciales.aspx.vb | 4 +++-
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb
index 9afc08dcc..10d58a750 100644
--- a/App_Code/ClsContabilidad.vb
+++ b/App_Code/ClsContabilidad.vb
@@ -4603,7 +4603,7 @@ Public Class ClsContabilidad
     Public Function AddCuenta(CvePadre As Integer, Codigo As String, Nombre As String, Tipo As String, CtaMayor As Integer, CveMoneda As Integer, Optional DigAgrupador As Integer = -1,
                               Optional CveAgrupadorSAT As Integer = -1, Optional NomIdioma As String = "", Optional CveEmpresaParam As Integer = -1, Optional CveConceptoAdmin As Integer = -1,
                               Optional CveProveedor As Integer = -1, Optional CveCliente As Integer = -1, Optional CveClasificacion As Integer = -1, Optional PorcentajeImpuesto As Decimal = -1,
-                              Optional CveBancoCuenta As Integer = -1, Optional IdCompaq As Integer = -1) As Integer
+                              Optional CveBancoCuenta As Integer = -1, Optional IdCompaq As Integer = -1, Optional CodigoVinculacion As String = "") As Integer
         Dim Retorno As Integer = 0
         DataAdapter("PA_Conta_CuentasAdd")
 
@@ -4625,6 +4625,7 @@ Public Class ClsContabilidad
             .Add("@PorcentajeImpuesto", SqlDbType.Money).Value = PorcentajeImpuesto
             .Add("@CveBancoCuenta", SqlDbType.Int).Value = CveBancoCuenta
             .Add("@IdCompaq", SqlDbType.Int).Value = IdCompaq
+            .Add("@CodigoVinculacion", SqlDbType.VarChar).Value = CodigoVinculacion
 
             '.Add("@CveCuenta", SqlDbType.Int).Value = 0
             '.Add("@Error", SqlDbType.VarChar).Value = ""
diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb
index 11846cb70..78e133442 100644
--- a/General/SaldosIniciales.aspx.vb
+++ b/General/SaldosIniciales.aspx.vb
@@ -2342,6 +2342,7 @@ Partial Class General_SaldosIniciales
                     Dim ContadorError As Integer = 0
                     Dim NombreCuenta As String = ""
                     Dim CuentaPadre As String = ""
+                    Dim CodigoVinculacion As String = ""
 
                     Dim AgrupadoresSAT As DataTable = New DataTable
                     If ObjConta.GetAgrupadoresSAT() Then
@@ -2356,6 +2357,7 @@ Partial Class General_SaldosIniciales
                             If Cuenta <> "" Then
                                 NombreCuenta = Row("NombreCuenta").ToString().Trim
                                 CuentaPadre = Row("CuentaPadre").ToString().Trim.Replace("-", "")
+                                CodigoVinculacion = Row("CodigoVinculacion").ToString().Trim
 
                                 Dim TipoCuenta As String = Row("TipoCuenta").ToString().Trim
                                 Dim AgrupadorSAT As String = Row("AgrupadorSAT").ToString().Trim
@@ -2378,7 +2380,7 @@ Partial Class General_SaldosIniciales
                                     CveCuentaPadre = -2
                                 End If
 
-                                Dim IdNew As Integer = ObjConta.AddCuenta(CveCuentaPadre, Cuenta.Replace("-", ""), NombreCuenta, TipoCuenta, 1, 1, CveEmpresaParam:=UsuarioActual.CveEmpresa, CveAgrupadorSAT:=CveAgrupadorSAT)
+                                Dim IdNew As Integer = ObjConta.AddCuenta(CveCuentaPadre, Cuenta.Replace("-", ""), NombreCuenta, TipoCuenta, 1, 1, CveEmpresaParam:=UsuarioActual.CveEmpresa, CveAgrupadorSAT:=CveAgrupadorSAT, CodigoVinculacion:=CodigoVinculacion)
                                 If IdNew > 0 Then
                                     ContadorUpdate = ContadorUpdate + 1
                                 Else