diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index 26461a676..444749611 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -6011,6 +6011,16 @@ Partial Class Bancos_IE Dim Str As New StringBuilder Dim Banco As New ClsBancos + + If Banco.GetComplementoPagosRep(-1, Now.AddYears(-2), Now, CveIE, -1, 2, UsuarioActual.CveEmpresa, -1) Then + If Not Banco.DtResultados.Rows.Count > 0 Then + Banco.Dispose() + Alert("No se generaron complementos de pago porque no hay facturas con método de pago PPD", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + End If + + Banco.IniciaTransacSQL() diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx index 9b2e5f586..1d606c9e3 100644 --- a/Compras/Compras.aspx +++ b/Compras/Compras.aspx @@ -1139,17 +1139,12 @@ -
+ + @@ -2417,12 +2401,17 @@ - + + + + + +
@@ -6660,6 +6649,28 @@ } + + function ValidaRangoDeFechas(sender, args) { + + if ($("#TxtFecha").val().length == 10 && $("#TxtFechaPago").val().length == 10) { + + let Finicio = parseInt($("#TxtFecha").val().substring(6,10)); + let FFin = parseInt($("#TxtFechaPago").val().substring(6, 10)); + + + if ((FFin - Finicio) > 5) { + args.IsValid = false; + } else { + args.IsValid = true; + } + + + } else { + args.IsValid = true; + } + + } + diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 0fe63b649..88dd7dbad 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -3955,6 +3955,10 @@ Partial Class Compras_Compras 'End If '------------------ INICIA VALIDACIONES ------------------ + + + + Dim EstatusCredito As Integer = 0 Dim CveSubProyecto As Integer = 0 'Credito Multiple diff --git a/TareasProgramadas/Tareas119.ashx b/TareasProgramadas/Tareas119.ashx index 573054243..ab9cb4640 100644 --- a/TareasProgramadas/Tareas119.ashx +++ b/TareasProgramadas/Tareas119.ashx @@ -397,12 +397,12 @@ public class TareasJam : IHttpHandler this.GuardaLog($"EjecutaThalamus: Cargando archivo excel productos a FTP. "); - CargaProductos = CargarArchivos(FInfoProductos, FTPServer, TFPUsr, FTPPass); + CargaProductos = CargarArchivos(FInfoProductos, $"{FTPServer}/Productos", TFPUsr, FTPPass); if (CargaProductos) { this.GuardaLog($"EjecutaThalamus: Verificando archivo productos. "); - CargaProductos = VerificarArchivo(FInfoProductos, FInfoProductos.Length, FTPServer, TFPUsr, FTPPass); + CargaProductos = VerificarArchivo(FInfoProductos, FInfoProductos.Length, $"{FTPServer}/Productos", TFPUsr, FTPPass); } if (CargaProductos)