diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index d660ba9ab..240c533cd 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -3090,6 +3090,9 @@ Partial Class PopUpVerFactura
 
                 Dim params As New List(Of ReportParameter)
                 Dim RutaFormato As String = "{0}Formatos\Traslado.rdlc"
+                If CveTipoAlmacen = 22 Then
+                    RutaFormato = "{0}Formatos\TrasladoUsado.rdlc"
+                End If
 
                 params.Add(New ReportParameter("CveConcepto", "8")) 'FolioTraspaso.ToString
                 'params.Add(New ReportParameter("TipoTraslado", "AVISO")) 'FolioTraspaso.ToString