- E189, autoseleccionar

2023-12-11 12:57:25 -07:00
parent ec6c7c313b
commit 0f6b516ac0
2 changed files with 8 additions and 3 deletions
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -16838,6 +16838,10 @@ Partial Class Ventas
        UPPPS.Update()
        UpPS.Update()

+        If UsuarioActual.CveEmpresa = 189 Then
+            AgregarPS()
+        End If
+
    End Sub

    Private Function CalculaPrecioSugerido(CvePSParametro As Integer, CveClasificacion As Integer, Optional CvePrecioListaSugerido As Integer = -1) As Modelos.MPrecioSugerido