FIX. Valida agregar PS automaticamente

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