From f381bb4fde77cfb73e0c7408c35e11428a9ce8ed Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Tue, 23 Jan 2024 11:03:43 -0700
Subject: [PATCH] FIX.  Valida agregar PS automaticamente

---
 Ventas/Ventas.aspx.vb | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 433e4f669..5a26ced0b 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -16863,6 +16863,10 @@ Partial Class Ventas
 
                 End If
 
+                If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
+                    AgregarPS()
+                End If
+
             End If
 
         ElseIf CvePSParametro = -2 Then
@@ -16876,11 +16880,6 @@ Partial Class Ventas
         UPPPS.Update()
         UpPS.Update()
 
-        If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
-            AgregarPS()
-        End If
-
-
     End Sub
 
     Private Function CalculaPrecioSugerido(CvePSParametro As Integer, CveClasificacion As Integer, Optional CvePrecioListaSugerido As Integer = -1) As Modelos.MPrecioSugerido