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

RepPolizasVirtuales

Browse Source
This commit is contained in:
rakcsle
2022-02-28 09:34:36 -07:00
parent ff17857d83
commit 150ee16aab
5 changed files with 69 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
Contabilidad2/RepEstadoActividades.aspx.vb
View File

@@ -319,10 +319,25 @@ Partial Class AC_RepEstadoActividades
params.Add(New ReportParameter("lbTotalActual", LbTotalActual.Text))
params.Add(New ReportParameter("lbTotalAnterior", LbTotalAnterior.Text))
params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri))
' params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri))
Dim LogoRuta As String = ""
LogoRuta = String.Format("{0}Logo.png", UsuarioActual.Empresa.Ruta)
If IO.File.Exists(LogoRuta) Then
params.Add(New ReportParameter("pImg", $"file://{LogoRuta}"))
Else
params.Add(New ReportParameter("pImg", ""))
End If
params.Add(New ReportParameter("pFirma1", ""))
params.Add(New ReportParameter("pFirma2", ""))
params.Add(New ReportParameter("periodo", String.Format("de {0} {1}", DdlPeriodo.SelectedItem.Text, DdlEjercicio.SelectedItem.Text)))
params.Add(New ReportParameter("SubProyecto", DdlSubproyecto.SelectedItem.Text))
ImprimirPDF("AC/Reportes/RepEstadoActividades.rdlc", lrds, params, "EstadoActividades", Formato)
End Sub