From 867607adc50d98d2645ea1667296cb16c8ade4ce Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 2 Nov 2024 13:29:36 -0700 Subject: [PATCH] --verifica si existe columna --- General/SaldosIniciales.aspx.vb | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb index 073f60a19..b04588b00 100644 --- a/General/SaldosIniciales.aspx.vb +++ b/General/SaldosIniciales.aspx.vb @@ -3061,15 +3061,14 @@ Partial Class General_SaldosIniciales If AgrupadoresSAT.Rows.Count > 0 Then - For Each Row As DataRow In dt.Rows Dim Cuenta As String = Row("Cuenta").ToString().Trim.Replace("-", "") If Cuenta <> "" Then NombreCuenta = Row("NombreCuenta").ToString().Trim 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 CveCuentaPadre As Integer = -1 Dim CveAgrupadorSAT As Integer = If(AgrupadorSAT = "0", -1, AgrupadoresSAT.FiltroPrimeroValor("CveAgrupadorSAT", String.Format("CodigoNombre LIKE '%{0}%'", AgrupadorSAT)).ToEntero())