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

-- se quitó bdh-alcalinas

Browse Source
This commit is contained in:
rrene
2022-06-06 18:28:51 -07:00
parent 591147fa0e
commit 6bcd703116
1 changed files with 5 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
Ventas/PV.aspx.vb
View File

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