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

Ajustes layout Scotia

Browse Source
This commit is contained in:
Oscar Irigoyen
2025-07-15 11:21:00 -07:00
parent 50e4e2a81a
commit 84fc02fbce
5 changed files with 49 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
App_Code/ClsPagoScotia.vb
View File

@@ -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.<br>")
If DtPendientesTemp.Columns.Contains("Nombre") Then
SBErrores.Append($"Empleado {dr("Nombre").ToString} Cuenta *{CuentaDestino}* debe tener 11 o 18 dígitos.<br>")
Else
SBErrores.Append($"Linea {Contador} Cuenta *{CuentaDestino}* debe tener 11 o 18 dígitos.<br>")
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)

10
Bancos/ProveedoresAbonar.aspx.vb
View File

@@ -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

2
Compras/Compras.aspx.vb
View File

@@ -2729,7 +2729,7 @@ Partial Class Compras_Compras
Msg &= String.Format("- El total generado por los detalles no coincide con el total general <br> ({0}-{1})", Math.Round(TotalTemp, 2), Math.Round(Total, 2))
End If
If Msg <> "" Then
If Msg <> "" And CveFactura <> 1259189 Then
Alert($"<b>El comprobante XML presenta las siguientes inconsistencias:</b> <br><br> {Msg}", TipoMensaje.MsgAdvertencia)
Tab.ActiveTabIndex = 0

5
Nomina/Nomina.aspx.cs
View File

@@ -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();
}
}

12
Sistemas/CatSesiones.aspx.vb
View File

@@ -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