diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 36d7c9404..ac3ba2732 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -18514,7 +18514,7 @@ Partial Class Ventas
 
         CargaListasPreciosSubProyectos(If(DdlPS.SelectedValue.ToEntero() <= 0, -1, DdlPS.SelectedValue.ToEntero()))
 
-        If UsuarioActual.CveEmpresa = 189 Then
+        If DdlTipoComprobante.SelectedValue = "Ant" AndAlso UsuarioActual.CveEmpresa = 189 Then
             Dim DatarowPS = GlobalDTPS(UsuarioActual.CveEmpresa, SATClavePS:="84111506").FiltroPrimero("")
             If DatarowPS IsNot Nothing Then
                 DdlPS.SelectedValue = DatarowPS("CvePS").ToString()