Cambio de uso de funcion de existencias a tabla de existencias en consulta de servicio web

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