diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index 31f7c6a87..9c3a67709 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -294,7 +294,7 @@ Partial Class PopUpVerFactura
         'endimg
         '"Empresas/Grales/Formatos/EquiposGPS.rdlc"
         '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
-        ImprimirPDF("GPS/ReciboNom.rdlc", lrds, params, "Pallet") ', Content_Disposition:="Inline")
+        ImprimirPDF("Formatos\Agro\ReciboNom.rdlc", lrds, params, "Pallet") ', Content_Disposition:="Inline")
     End Sub
     Private Sub rfctxtvalidar()
         Dim numeroPeriodo As Integer = 0
@@ -464,9 +464,9 @@ Partial Class PopUpVerFactura
         lrds.Add(rds)
         '"Empresas/Grales/Formatos/EquiposGPS.rdlc"
         '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
-        Dim rutardlc = "GPS/EmbarqueManifiesto.rdlc"
+        Dim rutardlc = "Formatos\Agro\EmbarqueManifiesto.rdlc"
         If Not IsNothing(tablaReporte.FiltroPrimero("TipoManifiesto=1")) Then
-            rutardlc = "GPS/EmbarqueManifiesto2.rdlc"
+            rutardlc = "Formatos\Agro\EmbarqueManifiesto2.rdlc"
         End If
         ImprimirPDF(rutardlc, lrds, params, "Manifesto") ', Content_Disposition:="Inline")
     End Sub
@@ -622,7 +622,7 @@ Partial Class PopUpVerFactura
         lrds.Add(rds)
         '"Empresas/Grales/Formatos/EquiposGPS.rdlc"
         '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
-        ImprimirPDF("GPS/EmbarqueManifiestoRemision.rdlc", lrds, params, "Remisión") ', Content_Disposition:="Inline")
+        ImprimirPDF("Formatos\Agro\EmbarqueManifiestoRemision.rdlc", lrds, params, "Remisión") ', Content_Disposition:="Inline")
     End Sub
 
     Private Sub imprimirManifiestoCartaPorte(cveEmbarqueManifiesto As Integer)
@@ -774,7 +774,7 @@ Partial Class PopUpVerFactura
         lrds.Add(rds)
         '"Empresas/Grales/Formatos/EquiposGPS.rdlc"
         '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
-        Dim pdf = StreamPDF("GPS/EmbarqueManifiestoCartaPorte.rdlc", lrds, params, "DatosCartaPorte")
+        Dim pdf = StreamPDF("Formatos\Agro\EmbarqueManifiestoCartaPorte.rdlc", lrds, params, "DatosCartaPorte")
 
         Dim LSRutasMail As New List(Of ClsSisMail.ArchivoMail)
         LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.ArchivoBinario = pdf, .NombreArchivo = String.Format("{0}.pdf", "DatosCartaPorte")})
@@ -788,7 +788,7 @@ Partial Class PopUpVerFactura
             'GuardaLogFacturacion($"Ruta XML {ArchivoXML}")
             'ResultadoMail = 3
         End If
-        ImprimirPDF("GPS/EmbarqueManifiestoCartaPorte.rdlc", lrds, params, "DatosCartaPorte") ', Content_Disposition:="Inline")
+        ImprimirPDF("Formatos\Agro\EmbarqueManifiestoCartaPorte.rdlc", lrds, params, "DatosCartaPorte") ', Content_Disposition:="Inline")
 
 
     End Sub
@@ -856,7 +856,7 @@ Partial Class PopUpVerFactura
         'endimg
         '"Empresas/Grales/Formatos/EquiposGPS.rdlc"
         '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
-        ImprimirPDF("GPS/PalletEtiqueta2.rdlc", lrds, params, "Pallet") ', Content_Disposition:="Inline")
+        ImprimirPDF("Formatos\Agro\PalletEtiqueta2.rdlc", lrds, params, "Pallet") ', Content_Disposition:="Inline")
     End Sub
 
 
@@ -986,9 +986,9 @@ Partial Class PopUpVerFactura
 
         '"Empresas/Grales/Formatos/EquiposGPS.rdlc"
         '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
-        Dim ruta As String = "GPS/PalletEtiquetaWalmart.rdlc"
+        Dim ruta As String = "Formatos\Agro\PalletEtiquetaWalmart.rdlc"
         'If CvetypeImpresion = 2 Then
-        '    ruta = "GPS/PalletEtiqueta_2.rdlc"
+        '    ruta = "Formatos\Agro\PalletEtiqueta_2.rdlc"
         'End If
         ImprimirPDF(ruta, lrds, params, "Pallet Caja") ', Content_Disposition:="Inline")
     End Sub
@@ -1084,9 +1084,9 @@ Partial Class PopUpVerFactura
 
         '"Empresas/Grales/Formatos/EquiposGPS.rdlc"
         '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
-        Dim ruta As String = "GPS/PalletEtiquetaCaja.rdlc"
+        Dim ruta As String = "Formatos\Agro\PalletEtiquetaCaja.rdlc"
         'If CvetypeImpresion = 2 Then
-        '    ruta = "GPS/PalletEtiqueta_2.rdlc"
+        '    ruta = "Formatos\Agro\PalletEtiqueta_2.rdlc"
         'End If
         ImprimirPDF(ruta, lrds, params, "Pallet Caja") ', Content_Disposition:="Inline")
     End Sub