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

3
App_Code/ClsContabilidad.vb
View File

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

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