-- activa seccion

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