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

40
Proveedores/PortalProveedor.aspx.vb
View File

@@ -787,7 +787,7 @@ Partial Class Portal_PortalProveedor
'Private Function ImprimirReporteGvBancosCuentas(Optional Formato As String = "PDF") As Byte()
' Dim retorno As Byte() = Nothing
' 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 logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
' Dim ImagenADSistemas As New System.IO.FileInfo(Server.MapPath("~") & "/Imagenes/LogoSinFondochico.png")
@@ -836,7 +836,7 @@ Partial Class Portal_PortalProveedor
'Private Function ImprimeReporteGvBancos(Optional Formato As String = "PDF") As Byte()
' Dim retorno As Byte() = Nothing
' 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 logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
' Dim ImagenADSistemas As New System.IO.FileInfo(Server.MapPath("~") & "/Imagenes/LogoSinFondochico.png")
@@ -902,7 +902,7 @@ Partial Class Portal_PortalProveedor
'Private Function ImprimeReporteNTPorAplicar(Optional Formato As String = "PDF") As Byte()
' Dim retorno As Byte() = Nothing
' 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 logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
' Dim ImagenADSistemas As New System.IO.FileInfo(Server.MapPath("~") & "/Imagenes/LogoSinFondochico.png")
@@ -951,7 +951,7 @@ Partial Class Portal_PortalProveedor
'Private Function ImprimeReporteNTPorHistorial(Optional Formato As String = "PDF") As Byte()
' Dim retorno As Byte() = Nothing
' 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 logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
' Dim ImagenADSistemas As New System.IO.FileInfo(Server.MapPath("~") & "/Imagenes/LogoSinFondochico.png")
@@ -1014,43 +1014,29 @@ Partial Class Portal_PortalProveedor
'Protected Function ImprimirReporteVentas(Optional Formato As String = "PDF") As Byte()
' Dim retorno As Byte() = Nothing
' Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
' Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
' Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
' Dim ImagenADSistemas As New System.IO.FileInfo(Server.MapPath("~") & "/Imagenes/LogoSinFondochico.png")
' 'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
' Dim LogoADSistemasUri As String = String.Format("{0}://{1}:{2}/Imagenes/LogoSinFondochico.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port)
'
' Dim ObjProveedores As New ClsCompProveedores()
' 'OBTENEMOS LOS DATOS
'
' Dim DTCxCHistorial As DataTable
' If ObjProveedores.GetHistorialCompras(CveProveedor, -1) Then
' DTCxCHistorial = ObjProveedores.DtResultados
' Else
' DTCxCHistorial = Nothing
' End If
'
' If DTCxCHistorial.Rows.Count > 0 Then
' Dim dr As DataRow = DTCxCHistorial.Rows(0)
' Dim params As New List(Of ReportParameter)
' params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
' params.Add(New ReportParameter("DireccionEmpresa", UsuarioActual.Empresa.Direccion))
' params.Add(New ReportParameter("TelefonoEmpresa", UsuarioActual.Empresa.Telefono))
' If ImagenADSistemas.Exists Then
' params.Add(New ReportParameter("LogoPathADS", LogoADSistemasUri))
' Else
' params.Add(New ReportParameter("LogoPathADS", ""))
' End If
' If Imagen.Exists Then
' params.Add(New ReportParameter("LogoPath", logouri))
' Else
' params.Add(New ReportParameter("LogoPath", ""))
' End If
' params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
' params.Add(New ReportParameter("LogoPathADS", If(ImagenADSistemas.Exists, $"file://{ImagenADSistemas.FullName}", "")))
' retorno = StreamPDF("Empresas/Grales/Formatos/ProveedorHistorial.rdlc", DTCxCHistorial, params, "Reporte de Ventas", Formato)
' Else
' Alert("Ocurrió un error.", TipoMensaje.MsgAdvertencia)
@@ -1078,7 +1064,7 @@ Partial Class Portal_PortalProveedor
'Protected Function ImprimirReporteCxPPagadas(Optional Formato As String = "PDF") As Byte()
' Dim retorno As Byte() = Nothing
' 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 logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
' Dim ImagenADSistemas As New System.IO.FileInfo(Server.MapPath("~") & "/Imagenes/LogoSinFondochico.png")
@@ -1146,7 +1132,7 @@ Partial Class Portal_PortalProveedor
'Protected Function ImprimirReporteCxCHistorial(Optional Formato As String = "PDF") As Byte()
' Dim retorno As Byte() = Nothing
' 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 logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
' Dim ImagenADSistemas As New System.IO.FileInfo(Server.MapPath("~") & "/Imagenes/LogoSinFondochico.png")