Cambios en WSApp (pescaditoApp)

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"