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

Cambios en WSApp (pescaditoApp)

Browse Source
This commit is contained in:
RPimienta
2022-09-06 22:35:15 -07:00
parent 94cc470642
commit 37cbd59901
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
asmx/WSApp.asmx
View File

@@ -563,7 +563,9 @@ Public Class WSApp
Salida.Cliente = ObjClientes.Nombre Salida.Cliente = ObjClientes.Nombre
Salida.CvePrecioLista = ObjClientes.CvePrecioLista Salida.CvePrecioLista = ObjClientes.CvePrecioLista
Salida.CveEstatusCliente = If(ObjClientes.Estatus, 1, 0) Salida.CveEstatusCliente = If(ObjClientes.Estatus, 1, 0)
If ObjClientes.CveSubProyecto > 0 Then
Salida.CveSubProyecto = ObjClientes.CveSubProyecto
End If
retorno = JsonConvert.SerializeObject(Salida) retorno = JsonConvert.SerializeObject(Salida)
End If End If
Else Else
@@ -655,15 +657,13 @@ Public Class WSApp
Return If(TieneError, "{}", retorno.ToString()) Return If(TieneError, "{}", retorno.ToString())
End Function End Function
<WebMethod()> <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 retorno = "[]"
Dim Serie As String = "-1" Dim Serie As String = "-1"
Dim Folio As Integer = -1 Dim Folio As Integer = -1
Dim Codigo As String = "-1" Dim Codigo As String = "-1"
Dim Cliente As String = "-1" Dim Cliente As String = "-1"
Dim FechaI As String = "-1"
Dim FechaF As String = "-1"
Dim FolioFiscal As String = "-1" Dim FolioFiscal As String = "-1"
Dim PeidoContrato As String = "-1" Dim PeidoContrato As String = "-1"
Dim OrdenCompra As String = "-1" Dim OrdenCompra As String = "-1"