From 352234d8bec1b370be8b9e293584e30b665b5c5d Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Sat, 30 May 2020 15:26:14 -0700
Subject: [PATCH] Cambio de uso de funcion de existencias a tabla de
 existencias en consulta de servicio web

---
 asmx/WSApp.asmx | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/asmx/WSApp.asmx b/asmx/WSApp.asmx
index 88b6270ad..e82b2fafa 100644
--- a/asmx/WSApp.asmx
+++ b/asmx/WSApp.asmx
@@ -633,7 +633,7 @@ Public Class WSApp
         Dim retorno As String = "[]"
         Dim CvePS = -1
         Dim ObjPS As New ClsProductosServicios
-        If ObjPS.GetPSExistencias(CvePS, CvePrecioLista, -1, CveEmpresa, -1, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm")) Then
+        If ObjPS.GetPSExistenciasWS(CvePS, CvePrecioLista, -1, CveEmpresa, -1, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm")) Then
             If CveClasificacion > 0 Then
                 retorno = ObjPS.DtResultados.FiltraParametros($"CveClasificacion = {CveClasificacion}").ToJson()
             Else