diff --git a/Ventas/ProductosServicios.aspx.vb b/Ventas/ProductosServicios.aspx.vb
index ba06b0a52..aa1546011 100644
--- a/Ventas/ProductosServicios.aspx.vb
+++ b/Ventas/ProductosServicios.aspx.vb
@@ -2635,4 +2635,29 @@ Partial Class ProductosyServicios
DdlCategoriaToxicidad.SelectedValueExist("000")
End Select
End Sub
+
+ Protected Sub ddlMetodos_SelectedIndexChanged(sender As Object, e As EventArgs)
+
+ If ddlMetodos.SelectedValue = "5" Then
+ ChkSerie.Checked = True
+ Else
+ ChkSerie.Checked = False
+ End If
+
+ End Sub
+
+ Protected Sub ChkSerie_CheckedChanged(sender As Object, e As EventArgs)
+
+ End Sub
+
+ Protected Sub ChkSeccion_CheckedChanged(sender As Object, e As EventArgs)
+
+ If ChkSeccion.Checked Then
+ DivSeccionAlmacen.Visible = True
+ Else
+ DivSeccionAlmacen.Visible = False
+ End If
+
+ UpSeccionAlmacen.Update()
+ End Sub
End Class