Merge ClsVentas

Ventas/PV.aspx.vb

@@ -688,7 +688,7 @@ Partial Class PV
         Get
             Return New Dictionary(Of Integer, Decimal) From {
                  {20516, 0.23D}, 'Descuento para lubricantes LTH
-                 {20515, 0.24D}  'Descuento para filtros LTH
+                 {20515, 0.28D}  'Descuento para filtros LTH
             }
         End Get
     End Property
@@ -4020,7 +4020,7 @@ Partial Class PV
     End Sub
 
     Protected Sub DdlTipoDefecto_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DdlTipoDefecto.SelectedIndexChanged
-        If DdlTipoDefecto.SelectedValue.ToEntero = 17 Then
+        If DdlTipoDefecto.SelectedValue.Contiene("17", "18", "20") Then
             DivCodigoTD.Visible = True
             DdlTipoDefecto.Width = New Unit(140%)
         Else