diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index 8cf504255..e66384a6e 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -2115,8 +2115,27 @@ Partial Class PopUpVerFactura
                         params.Add(New ReportParameter("AlmacenOrigen", Almacen))
                         params.Add(New ReportParameter("AlmacenDestino", AlmacenDestino))
                         DtMovimientos = DtMovimientos.FiltraParametros("", "PS")
+                    ElseIf UsuarioActual.CveEmpresa = 140 Then
+                        params.Add(New ReportParameter("CantidadProductos", "500"))
+                        params.Add(New ReportParameter("CantidadUsados", "500"))
+                        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+                        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
+                        If Imagen.Exists Then
+                            params.Add(New ReportParameter("LogoPath", logouri))
+                        Else
+                            params.Add(New ReportParameter("LogoPath", ""))
+                        End If
+                        params.Add(New ReportParameter("Origen", Almacen))
+                        params.Add(New ReportParameter("Destino", AlmacenDestino))
+
+                        params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+                        params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
+                        params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
                     End If
 
+
+
                     ImprimirPDF(String.Format("{0}Formatos\Traslado.rdlc", UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Recepción de Traslado - {0}", Folio), RDSName:="DsInventarios")
                 Else
                     Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
diff --git a/Empresas/140/Formatos/Traslado.rdlc b/Empresas/140/Formatos/Traslado.rdlc
index 8ed80cf00..8ba95e1f1 100644
--- a/Empresas/140/Formatos/Traslado.rdlc
+++ b/Empresas/140/Formatos/Traslado.rdlc
@@ -552,7 +552,6 @@
         </Paragraphs>
         <rd:DefaultName>TotalProductos</rd:DefaultName>
         <Top>0.98129cm</Top>
-        <Left>0cm</Left>
         <Height>0.6cm</Height>
         <Width>5.49393cm</Width>
         <ZIndex>1</ZIndex>
@@ -1690,6 +1689,36 @@
       <Nullable>true</Nullable>
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
+    <ReportParameter Name="CveAlmacen">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="CveTipoAlmacenDestino">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="CveVentaDetalle">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="FacturadoA">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="Factura">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
   </ReportParameters>
   <EmbeddedImages>
     <EmbeddedImage Name="compuproveedores">