-- columna nueva de la cuenta CódigoVinculación, para mandar allí el código de la cuenta para carga de saldos iniciales

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 = ""

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