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

-- comentar promoción alcalinas

Browse Source
This commit is contained in:
rrene
2022-09-10 10:32:08 -07:00
parent cd83b74086
commit f7b9de40d2
1 changed files with 19 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

38
Ventas/PV.aspx.vb
View File

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