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