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

-

Browse Source
This commit is contained in:
rrene
2025-04-21 12:38:34 -07:00
parent be18862184
commit fb4541e131
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Ashx/E140.ashx
View File

@@ -132,7 +132,8 @@ Public Class E140 : Implements IHttpHandler, IRequiresSessionState
Dim data As New JArray Dim data As New JArray
Dim dtt As New DataTable Dim dtt As New DataTable
Dim ObjVentas As New ClsVentas 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") dtt = ObjVentas.DtResultados.FiltraParametros("CveVenta > 0")
End If End If
ObjVentas.Dispose() ObjVentas.Dispose()
@@ -296,6 +297,7 @@ Public Class E140 : Implements IHttpHandler, IRequiresSessionState
End If End If
Else Else
TieneError = True TieneError = True
MsgError = "Falta información para completar la venta."
End If End If
End If End If
If Not TieneError Then If Not TieneError Then