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

- mejora parametros

Browse Source
This commit is contained in:
rrene
2025-04-14 20:09:24 -07:00
parent e67a9f22d3
commit 8cd6c8c890
2 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Ventas/RepVentasResumen.aspx.vb
View File

@@ -103,7 +103,7 @@ Partial Class Ventas_RepVentasResumen
VxC = Nothing VxC = Nothing
End If End If
If ObjMovtos.GetRepRecuperacion(TxtFechaI.Text.ToDate, TxtFechaF.Text.ToDate, MinFecha, MaxFecha, -1, DdlSubProyecto.SelectedValue.ToEntero, -1, -1, -1, "-1", UsuarioActual.CveEmpresa, 5, -1, "-1", CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then If ObjMovtos.GetRepRecuperacion(TxtFechaI.Text.ToDate, TxtFechaF.Text.ToDate, MinFecha, MaxFecha, -1, DdlSubProyecto.SelectedValue.ToEntero, "-1", -1, "-1", "-1", UsuarioActual.CveEmpresa, 5, CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then
Datos = ObjVentas.DtResultados Datos = ObjVentas.DtResultados
GvPxC.DataSource = Datos GvPxC.DataSource = Datos
Else Else

2
asmx/WSSIGApp.asmx
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 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 = "[]" Dim retorno = "[]"
Using ObjVentas As New ClsMovimientos 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() retorno = ObjVentas.DtResultados.ToJson()
End If End If
End Using End Using