Traslado timbrado sin carta formato sin carta porte

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