From b102f3ce1466970791c73ce545b345364b29a50d Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 4 Apr 2022 16:05:16 -0700 Subject: [PATCH] =?UTF-8?q?--=20liberaci=C3=B3n=20con=20lotes/series?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Inventarios/ResguardoMaterial.aspx | 4 ++-- Inventarios/ResguardoMaterial.aspx.vb | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/Inventarios/ResguardoMaterial.aspx b/Inventarios/ResguardoMaterial.aspx index 1d8247bd6..024e8ee0b 100644 --- a/Inventarios/ResguardoMaterial.aspx +++ b/Inventarios/ResguardoMaterial.aspx @@ -493,13 +493,13 @@ - +
- + 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()