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" NombreArchivo = "Factura"
NombreArchivoDescarga = "Factura" NombreArchivoDescarga = "Factura"
TipoDocumento = "INGRESO" TipoDocumento = "INGRESO"
If Vta.CveSubProyecto.Contiene(12696, 12698) Then
NombreArchivo = "FacturaUSA"
NombreArchivoDescarga = "FacturaUSA"
End If
If UsuarioActual.CveEmpresa.Contiene(137) Then If UsuarioActual.CveEmpresa.Contiene(137) Then
params.Add(New ReportParameter("CveVenta", Vta.CveVenta.ToString)) params.Add(New ReportParameter("CveVenta", Vta.CveVenta.ToString))
End If End If
@@ -5915,6 +5921,10 @@ Public Class ClsPaginas
NombreArchivo = "Remision" NombreArchivo = "Remision"
NombreArchivoDescarga = "Remisión" NombreArchivoDescarga = "Remisión"
TipoDocumento = "REMISION" 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("TipoDocumento", NombreArchivoDescarga))
params.Add(New ReportParameter("Tipo", TipoDocumento)) params.Add(New ReportParameter("Tipo", TipoDocumento))
params.Add(New ReportParameter("Ref", TipoDocumentoRef)) params.Add(New ReportParameter("Ref", TipoDocumentoRef))
@@ -6346,7 +6356,7 @@ Public Class ClsPaginas
Dim paramsArray As New JArray() Dim paramsArray As New JArray()
For Each rds As ReportDataSource In DataSource For Each rds As ReportDataSource In DataSource
Dim Nombre As String = rds.Name 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 Select Case rds.Name
Case "DsOC" Case "DsOC"
Nombre = "DtDetalle" Nombre = "DtDetalle"