-ajustes de secciones

Ventas/ProductosServicios.aspx

@@ -2072,7 +2072,7 @@
                     </div>
                     <div class="modal-body">
                         <div class="form-group form-md-line-input input-iconright">
-                            <asp:DropDownList ID="DdlAlmacen" Width="50%" runat="server" CssClass="form-control select2me" DataValueField="CveAlmacen" DataTextField="Almacen" AppendDataBoundItems="true"></asp:DropDownList>
+                            <asp:DropDownList ID="DdlAlmacen" Width="50%" runat="server" CssClass="form-control select2me" DataValueField="CveAlmacen" DataTextField="Almacen" AppendDataBoundItems="true" OnSelectedIndexChanged="DdlAlmacen_SelectedIndexChanged" AutoPostBack="true"></asp:DropDownList>
                             <asp:RequiredFieldValidator ID="RfvAlmacen" runat="server" ControlToValidate="DdlAlmacen" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Almacen''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpModalSeccionAlmacen"></asp:RequiredFieldValidator>
                             <ajax:ValidatorCalloutExtender ID="VceAlmacen" runat="server" HighlightCssClass="vco" TargetControlID="RfvAlmacen"></ajax:ValidatorCalloutExtender>
                             <label for="<%= DdlAlmacen.ClientID.ToString()%>">Almacen:</label>

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