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