-

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