-ajustes de seccion

Inventarios/AjustesSeccionAlmacen.aspx

@@ -56,7 +56,8 @@
         <ContentTemplate>
             <asp:GridView ID="GvD" DataKeyNames="CvePS,CveUM,CveAlmacen,PU,Existencia,Serie,SeccionAlmacen,CveSeccionAlmacen,FechaCaducidad,Lote,Codigo,PS" runat="server" AutoGenerateColumns="False" EmptyDataText="No hay movimientos pendientes" CssClass="table table-hover Widthall" GridLines="None">
                 <Columns>
-                    <asp:BoundField HeaderText="Producto" DataField="CodigoPS" />
+                    <asp:BoundField HeaderText="Codigo" DataField="Codigo" />
+                    <asp:BoundField HeaderText="Producto" DataField="PS" />
                     <asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-Width="5%" />
                     <asp:BoundField HeaderText="Lote" DataField="Lote" ItemStyle-Width="5%" />
                     <asp:BoundField HeaderText="FechaCaducidad" DataField="FechaCaducidad" ItemStyle-Width="5%" />

Inventarios/AjustesSeccionAlmacen.aspx.vb

@@ -84,8 +84,11 @@ Partial Class Inventarios_AjustesSeccionAlmacen
 
                     If gvr.DataKey("CveSeccionAlmacen").ToEntero > 0 Then
                         ObjPS.UpdateAplicaSeccionAlmacen(gvr.DataKey("CvePS").ToEntero, UsuarioActual.CveEmpresa, True)
+                    Else
+                        ObjPS.UpdateAplicaSeccionAlmacen(gvr.DataKey("CvePS").ToEntero, UsuarioActual.CveEmpresa, False)
                     End If
-                    Lista.Add(gvr.DataKey("CvePS").ToEntero, gvr.FCDropDownList("DDlS").SelectedValue.ToEntero) 'guardo que dato le corresponde
+                    If Not Lista.ContainsKey(gvr.DataKey("CvePS").ToEntero) Then Lista.Add(gvr.DataKey("CvePS").ToEntero, gvr.FCDropDownList("DDlS").SelectedValue.ToEntero) 'guardo que dato le corresponde
+
                     If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, gvr.DataKey("Existencia").ToDecimal, gvr.DataKey("CveUM").ToEntero, gvr.DataKey("CvePS").ToEntero, 0, -1, CveSeccionAlmacen:=gvr.DataKey("CveSeccionAlmacen").ToEntero, Serie:=gvr.DataKey("Serie"), Lote:=gvr.DataKey("Lote"), FechaCaducidad:=gvr.DataKey("FechaCaducidad").ToDate) Then
                         ErrorMovInv = True
                         TextoError = "Ocurrió un error al guardar los movimientos de salida"

Inventarios/Apartados.aspx

@@ -227,7 +227,7 @@
                                 </td>
                                 <td runat="server" id="TdSeccionAlmacen" visible="false">
                                    
-                                        <asp:DropDownlist ID="DdlSeccionAlmacen" runat="server" DataTextField="Seccion" DataValueField="CveSeccionAlmacen" CssClass="form-control input-sm select2me" />
+                                        <asp:DropDownlist ID="DdlSeccionAlmacen" runat="server" DataTextField="SeccionAlmacen" DataValueField="CveSeccionAlmacen" CssClass="form-control input-sm select2me" />
                                    
                                 </td>
                                 <td align="center">

Inventarios/EntradasSalidas.aspx

@@ -1439,7 +1439,7 @@
                             <br />
                         </div>
                         <div runat="server" id="divSerie" class="form-group form-md-line-input input-iconright" visible="false">
-                            <asp:TextBox ID="TxtnSerie" CssClass="form-control input-sm" runat="server" Width="80px" Visible="false"></asp:TextBox>
+                            <asp:TextBox ID="TxtnSerie" CssClass="form-control input-sm" runat="server" Width="120px" Visible="false"></asp:TextBox>
                             <asp:Button Text="" ID="BtnSerieAddNew" OnClick="BtnSerieAddNew_Click" Style="display: none" runat="server" />
                             <label for="<%= TxtnSerie.ClientID.ToString()%>">Serie</label>
                             <br />

Inventarios/EntradasSalidas.aspx.vb

@@ -2215,6 +2215,7 @@ Partial Class Inventarios_EntradasSalidas
         'PERMISO SOLO PARA EDITAR SERIELOTE
         If UsuarioActual.TienePermisoProceso(245) Then
             GvM.Columns(9).Visible = True
+            TxtnSerie.Visible = True
         End If
 
         TxtnLote.Visible = False
@@ -2292,7 +2293,6 @@ Partial Class Inventarios_EntradasSalidas
                     e.Row.FCTextBox("LblEditCodigo").Enabled = False
                     e.Row.FCTextBox("TxtSerie").Enabled = False
                     e.Row.FCTextBox("TxtLote").Enabled = False
-                    e.Row.FCTextBox("TxtBatch").Enabled = False
                     e.Row.FCDropDownList("DdlSeccionAlmacen").Enabled = False
                 End If