From 37cbd59901eb19e51b9e9ec1e332e7c7d9c54816 Mon Sep 17 00:00:00 2001
From: RPimienta <dany_pimi@hotmail.com>
Date: Tue, 6 Sep 2022 22:35:15 -0700
Subject: [PATCH] Cambios en WSApp (pescaditoApp)

---
 asmx/WSApp.asmx | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/asmx/WSApp.asmx b/asmx/WSApp.asmx
index 8506eb55c..83e2f5311 100644
--- a/asmx/WSApp.asmx
+++ b/asmx/WSApp.asmx
@@ -563,7 +563,9 @@ Public Class WSApp
                         Salida.Cliente = ObjClientes.Nombre
                         Salida.CvePrecioLista = ObjClientes.CvePrecioLista
                         Salida.CveEstatusCliente = If(ObjClientes.Estatus, 1, 0)
-
+                        If ObjClientes.CveSubProyecto > 0 Then
+                            Salida.CveSubProyecto = ObjClientes.CveSubProyecto
+                        End If
                         retorno = JsonConvert.SerializeObject(Salida)
                     End If
                 Else
@@ -655,15 +657,13 @@ Public Class WSApp
         Return If(TieneError, "{}", retorno.ToString())
     End Function
     <WebMethod()>
-    Public Function GetListaPedidos(CveCliente As Integer, CveUsuario As Integer) As String
+    Public Function GetListaPedidos(CveCliente As Integer, CveUsuario As Integer,FechaI As String, FechaF As String) As String
         Dim retorno = "[]"
 
         Dim Serie As String = "-1"
         Dim Folio As Integer = -1
         Dim Codigo As String = "-1"
         Dim Cliente As String = "-1"
-        Dim FechaI As String = "-1"
-        Dim FechaF As String = "-1"
         Dim FolioFiscal As String = "-1"
         Dim PeidoContrato As String = "-1"
         Dim OrdenCompra As String = "-1"