-
+
diff --git a/Ventas/ProductosServicios.aspx.vb b/Ventas/ProductosServicios.aspx.vb
index caf2ca126..50e8551cf 100644
--- a/Ventas/ProductosServicios.aspx.vb
+++ b/Ventas/ProductosServicios.aspx.vb
@@ -2597,5 +2597,16 @@ Partial Class ProductosyServicios
#End Region
-
+ Protected Sub DdlIEPSPorcentaje_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlIEPSPorcentaje.SelectedIndexChanged
+ Select Case DdlIEPSPorcentaje.SelectedValue
+ Case "0.09"
+ DdlCategoriaToxicidad.SelectedValueExist("001")
+ Case "0.07"
+ DdlCategoriaToxicidad.SelectedValueExist("002")
+ Case "0.06"
+ DdlCategoriaToxicidad.SelectedValueExist("003")
+ Case Else
+ DdlCategoriaToxicidad.SelectedValueExist("000")
+ End Select
+ End Sub
End Class