diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 6d166fdbe..4cd08b3e3 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -7528,6 +7528,7 @@ Public Class ClsPaginas If ObjInv.GetMovimientos(Vta.Inv_CveMovimiento.ToEntero, -1, -1, UsuarioActual.CveEmpresa) Then If ObjInv.DtResultados.Rows.Count > 0 Then + Dim Dr As DataRow = ObjInv.DtResultados.Rows(0) If Dr IsNot Nothing Then AlmOrigen = Dr("AlmacenOrigen").ToString @@ -7554,6 +7555,11 @@ Public Class ClsPaginas If Dr("PaisDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", PaĆ­s: {0}", Dr("PaisDestino").ToString) End If End If + + params.Add(New ReportParameter("Chofer", Dr("Chofer").ToString)) + params.Add(New ReportParameter("Placa", Dr("Placa").ToString)) + params.Add(New ReportParameter("EspecifUnidad", Dr("Especificacion").ToString)) + End If End If