Pago Electronico Grupos

This commit is contained in:
Rakcsle Supertramp
2020-06-16 11:47:41 -07:00
parent 5312d055ba
commit ac1235240d
2 changed files with 92 additions and 44 deletions

View File

@@ -4642,7 +4642,7 @@ Partial Class Bancos_IE
Dim Dep As New ClsGenerales
If Dep.GetCuentasDepositos(CveProveedor:=CveProveedor, CveCliente:=CveCliente, CvePersonal:=CvePersonal) Then
If DdlTipoTransaccion.SelectedValue = "9" Then
If DdlTipoTransaccion.SelectedValue = "9" And CveIE = Nothing Then
DdlCuentaDeposito.DataSource = Dep.DtResultados.FiltraParametros("EstatusPagoElectronico = 'True' AND Estatus ='True'")
@@ -4653,7 +4653,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" Then
ElseIf DdlTipoTransaccion.SelectedValue = "17" And CveIE = Nothing Then
If Dep.DtResultados.Rows.Count > 0 Then
@@ -4685,7 +4685,7 @@ Partial Class Bancos_IE
Else
If DdlTipoTransaccion.SelectedValue.Contiene("9", "17") Then
If DdlTipoTransaccion.SelectedValue.Contiene("9", "17") And CveIE = Nothing Then
BtnGuardar.Enabled = False
Alert("El proveedor no tiene cuentas deposito.", TipoMensaje.MsgAdvertencia)