From 238baee2eb605f159720f513d2529f1d1322d347 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 8 Jun 2020 22:46:39 -0700 Subject: [PATCH] -- activa seccion --- Ventas/ProductosServicios.aspx | 12 ++++++------ Ventas/ProductosServicios.aspx.vb | 25 +++++++++++++++++++++++++ 2 files changed, 31 insertions(+), 6 deletions(-) diff --git a/Ventas/ProductosServicios.aspx b/Ventas/ProductosServicios.aspx index 57658e998..36274682c 100644 --- a/Ventas/ProductosServicios.aspx +++ b/Ventas/ProductosServicios.aspx @@ -810,7 +810,7 @@
- + @@ -831,7 +831,7 @@
- +
@@ -839,7 +839,7 @@
- +
@@ -847,7 +847,7 @@
- +
@@ -855,7 +855,7 @@
- +
@@ -863,7 +863,7 @@
- +
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