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

pagoelectronico grupos

Browse Source
This commit is contained in:
Rakcsle Supertramp
2020-06-18 17:53:15 -07:00
parent 3f40d9b4da
commit 904a5345d5
9 changed files with 504 additions and 150 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
Bancos/IE.aspx.vb
View File

@@ -573,6 +573,7 @@ Partial Class Bancos_IE
CveCredito = IfNull(Request("CveCredito"), "-1").ToString.ToEntero
CveCreditoDetalle = IfNull(Request("CveCreditoDetalle"), "-1").ToString.ToEntero
LtlTitulo.Text = "Pago de Créditos"
CveIE = -1
DVInteresMoratorio.Visible = True
@@ -4642,7 +4643,7 @@ Partial Class Bancos_IE
Dim Dep As New ClsGenerales
If Dep.GetCuentasDepositos(CveProveedor:=CveProveedor, CveCliente:=CveCliente, CvePersonal:=CvePersonal) Then
If DdlTipoTransaccion.SelectedValue = "9" And CveIE = Nothing Then
If DdlTipoTransaccion.SelectedValue = "9" And CveIE <= -1 Then
DdlCuentaDeposito.DataSource = Dep.DtResultados.FiltraParametros("EstatusPagoElectronico = 'True' AND Estatus ='True'")
@@ -4653,7 +4654,7 @@ Partial Class Bancos_IE
Alert("El Beneficiario no tiene una cuenta activa en BBVA, dela de alta o seleccione otro método de pago", TipoMensaje.MsgAdvertencia)
End If
ElseIf DdlTipoTransaccion.SelectedValue = "17" And CveIE = Nothing Then
ElseIf DdlTipoTransaccion.SelectedValue = "17" And CveIE <= -1 Then
If Dep.DtResultados.Rows.Count > 0 Then
@@ -4685,7 +4686,7 @@ Partial Class Bancos_IE
Else
If DdlTipoTransaccion.SelectedValue.Contiene("9", "17") And CveIE = Nothing Then
If DdlTipoTransaccion.SelectedValue.Contiene("9", "17") And CveIE <= -1 Then
BtnGuardar.Enabled = False
Alert("El proveedor no tiene cuentas deposito.", TipoMensaje.MsgAdvertencia)