-
+
diff --git a/Inventarios/ResguardoMaterial.aspx.vb b/Inventarios/ResguardoMaterial.aspx.vb
index 5392156b9..74e36dff3 100644
--- a/Inventarios/ResguardoMaterial.aspx.vb
+++ b/Inventarios/ResguardoMaterial.aspx.vb
@@ -986,7 +986,7 @@ Partial Class Inventarios_ResguardoMaterial
Cont = 0
Importe = ObjInventario.DtResultados.SUMD("Total").RoundAD
For Each Dr As DataRow In ObjInventario.DtResultados.Rows
- Dim CveSeccionAlmacen As Integer = DiccionarioSecciones(Dr("CveMovimientoDetalle").ToString.ToEntero).ToString.ToEntero
+ Dim CveSeccionAlmacen As Integer = -1 'DiccionarioSecciones(Dr("CveMovimientoDetalle").ToString.ToEntero).ToString.ToEntero
Dim Lote As String = "-1"
Dim FechaCaducidad As Date = MinFecha
If DiccionarioLote(Dr("CveMovimientoDetalle").ToString.ToEntero).ToString <> "" Then Lote = DiccionarioLote(Dr("CveMovimientoDetalle").ToString.ToEntero).ToString
@@ -1013,6 +1013,7 @@ Partial Class Inventarios_ResguardoMaterial
End If
If Not TieneError Then
+ ObjInventario.Commit()
Dim Msg As New StringBuilder
If Concepto = 23 Then
'FolioEntrada
@@ -1035,7 +1036,6 @@ Partial Class Inventarios_ResguardoMaterial
DdlSubProyecto.SelectedValueExist("-1")
End If
- ObjInventario.Commit()
If Concepto = 23 Then
LimpiarMovimiento()