AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
rrene
2024-05-03 16:32:56 -07:00
parent 200e0b80f6
commit b8e46c9760
2 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
General/SaldosIniciales.aspx.vb
View File

@@ -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