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