diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb
index 318db8883..e7603cf05 100644
--- a/App_Code/ClsInventarios.vb
+++ b/App_Code/ClsInventarios.vb
@@ -96,7 +96,8 @@ Public Class ClsInventarios
     Public Property CveGrupoPS As Integer
     Public Property CveFlete As Integer
     Public Property CveCliente As Integer
-    Public Property CveClienteSucursal As Integer
+    Public Property CveClienteSucursal As Integer
+    Public Property NombreCliente As String
     Public Property DepartamentoEntrega As String
     Public Property PedidoContrato As String
     Public Property GastoIndirecto As Double
@@ -820,6 +821,7 @@ Public Class ClsInventarios
                 FolioInterno = dr("VentaAnticipo").ToString
                 CveCliente = If(dr("CveCliente").ToString.ToEntero > 0, dr("CveCliente").ToString.ToEntero, -1)
                 CveClienteSucursal = If(dr("CveClienteSucursal").ToString.ToEntero > 0, dr("CveClienteSucursal").ToString.ToEntero, -1)
+                NombreCliente = dr("Nombre").ToString
                 DepartamentoEntrega = dr("DepartamentoEntrega").ToString
                 PedidoContrato = dr("PedidoContrato").ToString
                 TienePrePoliza = dr("TienePrePoliza").ToString.ToEntero
diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index 053edf302..68afa51d0 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -1178,7 +1178,8 @@ Partial Class PopUpVerFactura
         Dim FolioOC As String = ObjInventarios.FolioOC
         Dim FolioInterno As String = ObjInventarios.FolioInterno
 
-        Dim CveCliente As Integer = ObjInventarios.CveCliente
+        Dim CveCliente As Integer = ObjInventarios.CveCliente
+        Dim NombreCliente As String = ObjInventarios.NombreCliente
         Dim CveClienteSucursal As Integer = ObjInventarios.CveClienteSucursal
         Dim DepartamentoEntrega As String = ObjInventarios.DepartamentoEntrega
         Dim FechaMovimiento As Date = ObjInventarios.FechaRegistro
@@ -1214,6 +1215,7 @@ Partial Class PopUpVerFactura
         End If
 
         ObjInventarios.Dispose()
+        If RazonSocial = "" AndAlso NombreCliente <> "" Then RazonSocial = NombreCliente
 
         ImprimePDFAlmacen(CveConcepto, CveCompra, Folio.ToString, Fecha, Almacen, SubProyecto, Observaciones, Recibio,
                           Personal, Capturo, AlmacenDestino, CveConsignacion, CveMoneda, Moneda, FolioVenta, FolioOC,
@@ -1221,7 +1223,7 @@ Partial Class PopUpVerFactura
                           Remision, Proveedor, CalleOrigen, NoExtOrigen, ColoniaOrigen, LocalidadOrigen, MunicipioOrigen,
                           EstadoOrigen, PaisOrigen, CPOrigen, CalleDestino, NoExtDestino, ColoniaDestino, LocalidadDestino,
                           MunicipioDestino, EstadoDestino, PaisDestino, CPDestino, FechaMovimiento, NombreCapturo, PuestoRecibio,
-                          PuestoEnrego, RazonSocial, ResponsableCarga, ResponsableRecibio, CveCliente)
+                          PuestoEnrego, RazonSocial, ResponsableCarga, ResponsableRecibio)
 
     End Sub
     Private Sub PUanacExtr(CveMoneda As Integer) 'preciounitario a moneda nacional o extranjera
@@ -1238,15 +1240,8 @@ Partial Class PopUpVerFactura
                                   Remision As String, Proveedor As String, CalleOrigen As String, NoExtOrigen As String, ColoniaOrigen As String, LocalidadOrigen As String, MunicipioOrigen As String,
                                   EstadoOrigen As String, PaisOrigen As String, CPOrigen As String, CalleDestino As String, NoExtDestino As String, ColoniaDestino As String, LocalidadDestino As String, MunicipioDestino As String,
                                   EstadoDestino As String, PaisDestino As String, CPDestino As String, FechaMovimiento As Date, NombreCapturo As String, PuestoRecibio As String, PuestoEntrego As String,
-                                  RazonSocial As String, ResponsableCarga As String, ResponsableRecibio As String, CveCliente As Integer)
-        Dim NombreCliente As String = ""
-        If CveCliente <> Nothing Then
-            Dim ObjClientes As New ClsClientes
-            If ObjClientes.GetClientes(CveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, -1) Then
-                NombreCliente = ObjClientes.Nombre
-            End If
-            ObjClientes.Dispose()
-        End If
+                                  RazonSocial As String, ResponsableCarga As String, ResponsableRecibio As String)
+
 
         Select Case CveConcepto
             Case 1 'INICIAL
@@ -1297,6 +1292,7 @@ Partial Class PopUpVerFactura
 
                 End If
 
+
                 Dim params As New List(Of ReportParameter)
                 If Archivo.Exists Then
 
@@ -1369,7 +1365,7 @@ Partial Class PopUpVerFactura
                         params.Add(New ReportParameter("Folio", Folio.ToString))
                         params.Add(New ReportParameter("NumeroOrden", If(CveCompra > 0, dr("OCVinculada").ToString, "")))
                         params.Add(New ReportParameter("FacturaProveedor", If(CveCompra > 0, dr("SerieFolio").ToString, "")))
-                        params.Add(New ReportParameter("NombreProveedor", If(CveCompra > 0, dr("RazonSocial").ToString, "")))
+                        params.Add(New ReportParameter("NombreProveedor", RazonSocial))
                         params.Add(New ReportParameter("DireccionProveedor", If(CveCompra > 0, dr("Direccion").ToString, "")))
                         params.Add(New ReportParameter("CiudadProveedor", " "))
                         params.Add(New ReportParameter("EstadoProveedor", " "))
@@ -1407,7 +1403,7 @@ Partial Class PopUpVerFactura
                     params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
                     params.Add(New ReportParameter("Folio", Folio))
                     params.Add(New ReportParameter("FacturaProveedor", If(CveCompra > 0 AndAlso dr IsNot Nothing, dr("SerieFolio").ToString, "")))
-                    params.Add(New ReportParameter("FacturadoA", If(CveCompra > 0, dr("RazonSocial").ToString, NombreCliente)))
+                    params.Add(New ReportParameter("FacturadoA", RazonSocial))
                     params.Add(New ReportParameter("Descuentos", If(CveCompra > 0 AndAlso dr IsNot Nothing, (dr("Descuentos").ToString.ToDouble).FormatoNumero(2), "")))
                     params.Add(New ReportParameter("IVA", If(CveCompra > 0 AndAlso dr IsNot Nothing, dr("IVA").ToString.FormatoNumero(2), "")))
                     params.Add(New ReportParameter("Total", If(CveCompra > 0 AndAlso dr IsNot Nothing, dr("Total").ToString.FormatoNumero(2), "")))