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

Pago Electronico aplicar xspadding y altas solo mostrar las del banco correspondiente, ajustes cuentas deposito IE para pago electronico Scotia

Browse Source
This commit is contained in:
Oscar Irigoyen
2025-07-03 08:56:19 -07:00
parent b633f775cc
commit a829ed22b4
3 changed files with 34 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
Bancos/IE.aspx.vb
View File

@@ -1284,6 +1284,7 @@ Partial Class Bancos_IE
ViewState("CveCliente") = "-1" ViewState("CveCliente") = "-1"
CargaProveedor(HdnCveProveedor.Value.ToEntero, "-1") CargaProveedor(HdnCveProveedor.Value.ToEntero, "-1")
CargaCuentasDepositos()
End Sub End Sub
Private Sub CargaProveedor(ByVal CveProveedor As Integer, RFC As String) Private Sub CargaProveedor(ByVal CveProveedor As Integer, RFC As String)
@@ -4098,11 +4099,17 @@ Partial Class Bancos_IE
Dim dtc As DataTable = Nothing Dim dtc As DataTable = Nothing
If CveProveedor > 0 Then Dim CveProveedorTemp As Integer = CveProveedor
dtc = GlobalDTProveedoresCuentas(UsuarioActual.CveEmpresa, CveProveedor:=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 ElseIf CveCliente > 0 Then
dtc = GlobalDTCuentasDepositosClientes(UsuarioActual.CveEmpresa, CveCliente:=CveCliente) dtc = GlobalDTCuentasDepositosClientes(UsuarioActual.CveEmpresa, CveCliente:=CveCliente)
ElseIf cvepersonal > 0 Then ElseIf CvePersonal > 0 Then
dtc = GlobalDTCuentasDepositosPersonales(UsuarioActual.CveEmpresa, CvePersonal:=CvePersonal) dtc = GlobalDTCuentasDepositosPersonales(UsuarioActual.CveEmpresa, CvePersonal:=CvePersonal)
End If End If
@@ -4216,14 +4223,14 @@ Partial Class Bancos_IE
ElseIf OpBanco = 3 Then ElseIf OpBanco = 3 Then
If dtc.Rows.Count > 0 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.DataBind()
DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1")) DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1"))
End If 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 trCuentaDeposito.Visible = True
DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1")) 'DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1"))
Else Else
BtnGuardar.Enabled = False 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) 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
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() UpGuardar.Update()
UpCuentaDeposito.Update() UpCuentaDeposito.Update()
UpDatos.Update() UpDatos.Update()
@@ -4500,6 +4520,7 @@ Partial Class Bancos_IE
DdlProveedores_selectedindexchange(DdlProveedores, Nothing) DdlProveedores_selectedindexchange(DdlProveedores, Nothing)
DdlProveedores.SelectedText = RazonSocial DdlProveedores.SelectedText = RazonSocial
' BuscaCargaProveedor() ' BuscaCargaProveedor()
End If End If
CveOCSolicitudAnticipo = DrOC("CveOC").ToString.ToEntero CveOCSolicitudAnticipo = DrOC("CveOC").ToString.ToEntero
Else Else

8
Bancos/PagoElectronico.aspx
View File

@@ -60,7 +60,7 @@
<div class="col-md-6"> <div class="col-md-6">
<asp:UpdatePanel runat="server" ID="UpComandosGeneracion" UpdateMode="Conditional"> <asp:UpdatePanel runat="server" ID="UpComandosGeneracion" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<div class="portlet light smmallpadding bordered"> <div class="portlet light xspadding bordered">
<div class="portlet-title"> <div class="portlet-title">
<div class="caption font-green"> <div class="caption font-green">
<i class="icon-pin font-green"></i> <i class="icon-pin font-green"></i>
@@ -79,7 +79,7 @@
<div class="row" style="margin-left: 0px; margin-right: 0px;"> <div class="row" style="margin-left: 0px; margin-right: 0px;">
<div class="col-md-6"> <div class="col-md-6">
<div class="portlet light smmallpadding bordered"> <div class="portlet light xspadding bordered">
<div class="portlet-title"> <div class="portlet-title">
<div class="caption font-green"> <div class="caption font-green">
<i class="icon-pin font-green"></i> <i class="icon-pin font-green"></i>
@@ -127,7 +127,7 @@
</div> </div>
<div class="col-md-6"> <div class="col-md-6">
<div class="portlet light smmallpadding bordered"> <div class="portlet light xspadding bordered">
<div class="portlet-title"> <div class="portlet-title">
<div class="caption font-green"> <div class="caption font-green">
<i class="icon-pin font-green"></i> <i class="icon-pin font-green"></i>
@@ -178,7 +178,7 @@
<div class="col-md-6"> <div class="col-md-6">
<div class="portlet light smmallpadding bordered"> <div class="portlet light xspadding bordered">
<div class="portlet-title"> <div class="portlet-title">
<div class="caption font-green"> <div class="caption font-green">
<i class="icon-pin font-green"></i> <i class="icon-pin font-green"></i>

4
Bancos/PagoElectronico.aspx.vb
View File

@@ -277,6 +277,8 @@ Partial Class Bancos_PagoElectronico
If DTPendientes IsNot Nothing AndAlso DTPendientes.Rows.Count > 0 Then If DTPendientes IsNot Nothing AndAlso DTPendientes.Rows.Count > 0 Then
CargaDatosInformativos() CargaDatosInformativos()
Else
VistaComandoGeneracion()
End If End If
End Sub End Sub
@@ -946,7 +948,7 @@ Partial Class Bancos_PagoElectronico
Dim correo As String = dr("Correo").ToString.Trim Dim correo As String = dr("Correo").ToString.Trim
If correo.Trim.Length = 0 Then 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 ErrorLayout = True
End If End If