diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 4574ac667..b99bd4334 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -5868,6 +5868,12 @@ Public Class ClsPaginas
                     NombreArchivo = "Factura"
                     NombreArchivoDescarga = "Factura"
                     TipoDocumento = "INGRESO"
+
+                    If Vta.CveSubProyecto.Contiene(12696, 12698) Then
+                        NombreArchivo = "FacturaUSA"
+                        NombreArchivoDescarga = "FacturaUSA"
+                    End If
+
                     If UsuarioActual.CveEmpresa.Contiene(137) Then
                         params.Add(New ReportParameter("CveVenta", Vta.CveVenta.ToString))
                     End If
@@ -5915,6 +5921,10 @@ Public Class ClsPaginas
                     NombreArchivo = "Remision"
                     NombreArchivoDescarga = "Remisión"
                     TipoDocumento = "REMISION"
+                    If Vta.CveSubProyecto.Contiene(12696, 12698) Then
+                        NombreArchivo = "FacturaUSA"
+                        NombreArchivoDescarga = "FacturaUSA"
+                    End If
                     params.Add(New ReportParameter("TipoDocumento", NombreArchivoDescarga))
                     params.Add(New ReportParameter("Tipo", TipoDocumento))
                     params.Add(New ReportParameter("Ref", TipoDocumentoRef))
@@ -6346,7 +6356,7 @@ Public Class ClsPaginas
             Dim paramsArray As New JArray()
             For Each rds As ReportDataSource In DataSource
                 Dim Nombre As String = rds.Name
-                If RutaReporte.Contains("Factura.mrt") OrElse RutaReporte.Contains("Remision.mrt") OrElse RutaReporte.Contains("Cotizacion.mrt") OrElse RutaReporte.Contains("NotaDevolucion.mrt") OrElse RutaReporte.Contains("Pedido.mrt") Then
+                If RutaReporte.Contains("Factura") OrElse RutaReporte.Contains("Remision") OrElse RutaReporte.Contains("Cotizacion") OrElse RutaReporte.Contains("NotaDevolucion") OrElse RutaReporte.Contains("Pedido") Then
                     Select Case rds.Name
                         Case "DsOC"
                             Nombre = "DtDetalle"