From cd80e03763a85686d61f7aed430c1433d8be0884 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 3 Sep 2024 05:41:37 -0700 Subject: [PATCH] =?UTF-8?q?--=20activaci=C3=B3n=20para=20considerar=20Seri?= =?UTF-8?q?es?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- OS/OrdenesServicios.aspx.vb | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/OS/OrdenesServicios.aspx.vb b/OS/OrdenesServicios.aspx.vb index 6c0f5e7cd..e5847c271 100644 --- a/OS/OrdenesServicios.aspx.vb +++ b/OS/OrdenesServicios.aspx.vb @@ -3281,7 +3281,7 @@ Partial Class OS_OrdenesServicios Exit For End If - Dim Serie As String = "" 'GvRow.DataKey("Serie") + Dim Serie As String = drr("Serie").ToString Dim Lote As String = drr("Lote").ToString Dim FechaCaducidad As DateTime = drr("FechaCaducidad").ToString.ToDate If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, Cantidad, CveUM, CvePS, PU, CveVentaDetalle:=CveVentaDetalle, CveMovimientoDetalleEntrada:=CveMovimientoDetalle, Lote:=Lote, Serie:=Serie, FechaCaducidad:=FechaCaducidad) Then @@ -3541,6 +3541,7 @@ Partial Class OS_OrdenesServicios TmpDTMat.Columns.Add("CveUM", GetType(Integer)) TmpDTMat.Columns.Add("Cantidad", GetType(Integer)) TmpDTMat.Columns.Add("PU", GetType(Decimal)) + TmpDTMat.Columns.Add("Serie", GetType(String)) TmpDTMat.Columns.Add("Lote", GetType(String)) TmpDTMat.Columns.Add("FechaCaducidad", GetType(Date)) TmpDTMat.Columns.Add("CveVentaDetalle", GetType(Integer)) @@ -3560,6 +3561,7 @@ Partial Class OS_OrdenesServicios drp("CvePS") = CvePS drp("Cantidad") = CantidadRegistro drp("PU") = PU + drp("Serie") = GvRow.DataKey("Serie") drp("Lote") = GvRow.DataKey("Lote") drp("FechaCaducidad") = GvRow.DataKey("FechaCaducidad").ToDate TmpDTMat.Rows.Add(drp)