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

-- DESCUUENTO DE ALCALINAS

Browse Source
This commit is contained in:
rrene
2022-06-04 17:31:22 -07:00
parent f4aa095115
commit a612cc246f
1 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Ventas/PV.aspx.vb
View File

@@ -697,7 +697,8 @@ Partial Class PV
Get
Return New Dictionary(Of Integer, Decimal) From {
{20516, 0.21D}, 'Descuento para lubricantes LTH
{20515, 0.25D} 'Descuento para filtros LTH
{20515, 0.25D}, 'Descuento para filtros LTH
{20518, 0.183D} 'Descuento para pilas alcalinas -- segun
}
End Get
End Property
@@ -4392,7 +4393,10 @@ Partial Class PV
End If
End If
Else
If DrPS("CveClasificacion").ToString.ToEntero.Contiene(20516, 20515) Then
If CveMarcaPS = 1092 Then ' E140 - alcalinas LTH
Descuento = ((Cantidad * PU) * 0.183D).RoundSQL(2)
End If
If DrPS("CveClasificacion").ToString.ToEntero.Contiene(20516, 20515, 20518) Then
Descuento = ((Cantidad * PU) * ClasificacionesDescuentos(DrPS("CveClasificacion").ToString.ToEntero)).RoundSQL(2)
End If
End If