TraspasoAlmacen se acomodo el formato del codigo sin cambios a la funcionalidad, PopUpVerFactura ahora se busca el nombre del cliente para el reporte de bdh

Compras/PopUpVerFactura.aspx.vb

@@ -1,7 +1,6 @@
 Option Strict On
 Option Explicit On
 
-
 Imports Extensiones
 Imports System.Data
 Imports Microsoft.Reporting.WebForms
@@ -1220,7 +1219,9 @@ Partial Class PopUpVerFactura
                           Personal, Capturo, AlmacenDestino, CveConsignacion, CveMoneda, Moneda, FolioVenta, FolioOC,
                           FolioInterno, FechaHora, ObservacionesSolicitud, DepartamentoEntrega, RazonSocialOC,
                           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)
+                          EstadoOrigen, PaisOrigen, CPOrigen, CalleDestino, NoExtDestino, ColoniaDestino, LocalidadDestino,
+                          MunicipioDestino, EstadoDestino, PaisDestino, CPDestino, FechaMovimiento, NombreCapturo, PuestoRecibio,
+                          PuestoEnrego, RazonSocial, ResponsableCarga, ResponsableRecibio, CveCliente)
 
     End Sub
     Private Sub PUanacExtr(CveMoneda As Integer) 'preciounitario a moneda nacional o extranjera
@@ -1236,7 +1237,17 @@ Partial Class PopUpVerFactura
                                   FolioInterno As String, FechaHora As DateTime, ObservacionesSolicitud As String, DepartamentoEntrega As String, RazonSocialOC As String,
                                   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)
+                                  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
+
         Select Case CveConcepto
             Case 1 'INICIAL
                 Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Inicial.rdlc", UsuarioActual.Empresa.Ruta))
@@ -1396,7 +1407,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, "")))
+                    params.Add(New ReportParameter("FacturadoA", If(CveCompra > 0, dr("RazonSocial").ToString, NombreCliente)))
                     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), "")))

Inventarios/TraspasoAlmacen.aspx.vb

@@ -1445,14 +1445,6 @@ Partial Class Inventarios_TraspasoAlmacen
 
     Protected Sub BtnRecibir_Click(sender As Object, e As EventArgs)
         If GvDatosRecepcion.Rows.Count > 0 Then
-            Dim ObjInventarios As New ClsInventarios
-            Dim Dtt As DataTable = Nothing
-
-            If ObjInventarios.GetMovimientosTransitorios(CveAlmacenDestino, -1, CveAlmacenTransitorio, -1, FolioBusqueda, UsuarioActual.CveEmpresa) Then
-                Dtt = ObjInventarios.DtResultados.FiltraParametros(String.Format("CveTipoAlmacenDestino <> 4"), "", {"Codigo", "Cantidad"})
-            End If
-
-            ObjInventarios.Dispose()
             'Valida Movimientos
             Dim ValidaMovtos = 0.0
             For Each gvr As GridViewRow In GvDatosRecepcion.Rows
@@ -1474,12 +1466,15 @@ Partial Class Inventarios_TraspasoAlmacen
             End If
 
             Dim ObjInventario As New ClsInventarios
-
+            Dim Dtt As DataTable = Nothing
             Dim CveMovimientoEntrada As Integer = 0
             Dim Folio = 0
             Dim ErrorMovInv As Boolean = False
             Dim TextoError = ""
 
+            If ObjInventario.GetMovimientosTransitorios(CveAlmacenDestino, -1, CveAlmacenTransitorio, -1, FolioBusqueda, UsuarioActual.CveEmpresa) Then
+                Dtt = ObjInventario.DtResultados.FiltraParametros(String.Format("CveTipoAlmacenDestino <> 4"), "", {"Codigo", "Cantidad"})
+            End If
             'REGISTRA LA SALIDA Y ENTRADA (TRASPASO)
             ObjInventario.IniciaTransacSQL() 'Inicia la transacción
             Dim Fecha As Date = TxtFechaRecepcion.Text.ToDate