-ajustes de secciones

2020-07-24 18:50:28 -07:00
parent 080af0b7cb
commit 8b80d6c127
8 changed files with 61 additions and 37 deletions
--- a/Ventas/ProductosServicios.aspx.vb
+++ b/Ventas/ProductosServicios.aspx.vb
@@ -2558,10 +2558,6 @@ Partial Class ProductosyServicios
        DdlAlmacen.Items.Add(New ListItem("Seleccione", "-1"))
        DdlAlmacen.DataBind()

-        DdlSeccionAlmacen.DataSource = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero)
-        DdlSeccionAlmacen.Items.Add(New ListItem("Seleccione", "-1"))
-        DdlSeccionAlmacen.DataBind()
-
        UpModalSeccionAlmacen.Update()
    End Sub

@@ -2661,4 +2657,13 @@ Partial Class ProductosyServicios

        UpSeccionAlmacen.Update()
    End Sub
+
+    Protected Sub DdlAlmacen_SelectedIndexChanged(sender As Object, e As EventArgs)
+        DdlSeccionAlmacen.Items.Clear()
+        DdlSeccionAlmacen.DataSource = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero)
+        DdlSeccionAlmacen.Items.Add(New ListItem("Seleccione", "-1"))
+        DdlSeccionAlmacen.DataBind()
+
+        UpModalSeccionAlmacen.Update()
+    End Sub
 End Class