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

eFacturas Solicitdes SAt solo empresas con PFX, Rep CxC detalle incluir cartera en impresion de reporte.

Browse Source
This commit is contained in:
Oscar Irigoyen
2022-08-15 10:15:02 -07:00
parent f76e42b2e8
commit 262804eab0
5 changed files with 531 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

54
CxC/RepCxCDetalle.aspx.vb
View File

@@ -426,8 +426,13 @@ Partial Class RepCxCDetalle
If UsuarioActual.CveEmpresa.Contiene(72, 80, 146, 119) Then ChkAnticipos.Visible = True
End Sub
Private Function CargaDatos() As DataTable
Dim dt As DataTable = Nothing
Private Function CargaDatos() As DataSet
Dim DSRespuesta As New DataSet
Dim DTaDAtos As New DataTable
Dim DTCartera As New DataTable
Dim ObjMovtos As New ClsMovimientos()
Dim FechaI, FechaF, FechaVI, FechaVF As String
@@ -452,10 +457,20 @@ Partial Class RepCxCDetalle
CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero, LimiteCredito:=LimiteCredito, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero,
CveMoneda:=CveMoneda, EstatusCliente:=DdlEstatusCliente.SelectedValue.ToEntero, AplicaAnticiposPagados:=If(ChkAnticipos.Checked, 1, 0)) Then
GvDatos.DataSource = ObjMovtos.DSResultados.Tables(0)
dt = ObjMovtos.DSResultados.Tables(0)
GvDatos.DataSource = ObjMovtos.DSResultados.Tables(0)
'DTaDAtos = ObjMovtos.DSResultados.Tables(0)
'DTaDAtos.TableName = "DTaDAtos"
DSRespuesta.Tables.Add(ObjMovtos.DSResultados.Tables(0).Copy)
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
GvCartera.DataSource = ObjMovtos.DSResultados.Tables(1)
'DTCartera = ObjMovtos.DSResultados.Tables(1)
'DTCartera.TableName = "DTCartera"
DSRespuesta.Tables.Add(ObjMovtos.DSResultados.Tables(1).Copy)
End If
@@ -475,7 +490,7 @@ Partial Class RepCxCDetalle
UPDatos.Update()
UpCartera.Update()
Return dt
Return DSRespuesta
End Function
@@ -949,11 +964,36 @@ Partial Class RepCxCDetalle
Else
params.Add(New ReportParameter("LogoPath", ""))
End If
Dim lrds As New List(Of ReportDataSource)
Dim DSDatos As DataSet = CargaDatos()
Dim rds As New ReportDataSource With {.Name = "DataSet1", .Value = DSDatos.Tables(0)}
lrds.Add(rds)
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
Dim rdsCartera As New ReportDataSource With {.Name = "DSCartera", .Value = DSDatos.Tables(1)}
lrds.Add(rdsCartera)
Else
Dim DTCartera As New DataTable
DTCartera.Columns.Add("Rango")
DTCartera.Columns.Add("Saldo", GetType(Decimal))
DTCartera.Columns.Add("Porcentaje", GetType(Decimal))
DTCartera.Columns.Add("Objetivo", GetType(Decimal))
Dim rdsCartera As New ReportDataSource With {.Name = "DSCartera", .Value = DTCartera}
lrds.Add(rdsCartera)
End If
Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/RepCxCDetalle.rdlc", UsuarioActual.Empresa.Ruta))
If Archivo.Exists Then
ImprimirPDF(String.Format("{0}Formatos/RepCxCDetalle.rdlc", UsuarioActual.Empresa.Ruta), CargaDatos, params, "ReporteCxCDetalle", TipoImpresion)
ImprimirPDF(String.Format("{0}Formatos/RepCxCDetalle.rdlc", UsuarioActual.Empresa.Ruta), lrds, params, "ReporteCxCDetalle", TipoImpresion)
Else
ImprimirPDF("Empresas/Grales/Formatos/RepCxCDetalle.rdlc", CargaDatos, params, "ReporteCxCDetalle", TipoImpresion)
ImprimirPDF("Empresas/Grales/Formatos/RepCxCDetalle.rdlc", lrds, params, "ReporteCxCDetalle", TipoImpresion)
End If