Pago Electronico aplicar xspadding y altas solo mostrar las del banco correspondiente, ajustes cuentas deposito IE para pago electronico Scotia
This commit is contained in:
Oscar Irigoyen
@@ -1284,6 +1284,7 @@ Partial Class Bancos_IE
|
||||
ViewState("CveCliente") = "-1"
|
||||
|
||||
CargaProveedor(HdnCveProveedor.Value.ToEntero, "-1")
|
||||
CargaCuentasDepositos()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaProveedor(ByVal CveProveedor As Integer, RFC As String)
|
||||
@@ -4098,11 +4099,17 @@ Partial Class Bancos_IE
|
||||
|
||||
Dim dtc As DataTable = Nothing
|
||||
|
||||
If CveProveedor > 0 Then
|
||||
dtc = GlobalDTProveedoresCuentas(UsuarioActual.CveEmpresa, CveProveedor:=CveProveedor)
|
||||
Dim CveProveedorTemp As Integer = CveProveedor
|
||||
|
||||
If DdlProveedores.SelectedValue.ToEntero > 0 Then
|
||||
CveProveedorTemp = DdlProveedores.SelectedValue.ToEntero
|
||||
End If
|
||||
|
||||
If CveProveedorTemp > 0 Then
|
||||
dtc = GlobalDTProveedoresCuentas(UsuarioActual.CveEmpresa, CveProveedor:=CveProveedorTemp)
|
||||
ElseIf CveCliente > 0 Then
|
||||
dtc = GlobalDTCuentasDepositosClientes(UsuarioActual.CveEmpresa, CveCliente:=CveCliente)
|
||||
ElseIf cvepersonal > 0 Then
|
||||
ElseIf CvePersonal > 0 Then
|
||||
dtc = GlobalDTCuentasDepositosPersonales(UsuarioActual.CveEmpresa, CvePersonal:=CvePersonal)
|
||||
End If
|
||||
|
||||
@@ -4216,14 +4223,14 @@ Partial Class Bancos_IE
|
||||
|
||||
ElseIf OpBanco = 3 Then
|
||||
If dtc.Rows.Count > 0 Then
|
||||
DdlCuentaDeposito.DataSource = dtc.FiltraParametros("EstatusPagoElectronicoScotia = 'True' AND Estatus ='True'")
|
||||
DdlCuentaDeposito.DataSource = dtc.FiltraParametros(" Estatus ='True'")
|
||||
DdlCuentaDeposito.DataBind()
|
||||
DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1"))
|
||||
End If
|
||||
|
||||
If dtc.FiltraParametros("EstatusPagoElectronicoScotia = 'True' AND Estatus ='True'").Rows.Count > 0 Then
|
||||
If dtc.FiltraParametros(" Estatus ='True'").Rows.Count > 0 Then
|
||||
trCuentaDeposito.Visible = True
|
||||
DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1"))
|
||||
'DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1"))
|
||||
Else
|
||||
BtnGuardar.Enabled = False
|
||||
Alert("El Beneficiario no tiene una cuenta activa en Scotiabank, dela de alta o seleccione otro método de pago", TipoMensaje.MsgAdvertencia)
|
||||
@@ -4265,6 +4272,19 @@ Partial Class Bancos_IE
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
If Request("Opcion") IsNot Nothing AndAlso Request("Opcion").ToString.Contiene("EGSSINFACT", "EGSCREDITO") Then
|
||||
If DdlTipoTransaccion.SelectedValue.Contiene("9") AndAlso OpBanco = 3 Then
|
||||
RBL.Items(1).Enabled = False
|
||||
RBL.Items(2).Enabled = False
|
||||
Else
|
||||
RBL.Items(1).Enabled = True
|
||||
RBL.Items(2).Enabled = True
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
UPPP.Update()
|
||||
UpGuardar.Update()
|
||||
UpCuentaDeposito.Update()
|
||||
UpDatos.Update()
|
||||
@@ -4500,6 +4520,7 @@ Partial Class Bancos_IE
|
||||
DdlProveedores_selectedindexchange(DdlProveedores, Nothing)
|
||||
DdlProveedores.SelectedText = RazonSocial
|
||||
' BuscaCargaProveedor()
|
||||
|
||||
End If
|
||||
CveOCSolicitudAnticipo = DrOC("CveOC").ToString.ToEntero
|
||||
Else
|
||||
|
||||
@@ -60,7 +60,7 @@
|
||||
<div class="col-md-6">
|
||||
<asp:UpdatePanel runat="server" ID="UpComandosGeneracion" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<div class="portlet light smmallpadding bordered">
|
||||
<div class="portlet light xspadding bordered">
|
||||
<div class="portlet-title">
|
||||
<div class="caption font-green">
|
||||
<i class="icon-pin font-green"></i>
|
||||
@@ -79,7 +79,7 @@
|
||||
<div class="row" style="margin-left: 0px; margin-right: 0px;">
|
||||
|
||||
<div class="col-md-6">
|
||||
<div class="portlet light smmallpadding bordered">
|
||||
<div class="portlet light xspadding bordered">
|
||||
<div class="portlet-title">
|
||||
<div class="caption font-green">
|
||||
<i class="icon-pin font-green"></i>
|
||||
@@ -127,7 +127,7 @@
|
||||
</div>
|
||||
|
||||
<div class="col-md-6">
|
||||
<div class="portlet light smmallpadding bordered">
|
||||
<div class="portlet light xspadding bordered">
|
||||
<div class="portlet-title">
|
||||
<div class="caption font-green">
|
||||
<i class="icon-pin font-green"></i>
|
||||
@@ -178,7 +178,7 @@
|
||||
|
||||
<div class="col-md-6">
|
||||
|
||||
<div class="portlet light smmallpadding bordered">
|
||||
<div class="portlet light xspadding bordered">
|
||||
<div class="portlet-title">
|
||||
<div class="caption font-green">
|
||||
<i class="icon-pin font-green"></i>
|
||||
|
||||
@@ -277,6 +277,8 @@ Partial Class Bancos_PagoElectronico
|
||||
|
||||
If DTPendientes IsNot Nothing AndAlso DTPendientes.Rows.Count > 0 Then
|
||||
CargaDatosInformativos()
|
||||
Else
|
||||
VistaComandoGeneracion()
|
||||
End If
|
||||
|
||||
End Sub
|
||||
@@ -946,7 +948,7 @@ Partial Class Bancos_PagoElectronico
|
||||
|
||||
Dim correo As String = dr("Correo").ToString.Trim
|
||||
If correo.Trim.Length = 0 Then
|
||||
SBErrores.Append($"Email no definido en fila {idx + 1}. Debe ser un correo electrónico válido.<br>")
|
||||
SBErrores.Append($" {nombreBen} Email no definido en fila {idx + 1}. Debe ser un correo electrónico válido.<br>")
|
||||
ErrorLayout = True
|
||||
End If
|
||||
|
||||
|
||||
Reference in New Issue
Block a user