-- ajuste en recomendar la seccion

Inventarios/AjustesSeccionAlmacen.aspx.vb

@@ -76,6 +76,7 @@ Partial Class Inventarios_AjustesSeccionAlmacen
 
             Dim CveMovimientoDetalleEntrada As Integer = 0
             Dim Cont As Integer = 0
+            Dim Lista As New Hashtable
             For Each gvr As GridViewRow In GvD.Rows
 
                 'que este seleccionado y que tenga diferente seccion
@@ -84,7 +85,7 @@ Partial Class Inventarios_AjustesSeccionAlmacen
                     If gvr.DataKey("CveSeccionAlmacen").ToEntero > 0 Then
                         ObjPS.UpdateAplicaSeccionAlmacen(gvr.DataKey("CvePS").ToEntero, UsuarioActual.CveEmpresa, True)
                     End If
-
+                    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"
@@ -108,15 +109,20 @@ Partial Class Inventarios_AjustesSeccionAlmacen
                         Dim Cantidad As Decimal = Row("Cantidad").ToString().ToDecimal()
                         Dim PU As Decimal = Row("PUOriginal").ToString().ToDecimal()
                         Dim CveUM As Integer = Row("CveUM").ToString().ToEntero()
-                        Dim CveSeccionAlmacen As Integer = GvD.Rows(ind).FCDropDownList("DDlS").SelectedValue.ToEntero ' IfNull(Row("CveSeccionAlmacen"), "-1").ToString().ToEntero()
+                        Dim CveSeccionAlmacen As Integer = Lista(Row("CvePS").ToString().ToEntero()) 'GvD.Rows(ind).FCDropDownList("DDlS").SelectedValue.ToEntero ' IfNull(Row("CveSeccionAlmacen"), "-1").ToString().ToEntero()
                         Dim CostoIndirecto As Decimal = Row("CostoIndirecto").ToString().ToDecimal()
                         Dim Serie As String = Row("Serie").ToString()
                         Dim Lote As String = Row("Lote").ToString()
                         Dim FechaCaducidad As Date = IfNull(Row("FechaCaducidad"), MinFecha).ToString.ToDate
 
+
+
                         'actualizamos el PS, para que tenga el aplica seccion
 
                         ObjPS.UpdateAplicaSeccionAlmacen(Row("CvePS").ToString().ToEntero(), UsuarioActual.CveEmpresa, True)
+                        If Not ObjInventario.AddProductosServiciosAlmacenSeccion(CvePS, CveAlmacen, CveSeccionAlmacen) Then
+                            ErrorMovInv = True
+                        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
                             ErrorMovInv = True
@@ -132,11 +138,12 @@ Partial Class Inventarios_AjustesSeccionAlmacen
                 End If
 
             End If
-
+            Lista = Nothing
         End If
 
         If Not ErrorMovInv Then
             ObjInventario.Commit()
+            GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, -1, -1) = Nothing
             CargaDatos()
             Alert("El Movimiento quede registrado correctamente", TipoMensaje.MsgInformacion)
         Else