From fb4541e131b7635f87e6ce5d6b53049d3673da40 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 21 Apr 2025 12:38:34 -0700 Subject: [PATCH] - --- Ashx/E140.ashx | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/Ashx/E140.ashx b/Ashx/E140.ashx index 1ad9449bc..2445fbc2c 100644 --- a/Ashx/E140.ashx +++ b/Ashx/E140.ashx @@ -132,7 +132,8 @@ Public Class E140 : Implements IHttpHandler, IRequiresSessionState Dim data As New JArray Dim dtt As New DataTable Dim ObjVentas As New ClsVentas - If ObjVentas.GetRepRemisionesSinFacturar(Now.AddYears(-2).ToShortDateString, Now.ToShortDateString, Now.ToShortDateString, CveSubProyecto, -1, -1, "-1", CveEmpresa, CveUsuarioConsulta:=100, PrimerProducto:=True) Then + Dim FechaInicio As String = Now.AddYears(-2).ToShortDateString + If ObjVentas.GetRepRemisionesSinFacturar(FechaInicio, Now.AddDays(1).ToShortDateString, Now.AddDays(1).ToShortDateString, CveSubProyecto, -1, -1, "-1", CveEmpresa, CveUsuarioConsulta:=100, PrimerProducto:=True) Then dtt = ObjVentas.DtResultados.FiltraParametros("CveVenta > 0") End If ObjVentas.Dispose() @@ -296,6 +297,7 @@ Public Class E140 : Implements IHttpHandler, IRequiresSessionState End If Else TieneError = True + MsgError = "Falta información para completar la venta." End If End If If Not TieneError Then