Pago Electronico Grupos 2020-06-12

Bancos/PopIECompras.aspx.vb

@@ -943,7 +943,25 @@ Partial Class Bancos_PopIECompras
                     Else
                         BtnGuardar.Enabled = False
                         Alert("El Beneficiario no tiene una cuenta activa en BBVA, dela de alta o seleccione otro método de pago", TipoMensaje.MsgAdvertencia)
-                    End If
+                    End If
+
+                ElseIf DdlTipoTransaccion.SelectedValue = "17" Then
+
+
+                    If Dep.DtResultados.Rows.Count > 0 Then
+                        DdlCuentaDeposito.DataSource = Dep.DtResultados
+                        trCuentaDeposito.Visible = True
+                        BtnGuardar.ToolTip = ""
+                    Else
+
+                        BtnGuardar.Enabled = False
+                        BtnGuardar.ToolTip = "El proveedor no tiene cuentas deposito"
+
+                    End If
+
+
+                    UpGuardar.Update()
+
 
                 Else
                     DdlCuentaDeposito.DataSource = Dep.DtResultados.FiltraParametros("Estatus ='True'")
@@ -951,7 +969,20 @@ Partial Class Bancos_PopIECompras
                         trCuentaDeposito.Visible = True
                         DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1"))
                     End If
-                End If
+                End If
+            Else
+
+                If DdlTipoTransaccion.SelectedValue.Contiene("9", "17") Then
+
+                    BtnGuardar.Enabled = False
+                    BtnGuardar.ToolTip = "El proveedor no tiene cuentas deposito"
+                Else
+                    trCuentaDeposito.Visible = True
+                    BtnGuardar.Enabled = True
+                    BtnGuardar.ToolTip = ""
+                End If
+
+                UpGuardar.Update()
 
             End If
             Dep.Dispose()