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

--verifica si existe columna

Browse Source
This commit is contained in:
rrene
2024-11-02 13:29:36 -07:00
parent 6fbd226497
commit 867607adc5
1 changed files with 2 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
General/SaldosIniciales.aspx.vb
View File

@@ -3061,15 +3061,14 @@ Partial Class General_SaldosIniciales
If AgrupadoresSAT.Rows.Count > 0 Then If AgrupadoresSAT.Rows.Count > 0 Then
For Each Row As DataRow In dt.Rows For Each Row As DataRow In dt.Rows
Dim Cuenta As String = Row("Cuenta").ToString().Trim.Replace("-", "") Dim Cuenta As String = Row("Cuenta").ToString().Trim.Replace("-", "")
If Cuenta <> "" Then If Cuenta <> "" Then
NombreCuenta = Row("NombreCuenta").ToString().Trim NombreCuenta = Row("NombreCuenta").ToString().Trim
CuentaPadre = Row("CuentaPadre").ToString().Trim.Replace("-", "") CuentaPadre = Row("CuentaPadre").ToString().Trim.Replace("-", "")
CodigoVinculacion = Row("CodigoVinculacion").ToString().Trim CodigoVinculacion = If(dt.Columns.Contains("CodigoVinculacion"), Row("CodigoVinculacion").ToString().Trim, "")
Dim TipoCuenta As String = Row("TipoCuenta").ToString().Trim Dim TipoCuenta As String = Row("TipoCuenta").ToString().Trim.ToUpper
Dim AgrupadorSAT As String = Row("AgrupadorSAT").ToString().Trim Dim AgrupadorSAT As String = Row("AgrupadorSAT").ToString().Trim
Dim CveCuentaPadre As Integer = -1 Dim CveCuentaPadre As Integer = -1
Dim CveAgrupadorSAT As Integer = If(AgrupadorSAT = "0", -1, AgrupadoresSAT.FiltroPrimeroValor("CveAgrupadorSAT", String.Format("CodigoNombre LIKE '%{0}%'", AgrupadorSAT)).ToEntero()) Dim CveAgrupadorSAT As Integer = If(AgrupadorSAT = "0", -1, AgrupadoresSAT.FiltroPrimeroValor("CveAgrupadorSAT", String.Format("CodigoNombre LIKE '%{0}%'", AgrupadorSAT)).ToEntero())