AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

FIX. Valida agregar PS automaticamente

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2024-01-23 11:03:43 -07:00
parent 2d94635959
commit f381bb4fde
1 changed files with 4 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
Ventas/Ventas.aspx.vb
View File

@@ -16863,6 +16863,10 @@ Partial Class Ventas
End If End If
If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
AgregarPS()
End If
End If End If
ElseIf CvePSParametro = -2 Then ElseIf CvePSParametro = -2 Then
@@ -16876,11 +16880,6 @@ Partial Class Ventas
UPPPS.Update() UPPPS.Update()
UpPS.Update() UpPS.Update()
If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
AgregarPS()
End If
End Sub End Sub
Private Function CalculaPrecioSugerido(CvePSParametro As Integer, CveClasificacion As Integer, Optional CvePrecioListaSugerido As Integer = -1) As Modelos.MPrecioSugerido Private Function CalculaPrecioSugerido(CvePSParametro As Integer, CveClasificacion As Integer, Optional CvePrecioListaSugerido As Integer = -1) As Modelos.MPrecioSugerido