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)