Mejoras Manejo Lote/Caducidad

Inventarios/AjustesSeccionAlmacen.aspx

@@ -135,7 +135,7 @@
                     </asp:TemplateField>
                 </Columns>
             </asp:GridView>
-            <asp:Button ID="BtnCambiarSeccion" runat="server" Text="Cambiar Sección" CssClass="btn btn-primary" />
+            <asp:Button ID="BtnCambiarSeccion" runat="server" Text="Aplicar Cambios" CssClass="btn btn-primary" />
         </ContentTemplate>
     </asp:UpdatePanel>
     <div id="DivCargaExcel" class="modal ADS fade" role="dialog">

Inventarios/AjustesSeccionAlmacen.aspx.vb

@@ -177,11 +177,14 @@ Partial Class Inventarios_AjustesSeccionAlmacen
                         End If
                         'actualizamos el PS, para que tenga el aplica seccion
 
-                        If Lista.ContainsKey(CvePS) Then
-                            ObjPS.UpdateAplicaSeccionAlmacen(Row("CvePS").ToString().ToEntero(), UsuarioActual.CveEmpresa, True)
-                        End If
-                        If Not ObjInventario.AddProductosServiciosAlmacenSeccion(CvePS, CveAlmacen, CveSeccionAlmacen) Then
-                            ErrorMovInv = True
+                        If CveSeccionAlmacen > 0 Then
+                            If Lista.ContainsKey(CvePS) Then
+                                ObjPS.UpdateAplicaSeccionAlmacen(Row("CvePS").ToString().ToEntero(), UsuarioActual.CveEmpresa, True)
+                            End If
+                            If Not ObjInventario.AddProductosServiciosAlmacenSeccion(CvePS, CveAlmacen, CveSeccionAlmacen) Then
+                                ErrorMovInv = True
+                            End If
+
                         End If
 
                         If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Cantidad, CveUM, CvePS, PU, -1, CostoIndirecto:=CostoIndirecto, CveSeccionAlmacen:=CveSeccionAlmacen, Lote:=Lote, Serie:=Serie, FechaCaducidad:=FechaCaducidad, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
@@ -388,6 +391,8 @@ Partial Class Inventarios_AjustesSeccionAlmacen
                     dtSecciones.CaseSensitive = False
                     Dim resultado As DataTable = Nothing
 
+                    DtExcel = DtExcel.FiltraParametros("Código <> ''")
+
                     For Each RowExcel As DataRow In DtExcel.Rows
 
                         Dim Codigo As String = RowExcel("Código").ToString.Trim()
@@ -395,7 +400,7 @@ Partial Class Inventarios_AjustesSeccionAlmacen
 
                         Dim DrPS As DataRow = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).FiltroPrimero($"Codigo='{Codigo}'")
 
-                        If DrPS IsNot Nothing Then
+                        If Codigo <> "" AndAlso DrPS IsNot Nothing Then
                             If Not ErrorMovInv Then
 
                                 Dim CantidadEntrada As Decimal = RowExcel("Cantidad").ToString().ToDecimal()
@@ -478,7 +483,10 @@ Partial Class Inventarios_AjustesSeccionAlmacen
                                 End If
 
                                 If RowExistencia Is Nothing Then
-                                    ExistenciasNoEncontradas.AppendFormat("{0} - S:{1}<br/>", Codigo, Serie)
+                                    Dim str As String = ""
+                                    If Serie <> "" Then Serie = String.Format(" - Serie:{0} ")
+                                    ExistenciasNoEncontradas.AppendFormat("{0} {1}<br/>", Codigo, str)
+
                                     ErrorMovInv = True
                                 End If