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

ECONO. lista de precios de prioritaria

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2023-02-10 18:18:59 -07:00
parent b2bd841faa
commit b1024883dc
1 changed files with 10 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
Ventas/Ventas.aspx.vb
View File

@@ -17643,6 +17643,11 @@ Partial Class Ventas
End If
'SI EL CLIENTE TIENE LISTA DE PRECIO DEBE TOMAR DE ESTE
If UsuarioActual.Empresa.Funcionalidad(558) = "1" AndAlso Me.CvePrecioListaCliente > 0 Then
CvePrecioListaPS = Me.CvePrecioListaCliente
End If
End If
If CvePrecioListaPS > 0 Then
@@ -36150,6 +36155,11 @@ Partial Class Ventas
If CvePrecioListaPS <= 0 Then
CvePrecioListaPS = Me.CvePrecioListaCliente 'GlobalDTCliente(UsuarioActual.CveEmpresa, Estatus:=-1, CveCliente:=CveCliente).FiltroPrimeroValor("CvePrecioLista").ToEntero()
End If
'SI EL CLIENTE TIENE LISTA DE PRECIO DEBE TOMAR DE ESTE
If UsuarioActual.Empresa.Funcionalidad(558) = "1" AndAlso Me.CvePrecioListaCliente > 0 Then
CvePrecioListaPS = Me.CvePrecioListaCliente
End If
End If
If CvePrecioListaPS > 0 Then