- mejora parametros

This commit is contained in:
2025-04-14 20:09:24 -07:00
parent e67a9f22d3
commit 8cd6c8c890
2 changed files with 2 additions and 2 deletions

View File

@@ -1745,7 +1745,7 @@ Public Class WSSIGApp
Public Function GetRepRecuperacion(CveEmpresa As Integer, FechaI As String, FechaF As String, Gpo As Integer, CveUsuarioConsulta As Integer, CveSubProyecto As Integer, CveCliente As Integer) As String
Dim retorno = "[]"
Using ObjVentas As New ClsMovimientos
If ObjVentas.GetRepRecuperacion(FechaI.ToDateTime(), FechaF.ToDateTime(), CveCliente, CveSubProyecto, -1, -1, -1, "-1", CveEmpresa, Gpo, -1, CveUsuarioConsulta:=CveUsuarioConsulta) Then
If ObjVentas.GetRepRecuperacion(FechaI.ToDateTime(), FechaF.ToDateTime(), MinFecha, MaxFecha, CveCliente, CveSubProyecto, -1, -1, -1, "-1", CveEmpresa, Gpo, -1, CveUsuarioConsulta:=CveUsuarioConsulta) Then
retorno = ObjVentas.DtResultados.ToJson()
End If
End Using