--imprimir nombre del cleinte, en e ntrada almacen

App_Code/ClsInventarios.vb

@@ -97,6 +97,7 @@ Public Class ClsInventarios
     Public Property CveFlete As Integer
     Public Property CveCliente 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

Compras/PopUpVerFactura.aspx.vb

@@ -1179,6 +1179,7 @@ Partial Class PopUpVerFactura
         Dim FolioInterno As String = ObjInventarios.FolioInterno
 
         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)
+                                  RazonSocial As String, ResponsableCarga As String, ResponsableRecibio As String)
-        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
 
         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), "")))