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

Simplificar referencias a logos en RDLC y más limpieza de código

Browse Source
This commit is contained in:
MLopez
2022-12-22 19:26:13 -07:00
parent 2e4bfe761b
commit 5ef0983e77
260 changed files with 446 additions and 591 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
Contratos/Contrato.aspx.vb
View File

@@ -2856,7 +2856,7 @@ Partial Class Contratos_Default
Exit Sub
End If
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
Dim params As New List(Of ReportParameter)
@@ -3642,7 +3642,7 @@ Partial Class Contratos_Default
End Sub
Private Sub GenerarPDF(Optional Formato As String = "PDF")
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
Dim dt As DataTable = DtAvanceDocumento.FiltraParametros("CveVenta > 0")
@@ -3663,7 +3663,7 @@ Partial Class Contratos_Default
ImprimirPDF("Empresas/Grales/Formatos/RepContratoAvanceDocumento.rdlc", dt, params, $"{Nombre}-AvanceDocumento", Formato:=Formato)
End Sub
Private Sub LBImprimirInformacionG_Click(sender As Object, e As EventArgs) Handles LBImprimirInformacionG.Click
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
Dim dt As DataTable = DtAvanceDocumento
@@ -3719,7 +3719,7 @@ Partial Class Contratos_Default
End Sub
Private Sub GenerarPDFGastos(Optional Formato As String = "PDF")
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
Dim UtilidadGastos As String = IIf(LblUtilidad.Text <> "", LblUtilidad.Text, "-").ToString
@@ -3759,7 +3759,7 @@ Partial Class Contratos_Default
GenerarPDFSuministros()
End Sub
Private Sub GenerarPDFSuministros(Optional Formato As String = "PDF")
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
Dim dt As DataTable = DtSuministros
@@ -3786,7 +3786,7 @@ Partial Class Contratos_Default
GenerarPDFAvance()
End Sub
Private Sub GenerarPDFAvance(Optional Formato As String = "PDF")
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
Dim dt As DataTable = DtAvance
@@ -3817,7 +3817,7 @@ Partial Class Contratos_Default
GenerarPDFPPresupuesto(Formato:="EXCEL")
End Sub
Private Sub GenerarPDFPPresupuesto(Optional Formato As String = "PDF")
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
Dim dt As DataTable = DtPresupuestos
@@ -3848,7 +3848,7 @@ Partial Class Contratos_Default
GenerarPDFActivosFijos("Excel")
End Sub
Private Sub GenerarPDFActivosFijos(Optional Formato As String = "PDF")
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
Dim dt As DataTable = Nothing