From 1ec186d12ab2273da05043014efb9ac8a10a1777 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 9 Jan 2024 18:57:32 -0700
Subject: [PATCH] =?UTF-8?q?-=20activar=20emisi=C3=B3n=20de=20un=20subproye?=
 =?UTF-8?q?cto=20USA=20para=20VyA?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 App_Code/ClsPaginas.vb | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

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"