-- comentar promoción alcalinas

This commit is contained in:
2022-09-10 10:32:08 -07:00
parent cd83b74086
commit f7b9de40d2

View File

@@ -4446,26 +4446,26 @@ Partial Class PV
Descuento = 0
End If
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
'LTH AA Paq. 2 baterias, LTH AAA Paq. 02 baterias, LTH AA Paq. 4 baterias, LTH AAA Paq. 4 Baterias
If CvePS.Contiene(521445, 521448, 402917, 402918) Then
'SI TIENE BATERIAS AGREGADAS CON LA MARCA LTH, APLICAR PROMOCION, LA CLASIFICACION DEBE SER ACUMULADORES
If TmpDT.SUMD("Cantidad", "CveMarca IN (819,826,1085,1052) AND CveClasificacion IN (20520,20522,20513,20521,20512,20514,20229)") >= 1D Then
Descuento = 0
SeAjustoPU = True
'Paq. 2 baterias
If CvePS.Contiene(521445, 521448) Then
PUPromocion = 25D
End If
'Paq. 4 baterias
If CvePS.Contiene(402917, 402918) Then
PUPromocion = 40D
End If
PUModificado = Math.Round(PUPromocion / (1 + PorcentajeIVA), 6)
End If
End If
'If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
' 'LTH AA Paq. 2 baterias, LTH AAA Paq. 02 baterias, LTH AA Paq. 4 baterias, LTH AAA Paq. 4 Baterias
' If CvePS.Contiene(521445, 521448, 402917, 402918) Then
' 'SI TIENE BATERIAS AGREGADAS CON LA MARCA LTH, APLICAR PROMOCION, LA CLASIFICACION DEBE SER ACUMULADORES
' If TmpDT.SUMD("Cantidad", "CveMarca IN (819,826,1085,1052) AND CveClasificacion IN (20520,20522,20513,20521,20512,20514,20229)") >= 1D Then
' Descuento = 0
' SeAjustoPU = True
' 'Paq. 2 baterias
' If CvePS.Contiene(521445, 521448) Then
' PUPromocion = 25D
' End If
' 'Paq. 4 baterias
' If CvePS.Contiene(402917, 402918) Then
' PUPromocion = 40D
' End If
' PUModificado = Math.Round(PUPromocion / (1 + PorcentajeIVA), 6)
' End If
' End If
End If
'End If
ObjDescuento.ImporteDescuento = Descuento
ObjDescuento.CvePromocionDetalle = CvePromocionDetalle