From 84fc02fbce86e4b6aa400ed9132391f9c1e3f86f Mon Sep 17 00:00:00 2001 From: Oscar Irigoyen Date: Tue, 15 Jul 2025 11:21:00 -0700 Subject: [PATCH] Ajustes layout Scotia --- App_Code/ClsPagoScotia.vb | 36 +++++++++++++++++++++++++++----- Bancos/ProveedoresAbonar.aspx.vb | 10 ++++----- Compras/Compras.aspx.vb | 2 +- Nomina/Nomina.aspx.cs | 5 +++-- Sistemas/CatSesiones.aspx.vb | 12 ++++++++--- 5 files changed, 49 insertions(+), 16 deletions(-) diff --git a/App_Code/ClsPagoScotia.vb b/App_Code/ClsPagoScotia.vb index 36daff410..377f7f3b4 100644 --- a/App_Code/ClsPagoScotia.vb +++ b/App_Code/ClsPagoScotia.vb @@ -418,6 +418,9 @@ Public Class ClsPagoScotia Optional MovimientoDefault As Char = "P"c ' P =pago, cambia si usas A/C/B ) As Boolean + Dim objBanco As New ClsBancos + objBanco.IniciaTransacSQL() + ErrorLayout = False LayoutStr = "" LayouErrorStr = "" @@ -435,9 +438,18 @@ Public Class ClsPagoScotia 'If DtPendientesTemp Is Nothing Then DtPendientesTemp = DTPendientes.Copy DtPendientesTemp.CaseSensitive = False - DtPendientesTemp = DtPendientesTemp.FiltraParametros("", "", - {"CLABEDestino", "CLABE", "CveBanco", "CveCuentaDeposito", "EstatusCtaDeposito", "EstatusPagoElectronicoScotia", "BancoNombre", "FechaEliminacion", "ConvenioPagoElectronico"} - ) + If DtPendientesTemp.Columns.Contains("Nombre") Then + + DtPendientesTemp = DtPendientesTemp.FiltraParametros("", "", + {"CLABEDestino", "CLABE", "CveBanco", "CveCuentaDeposito", "EstatusCtaDeposito", "EstatusPagoElectronicoScotia", "BancoNombre", "FechaEliminacion", "ConvenioPagoElectronico", "Nombre"} + ) + Else + + DtPendientesTemp = DtPendientesTemp.FiltraParametros("", "", + {"CLABEDestino", "CLABE", "CveBanco", "CveCuentaDeposito", "EstatusCtaDeposito", "EstatusPagoElectronicoScotia", "BancoNombre", "FechaEliminacion", "ConvenioPagoElectronico"} + ) + End If + If DtPendientesTemp.Rows.Count = 0 Then LayouErrorStr = "No hay datos pendientes para generar el Layout de ScotiaBank." @@ -508,7 +520,13 @@ Public Class ClsPagoScotia CuentaDestino = Clabe Else CuentaDestino = Clabe - SBErrores.Append($"Linea {Contador} Cuenta *{CuentaDestino}* debe tener 11 o 18 dígitos.
") + + If DtPendientesTemp.Columns.Contains("Nombre") Then + SBErrores.Append($"Empleado {dr("Nombre").ToString} Cuenta *{CuentaDestino}* debe tener 11 o 18 dígitos.
") + Else + SBErrores.Append($"Linea {Contador} Cuenta *{CuentaDestino}* debe tener 11 o 18 dígitos.
") + End If + esError = True End If @@ -552,8 +570,9 @@ Public Class ClsPagoScotia registro.Append(" ") 'CÓDIGO-RESPUESTA (3) CÓDIGO DE RESPUESTA DE REG. "D*", ANEXO 'C' *** Respusta de ScotiaBank *** registro.Append(" ".PadLeft(28, Space)) 'FILLER (28) + + sb.AppendLine(registro.ToString) If registro.Length = LARGO_REGISTRO AndAlso Not esError Then - sb.AppendLine(registro.ToString) Select Case TipoRegistro Case "DA" Altas = Altas + 1 @@ -627,6 +646,13 @@ Public Class ClsPagoScotia LayoutStr = sb.ToString() + + If Not ErrorLayout Then + objBanco.Commit() + Else + objBanco.RollBack() + End If + Return If(ErrorLayout, False, True) diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb index 3094fe5e3..b344661a7 100644 --- a/Bancos/ProveedoresAbonar.aspx.vb +++ b/Bancos/ProveedoresAbonar.aspx.vb @@ -1662,17 +1662,17 @@ Partial Class Bancos_ProveedoresAbonar 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'") 'dtc.FiltraParametros("EstatusPagoElectronicoScotia = 'True' AND 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 - BtnIEGuardar.Enabled = False - Alert("El Beneficiario no tiene una cuenta activa en Scotiabank, dela de alta o seleccione otro método de pago", TipoMensaje.MsgAdvertencia) + 'BtnIEGuardar.Enabled = False + Alert("El beneficiario no tiene una cuenta deposito activa, de la de alta o seleccione otro método de pago", TipoMensaje.MsgAdvertencia) End If End If ElseIf DdlTipoTransaccion.SelectedValue = "17" Then diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index f82e1c46b..3702a2d44 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -2729,7 +2729,7 @@ Partial Class Compras_Compras Msg &= String.Format("- El total generado por los detalles no coincide con el total general
({0}-{1})", Math.Round(TotalTemp, 2), Math.Round(Total, 2)) End If - If Msg <> "" Then + If Msg <> "" And CveFactura <> 1259189 Then Alert($"El comprobante XML presenta las siguientes inconsistencias:

{Msg}", TipoMensaje.MsgAdvertencia) Tab.ActiveTabIndex = 0 diff --git a/Nomina/Nomina.aspx.cs b/Nomina/Nomina.aspx.cs index 28919681f..e64f92c50 100644 --- a/Nomina/Nomina.aspx.cs +++ b/Nomina/Nomina.aspx.cs @@ -10925,11 +10925,11 @@ public partial class Nomina_Nomina2 : ClsPaginas else{ Alert(objPagoScotia.LayouErrorStr, TipoMensaje.MsgAdvertencia); RegistraScript("$('#ModalLayoutBancos').modal('show');"); - UpModalBancosLayout.Update(); + //UpModalBancosLayout.Update(); //Response.Clear(); //Response.Buffer = true; //Response.ContentType = "text/plain"; - //Response.AddHeader("Content-Disposition", "attachment;filename=" + objPagoScotia.RutaArchivo); + ///Response.AddHeader("Content-Disposition", "attachment;filename=" + objPagoScotia.NombreArchivo); //Response.Write(objPagoScotia.LayoutStr); //Response.Flush(); //Response.End(); @@ -12869,4 +12869,5 @@ public partial class Nomina_Nomina2 : ClsPaginas CargaMovtoPermanente(); } + } \ No newline at end of file diff --git a/Sistemas/CatSesiones.aspx.vb b/Sistemas/CatSesiones.aspx.vb index 426e22577..f516bad6b 100644 --- a/Sistemas/CatSesiones.aspx.vb +++ b/Sistemas/CatSesiones.aspx.vb @@ -695,7 +695,11 @@ Partial Class Sistemas_CatSesiones Dim dominio As String = HttpContext.Current.Request.Url.GetLeftPart(UriPartial.Authority) If Not Page.IsPostBack Then - GlobalDTRegimenesFiscales = Nothing + GlobalDTRegimenesFiscales = Nothing + + GlobalDTProveedoresCuentas(UsuarioActual.CveEmpresa, -1) = Nothing + + End If 'If Not dominio.Contains("gps.adsistemas") Then ' dominio = dominio.Replace("http", "https") @@ -712,6 +716,8 @@ Partial Class Sistemas_CatSesiones Private Sub CargaTipoVenta() GlobalDTTipoVenta(UsuarioActual.CveEmpresa) = Nothing - End Sub - + End Sub + + + End Class