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

Correciones Grupos

Browse Source
This commit is contained in:
Oscar Irigoyen
2025-06-12 16:26:01 -07:00
parent bc9bf15b61
commit d81a1afc71
1 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
Bancos/PagoElectronicoGrupos.aspx.vb
View File

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