diff --git a/Bancos/PagoElectronicoGrupos.aspx.vb b/Bancos/PagoElectronicoGrupos.aspx.vb index d6981455e..06fabcddc 100644 --- a/Bancos/PagoElectronicoGrupos.aspx.vb +++ b/Bancos/PagoElectronicoGrupos.aspx.vb @@ -379,12 +379,8 @@ Partial Class Bancos_PagoElectronicoGrupos DTPendientes = Nothing End If - - ObjBancos.Dispose() - - If DTPendientes IsNot Nothing AndAlso DTPendientes.Rows.Count > 0 Then CargaDatosInformativos() Else @@ -436,18 +432,20 @@ Partial Class Bancos_PagoElectronicoGrupos '–– Determina si la cuenta ya está **habilitada** para el banco elegido en la pantalla ––' Dim habilitada As Boolean Select Case True - Case DdlCuenta.SelectedItem.Text.ToUpper.Contains("BANCOMER") _ - OrElse DdlCuenta.SelectedItem.Text.ToUpper.Contains("BBVA") + Case DdlCuenta.SelectedItem.Text.ToUpper.Contains("BANCOMER") OrElse DdlCuenta.SelectedItem.Text.ToUpper.Contains("BBVA") + habilitada = (dr("EstatusPagoElectronicoGrupos").ToString = "True") Case DdlCuenta.SelectedItem.Text.ToUpper.Contains("BAJIO") + habilitada = (dr("EstatusPagoElectronicoGruposBajio").ToString = "True") Case DdlCuenta.SelectedItem.Text.ToUpper.Contains("SCOTIA") + habilitada = (dr("EstatusPagoElectronicoGruposScotia").ToString = "True") Case Else - habilitada = False 'Otros bancos → sin bandera propia + habilitada = False 'Otros bancos sin bandera propia End Select If Not habilitada Then @@ -468,6 +466,8 @@ Partial Class Bancos_PagoElectronicoGrupos Case Else Interbancarias += 1 End Select + Else + Movimientos += 1 End If ' 3. MOVIMIENTOS de cuentas ya existentes