diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index fb3db29dc..eb24512e6 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -30902,7 +30902,7 @@ Partial Class Ventas
             Dim ArrayNC As String() = UsuarioActual.Empresa.Funcionalidad(591).Split(",".ToCharArray())
             If ArrayNC.Length >= 4 Then
                 Dim CvePSNC As Integer = ArrayNC(3).ToEntero()
-                DrPS = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePSNC, AplicaParaVenta:=1).Rows(0)
+                DrPS = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePSNC, AplicaParaVenta:=1).FiltroPrimero("")
             Else
                 Dim CveSATNC = "84111506"
                 DrPS = GlobalDTPS(UsuarioActual.CveEmpresa, SATClavePS:=CveSATNC, AplicaParaVenta:=1).Rows(0)