AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

- activar emisión de un subproyecto USA para VyA

Browse Source
This commit is contained in:
rrene
2024-01-09 18:57:32 -07:00
parent a30a377601
commit 1ec186d12a
1 changed files with 11 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
App_Code/ClsPaginas.vb
View File

@@ -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"