From 0ffcd347529e9018b5f920bd13aeaffd59e5271a Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Sun, 4 Aug 2024 20:22:30 -0700
Subject: [PATCH] --fix anticipos E189

---
 Ventas/Ventas.aspx.vb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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()