diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 0bedeb478..469a026bf 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -7555,9 +7555,7 @@ Public Class ClsPaginas
                                     If Dr("PaisDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", País: {0}", Dr("PaisDestino").ToString)
                                 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
 
diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index 34fda73c0..678606cb8 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -1016,7 +1016,7 @@ Partial Class PopUpVerFactura
     Private Sub ImprimeFormatoCartaPorte(CveMovimiento As Integer)
         If CveMovimiento > 0 Then
             Dim ObjInv As New ClsInventarios
-            Dim ObjAcar As New ClsAcarreos
+            
             Dim SerieFolio As String = ""
             Dim DomicilioSucursal As String = ""
             Dim LugarFecha As String = ""
@@ -1037,6 +1037,10 @@ Partial Class PopUpVerFactura
             Dim Ciudad As String = ""
             Dim Licencia As String = ""
 
+
+
+
+
             Dim SBDireccionO As New StringBuilder()
             Dim SBDireccionD As New StringBuilder()
 
@@ -1051,9 +1055,8 @@ Partial Class PopUpVerFactura
                         Destino = Dr("AlmacenDestino").ToString
                         Observaciones = Dr("Observaciones").ToString
                         CveChofer = Dr("CveChofer").ToString
-                        If ObjAcar.GetChofer(CveChofer.ToEntero, UsuarioActual.CveEmpresa, -1, -1) Then
-                            Chofer = ObjAcar.DtResultados.FiltroPrimeroValor("Chofer")
-                        End If
+
+
                         Placa = Dr("Traslado_Placa").ToString
                         Recibio = Dr("Recibio").ToString
                         FechaEntrega = Dr("FechaEntrega").ToString
@@ -1087,10 +1090,18 @@ Partial Class PopUpVerFactura
                         Telefono = Dr("Telefono1").ToString
                         Ciudad = Dr("Ciudad").ToString
                         Licencia = Dr("Licencia").ToString
+
+
+                        Chofer = Dr("Chofer").ToString
+                        Placa = Dr("Placa").ToString
+                        EspecifUnidad = Dr("Especificacion").ToString
+
+
+
                     End If
                 End If
             End If
-            ObjAcar.Dispose()
+
 
             Dim Dt As DataTable = Nothing
             If ObjInv.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then
@@ -1103,18 +1114,19 @@ Partial Class PopUpVerFactura
                 Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
 
 
-
                 'params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, ImageToBase64(Drawing.Image.FromFile(Imagen.FullName), Drawing.Imaging.ImageFormat.Png), "")))
+                Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
+
+
 
                 If Imagen.Exists Then
-                    Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
                     params.Add(New ReportParameter("LogoPath", LogoRuta))
-
-
                 Else
                     params.Add(New ReportParameter("LogoPath", ""))
                 End If
 
+
+
                 params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
                 params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
                 params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
@@ -1129,6 +1141,7 @@ Partial Class PopUpVerFactura
                 params.Add(New ReportParameter("Destinatario", ""))
                 params.Add(New ReportParameter("Observaciones", Observaciones))
                 params.Add(New ReportParameter("Chofer", Chofer))
+                params.Add(New ReportParameter("ResponsableRecibio", Chofer))
                 params.Add(New ReportParameter("Placa", Placa))
                 params.Add(New ReportParameter("Recibio", Recibio))
                 params.Add(New ReportParameter("FechaEntrega", FechaEntrega.ToDateTime().ToString("dd/MM/yyyy")))
@@ -1142,6 +1155,7 @@ Partial Class PopUpVerFactura
                 params.Add(New ReportParameter("Telefono", Telefono))
                 params.Add(New ReportParameter("Ciudad", Ciudad))
                 params.Add(New ReportParameter("Licencia", Licencia))
+
                 ImprimirPDF("Empresas/Grales/Formatos/CartaPorte.rdlc", Dt, params, String.Format("Carta Porte -{0}", Now.ToDateTime.ToShortDateString))
             End If
         End If