Merge branch 'master' of http://192.168.10.111:8383/SIG

AC/CatClasificacionFuncional.aspx.vb

@@ -268,7 +268,8 @@ Partial Class AC_CatClasificacionFuncional
     Protected Sub ImprimiReporte()
         Dim params As New List(Of ReportParameter)
         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))
+        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
+        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
 
         ImprimirPDF("AC/Reportes/RepClasificacionFuncional.rdlc", DtClasificacionFuncional, params, "ReporteClasificacionFuncional")
     End Sub

AC/CatClasificacionGeografica.aspx.vb

@@ -288,7 +288,8 @@ Partial Class AC_CatClasificacionGeografica
     Protected Sub ImprimiReporte()
         Dim params As New List(Of ReportParameter)
         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))
+        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
+        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
 
         ImprimirPDF("AC/Reportes/RepClasificacionGeografica.rdlc", DtClasificacionGeografica, params, "ReporteClasificacionGeografica")
     End Sub

AC/CatFuentesFinanciamiento.aspx.vb

@@ -288,7 +288,8 @@ Partial Class AC_CatFuentesFinanciamiento
     Protected Sub ImprimiReporte()
         Dim params As New List(Of ReportParameter)
         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))
+        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
+        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
 
         ImprimirPDF("AC/Reportes/RepFuentesFinanciamiento.rdlc", DtFuentesFinanciamiento, params, "ReporteFuentesFinanciamiento")
     End Sub

AC/CatFuentesFinanciamientoCONAC.aspx.vb

@@ -286,7 +286,8 @@ Partial Class AC_CatFuentesFinanciamientoCONAC
     Protected Sub ImprimiReporte()
         Dim params As New List(Of ReportParameter)
         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))
+        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
+        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
 
         ImprimirPDF("AC/Reportes/RepFuentesFinanciamientoCONAC.rdlc", DtFuentesFinanciamientoCONAC, params, "ReporteFuentesFinanciamientoCONAC")
     End Sub

AC/CatFuentesRecaudacion.aspx.vb

@@ -267,7 +267,8 @@ Partial Class AC_CatFuentesRecaudacion
     Protected Sub ImprimiReporte()
         Dim params As New List(Of ReportParameter)
         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))
+        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
+        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
 
         ImprimirPDF("AC/Reportes/RepFuentesRecaudacion.rdlc", DtFuentesRecaudacion, params, "ReporteFuentesRecaudacion")
     End Sub

AC/CatOGClasificaciones.aspx.vb

@@ -277,7 +277,8 @@ Partial Class AC_CatOGClasificaciones
     Protected Sub ImprimirReporte()
         Dim params As New List(Of ReportParameter)
         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))
+        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
+        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
 
         ImprimirPDF("AC/Reportes/RepOGClasificaciones.rdlc", DtOGClasificaciones, params, "ReporteOGClasificaciones")
     End Sub

AC/CatPresupuestoEgresos.aspx.vb

@@ -416,7 +416,8 @@ Partial Class AC_CatPresupuestoEgresos
         'parametros a enviar al reporte                     
         Dim params As New List(Of ReportParameter)
         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))
+        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
+        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
         params.Add(New ReportParameter("pEjercicio", DdlEjercicio.SelectedValue.ToString))
         params.Add(New ReportParameter("pTotal", pTotal))
         ImprimirPDF("AC/Reportes/RepCatPresupuestoEgresos.rdlc", DtPresupuestoEgresos, params, "PresupuestoEgresos", Formato)

AC/CatPresupuestoIngresos.aspx.vb

@@ -326,7 +326,8 @@ Partial Class AC_CatPresupuestoIngresos
         'parametros a enviar al reporte                     
         Dim params As New List(Of ReportParameter)
         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))
+        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
+        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
         params.Add(New ReportParameter("pEjercicio", DdlEjercicio.SelectedValue.ToString))
         'params.Add(New ReportParameter("pTotal", pTotal))
         ImprimirPDF("AC/Reportes/RepCatPresupuestoIngresos.rdlc", DtPresupuestoIngresos, params, "PresupuestoIngresos", Formato)

AC/CatUnidadesAdministrativas.aspx.vb

@@ -210,7 +210,8 @@ Partial Class AC_CatUnidadesAdministrativas
     Protected Sub ImprimiReporte()
         Dim params As New List(Of ReportParameter)
         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))
+        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
+        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
 
         ImprimirPDF("AC/Reportes/RepCatUnidadesAdministrativas.rdlc", DtUnidadesAdministrativas, params, "ReporteUnidadesAdministrativas")
     End Sub

AC/RegIngresosModificaciones.aspx.vb

@@ -286,7 +286,8 @@ Partial Class AC_RegIngresosModificaciones
         'parametros a enviar al reporte                     
         Dim params As New List(Of ReportParameter)
         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))
+        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
+        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
         params.Add(New ReportParameter("pEjercicio", UsuarioActual.Empresa.Empresa))
         params.Add(New ReportParameter("pSaldo", pSaldo))
         params.Add(New ReportParameter("pAmpliacion", pAmpliacion))

AC/RepAnaliticoDeudaPublica.aspx.vb

@@ -217,7 +217,8 @@ Partial Class AC_RepAnaliticoDeudaPublica
         Dim params As New List(Of ReportParameter)
 
         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))
+        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
+        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
         params.Add(New ReportParameter("pFechaIni", FechaDel))
         params.Add(New ReportParameter("pFechaFin", FechaAl))
         params.Add(New ReportParameter("pFirma1", String.Format("ING. Soraida Mesinas Reyes{0} Subdirector de Contabilidad", vbCrLf)))

AC/RepCambiosSituacionFinanciera.aspx.vb

@@ -253,7 +253,8 @@ Partial Class AC_RepCambiosSituacionFinanciera
     Private Sub ImprimirReporte(Optional Formato As String = "PDF")
         Dim params As New List(Of ReportParameter)
         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))
+        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
+        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
         params.Add(New ReportParameter("pEjercicio", DdlEjercicio.SelectedValue.ToString))
         params.Add(New ReportParameter("pFirma1", String.Format("Lic. Damian A. Benitez Alcantar{0} Director Administrativo", vbCrLf)))
         params.Add(New ReportParameter("pFirma2", String.Format("ING. Soraida Mesinas Reyes{0} Director General", vbCrLf)))

AC/RepEstadoActividades.aspx.vb

@@ -328,7 +328,8 @@ 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))
+        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
+        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
         If (UsuarioActual.CveEmpresa = 48 And ChkFirma.Checked) Then
             params.Add(New ReportParameter("pFirma1", String.Format("Ing. Héctor Díaz Young{0}Dirección Administrativa", vbCrLf)))
             params.Add(New ReportParameter("pFirma2", String.Format("M.E.R Carla Neudert Cordova{0}Dirección General", vbCrLf)))

AC/RepEstadoAnaliticoActivo.aspx.vb

@@ -113,7 +113,8 @@ Partial Class AC_RepEstadoAnaliticoActivo
         Dim params As New List(Of ReportParameter)
 
         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))
+        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
+        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
         params.Add(New ReportParameter("pFechaIni", DdlEjercicio.SelectedItem.ToString))
         params.Add(New ReportParameter("pFechaFin", DdlPeriodo.SelectedItem.ToString))
         params.Add(New ReportParameter("pFirma1", String.Format("ING. Soraida Mesinas Reyes{0} Subdirector de Contabilidad", vbCrLf)))

AC/RepFlujoEfectivo.aspx.vb

@@ -231,7 +231,8 @@ Partial Class AC_RepFlujoEfectivo
     Private Sub ImprimirReporte(Optional Formato As String = "PDF")
         Dim params As New List(Of ReportParameter)
         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))
+        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
+        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
         params.Add(New ReportParameter("pAl", FechaAl))
         params.Add(New ReportParameter("pTotalActual", TotalActual.ToString.FormatoNumero))
         params.Add(New ReportParameter("pTotalAnterior", TotalAnterior.ToString.FormatoNumero))

AC/RepIngresos.aspx.vb.exclude

@@ -57,7 +57,8 @@ Partial Class AC_RepIngresos
     Protected Sub ImprimiReporte()
         Dim params As New List(Of ReportParameter)
         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))
+        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
+        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
 
         ImprimirPDF("AC/Reportes/RepPresupuestoIngresos.rdlc", DtIngresos, params, "ReporteIngresos")
     End Sub

AC/RepMatrizEgresos.aspx.vb

@@ -96,7 +96,8 @@ Partial Class AC_RepMatrizEgresos
     Protected Sub ImprimiReporte()
         Dim params As New List(Of ReportParameter)
         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))
+        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
+        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
 
         ImprimirPDF("AC/Reportes/RepMatrizEgresos.rdlc", GlobalDTAC_MatrizEgresos, params, "RepMatrizEgresos")
     End Sub

AC/RepMatrizIngresos.aspx.vb

@@ -93,7 +93,8 @@ Partial Class AC_RepMatrizIngresos
     Protected Sub ImprimiReporte()
         Dim params As New List(Of ReportParameter)
         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))
+        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
+        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
 
         ImprimirPDF("AC/Reportes/RepMatrizIngresos.rdlc", GlobalDTAC_MatrizIngresos, params, "ReporteMatrizEgresos")
     End Sub

AC/RepPresupuestoEgresos.aspx.vb

@@ -219,10 +219,11 @@ Partial Class AC_RepPresupuestoEgresos
 
 #Region "I M P R I M I R "
     Protected Sub ImprimiReporte(Optional Formato As String = "PDF")
+        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
 
         Dim params As New List(Of ReportParameter)
         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", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
         params.Add(New ReportParameter("pEjercicio", DdlEjercicio.SelectedValue.ToString))
         params.Add(New ReportParameter("pFechaCorte", txtFechaF.Text))
 
@@ -231,20 +232,19 @@ Partial Class AC_RepPresupuestoEgresos
         'Dim rds As New ReportDataSource
         'rds.Name = "DataSet1"
         'rds.Value = DtPresupuestoEgresos
+		'Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
 
         'MasterReporteador.LocalReport.DataSources.Clear()
         'MasterReporteador.LocalReport.DataSources.Add(rds)
         'MasterReporteador.LocalReport.ReportPath = "AC/Reportes/RepPresupuestoEgresos.rdlc"
-
         'MasterReporteador.ProcessingMode = ProcessingMode.Local
         'MasterReporteador.LocalReport.EnableExternalImages = True
-        'Dim params As New List(Of ReportParameter)
 
+        'Dim params As New List(Of ReportParameter)
         '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", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
 
         'MasterReporteador.LocalReport.SetParameters(params)
-
         'MasterReporteador.LocalReport.Refresh()
 
         'Dim warnings As Warning() = Nothing

AC/RepPresupuestoEgresosDetalle.aspx.vb

@@ -110,7 +110,8 @@ Partial Class AC_RepPresupuestoEgresosDetalle
     Public Sub Imprimir(Formato As String)
         Dim params As New List(Of ReportParameter)
         params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
-        params.Add(New ReportParameter("Img", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri))
+        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
+        params.Add(New ReportParameter("Img", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
         params.Add(New ReportParameter("Fecha", Now.ToString("dd/MM/yyyy")))
         ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/RepPresupuestosEgresos.rdlc", DtDatos, params, $"Rep.PresupuestosEgresos - {Now.ToShortDateString}", Formato:=Formato)
     End Sub

AC/RepPresupuestoEgresosMensual.aspx.vb

@@ -165,11 +165,14 @@ Partial Class AC_RepPresupuestoEgresosMensual
     End Sub
 
     Private Sub ImprimirReporte(Optional Formato As String = "PDF")
+	    Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
+
         Dim params As New List(Of ReportParameter)
         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", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
         params.Add(New ReportParameter("pEjercicio", DdlEjercicio.SelectedValue.ToString))
         params.Add(New ReportParameter("pMomentoContable", DdlTipoCuenta.SelectedItem.ToString))
+
         ImprimirPDF("AC/Reportes/RepPresupuestoEgresosMensual.rdlc", DtPresupuestoEgresos, params, "RepPresupuestoEgresosMensual", Formato)
     End Sub
 #End Region

AC/RepPresupuestoIngresos.aspx.vb

@@ -155,15 +155,15 @@ Partial Class AC_RepPresupuestoIngresos
 
 #Region "I M P R I M I R "
     Protected Sub ImprimirReporte(Optional Formato As String = "PDF")
+        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
 
         Dim params As New List(Of ReportParameter)
         params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
         params.Add(New ReportParameter("pFechaCorte", FechaCorte.ToShortDateString))
-        params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri))
+        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
         params.Add(New ReportParameter("pEjercicio", DdlEjercicio.SelectedValue.ToString))
 
         ImprimirPDF("AC/Reportes/RepPresupuestoIngresos.rdlc", DtIngresos, params, "ReportePresupuestoIngresos", Formato)
-
     End Sub
 #End Region
 

AC/RepPresupuestoIngresosMensual.aspx.vb

@@ -130,11 +130,14 @@ Partial Class AC_RepIngresosMensuales
     End Sub
 
     Private Sub ImprimirReporte(Optional Formato As String = "PDF")
+        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
+
         Dim params As New List(Of ReportParameter)
         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", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
         params.Add(New ReportParameter("pEjercicio", DdlEjercicio.SelectedValue))
         params.Add(New ReportParameter("pMomentoContable", DdlMomentoContable.SelectedItem.ToString))
+
         ImprimirPDF("AC/Reportes/RepPresupuestoIngresosMensual.rdlc", DtIngresos, params, "ReportePresupuestoIngresosMensual", Formato)
     End Sub
 #End Region

AC/RepProgramaOperativo.aspx.vb

@@ -177,7 +177,8 @@ Partial Class AC_RepProgramaOperativo
         'parametros a enviar al reporte                     
         Dim params As New List(Of ReportParameter)
         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))
+        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
+        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
         params.Add(New ReportParameter("pEjercicio", DdlEjercicio.SelectedValue.ToString))
         ImprimirPDF(reportpath, DtProgramaOperativo, params, fileName, Formato)
     End Sub

AC/RepSituacionFinanciera.aspx.vb

@@ -638,7 +638,8 @@ Partial Class AC_SituacionFinanciera
         Dim params As New List(Of ReportParameter)
         params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
         params.Add(New ReportParameter("CveEmpresa", UsuarioActual.CveEmpresa.ToString))
-        params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri))
+        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
+        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
 
         If (UsuarioActual.CveEmpresa = 48 And ChkFirma.Checked) Then
             params.Add(New ReportParameter("pFirma1", String.Format("Ing. Héctor Díaz Young{0}Dirección Administrativa", vbCrLf)))

AC/RepVariacionHaciendaPublica.aspx.vb

@@ -384,7 +384,8 @@ Partial Class AC_RepVariacionHaciendaPublica
         Dim params As New List(Of ReportParameter)
 
         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))
+        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
+        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
         params.Add(New ReportParameter("pFechaIni", TxtFechaDel.Text))
         params.Add(New ReportParameter("pFechaFin", TxtFechaAl.Text))
         params.Add(New ReportParameter("pFirma1", String.Format("ING. Soraida Mesinas Reyes{0} Subdirector de Contabilidad", vbCrLf)))

AF/AF.aspx.vb

@@ -3223,7 +3223,7 @@ Partial Class AF_AF
                 params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
 
 
-                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")
 
                 If Imagen.Exists Then
                     params.Add(New ReportParameter("LogoPath", $"file://{Imagen}"))
@@ -4154,13 +4154,9 @@ Partial Class AF_AF
         params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
         params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
 
-        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")
 
-        If Imagen.Exists Then
+        params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-        Else
-            params.Add(New ReportParameter("LogoPath", ""))
-        End If
 
         ImprimirPDF("Empresas/Grales/Formatos/RepComprasInsumos.rdlc", DTCompras, params, "RepComprasInsumos", Formato)
 

AF/CatAF.aspx.vb

@@ -456,7 +456,7 @@ Partial Class AF_CatAF
     Private Sub GenerarPDF(Optional Formato As String = "PDF")
         If DtActivosFijos.Rows.Count > 0 Then
             Dim params As New List(Of ReportParameter)
-            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 Archivo As New System.IO.FileInfo(String.Format("{0}Formatos\CatAF.rdlc", UsuarioActual.Empresa.Ruta))
             Dim Ruta As String = ""
@@ -464,11 +464,7 @@ Partial Class AF_CatAF
             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
             params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
 
-            If Imagen.Exists Then
+            params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-            Else
-                params.Add(New ReportParameter("LogoPath", ""))
-            End If
 
             If Archivo.Exists Then
                 Ruta = UsuarioActual.Empresa.Ruta & "Formatos/CatAF.rdlc"

AF/RepAF.aspx.vb

@@ -326,17 +326,13 @@ Partial Class AF_RepAF
     Private Sub GenerarPDF(Optional Formato As String = "PDF")
         If DtActivosFijos.Rows.Count > 0 Then
             Dim params As New List(Of ReportParameter)
-            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")
 
             params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
             params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
 
-            If Imagen.Exists Then
+            params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-            Else
-                params.Add(New ReportParameter("LogoPath", ""))
-            End If
             ImprimirPDF(String.Format("{0}Formatos\RepAF.rdlc", UsuarioActual.Empresa.Ruta), DtActivosFijos, params, "ReporteActivosFijos", Formato:=Formato)
 
         Else

AF/RepDepreciacion.aspx.vb

@@ -1,11 +1,8 @@
 Option Explicit On
 Option Strict On
 
-Imports System.Data
-Imports Microsoft.Reporting.WebForms
 Imports Extensiones
-Imports DocumentFormat.OpenXml.Wordprocessing
+Imports System.Data
-Imports System
 
 Partial Class AF_RepDepreciacion
     Inherits ClsPaginas
@@ -113,7 +110,7 @@ Partial Class AF_RepDepreciacion
     Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
         If e.Row.RowType = DataControlRowType.DataRow Then
             If e.Row.DataKey("CveActivoFijo") = "0" Then
-                e.Row.BackColor = Drawing.Color.LightGray
+                e.Row.BackColor = System.Drawing.Color.LightGray
                 e.Row.Font.Bold = True
                 e.Row.Font.Size = 10
                 e.Row.FCLiteral("LtlDepreciacion").Text = "%"

Acarreos/RepContratosAcarreos.aspx.vb

@@ -149,7 +149,7 @@ Partial Class Acarreos_RepContratosAcarreos
             If DdlMaterial.SelectedValue <> "-1" Then StrFiltro.AppendFormat("&emsp;<b>Material</b>: {0}", DdlMaterial.SelectedItem.Text)
             If DdlAgrupador.SelectedValue <> "-1" Then StrFiltro.AppendFormat("&emsp;<b>Agrupador</b>: {0}", DdlAgrupador.SelectedItem.Text)
 
-            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)
             params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
@@ -177,18 +177,14 @@ Partial Class Acarreos_RepContratosAcarreos
             If txtFechaI.Text <> "" Then StrFiltro.AppendFormat("&emsp;<b>Fecha Inicio </b>: {0}", txtFechaI.Text.ToDate.ToShortDateString)
             If txtFechaF.Text <> "" Then StrFiltro.AppendFormat("&emsp;<b>Fecha Fin </b>: {0}", txtFechaF.Text.ToDate.ToShortDateString)
 
-            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)
             params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
             params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
             params.Add(New ReportParameter("Filtros", StrFiltro.ToString))
-            If Imagen.Exists Then
+            params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-            Else
-                params.Add(New ReportParameter("LogoPath", ""))
-            End If
             ImprimirPDF("Empresas/Grales/Formatos/RepContratosAcarreos.rdlc", DTCont, params, String.Format("RepContratosAcarreos-{0}", Now.ToDateTime.ToShortDateString), "Excel")
         Else
             Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)

Acarreos/RepContratosAcarreosDetalle.aspx.vb

@@ -178,7 +178,7 @@ Partial Class Acarreos_RepContratosAcarreosDetalle
     Private Sub LnkPdf_Click(sender As Object, e As EventArgs) Handles LnkPdf.Click
         If DTCont IsNot Nothing Then
 
-            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)
             params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
@@ -216,7 +216,7 @@ Partial Class Acarreos_RepContratosAcarreosDetalle
     Private Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click
         If DTCont IsNot Nothing Then
 
-            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)
@@ -239,11 +239,7 @@ Partial Class Acarreos_RepContratosAcarreosDetalle
             params.Add(New ReportParameter("PresEstimado", LblPresEstimado.Text))
             params.Add(New ReportParameter("VolF", LblVolFaltante.Text))
             params.Add(New ReportParameter("PresF", LblPresFaltante.Text))
-            If Imagen.Exists Then
+            params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-            Else
-                params.Add(New ReportParameter("LogoPath", ""))
-            End If
             ImprimirPDF("Empresas/Grales/Formatos/RepContratosAcarreosDetalle.rdlc", DTCont, params, String.Format("RepContratosAcarreosDetalle-{0}", Now.ToDateTime.ToShortDateString), "Excel")
         Else
             Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)

Acarreos/RepPreEstimacionDetalle.aspx.vb

@@ -93,7 +93,7 @@ Partial Class Acarreos_RepPreEstimacionDetalle
 
 
 
-            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")
 
 
 
@@ -126,7 +126,7 @@ Partial Class Acarreos_RepPreEstimacionDetalle
 
 
 
-            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")
 
 
 
@@ -135,11 +135,7 @@ Partial Class Acarreos_RepPreEstimacionDetalle
             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
             params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
             params.Add(New ReportParameter("Filtros", StrFiltro.ToString))
-            If Imagen.Exists Then
+            params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-            Else
-                params.Add(New ReportParameter("LogoPath", ""))
-            End If
             ImprimirPDF("Empresas/Grales/Formatos/RepPreEstimacionDetalle.rdlc", DTCont, params, String.Format("RepPreEstimacionDetalle-{0}", Now.ToDateTime.ToShortDateString), "Excel")
         Else
             Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)

Acumuladores/RepIndicadorDiario.aspx.vb

@@ -193,7 +193,7 @@ Partial Class ACumuladores_RepIndicadorDiario
 
         If DtDatos IsNot Nothing AndAlso DtDatos.Rows.Count > 0 Then
 
-            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)
@@ -204,11 +204,7 @@ Partial Class ACumuladores_RepIndicadorDiario
             params.Add(New ReportParameter("FechaImpresion", Now.ToString))
             params.Add(New ReportParameter("AgrupadoPor", $"<b>Filtros Por:</b>  {FechaIn} {FechaFn} {SubProyecto} "))
 
-            If Imagen.Exists Then
+            params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-            Else
-                params.Add(New ReportParameter("LogoPath", ""))
-            End If
             ImprimirPDF("Empresas/Grales/Formatos/RepIndicadorDiario.rdlc", DtDatos, params, $"RepIndicadorDiario_{Now.ToString("yyyyMMddhhmmss")}", Opcion)
         Else
             Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)

App_Code/ClsPaginas.vb

@@ -9631,7 +9631,8 @@ Public Class ClsPaginas
         Dim ImporteMovimiento As Decimal = 0
         Dim ImporteMN As Decimal = 0
         Dim ImporteME As Decimal = 0
-        Dim TCValuacion As Decimal = CompraActual.TC
+        Dim TCValuacion As Decimal
+        Dim TCValuacionCompra As Decimal = CompraActual.TC
         Dim TCValuacionPago As Decimal = Pago.TCPago
         Dim tFechaUltimaFluctuacion As Date
         Dim tImportePago As Decimal
@@ -9652,37 +9653,39 @@ Public Class ClsPaginas
         Dim FuncionalidadFluctuacionImpuestos As Boolean = If(UsuarioActual.Empresa.Funcionalidad(159) = "1", True, False)
 
         Dim tFecha As Date = Pago.Fecha
-        Dim UltimaFluctuacion As MTipoCambioFluctuacion = GlobalTipoCambioUltimaFluctuacion(tFecha)
 
-        If UsuarioActual.Empresa.Funcionalidad(703) = "1" AndAlso UltimaFluctuacion IsNot Nothing Then
+        If CompraActual.CveMoneda > 1 AndAlso UsuarioActual.Empresa.Funcionalidad(703) = "1" Then
-            If UltimaFluctuacion.FechaFluctuacion <= tFecha Then
+            Dim UltimaFluctuacion As MTipoCambioFluctuacion = GlobalTipoCambioUltimaFluctuacion(tFecha)
-                tFechaUltimaFluctuacion = UltimaFluctuacion.FechaFluctuacion
+            If UltimaFluctuacion IsNot Nothing Then
-                TCValuacion = UltimaFluctuacion.TCFluctuacion
+                If UltimaFluctuacion.FechaFluctuacion <= tFecha Then
+                    tFechaUltimaFluctuacion = UltimaFluctuacion.FechaFluctuacion
+                    TCValuacion = UltimaFluctuacion.TCFluctuacion
+                End If
+                If CompraActual.Fecha < tFechaUltimaFluctuacion Then TCValuacionCompra = TCValuacion
+                If Pago.Fecha < tFechaUltimaFluctuacion Then TCValuacionPago = TCValuacion
             End If
-            If CompraActual.Fecha < tFechaUltimaFluctuacion Then TCValuacion = TCValuacion
-            If Pago.Fecha < tFechaUltimaFluctuacion Then TCValuacionPago = TCValuacion
         End If
 
         If CompraActual.CveMoneda = 1 And Pago.CveMonedaPago <> 1 Then  'factura pesos, pago en dolares 
-            tImportePago = ((Pago.ImportePago * TCValuacion / Pago.TCPago).RoundSQL * Pago.TCPago).RoundSQL
+            tImportePago = ((Pago.ImportePago * TCValuacionCompra / Pago.TCPago).RoundSQL * Pago.TCPago).RoundSQL
-            tImporteCompra = (Pago.ImportePago * TCValuacion).RoundSQL
+            tImporteCompra = (Pago.ImportePago * TCValuacionCompra).RoundSQL
         ElseIf CompraActual.CveMoneda <> 1 And Pago.CveMonedaPago <> 1 Then  'factura dolares, pago en dolares
-            tImporteCompra = (Pago.ImportePago * TCValuacion).RoundSQL
+            tImporteCompra = (Pago.ImportePago * TCValuacionCompra).RoundSQL
             tImportePago = (Pago.ImportePago * Pago.TCPago).RoundSQL
         ElseIf CompraActual.CveMoneda <> 1 And Pago.CveMonedaPago = 1 Then  'factura dolares, pago en pesos
-            tImporteCompra = (Pago.ImportePago * TCValuacion).RoundSQL
+            tImporteCompra = (Pago.ImportePago * TCValuacionCompra).RoundSQL
             tImportePago = (Pago.ImportePago * Pago.TCPago).RoundSQL
         End If
         If CompraActual.CveMoneda > 1 Then ImporteME = Pago.ImportePago
 
         'movimiento de pago proveedor
-        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, Pago.CveConceptoPago, CompraActual.SerieFolio, Concepto, CompraActual.IdCtaContableProv, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, CveCompraAmortizacion:=Pago.CveCompraAmortizacion, TipoCambio:=TCValuacion, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True
+        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, Pago.CveConceptoPago, CompraActual.SerieFolio, Concepto, CompraActual.IdCtaContableProv, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, CveCompraAmortizacion:=Pago.CveCompraAmortizacion, TipoCambio:=TCValuacionCompra, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True
 
 
         'movimiento de pago proveedor Complementaria
         If Not ErrorMovtos AndAlso CompraActual.CveMoneda > 1 Then
 
-            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, (ImporteME * TCValuacion - ImporteME).RoundSQL, CveConceptoContableComplementaria, CompraActual.SerieFolio, Concepto, CompraActual.IdCtaContableProvComplementaria, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, CveCompraAmortizacion:=Pago.CveCompraAmortizacion, TipoCambio:=TCValuacion, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True
+            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, (ImporteME * TCValuacionCompra - ImporteME).RoundSQL, CveConceptoContableComplementaria, CompraActual.SerieFolio, Concepto, CompraActual.IdCtaContableProvComplementaria, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, CveCompraAmortizacion:=Pago.CveCompraAmortizacion, TipoCambio:=TCValuacionCompra, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True
 
         End If
 
@@ -9871,7 +9874,7 @@ Public Class ClsPaginas
         '    End If
         'End If
 
-        If Not ErrorMovtos AndAlso TCValuacion <> Pago.TCPago Then
+        If Not ErrorMovtos AndAlso TCValuacionCompra <> TCValuacionPago Then
             Dim ConceptoContable, IdCtaContable As Integer
             Dim TipoMovimiento As Boolean
             Dim Diferencia As Decimal = 0
@@ -10125,16 +10128,17 @@ Public Class ClsPaginas
         Dim FuncionalidadFluctuacionImpuestos As Boolean = If(UsuarioActual.Empresa.Funcionalidad(159) = "1", True, False)
 
         Dim tFecha As Date = Pago.Fecha
-        Dim UltimaFluctuacion As MTipoCambioFluctuacion = GlobalTipoCambioUltimaFluctuacion(tFecha)
 
-        If UsuarioActual.Empresa.Funcionalidad(703) = "1" AndAlso UltimaFluctuacion IsNot Nothing Then
+        If VentaActual.CveMoneda > 1 AndAlso UsuarioActual.Empresa.Funcionalidad(703) = "1" Then
-            If UltimaFluctuacion.FechaFluctuacion <= tFecha Then
+            Dim UltimaFluctuacion As MTipoCambioFluctuacion = GlobalTipoCambioUltimaFluctuacion(tFecha)
-                tFechaUltimaFluctuacion = UltimaFluctuacion.FechaFluctuacion
+            If UltimaFluctuacion IsNot Nothing Then
-                TCValuacion = UltimaFluctuacion.TCFluctuacion
+                If UltimaFluctuacion.FechaFluctuacion <= tFecha Then
+                    tFechaUltimaFluctuacion = UltimaFluctuacion.FechaFluctuacion
+                    TCValuacion = UltimaFluctuacion.TCFluctuacion
+                End If
+                If VentaActual.Fecha < tFechaUltimaFluctuacion Then TCValuacionVenta = TCValuacion
+                If Pago.Fecha < tFechaUltimaFluctuacion Then TCValuacionPago = TCValuacion
             End If
-            If VentaActual.Fecha < tFechaUltimaFluctuacion Then TCValuacionVenta = TCValuacion
-            If Pago.FechaDocumentoRelacionado < tFechaUltimaFluctuacion Then TCValuacionPago = TCValuacion
-
         End If
 
         If VentaActual.CveMoneda = 1 And Pago.CveMonedaPago <> 1 Then  'factura pesos, pago en dolares 
@@ -10154,7 +10158,7 @@ Public Class ClsPaginas
         'movimiento de pago cliente Complementaria
         If Not ErrorMovtos AndAlso VentaActual.CveMoneda > 1 Then
 
-            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePagoVenta, (ImporteME * TCValuacion - ImporteME).RoundSQL, CveConceptoContableComplementaria, VentaActual.SerieFolio, Concepto, VentaActual.IdCtaContableClienteComplementaria, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, CveVentaAmortizacion:=Pago.CveVentaAmortizacion, TipoCambio:=TCValuacionVenta, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME) Then ErrorMovtos = True
+            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePagoVenta, (ImporteME * TCValuacionVenta - ImporteME).RoundSQL, CveConceptoContableComplementaria, VentaActual.SerieFolio, Concepto, VentaActual.IdCtaContableClienteComplementaria, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, CveVentaAmortizacion:=Pago.CveVentaAmortizacion, TipoCambio:=TCValuacionVenta, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME) Then ErrorMovtos = True
 
         End If
 
@@ -10236,13 +10240,13 @@ Public Class ClsPaginas
             Dim Ret As New ConceptosRetenciones
             If Pago.CveMonedaPago > 1 Then
                 'Agregamos la Extranjera
-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 11, Pago.Referencia, Concepto, VentaActual.IdCtaContableClienteAnticipo, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=VentaActual.CveSubProyecto) Then ErrorMovtos = True
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 296, Pago.Referencia, Concepto, VentaActual.IdCtaContableClienteAnticipoExtranjera, CveVenta:=Pago.CveVentaAmortizacion, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=VentaActual.CveSubProyecto) Then ErrorMovtos = True
 
                 ImporteMN = (Pago.ImportePago * TCValuacionPago - Pago.ImportePago).RoundSQL
-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, ImporteMN, 207, Pago.Referencia, Concepto, VentaActual.IdCtaContableClienteAnticipoComplementaria, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=VentaActual.CveSubProyecto) Then ErrorMovtos = True
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, ImporteMN, 227, Pago.Referencia, Concepto, VentaActual.IdCtaContableClienteAnticipoComplementaria, CveVenta:=Pago.CveVentaAmortizacion, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=VentaActual.CveSubProyecto) Then ErrorMovtos = True
             Else
                 'Agregamos Nacional
-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 11, Pago.Referencia, Concepto, VentaActual.IdCtaContableClienteAnticipoExtranjera, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambioPago:=Pago.TCPago) Then ErrorMovtos = True
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 11, Pago.Referencia, Concepto, VentaActual.IdCtaContableClienteAnticipo, CveVenta:=Pago.CveVentaAmortizacion, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambioPago:=Pago.TCPago) Then ErrorMovtos = True
 
             End If
 
@@ -10284,16 +10288,16 @@ Public Class ClsPaginas
             End If
 
             If Pago.CveMonedaPago > 1 Then
-            'Agregamos la Extranjera
+                'Agregamos la Extranjera
-            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 92, Pago.Referencia, Concepto, VentaActual.IdCtaContableClienteAnticipo, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=VentaActual.CveSubProyecto, CvePersonal:=Pago.CvePersonal) Then ErrorMovtos = True
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 92, Pago.Referencia, Concepto, VentaActual.IdCtaContableClienteAnticipoExtranjera, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=VentaActual.CveSubProyecto, CvePersonal:=Pago.CvePersonal) Then ErrorMovtos = True
 
-            ImporteMN = (Pago.ImportePago * TCValuacionPago - Pago.ImportePago).RoundSQL
+                ImporteMN = (Pago.ImportePago * TCValuacionPago - Pago.ImportePago).RoundSQL
             If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, ImporteMN, 207, Pago.Referencia, Concepto, VentaActual.IdCtaContableClienteAnticipoComplementaria, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=VentaActual.CveSubProyecto, CvePersonal:=Pago.CvePersonal) Then ErrorMovtos = True
         Else
-            'Agregamos Nacional
+                'Agregamos Nacional
-            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 92, Pago.Referencia, Concepto, VentaActual.IdCtaContableClienteAnticipoExtranjera, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CveSubProyecto:=VentaActual.CveSubProyecto, CvePersonal:=Pago.CvePersonal) Then ErrorMovtos = True
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 92, Pago.Referencia, Concepto, VentaActual.IdCtaContableClienteAnticipo, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CveSubProyecto:=VentaActual.CveSubProyecto, CvePersonal:=Pago.CvePersonal) Then ErrorMovtos = True
 
-        End If
+            End If
 
         End If
 

App_Code/modExtensiones.vb

@@ -2232,11 +2232,11 @@ Namespace Extensiones
 
                 Dim IndexEndTable As Integer = GridView.Rows.Count + TotalRowHeader + TotalRowFooter
 
-                worksheet.Rows(IndexEndTable).Cells(0).Value = "Usuario Imprimió"
+                worksheet.Rows(IndexEndTable).Cells(1).Value = "Usuario Imprimió"
-                worksheet.Rows(IndexEndTable + 1).Cells(0).Value = Usuario.Nombre
+                worksheet.Rows(IndexEndTable + 1).Cells(1).Value = Usuario.Nombre
 
-                worksheet.Rows(IndexEndTable).Cells(2).Value = "Fecha Impresión"
+                worksheet.Rows(IndexEndTable).Cells(3).Value = "Fecha Impresión"
-                worksheet.Rows(IndexEndTable + 1).Cells(2).Value = DateTime.Now.ToString("dd/MM/yyyy")
+                worksheet.Rows(IndexEndTable + 1).Cells(3).Value = DateTime.Now.ToString("dd/MM/yyyy")
 
                 Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", Usuario.Empresa.Ruta))
 

Bancos/CatBancos.aspx.vb

@@ -217,16 +217,12 @@ Partial Class Bancos_CatBancos
     Private Sub Imprime(Formato As String)
 
         If DtBan IsNot Nothing AndAlso DtBan.Rows.Count > 0 Then
-            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)
             params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
-            If Imagen.Exists Then
+            params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-            Else
-                params.Add(New ReportParameter("LogoPath", ""))
-            End If
             ImprimirPDF("Empresas/Grales/Formatos/RepBancos.rdlc", DtBan, params, "Reporte Bancos", Formato)
         Else
             Alert("No hay información para mostrar.", TipoMensaje.MsgAdvertencia)

Bancos/ConciliacionesBancarias.aspx.vb

@@ -550,10 +550,9 @@ Partial Class Bancos_ConciliacionesBancariasaspx
         GeneraPDF(Formato)
     End Sub
     Protected Sub GeneraPDF(Formato As String)
-        Dim params As List(Of ReportParameter) = New List(Of ReportParameter)()
+        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
-
-        Dim Imagen As System.IO.FileInfo = New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
 
+        Dim params As New List(Of ReportParameter)()
         params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
         params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
         params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString()))
@@ -661,12 +660,7 @@ Partial Class Bancos_ConciliacionesBancariasaspx
         params.Add(New ReportParameter("SaldoFinalContabilidadComplementaria", (SaldoFinalContabilidadComplementaria.FormatoNumero)))
         params.Add(New ReportParameter("Diferencia", (SaldoFinalLibros - SaldoFinalContabilidad).FormatoNumero))
         params.Add(New ReportParameter("Filtros", Filtros))
-
+        params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-        If Imagen.Exists Then
-            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-        Else
-            params.Add(New ReportParameter("LogoPath", ""))
-        End If
 
         Dim Archivo As String = $"{UsuarioActual.Empresa.Ruta}Formatos/Conciliacion.rdlc"
 

Bancos/CuentasBancarias.aspx.vb

@@ -153,16 +153,12 @@ Partial Class Bancos_CuentasBancarias
     End Sub
     Private Sub Imprime(Formato As String)
         If DtBan IsNot Nothing AndAlso DtBan.Rows.Count > 0 Then
-            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)
             params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
-            If Imagen.Exists Then
+            params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-            Else
-                params.Add(New ReportParameter("LogoPath", ""))
-            End If
             ImprimirPDF("Empresas/Grales/Formatos/CuentasBancarias.rdlc", DtBan, params, "Reporte de Cuentas Bancarias", Formato)
         Else
             Alert("No hay información para mostrar.", TipoMensaje.MsgAdvertencia)

Bancos/FlujoDiario.aspx.vb

@@ -50,7 +50,7 @@ Partial Class Bancos_FlujoDiario
 
     Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
         Dim params As New List(Of ReportParameter)
-        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")
 
 
         params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
@@ -58,11 +58,7 @@ Partial Class Bancos_FlujoDiario
         params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
         params.Add(New ReportParameter("Fecha", TxtFecha.Text.ToDate.ToLongDateString))
 
-        If Imagen.Exists Then
+        params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-        Else
-            params.Add(New ReportParameter("LogoPath", ""))
-        End If
 
         'SE LLENA TmpDTSaldosIniciales
         Dim Ban As New ClsBancos

Bancos/PagoDeudor.aspx.cs

@@ -686,11 +686,12 @@ public partial class Bancos_PagoDeudor : ClsPaginas
                                       (Double)tipoCambio, TxtObservaciones.Text.Trim(), "", false, false, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa);
 
 
+            decimal ImporteMN=0;
 
             if (CveIE > 0)
             {
                 decimal Importe;
-                decimal ImporteMN;
+               
 
                 //GUARDA COMPROBANTE
                 if (!filemove.Equals(""))
@@ -834,6 +835,15 @@ public partial class Bancos_PagoDeudor : ClsPaginas
 
                 if (CveMoneda != 1 && UsaComplementaria)
                 {
+
+                    decimal difComplementaria = ImporteMN - (ImporteBanco + ImporteComplementaria);
+
+                    if (difComplementaria != 0)
+                    {
+                        ImporteComplementaria = difComplementaria > 0 ? (ImporteComplementaria+ difComplementaria) : (ImporteComplementaria- difComplementaria);
+                    }
+
+
                     if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, false, ImporteBanco, Ref, CveConceptoContableBancoComplementario, Conc, DateTime.Now, IDCtaContableBancosComplementario, -1, CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), ImporteMX: ImporteComplementaria, ImporteME: ImporteBanco, TipoCambio: TC, TipoCambioPago: TC, CveSubProyecto: DdlSubProyectoPago.SelectedValue.ToEntero()))
                     {
                         MsgError = "No se pudo insertar concepto de bancos complementaria";

Bancos/PagoElectronico.aspx.vb

@@ -2741,7 +2741,7 @@ Partial Class Bancos_PagoElectronico
 #Region " IMPRIMIR "
     Protected Sub BtnReporteAltaCarga_Click(sender As Object, e As EventArgs)
         Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/LayoutAltaProveedor.rdlc", UsuarioActual.Empresa.Ruta))
-        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")
 
 
         'Estatus visible
@@ -2753,11 +2753,7 @@ Partial Class Bancos_PagoElectronico
             ImprimirPDF(String.Format("{0}Formatos\LayoutAltaProveedor.rdlc", UsuarioActual.Empresa.Ruta), DtAlta, params, "LayoutAltaProveedor", RDSName:="DsPagoElectronico")
         Else
 
-            If Imagen.Exists Then
+            params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-            Else
-                params.Add(New ReportParameter("LogoPath", ""))
-            End If
 
 
             params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
@@ -2771,7 +2767,7 @@ Partial Class Bancos_PagoElectronico
     End Sub
     Protected Sub BtnReporteAltaGenera_Click(sender As Object, e As EventArgs)
         Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/LayoutAltaProveedor.rdlc", UsuarioActual.Empresa.Ruta))
-        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")
 
         'Estatus no visible
         Dim params As New List(Of ReportParameter)
@@ -2781,11 +2777,7 @@ Partial Class Bancos_PagoElectronico
             ImprimirPDF(String.Format("{0}Formatos\LayoutAltaProveedor.rdlc", UsuarioActual.Empresa.Ruta), DtAlta, params, "LayoutAltaProveedor", RDSName:="DsPagoElectronico")
         Else
 
-            If Imagen.Exists Then
+            params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-            Else
-                params.Add(New ReportParameter("LogoPath", ""))
-            End If
 
             params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
             params.Add(New ReportParameter("Direccion", UsuarioActual.Empresa.Direccion))
@@ -2797,7 +2789,7 @@ Partial Class Bancos_PagoElectronico
     End Sub
     Protected Sub BtnReportePago_Click(sender As Object, e As EventArgs)
         Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/LayoutAltaProveedor.rdlc", UsuarioActual.Empresa.Ruta))
-        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)
 
@@ -2806,11 +2798,7 @@ Partial Class Bancos_PagoElectronico
             ImprimirPDF(String.Format("{0}Formatos\LayoutPagoProveedor.rdlc", UsuarioActual.Empresa.Ruta), DtPago, params, "LayoutPagoProveedor", RDSName:="DSPagoElectronicoV2")
         Else
 
-            If Imagen.Exists Then
+            params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-            Else
-                params.Add(New ReportParameter("LogoPath", ""))
-            End If
 
             params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
             params.Add(New ReportParameter("Direccion", UsuarioActual.Empresa.Direccion))

Bancos/PagoElectronicoGrupos.aspx.vb

@@ -2313,7 +2313,7 @@ Partial Class Bancos_PagoElectronicoGrupos
 
     Protected Sub BtnReporteAltaCarga_Click(sender As Object, e As EventArgs)
         Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/LayoutAltaProveedor.rdlc", UsuarioActual.Empresa.Ruta))
-        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")
 
 
         'Estatus visible
@@ -2326,11 +2326,7 @@ Partial Class Bancos_PagoElectronicoGrupos
         Else
 
 
-            If Imagen.Exists Then
+            params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-            Else
-                params.Add(New ReportParameter("LogoPath", ""))
-            End If
 
 
             params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
@@ -2347,7 +2343,7 @@ Partial Class Bancos_PagoElectronicoGrupos
 
     Protected Sub BtnReporteAltaGenera_Click(sender As Object, e As EventArgs)
         Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/LayoutAltaProveedor.rdlc", UsuarioActual.Empresa.Ruta))
-        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")
 
         'Estatus no visible
         Dim params As New List(Of ReportParameter)
@@ -2359,11 +2355,7 @@ Partial Class Bancos_PagoElectronicoGrupos
 
 
 
-            If Imagen.Exists Then
+            params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-            Else
-                params.Add(New ReportParameter("LogoPath", ""))
-            End If
 
             params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
             params.Add(New ReportParameter("Direccion", UsuarioActual.Empresa.Direccion))
@@ -2380,7 +2372,7 @@ Partial Class Bancos_PagoElectronicoGrupos
     Protected Sub BtnReportePago_Click(sender As Object, e As EventArgs)
              
         Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/LayoutAltaProveedor.rdlc", UsuarioActual.Empresa.Ruta))
-        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_PagosReporte As New DataTable
         DT_PagosReporte = DTPendientes.FiltraParametros("EstatusPagoElectronicoGrupos = 'True'  AND EstatusCtaDeposito > 0").Copy()
@@ -2397,11 +2389,7 @@ Partial Class Bancos_PagoElectronicoGrupos
         Else
 
 
-            If Imagen.Exists Then
+            params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-            Else
-                params.Add(New ReportParameter("LogoPath", ""))
-            End If
 
             params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
             params.Add(New ReportParameter("Direccion", UsuarioActual.Empresa.Direccion))
@@ -2986,7 +2974,7 @@ Partial Class Bancos_PagoElectronicoGrupos
     Protected Sub LnkDescargaReporte_Click(sender As Object, e As EventArgs)
 
         Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/LayoutAltaProveedor.rdlc", UsuarioActual.Empresa.Ruta))
-        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")
 
         DT_PagosReporte = DT_PagosReporte.FiltraParametros("EstatusPagoElectronicoGrupos = 'True'  AND EstatusCtaDeposito > 0").Copy()
 
@@ -2997,11 +2985,7 @@ Partial Class Bancos_PagoElectronicoGrupos
         Else
 
 
-            If Imagen.Exists Then
+            params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-            Else
-                params.Add(New ReportParameter("LogoPath", ""))
-            End If
 
             params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
             params.Add(New ReportParameter("Direccion", UsuarioActual.Empresa.Direccion))

Bancos/PopIECompras.aspx.vb

@@ -1464,7 +1464,7 @@ Partial Class Bancos_PopIECompras
             Case "5" 'Acreedores Diversos
                 ImportePagado = TxtImporte.Text.Trim.ToDecimal
                 CveConcepto = 17
-                CveConcepto2 = 41
+                CveConcepto2 = 56
                 CveProveedor2 = DdlAcreedor.SelectedValue.ToEntero
                 CveIE = -1
                 'verifica que se halla selccionado algun acreedor
@@ -1779,7 +1779,7 @@ Partial Class Bancos_PopIECompras
                                                         If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, TxtObservaciones.Text, ConceptoContable, ConceptoMovimiento, Fecha, IdCtaContable, -1, CveIE, -1, CveCompra, -1, -1, CveProveedor:=CveProveedor2, ImporteMX:=ImporteMX, TipoCambio:=If(PagoMismoMes, tipoCambioCompra, TCUltimaFluctuacion)) Then
                                                             MsgError = "No se pudo insertar la póliza"
                                                         End If
-
+                                                        '123456789
                                                         If CveMonedaCompra <> 1 AndAlso (IdCtaContComplementaria > 0 Or UsuarioActual.CveEmpresa = 119) Then
                                                             IdCtaContable = IdCtaContComplementaria
                                                             If ImporteMovimiento <> 0 AndAlso (IdCtaContable > 0 Or UsuarioActual.CveEmpresa = 119) Then
@@ -2736,6 +2736,8 @@ Partial Class Bancos_PopIECompras
 
                                                         CveIE = rw.DataKey("CveIE").ToString.ToEntero
 
+                                                        ConceptoContable = If(CveMoneda <> 1, 346, 56)
+
                                                         IdCtaContable = CtaProveedorAcreedores
                                                         If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, TxtObservaciones.Text, ConceptoContable, ConceptoMovimiento, Fecha, IdCtaContable, -1, CveIE, -1, CveCompra, CveProveedor:=CveProveedor2, CvePersonal:=CvePersonal, ImporteMX:=ImporteMX, TipoCambio:=tipoCambioPago) Then
                                                             MsgError = "No se pudo insertar la póliza"

Bancos/ProveedoresAbonar.aspx.vb

@@ -912,38 +912,38 @@ Partial Class Bancos_ProveedoresAbonar
                                 End If
                             End If
 
-                            If UsuarioActual.CveEmpresa.Contiene(119, 158) AndAlso CveMoneda = 2 AndAlso CveMonedaFiltro = 1 Then 'Si la venta viene en pesos y se va a pagar en DOLARES
+                            'If UsuarioActual.CveEmpresa.Contiene(119, 158) AndAlso CveMoneda = 2 AndAlso CveMonedaFiltro = 1 Then 'Si la venta viene en pesos y se va a pagar en DOLARES
-                                'fluctuación.
+                            '    'fluctuación.
-                                Dim TCPago = TxtTCDolares.Text.ToDecimal
+                            '    Dim TCPago = TxtTCDolares.Text.ToDecimal
 
-                                Dim ImporteFluctuacion As Decimal = 0 '((ImporteSeleccionado / TCPago) - TxtImporte.Text.ToDecimal) 
+                            '    Dim ImporteFluctuacion As Decimal = 0 '((ImporteSeleccionado / TCPago) - TxtImporte.Text.ToDecimal) 
 
-                                Dim DtPrePoliza As DataTable = Nothing
+                            '    Dim DtPrePoliza As DataTable = Nothing
-                                If ObjMov.GetPrePolizasDetalle(CvePrePoliza, UsuarioActual.CveEmpresa) Then
+                            '    If ObjMov.GetPrePolizasDetalle(CvePrePoliza, UsuarioActual.CveEmpresa) Then
-                                    DtPrePoliza = ObjMov.DtResultados.Copy
+                            '        DtPrePoliza = ObjMov.DtResultados.Copy
-                                End If
+                            '    End If
 
-                                Dim PagoProveedoresME = DtPrePoliza.SUMD("ImporteMN", "CveConceptoContable = 312 AND TipoMovto = 0")
+                            '    Dim PagoProveedoresME = DtPrePoliza.SUMD("ImporteMN", "CveConceptoContable = 312 AND TipoMovto = 0")
-                                Dim Bancos = DtPrePoliza.SUMD("ImporteMN", "CveConceptoContable = 30 AND TipoMovto = 1")
+                            '    Dim Bancos = DtPrePoliza.SUMD("ImporteMN", "CveConceptoContable = 30 AND TipoMovto = 1")
-                                Dim BancosComplementaria = DtPrePoliza.SUMD("ImporteMN", "CveConceptoContable = 204 AND TipoMovto = 1")
+                            '    Dim BancosComplementaria = DtPrePoliza.SUMD("ImporteMN", "CveConceptoContable = 204 AND TipoMovto = 1")
 
-                                DtPrePoliza.Dispose()
+                            '    DtPrePoliza.Dispose()
 
-                                ImporteFluctuacion = PagoProveedoresME - (Bancos + BancosComplementaria)
+                            '    ImporteFluctuacion = PagoProveedoresME - (Bancos + BancosComplementaria)
 
-                                If MsgError = "" AndAlso ImporteFluctuacion.RoundSQL() <> 0 Then
+                            '    If MsgError = "" AndAlso ImporteFluctuacion.RoundSQL() <> 0 Then
-                                    'SI EL PAGO DE PROVEEDORES ME ES MAYOR QUE BANCOS METER EL CONCEPTO DE GANANCIA
+                            '        'SI EL PAGO DE PROVEEDORES ME ES MAYOR QUE BANCOS METER EL CONCEPTO DE GANANCIA
-                                    If ImporteFluctuacion > 0 Then
+                            '        If ImporteFluctuacion > 0 Then
-                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, Math.Abs(ImporteFluctuacion), Referencia, 64, ConceptoMovimiento, TxtFechaIncobrable.Text.ToDate, IdCtaContable:=UsuarioActual.Empresa.IdCuentaGananciaCambiaria, CveIE:=-1, IdSegmentoNegocio:=-1, CveSubProyecto:=CveSubProyecto, CveProveedor:=Me.CveProveedor, CveCompra:=-1, ImporteMX:=Math.Abs(ImporteFluctuacion), TipoCambio:=TipoCambio, TipoCambioPago:=TCPago) Then
+                            '            If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, Math.Abs(ImporteFluctuacion), Referencia, 64, ConceptoMovimiento, TxtFechaIncobrable.Text.ToDate, IdCtaContable:=UsuarioActual.Empresa.IdCuentaGananciaCambiaria, CveIE:=-1, IdSegmentoNegocio:=-1, CveSubProyecto:=CveSubProyecto, CveProveedor:=Me.CveProveedor, CveCompra:=-1, ImporteMX:=Math.Abs(ImporteFluctuacion), TipoCambio:=TipoCambio, TipoCambioPago:=TCPago) Then
-                                            MsgError = "Ocurrio un error al saldar el movimiento"
+                            '                MsgError = "Ocurrio un error al saldar el movimiento"
-                                        End If
+                            '            End If
-                                    ElseIf ImporteFluctuacion < 0 Then
+                            '        ElseIf ImporteFluctuacion < 0 Then
-                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, Math.Abs(ImporteFluctuacion), Referencia, 65, ConceptoMovimiento, TxtFechaIncobrable.Text.ToDate, IdCtaContable:=UsuarioActual.Empresa.IdCuentaPerdidaCambiaria, CveIE:=-1, IdSegmentoNegocio:=-1, CveSubProyecto:=CveSubProyecto, CveProveedor:=Me.CveProveedor, CveCompra:=-1, ImporteMX:=Math.Abs(ImporteFluctuacion), TipoCambio:=TipoCambio, TipoCambioPago:=TCPago) Then
+                            '            If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, Math.Abs(ImporteFluctuacion), Referencia, 65, ConceptoMovimiento, TxtFechaIncobrable.Text.ToDate, IdCtaContable:=UsuarioActual.Empresa.IdCuentaPerdidaCambiaria, CveIE:=-1, IdSegmentoNegocio:=-1, CveSubProyecto:=CveSubProyecto, CveProveedor:=Me.CveProveedor, CveCompra:=-1, ImporteMX:=Math.Abs(ImporteFluctuacion), TipoCambio:=TipoCambio, TipoCambioPago:=TCPago) Then
-                                            MsgError = "Ocurrio un error al saldar el movimiento"
+                            '                MsgError = "Ocurrio un error al saldar el movimiento"
-                                        End If
+                            '            End If
-                                    End If
+                            '        End If
-                                End If
+                            '    End If
-                            End If
+                            'End If
 
                         End If
 
@@ -2028,7 +2028,7 @@ Partial Class Bancos_ProveedoresAbonar
     End Sub
     Private Sub GenerarPDFSolicitud(Opcion As String)
         If DtDatos.Rows.Count > 0 Then
-            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 StrImporte As String = DtDatos.Rows(0)("Saldo").ToString.FormatoNumero
             Dim params As New List(Of ReportParameter)
@@ -2058,11 +2058,7 @@ Partial Class Bancos_ProveedoresAbonar
             params.Add(New ReportParameter("CLABE", CLABE))
             params.Add(New ReportParameter("Cuenta", Cuenta))
             params.Add(New ReportParameter("Correo", Correo))
-            If Imagen.Exists Then
+            params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-            Else
-                params.Add(New ReportParameter("LogoPath", ""))
-            End If
             Dim NombreArchivo As String = "SolicitudPago" ''String.Format("SolicitudPago{0}.pdf", TxtPagueseA.Text).Replace(" ", "")
             ImprimirPDF("Empresas/Grales/Formatos/Solicitud.rdlc", DtDatos, params, NombreArchivo, Opcion)
         Else

Bancos/RepClientesAnticipo.aspx.vb

@@ -146,7 +146,7 @@ Partial Class Bancos_RepClientesAnticipo
 
         Dim params As New List(Of ReportParameter)
 
-        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 Filtros As String = "<b>Filtros: </b>"
 
@@ -169,11 +169,7 @@ Partial Class Bancos_RepClientesAnticipo
         params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
         params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
 
-        If Imagen.Exists Then
+        params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-        Else
-            params.Add(New ReportParameter("LogoPath", ""))
-        End If
 
         ImprimirPDF("Empresas\Grales\Formatos\RepClientesAnticipo.rdlc", DTDatos, params, "ReporteAnticipoClientes", Formato:=Formato)
 

Bancos/RepCobrado.aspx.vb

@@ -140,18 +140,14 @@ Partial Class Ventas_RepRecuperacion
             RutaPDF = "Empresas/Grales/Formatos/RepRecuperacion.rdlc"
         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)
         params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
         params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
         params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
         params.Add(New ReportParameter("Filtros", StrFiltro.ToString))
-        If Imagen.Exists Then
+        params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-        Else
-            params.Add(New ReportParameter("LogoPath", ""))
-        End If
         ImprimirPDF(RutaPDF, DtDatos, params, "RepRecuperacion" & Now.ToString("yyyyMMddhhmmss"), Formato)
     End Sub
 

Bancos/RepCobradoDetalle.aspx.vb

@@ -199,18 +199,14 @@ Partial Class Ventas_RepRecuperacionDetalle
             RutaPDF = "Empresas/Grales/Formatos/RepRecuperacionDetalle.rdlc"
         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)
         params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
         params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
         params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
         params.Add(New ReportParameter("Filtros", StrFiltro.ToString))
-        If Imagen.Exists Then
+        params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-        Else
-            params.Add(New ReportParameter("LogoPath", ""))
-        End If
         ImprimirPDF(RutaPDF, DtDatos, params, "RepRecuperacionDetalle" & Now.ToString("yyyyMMddhhmmss"), Formato)
     End Sub
 End Class

Bancos/RepCobradoPagado.aspx.vb

@@ -189,7 +189,7 @@ Partial Class Bancos_RepCobradoPagado
         Dim FPenultimoMes As String = LblPenultimoMes.Text
 
         If DtDatos.Rows.Count > 0 Then
-            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)
             params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
@@ -202,11 +202,7 @@ Partial Class Bancos_RepCobradoPagado
             params.Add(New ReportParameter("FUltimaSemana", FUltimaSemana))
             params.Add(New ReportParameter("FUltimoMes", FUltimoMes))
             params.Add(New ReportParameter("FPenultimoMes", FPenultimoMes))
-            If Imagen.Exists Then
+            params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-            Else
-                params.Add(New ReportParameter("LogoPath", ""))
-            End If
             ImprimirPDF("Empresas/Grales/Formatos/RepCobradoPagado.rdlc", DtDatos, params, "ReporteCobrado-Pagado")
         Else
             Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)

Bancos/RepComprobaciones.aspx.cs

@@ -75,7 +75,7 @@ public partial class Bancos_RepComprobaciones : ClsPaginas
     {
         List<ReportParameter> @params = new List<ReportParameter>();
 
-        System.IO.FileInfo Imagen = new System.IO.FileInfo(string.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta));        
+        System.IO.FileInfo Imagen = new System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png");        
 
         @params.Add(new ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa));
         @params.Add(new ReportParameter("FechaInicio", TxtFechaInicio.Text));
@@ -84,15 +84,7 @@ public partial class Bancos_RepComprobaciones : ClsPaginas
         @params.Add(new ReportParameter("FechaImpresion", DateTime.Now.ToString()));
         @params.Add(new ReportParameter("Cuenta", DdlCuentas.SelectedItem.Text));
 
-        if (Imagen.Exists)
+        @params.Add(new ReportParameter("LogoPath", Imagen.Exists ? $"file://{Imagen.FullName}" : ""));
-        {
-            @params.Add(new ReportParameter("LogoPath", $"file://{Imagen.FullName}"));
-        }
-        else
-        {
-            @params.Add(new ReportParameter("LogoPath", ""));
-        }
-
         ImprimirPDF("Empresas/Grales/Formatos/RepComprobaciones.rdlc", DTDatos, @params, "ReporteComprobaciones", Formato);
     }
     #endregion

Bancos/RepCxCCliente.aspx.vb

@@ -131,7 +131,7 @@ Partial Class Bancos_RepCxCCliente
 
 
     Private Sub GenerarPDFpp()
-        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")
 
         'OBTENEMOS LOS DATOS
         Dim ObjMovtos As New ClsMovimientos()
@@ -158,11 +158,7 @@ Partial Class Bancos_RepCxCCliente
             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
             params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToString))
 
-            If Imagen.Exists Then
+            params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-            Else
-                params.Add(New ReportParameter("LogoPath", ""))
-            End If
             ImprimirPDF("Empresas/Grales/Formatos/RepPagoClientes.rdlc", DTpp, params, "ReportePagoClientes")
         Else
             Alert("No se tienen registrados movimientos", TipoMensaje.MsgAdvertencia)

Bancos/RepEgresosSinComprobante.aspx.vb

@@ -367,7 +367,7 @@ Partial Class Bancos_RepEgresosSinComprobante
             Dim StrFiltro As New StringBuilder
             If txtFechaI.Text <> "" Then StrFiltro.AppendFormat("&emsp;<b>Fecha Inicio </b>: {0}", txtFechaI.Text.ToDate.ToShortDateString)
             If txtFechaF.Text <> "" Then StrFiltro.AppendFormat("&emsp;<b>Fecha Fin </b>: {0}", txtFechaF.Text.ToDate.ToShortDateString)
-            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 FechaI, FechaF As String
             FechaI = If(txtFechaI.Text = "" Or txtFechaI.Text = "__/__/____", "-1", txtFechaI.Text)
@@ -379,11 +379,7 @@ Partial Class Bancos_RepEgresosSinComprobante
             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
             params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
             params.Add(New ReportParameter("Filtros", StrFiltro.ToString))
-            If Imagen.Exists Then
+            params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-            Else
-                params.Add(New ReportParameter("LogoPath", ""))
-            End If
             ImprimirPDF($"Empresas/Grales/Formatos/{Archivo}", DtDatos, params, String.Format("EgresosSinComprovante-{0}", Now.ToDateTime.ToShortDateString), Formato:=Formato)
         End If
     End Sub

Bancos/RepIE.aspx.vb

@@ -550,11 +550,7 @@ Partial Class Bancos_RepIE
 
         params.Add(New ReportParameter("CajaChica", ParametrosReporte))
 
-        If Imagen.Exists Then
+        params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-        Else
-            params.Add(New ReportParameter("LogoPath", ""))
-        End If
 
         ImprimirPDF("Empresas/Grales/Formatos/RepRembolsosComprobacionesIE.rdlc", DtDatos, params, "ReporteMovimientosBancarios", Formato:=Formato)
 

Bancos/RepProveedoresPagos.aspx.vb

@@ -229,7 +229,7 @@ Partial Class Bancos_RepProveedoresPagos
 
     Private Sub GenerarPDFpp(Optional Formato As String = "PDF", Optional AgrupadoPorSubProyecto As Boolean = False)
 
-        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")
 
 
         'OBTENEMOS LOS DATOS
@@ -310,11 +310,7 @@ Partial Class Bancos_RepProveedoresPagos
             params.Add(New ReportParameter("AgrupadoPor", $"{Programo} {Proveedor} {Registro} {Responsable} {Clasificacion} {Moneda} {Estatus} {SubProyecto} {FechaIn} {FechaFn}{FVI}{FVF}"))
             params.Add(New ReportParameter("Programadas", If(ChkProgramadas.Checked, 1, 0)))
 
-            If Imagen.Exists Then
+            params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-            Else
-                params.Add(New ReportParameter("LogoPath", ""))
-            End If
             ImprimirPDF("Empresas/Grales/Formatos/RepPagoProveedores.rdlc", DTpp, params, "ReportePagoProveedores", Formato)
         Else
             Alert("No se tienen registrados movimientos", TipoMensaje.MsgAdvertencia)

Bancos/RepSaldos.aspx.vb

@@ -159,7 +159,7 @@ Partial Class Bancos_RepSaldos
 
 
     Private Sub ImprimirReportePdf(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")
 
         'OBTENEMOS LOS DATOS
         Dim DtBancos As DataTable
@@ -195,11 +195,7 @@ Partial Class Bancos_RepSaldos
         params.Add(New ReportParameter("FechaInicio", FechaI))
         params.Add(New ReportParameter("FechaFin", FechaF))
 
-        If Imagen.Exists Then
+        params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-        Else
-            params.Add(New ReportParameter("LogoPath", ""))
-        End If
 
         ImprimirPDF("Empresas/Grales/Formatos/RepSaldos.rdlc", DtBancos, params, "RepSaldos", Formato:=Formato)
 

Bancos/RepSaldosDetalle.aspx.vb

@@ -186,7 +186,7 @@ Partial Class Bancos_RepSaldosDetalle
     End Sub
 
     Private Sub ImprimirReporte(formato As String)
-        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")
 
         'OBTENEMOS LOS DATOS
         Dim dt As DataTable
@@ -213,11 +213,7 @@ Partial Class Bancos_RepSaldosDetalle
         params.Add(New ReportParameter("NombreCuenta", NombreCuenta))
         params.Add(New ReportParameter("SaldoInicial", LblSaldoInicial.Text))
 
-        If Imagen.Exists Then
+        params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-        Else
-            params.Add(New ReportParameter("LogoPath", ""))
-        End If
 
         ImprimirPDF("Empresas/Grales/Formatos/RepSaldosDetalle.rdlc", dt, params, "RepSaldosDetalle", Formato:=formato)
 

Bancos/RepSaldosPeriodo.aspx.cs

@@ -98,7 +98,7 @@ public partial class Bancos_RepSaldosPeriodo : ClsPaginas
     private void GenerarPDF(string Opcion)
     {
         string Moneda, FechaCorte, NoCuenta, Agrupador;
-        if (DdlMoneda.SelectedValue == "-1") { Moneda = ""; } else { Moneda = $"&emsp;<b>Moneda:</b> {DdlMoneda.SelectedItem.Text}"; }
+        if (DdlMoneda.SelectedValue == "-1") { Moneda = ""; } else { Moneda = $"&emsp;<b>Moneda:</b> {DdlMoneda.SelectedItem.Text}"; }
         if (DdlCuenta.SelectedValue == "-1") { NoCuenta = ""; } else { NoCuenta = $"&emsp;<b>No. Cuenta:</b> {DdlCuenta.SelectedItem.Text}"; }
         if (DdlOpcion.SelectedValue == "-1") { Agrupador = ""; } else { Agrupador = $"&emsp;<b>Agrupador:</b> {DdlOpcion.SelectedItem.Text}"; }
         if (txtFechaF.Text == "") { FechaCorte = ""; } else { FechaCorte = $"&emsp;<b>Fecha Corte:</b> {txtFechaF.Text}"; }

CGame/AsignacionEmpaque.aspx.cs

@@ -365,7 +365,7 @@ public partial class CGame_AsignacionEmpaque : ClsPaginas
     {
         if (DtCajas.Rows.Count > 0 && DtBins.Rows.Count > 0)
         {
-            System.IO.FileInfo Imagen = new System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta));
+            System.IO.FileInfo Imagen = new System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png");
             String logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa);
 
             List<ReportParameter> para = new List<ReportParameter>();

CGame/AsignacionEmpaque2.aspx.cs

@@ -511,7 +511,7 @@ public partial class CGame_AsignacionEmpaque2 : ClsPaginas
     {
         if (DtCajas.Rows.Count > 0 && DtBins.Rows.Count > 0)
         {
-            System.IO.FileInfo Imagen = new System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta));
+            System.IO.FileInfo Imagen = new System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png");
             String logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa);
 
             List<ReportParameter> para = new List<ReportParameter>();

CGame/Empaque.aspx.cs

@@ -1279,7 +1279,7 @@ public partial class Empaque : ClsPaginas
 
         if (DtCorte.Rows.Count > 0 && DtResultado.Rows.Count > 0)
         {
-            System.IO.FileInfo Imagen = new System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta));
+            System.IO.FileInfo Imagen = new System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png");
             String logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa);
             List<ReportParameter> para = new List<ReportParameter>();
             para.Add(new ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa));

CGame/EntradaMateriaPrima.aspx.cs

@@ -408,7 +408,7 @@ public partial class CATCorte : ClsPaginas
{
     #region Validacion
 
     public bool Valida()
-    {
+    {
         if (DdlOrdenCorte.SelectedValue == "-2")
         {
             Alert("Tiene que seleccionar una orden de corte", ModExtensiones.TipoMensaje.MsgAdvertencia);

CGame/Liquidacion.aspx.cs

@@ -274,7 +274,7 @@ public partial class CGame_Liquidacion : ClsPaginas
                 TotPesoPri = DtIngresos.SUM("PesoPrimera");
                 TotPesoSeg = DtIngresos.SUM("PesoSegunda");
                 TotPesoJug = DtIngresos.SUM("PesoJugo");
-                TotCantidadPri = DtIngresos.SUM("CantidadPrimera");
+                TotCantidadPri = DtIngresos.SUM("CantidadPrimera");
                 TotCantidadSeg = DtIngresos.SUM("CantidadSegunda");
                 TotCantidadJug = DtIngresos.SUM("CantidadJugo");
                 Merma = DtIngresos.Rows[0]["Merma"].ToString().ToDouble();

CGame/OrdenProduccion.aspx.vb

@@ -1676,7 +1676,7 @@ Partial Class CGame_OrdenProduccion
         If ObjCGame.GetOrdenProduccion(CveOrdenProduccion, UsuarioActual.CveEmpresa, -1, "-1", MinFecha, MaxFecha, -1) Then
             If ObjCGame.DtResultados.Rows.Count > 0 Then
                 Dim Dt As New DataTable
-                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)
                 params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
@@ -1687,11 +1687,7 @@ Partial Class CGame_OrdenProduccion
                 params.Add(New ReportParameter("Direccion", ObjCGame.DtResultados.Rows(0)("Direccion").ToString))
                 params.Add(New ReportParameter("Ciudad", ObjCGame.DtResultados.Rows(0)("Ciudad").ToString))
                 params.Add(New ReportParameter("Fecha", ObjCGame.DtResultados.Rows(0)("Fecha").ToString.ToDate.ToShortDateString))
-                If Imagen.Exists Then
+                params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-                    params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-                Else
-                    params.Add(New ReportParameter("LogoPath", ""))
-                End If
                 If ObjCGame.GetAvance(CveOrdenProduccion, UsuarioActual.CveEmpresa) Then
                     Dt = ObjCGame.DtResultados
                     If Dt.Rows.Count > 0 Then

CGame/RepAvance.aspx.cs

@@ -216,7 +216,7 @@ public partial class CGame_RepAvance : ClsPaginas
     //    }
     //    ObjCGame.Dispose();
 
-    //    if ((DtIngresosPrimera.Rows.Count > 0 || DtIngresosSegunda.Rows.Count > 0) || (DtGastosPrimera.Rows.Count > 0 || DtGastosSegunda.Rows.Count > 0))
+    //    if ((DtIngresosPrimera.Rows.Count > 0 || DtIngresosSegunda.Rows.Count > 0) || (DtGastosPrimera.Rows.Count > 0 || DtGastosSegunda.Rows.Count > 0))
     //    {
     //        double TotIngresosPrimera = 0, TotIngresosSegunda = 0, TotGastosPrimera = 0, TotGastosSegunda = 0, TotPesoPrimera = 0, TotPesoSegunda = 0, MermaPrimera = 0, MermaSegunda = 0, TotCantidadPrimera=0, TotCantidadSegunda=0;
     //        if (DtIngresosPrimera.Rows.Count > 0) { TotIngresosPrimera = DtIngresosPrimera.SUM("Importe"); TotPesoPrimera = DtIngresosPrimera.SUM("Peso"); MermaPrimera = DtIngresosPrimera.SUM("Merma"); TotCantidadPrimera = DtIngresosPrimera.SUM("Cantidad"); }

CGame/RepEmpaque.aspx.cs

@@ -120,7 +120,7 @@ public partial class CGame_RepEmpaque : ClsPaginas
         if (txtFechaI.Text == "" || txtFechaI.Text == "__/__/____") { FechaI = "-1"; } else { FechaI = $"&emsp;<b>Fecha Entrega Inicial:</b> {txtFechaI.Text}"; }
         String Huerta;
         if (DdlHuerta.SelectedValue != "-1") { Huerta = $"&emsp;<b>Huerta:</b> {DdlHuerta.SelectedItem.Text}"; } else { Huerta = ""; }
-        String Folio;
+        String Folio;
         if (TxtFolio.Text != "") { Folio = $"&emsp;<b>Folio:</b> {TxtFolio.Text}"; } else { Folio = ""; }
         if (DtDatos.Rows.Count > 0)
         {

CGame/RepOrdenCorte.aspx.cs

@@ -71,7 +71,7 @@ public partial class CGame_RepOrdenCorte : ClsPaginas
 
     protected void GenerarPDF(String Opcion)
     {
-        String FechaF;
+        String FechaF;
         if (txtFechaF.Text == "" || txtFechaF.Text == "__/__/____") { FechaF = "-1"; } else { FechaF = $"&emsp;<b>Fecha Entrega Final:</b> {txtFechaF.Text}"; }
         String FechaI;
         if (txtFechaI.Text == "" || txtFechaI.Text == "__/__/____") { FechaI = "-1"; } else { FechaI = $"&emsp;<b>Fecha Entrega Inicial:</b> {txtFechaI.Text}"; }

CGame/RepOrdenProduccion.aspx.cs

@@ -123,7 +123,7 @@ public partial class CGame_RepOrdenProduccion :ClsPaginas
         if (TxtFolio.Text != "") { Folio = $"&emsp;<b>Folio:</b> {TxtFolio.Text}"; } else { Folio = ""; }
         if (DtDatos.Rows.Count > 0)
         {
-            System.IO.FileInfo Imagen = new System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta));
+            System.IO.FileInfo Imagen = new System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png");
             String logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa);
             List<ReportParameter> para = new List<ReportParameter>();
             para.Add(new ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa));

CRM/CatEtapasProceso.aspx.cs

@@ -409,7 +409,7 @@ public partial class CRM_CatEtapasProceso : ClsPaginas
 
     private void Imprimir(string formato)
     {
-        System.IO.FileInfo Image = new System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta));
+        System.IO.FileInfo Image = new System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png");
         string logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa);
 
         List<ReportParameter> param = new List<ReportParameter>();

CRM/CatProbabilidadAcercamiento.aspx.cs

@@ -237,7 +237,7 @@ public partial class CRM_CatProbabilidadAcercamiento : ClsPaginas
 
     private void Imprimir(string formato)
     {
-        System.IO.FileInfo Image = new System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta));
+        System.IO.FileInfo Image = new System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png");
         string logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa);
 
         List<ReportParameter> param = new List<ReportParameter>();

CRM/CatTipoProceso.aspx.cs

@@ -313,7 +313,7 @@ public partial class CRM_CatTipoProceso : ClsPaginas
 
     public void Imprimir(string formato)
     {
-        System.IO.FileInfo Image = new System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta));
+        System.IO.FileInfo Image = new System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png");
         string logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa);
 
         List<ReportParameter> param = new List<ReportParameter>();

CRM/RepAcercamientos.aspx.cs

@@ -149,10 +149,11 @@ public partial class CRM_RepAcercamientos : ClsPaginas
         string FechaFinFiltro = String.Format("<strong>Fecha Fin:</strong> {0}&nbsp;&nbsp;&nbsp;&nbsp;", TxtFechaFin.Text);
 
         string Filtros = String.Format("{0}{1}{2}{3}{4}", VendedorFiltro, FechaInicioFiltro, FechaFinFiltro, ProductoServicioFiltro, GiroFiltro);
+        System.IO.FileInfo Imagen = new System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png");
 
         List<ReportParameter> @params = new List<ReportParameter>();
         @params.Add(new ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa));
-        @params.Add(new ReportParameter("LogoPath", new Uri(Server.MapPath(string.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri));
+        @params.Add(new ReportParameter("LogoPath", Imagen.Exists ? $"file://{Imagen.FullName}" : ""));
         @params.Add(new ReportParameter("UsuarioImprimio", UsuarioActual.Usuario));
         @params.Add(new ReportParameter("AgrupadoPor", Filtros));
 
@@ -180,15 +181,9 @@ public partial class CRM_RepAcercamientos : ClsPaginas
         GVDatos.Columns[9].Visible = ChkEnPausa.Checked;
         GVDatos.Columns[10].Visible = ChkGiro.Checked;
 
-
         UPDatos.Update();
 
         RegistraScript("$('#DivPersonalizar').modal('hide')");
-
-
-
-
     }
 
-
 }

CRM/RepAcercamientosProcesos.aspx.cs

@@ -418,7 +418,7 @@ public partial class CRM_RepAcercamientosProcesos : ClsPaginas
     private PdfPTable crearHeader()
     {
         //Imagen de la empresa
-        iTextSharp.text.Image pic = iTextSharp.text.Image.GetInstance(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta));
+        iTextSharp.text.Image pic = iTextSharp.text.Image.GetInstance($"{UsuarioActual.Empresa.Ruta}/Logo.png");
         pic.ScalePercent(20f);
 
         BaseColor bordesBlancos = new BaseColor(255, 255, 255);

CRM/RepAcercamientosProcesosDetalle.aspx.cs

@@ -365,7 +365,7 @@ public partial class CRM_RepAcercamientosProcesosDetalle : ClsPaginas
             if (DdlGiroClasificacion.SelectedValue.ToEntero() > 0) { StrFiltro.AppendFormat("&emsp;<b>Clasificación:</b> {0}", DdlGiroClasificacion.SelectedItem.ToString()); }
 
             string logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa);
-            var  Imagen = new FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta));
+            var  Imagen = new FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png");
 
             string FechaI, FechaF;
             if(TxtFechaInicio.Text == "" || TxtFechaInicio.Text == "__/__/____") { FechaI = "-1"; } else { FechaI = TxtFechaInicio.Text; }

CRM/RepAcercamientosRechazos.aspx.cs

@@ -398,7 +398,7 @@ public partial class CRM_RepAcercamientosRechazos : ClsPaginas
     private PdfPTable crearHeader()
     {
         //Imagen de la empresa
-        iTextSharp.text.Image pic = iTextSharp.text.Image.GetInstance(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta));
+        iTextSharp.text.Image pic = iTextSharp.text.Image.GetInstance($"{UsuarioActual.Empresa.Ruta}/Logo.png");
         pic.ScalePercent(20f);
 
         BaseColor bordesBlancos = new BaseColor(255, 255, 255);

Compras/CatEstatusFactura.aspx.vb

@@ -148,18 +148,14 @@ Partial Class Compras_CatEstatusFactura
     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 params As New List(Of ReportParameter)
         params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
         params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
         params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
 
-        If Imagen.Exists Then
+        params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-        Else
-            params.Add(New ReportParameter("LogoPath", ""))
-        End If
 
         ImprimirPDF("Empresas/Grales/Formatos/RepEstatusFactura.rdlc", GlobalDTCompEstatusFactura, params, "Reporte de Estatus Factura", Formato)
     End Sub

Compras/CatProveedores.aspx.vb

@@ -253,7 +253,7 @@ Partial Class Compras_CatProveedores
 
     Protected Sub LnkCtasBanc_Click(sender As Object, e As EventArgs)
 
-        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 DtDatos As DataTable = Nothing
         Dim ObjBancos As New ClsBancos
@@ -269,11 +269,7 @@ Partial Class Compras_CatProveedores
 
             params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
 
-            If Imagen.Exists Then
+            params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-            Else
-                params.Add(New ReportParameter("LogoPath", ""))
-            End If
 
             ImprimirPDF("Empresas/Grales/Formatos/RepCuentasBancarias.rdlc", DtDatos, params, "RepCuentasBancarias", "Excel")
         Else
@@ -283,7 +279,7 @@ Partial Class Compras_CatProveedores
 
     Protected Sub LnkCtasBancSinProveedor_Click(sender As Object, e As EventArgs)
 
-        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 DtDatos As DataTable = Nothing
@@ -377,7 +373,7 @@ Partial Class Compras_CatProveedores
         worksheet.Rows(IndexEndTable).Cells(6).Value = "Fecha Impresión"
         worksheet.Rows(IndexEndTable + 1).Cells(6).Value = DateTime.Now.ToString("dd/MM/yyyy")
 
-        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")
 
         If Imagen.Exists Then
             Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", HttpContext.Current.Request.Url.Scheme, HttpContext.Current.Request.Url.Host, HttpContext.Current.Request.Url.Port, UsuarioActual.CveEmpresa)

Compras/Compras.aspx

@@ -3643,7 +3643,7 @@
             <!-- Modal content-->
             <div class="modal-content" style="width: 500px; margin-left: 50px;">
                 <div class="modal-header ">
-                    <button type="button" class="close" data-dismiss="modal">&times;</button>
+                    <%--<button type="button" class="close" data-dismiss="modal">&times;</button>--%>
                     <h4 class="modal-title">Impuestos en la Factura</h4>
                 </div>
 
@@ -3690,7 +3690,7 @@
                     <asp:UpdatePanel runat="server">
                         <ContentTemplate>
                             <asp:Button ID="BtnAgregarIEPS" OnClick="BtnAgregarIEPS_Click" runat="server" ClientIDMode="Static" Text="Agregar" ValidationGroup="GrpAgregar" CssClass="btn btn-primary" />
-                            <button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
+                            <button type="button" class="btn btn-danger" data-dismiss="modal" runat="server" id="BtnCancelarotrosImpuestos" visible="false">Cancelar</button>
                         </ContentTemplate>
                     </asp:UpdatePanel>
                 </div>

Compras/Compras.aspx.vb

@@ -2359,7 +2359,15 @@ Partial Class Compras_Compras
         End If
 
         If TrasladoIEPS > 0 Or OtrosImpuestos > 0 Then
-            RegistraScript("$('#ModalIEPS').modal('show');")
+
+
+            If OtrosImpuestos > 0 Then
+                RegistraScript("$('#ModalIEPS').modal({ backdrop: 'static', keyboard: false },'show');")
+            Else
+                RegistraScript("$('#ModalIEPS').modal('show');")
+                BtnCancelarotrosImpuestos.Visible = True
+            End If
+
 
             If TrasladoIEPS > 0 Then
                 ChkIEPS.Visible = True
@@ -8627,6 +8635,7 @@ Partial Class Compras_Compras
                                         'vinculo la compra actual, y no la compra como si fuera nota de credito
                                         CveCompraNC = -1
                                         CveIE = gvr.DataKey("CveIE").ToEntero
+                                        CompraActual.IdCtaContableAnticipoProv = IdCtaContable
                                     Case "DD"
                                         CveConceptoCompra = If(CveMonedaAnticipo = 1, 37, 37)
                                         IdCtaContable = CtaProveedorDeudores
@@ -8637,10 +8646,9 @@ Partial Class Compras_Compras
 
                                 PorcentajePago = gvr.FCTextBox("TxtAnticipo").Text.ToDecimal / TxtTotal.Text.ToDecimal
 
-                                Dim ImporteAntMNComision As Decimal = (ImporteAnt + ImporComisionAnticipo)
+
-                                If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, TipoMovimientoCompra, (ImporteAnt + ImporComisionAnticipo), "", CveConceptoCompra, "", TxtFechaPago.Text.ToDate, IdCtaContable, -1, CveCompra:=CveCompraNC, CveCompraAmortizacion:=CveCompra, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=ImporteAntMNComision, ImporteME:=If(TipoCambioAnt = 1, 0, (ImporteAnt + ImporComisionAnticipo)), TipoCambio:=TipoCambioAnt, CveSubProyecto:=CveSubProyectoAnticipo) Then
+
-                                    ErrorMovtosCxP = 1
+
-                                End If
 
                                 If CveMonedaAnticipo > 1 Then
                                     Dim ImporteAntMN As Decimal = TipoCambioAnt * ImporteAnt - ImporteAnt

Compras/PopUpVerFactura.aspx.vb

@@ -1486,7 +1486,7 @@ Partial Class PopUpVerFactura
         Dim FechaCorte As String = $"&emsp;<b>Fecha fin:</b> {Fecha}"
         Dim Usuario As String = $"&emsp;<b>Usuario:</b> {Nombre}"
         If DtCortesVentas.Rows.Count > 0 Or DtCortesVentasResumen.Rows.Count > 0 Then
-            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")
 
 
 
@@ -1496,11 +1496,7 @@ Partial Class PopUpVerFactura
             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
             params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
             params.Add(New ReportParameter("AgrupoPor", $"{FechaCorte}{Usuario}"))
-            If Imagen.Exists Then
+            params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-            Else
-                params.Add(New ReportParameter("LogoPath", ""))
-            End If
             Dim lrds As New List(Of ReportDataSource)
             Dim rds As New ReportDataSource With {.Name = "DataSet1", .Value = DtCortesVentasResumen}
             lrds.Add(rds)
@@ -1602,7 +1598,7 @@ Partial Class PopUpVerFactura
 #Region "OP = 'CONG' - IMPRIME GASTO DE CONTRATO"
     Private Sub ImprimeGastoContrato(CveContrato As Integer, CveContratoGasto As Integer)
 
-        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 Dr As DataRow = Nothing
         Dim ObjContratos As New ClsContratos
@@ -1636,11 +1632,7 @@ Partial Class PopUpVerFactura
         End If
         params.Add(New ReportParameter("Utilidad", $"$ {(SumaUtilidad - SumaGasto).ToString.FormatoNumero()}"))
 
-        If Imagen.Exists Then
+        params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-        Else
-            params.Add(New ReportParameter("LogoPath", ""))
-        End If
 
         ImprimirPDF("Empresas/Grales/Formatos/ContratoGasto.rdlc", dt, params, $"{Nombre}-Gastos", Formato:="PDF")
     End Sub
@@ -1999,14 +1991,10 @@ Partial Class PopUpVerFactura
 
             If Dt.Rows.Count > 0 Then
 
-                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")
 
 
-                If Imagen.Exists Then
+                params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-                    params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-                Else
-                    params.Add(New ReportParameter("LogoPath", ""))
-                End If
 
                 params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
                 params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
@@ -2474,13 +2462,9 @@ Partial Class PopUpVerFactura
 
                 If DtConceptos.Rows.Count > 0 Then
 
-                    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")
 
-                    If Imagen.Exists Then
+                    params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-                        params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-                    Else
-                        params.Add(New ReportParameter("LogoPath", ""))
-                    End If
                     'EMPRESA
                     params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
                     params.Add(New ReportParameter("RegimenFiscal", UsuarioActual.Empresa.Regimen))
@@ -3519,7 +3503,7 @@ Partial Class PopUpVerFactura
         Select Case CveConcepto
             Case 1 'INICIAL
                 Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Inicial.rdlc", UsuarioActual.Empresa.Ruta))
-                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)
                 Dim SBDireccion As New StringBuilder()
 
@@ -3539,11 +3523,7 @@ Partial Class PopUpVerFactura
                 If Archivo.Exists Then
                     ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Inicial.rdlc", DtMovimientos, params, String.Format("Inventario Inicial - {0}", Folio), RDSName:="DsInventarios")
                 Else
-                    If Imagen.Exists Then
+                    params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-                        params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-                    Else
-                        params.Add(New ReportParameter("LogoPath", ""))
-                    End If
 
                     ImprimirPDF("Empresas/Grales/Formatos/Inicial.rdlc", DtMovimientos, params, String.Format("Inventario Inicial - {0}", Folio), RDSName:="DsInventarios")
                 End If
@@ -3551,7 +3531,7 @@ Partial Class PopUpVerFactura
             Case 2, 32, 33, 36, 48  ' E N T R A D A S
 
                 Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Entradas.rdlc", UsuarioActual.Empresa.Ruta))
-                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 dr As DataRow = Nothing
                 If CveCompra > 0 Then
@@ -3573,12 +3553,7 @@ Partial Class PopUpVerFactura
                     End If
                     If UsuarioActual.CveEmpresa = 119 Then
 
-                        If Imagen.Exists Then
+                        params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-                            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-
-                        Else
-                            params.Add(New ReportParameter("LogoPath", ""))
-                        End If
                         params.Add(New ReportParameter("RazonSocialOC", RazonSocialOC))
                         params.Add(New ReportParameter("RazonSocial", RazonSocial))
                         params.Add(New ReportParameter("Remision", Remision))
@@ -3638,11 +3613,7 @@ Partial Class PopUpVerFactura
                         ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Entradas.rdlc", DtMovimientos, params, String.Format("Entrada de Almacen - {0}", Folio), RDSName:="DsInventarios")
                     ElseIf UsuarioActual.CveEmpresa = 140 Then
 
-                        If Imagen.Exists Then
+                        params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-                            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-                        Else
-                            params.Add(New ReportParameter("LogoPath", ""))
-                        End If
                         Dim concepto As String = ""
                         If CveConcepto.Contiene(2, 32, 33) Then
                             concepto = "ENTRADA DE ALMACÉN"
@@ -3700,11 +3671,7 @@ Partial Class PopUpVerFactura
                 Else
 
 
-                    If Imagen.Exists Then
+                    params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-                        params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-                    Else
-                        params.Add(New ReportParameter("LogoPath", ""))
-                    End If
 
                     params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
                     params.Add(New ReportParameter("Concepto", "ENTRADA DE ALMACÉN"))
@@ -3737,7 +3704,7 @@ Partial Class PopUpVerFactura
                 'Dim Imagen As New System.IO.FileInfo(String.Format("Empresas/{0}/Logo.png", 72))
                 Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Salidas.rdlc", UsuarioActual.Empresa.Ruta))
                 Dim Archivo2 As New System.IO.FileInfo(String.Format("{0}Formatos/ConsumoInterno.rdlc", UsuarioActual.Empresa.Ruta))
-                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)
                 Dim concepto As String = ""
                 If CveConcepto.Contiene(3, 40) Then
@@ -3883,11 +3850,7 @@ Partial Class PopUpVerFactura
                         ElseIf UsuarioActual.CveEmpresa = 140 Then
 
 
-                            If Imagen.Exists Then
+                            params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-                                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-                            Else
-                                params.Add(New ReportParameter("LogoPath", ""))
-                            End If
 
                             params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
                             params.Add(New ReportParameter("Concepto", concepto))
@@ -3923,11 +3886,7 @@ Partial Class PopUpVerFactura
                     Else
                         Dim A As New System.IO.FileInfo(String.Format("{0}Formatos/EntradaSalida.rdlc", UsuarioActual.Empresa.Ruta))
 
-                        If Imagen.Exists Then
+                        params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-                            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-                        Else
-                            params.Add(New ReportParameter("LogoPath", ""))
-                        End If
 
                         params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
                         params.Add(New ReportParameter("Concepto", concepto))
@@ -4003,15 +3962,11 @@ Partial Class PopUpVerFactura
                 End If
 
             Case 4 ' ENTRADA POR DESARMADO 
-                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)
 
 
-                If Imagen.Exists Then
+                params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-                    params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-                Else
-                    params.Add(New ReportParameter("LogoPath", ""))
-                End If
 
                 params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
                 params.Add(New ReportParameter("Concepto", "Entrada por Desarmado de Paquete"))
@@ -4032,15 +3987,11 @@ Partial Class PopUpVerFactura
                 ImprimirPDF("Empresas/Grales/Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Entrada por Desarmado - {0}", Folio.ToString), RDSName:="DsInventarios")
 
             Case 5 'SALIDA POR ARMADO
-                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)
 
 
-                If Imagen.Exists Then
+                params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-                    params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-                Else
-                    params.Add(New ReportParameter("LogoPath", ""))
-                End If
 
                 params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
                 params.Add(New ReportParameter("Concepto", "Salida por Armado de Paquete"))
@@ -4071,12 +4022,8 @@ Partial Class PopUpVerFactura
                         params.Add(New ReportParameter("Responsable", Personal))
                         params.Add(New ReportParameter("NombreRecibio", Capturo.ToUpper))
 
-                        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")
-                        If Imagen.Exists Then
+                        params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-                            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-                        Else
-                            params.Add(New ReportParameter("LogoPath", ""))
-                        End If
 
                         If DtMovimientos.COUNT("Serie") > 0 Then
                             params.Add(New ReportParameter("MostrarSerieLote", "1"))
@@ -4100,7 +4047,7 @@ Partial Class PopUpVerFactura
 
                     ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Resguardo.rdlc", DtMovimientos, params, String.Format("Resguardo - {0}", Folio.ToString), RDSName:="DsInventarios")
                 Else
-                    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)
                     Dim TipoResponsable As String = ""
                     Dim Responsable As String = ""
@@ -4112,11 +4059,7 @@ Partial Class PopUpVerFactura
                     End If
 
 
-                    If Imagen.Exists Then
+                    params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-                        params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-                    Else
-                        params.Add(New ReportParameter("LogoPath", ""))
-                    End If
 
                     params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
                     params.Add(New ReportParameter("Folio", Folio))
@@ -4161,12 +4104,8 @@ Partial Class PopUpVerFactura
                         params.Add(New ReportParameter("Responsable", Personal))
                         params.Add(New ReportParameter("NombreRecibio", Personal))
 
-                        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")
-                        If Imagen.Exists Then
+                        params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-                            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-                        Else
-                            params.Add(New ReportParameter("LogoPath", ""))
-                        End If
                         If DtMovimientos.COUNT("Serie") > 0 Then
                             params.Add(New ReportParameter("MostrarSerieLote", "1"))
                         Else
@@ -4190,7 +4129,7 @@ Partial Class PopUpVerFactura
 
                     ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Resguardo.rdlc", DtMovimientos, params, String.Format("Resguardo - {0}", Folio.ToString), RDSName:="DsInventarios")
                 Else
-                    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)
                     Dim TipoResponsable As String = ""
                     Dim Responsable As String = ""
@@ -4202,11 +4141,7 @@ Partial Class PopUpVerFactura
                     End If
 
 
-                    If Imagen.Exists Then
+                    params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-                        params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-                    Else
-                        params.Add(New ReportParameter("LogoPath", ""))
-                    End If
 
                     params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
                     params.Add(New ReportParameter("Folio", Folio))
@@ -4352,14 +4287,10 @@ Partial Class PopUpVerFactura
 
                 Dim Archivo As New System.IO.FileInfo(String.Format(RutaFormato, UsuarioActual.Empresa.Ruta))
                 If Archivo.Exists Then
-                    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")
 
 
-                    If Imagen.Exists Then
+                    params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-                        params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-                    Else
-                        params.Add(New ReportParameter("LogoPath", ""))
-                    End If
                     If UsuarioActual.CveEmpresa = 140 Then
                         params.Add(New ReportParameter("Origen", Almacen))
                         params.Add(New ReportParameter("Destino", AlmacenDestino))
@@ -4404,14 +4335,10 @@ Partial Class PopUpVerFactura
 
                     ImprimirPDF(String.Format(RutaFormato, UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Aviso de Traslado - {0}", Folio), RDSName:="DsInventarios")
                 Else
-                    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")
 
 
-                    If Imagen.Exists Then
+                    params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-                        params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-                    Else
-                        params.Add(New ReportParameter("LogoPath", ""))
-                    End If
                     params.Add(New ReportParameter("Origen", Almacen))
                     params.Add(New ReportParameter("Destino", AlmacenDestino))
                     params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
@@ -4457,14 +4384,10 @@ Partial Class PopUpVerFactura
                     ElseIf UsuarioActual.CveEmpresa = 140 Then
                         params.Add(New ReportParameter("CantidadProductos", "500"))
                         params.Add(New ReportParameter("CantidadUsados", "500"))
-                        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")
 
 
-                        If Imagen.Exists Then
+                        params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-                            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-                        Else
-                            params.Add(New ReportParameter("LogoPath", ""))
-                        End If
                         params.Add(New ReportParameter("Origen", AlmacenDestino)) ' se invierte
                         params.Add(New ReportParameter("Destino", Almacen))
 
@@ -4474,13 +4397,9 @@ Partial Class PopUpVerFactura
                         params.Add(New ReportParameter("CveConceptoMovRelacionado", CveConceptoMovRelacionado.ToString()))
                         params.Add(New ReportParameter("FolioRelacionado", FolioRelacionado))
                     ElseIf UsuarioActual.CveEmpresa = 153 Then
-                        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")
 
-                        If Imagen.Exists Then
+                        params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-                            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-                        Else
-                            params.Add(New ReportParameter("LogoPath", ""))
-                        End If
                         params.Add(New ReportParameter("Origen", AlmacenDestino)) ' se invierte
                         params.Add(New ReportParameter("Destino", Almacen))
                         params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
@@ -4492,13 +4411,9 @@ Partial Class PopUpVerFactura
 
                     ImprimirPDF(String.Format("{0}Formatos\Traslado.rdlc", UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Recepción de Traslado - {0}", Folio), RDSName:="DsInventarios")
                 Else
-                    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")
 
-                    If Imagen.Exists Then
+                    params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-                        params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-                    Else
-                        params.Add(New ReportParameter("LogoPath", ""))
-                    End If
                     params.Add(New ReportParameter("Origen", Almacen))
                     params.Add(New ReportParameter("Destino", AlmacenDestino))
 
@@ -4606,7 +4521,7 @@ Partial Class PopUpVerFactura
                 ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/DevolucionConsignacion.rdlc", DtMovimientos, params, String.Format("Devolucion por Consignacion - {0}", Folio), RDSName:="DsInventarios")
             Case 13 'D E V O L U C I O N  D E  P R O V E E D O R
                 Dim params As New List(Of ReportParameter)
-                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 Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/DevolucionProveedor.rdlc", UsuarioActual.Empresa.Ruta))
 
@@ -4654,11 +4569,7 @@ Partial Class PopUpVerFactura
 
                 If Not Archivo.Exists Then
 
-                    If Imagen.Exists Then
+                    params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-                        params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-                    Else
-                        params.Add(New ReportParameter("LogoPath", ""))
-                    End If
 
                     ImprimirPDF(String.Format("Empresas/Grales/Formatos/DevolucionProveedor.rdlc", UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Devolucion Proveedor - {0}", Folio), RDSName:="DsInventarios")
                 Else
@@ -4669,7 +4580,7 @@ Partial Class PopUpVerFactura
             Case 14 'E N T R E G A   P O R   G A R A N T I A
 
                 Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/SalidasGarantia.rdlc", UsuarioActual.Empresa.Ruta))
-                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)
 
                 If UsuarioActual.CveEmpresa = 72 Then
@@ -4711,7 +4622,7 @@ Partial Class PopUpVerFactura
             Case 15 'S A L I D A   G A R A N T I A
 
                 Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/SalidasGarantia.rdlc", UsuarioActual.Empresa.Ruta))
-                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)
 
                 'IMPRESION ESPECIAL SALIDA DE COMPUPROVEEDORES y VSH
@@ -4760,7 +4671,7 @@ Partial Class PopUpVerFactura
 
             Case 18 'D E V O L U C I O N    D E L   C L I E N T E
                 Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/DevolucionCliente.rdlc", UsuarioActual.Empresa.Ruta))
-                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)
 
                 If Archivo.Exists Then
@@ -4804,11 +4715,7 @@ Partial Class PopUpVerFactura
                     'End If
                 Else
 
-                    If Imagen.Exists Then
+                    params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-                        params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-                    Else
-                        params.Add(New ReportParameter("LogoPath", ""))
-                    End If
 
                     Dim CiudadSucursal As String = ""
                     Dim DomicilioSucursal As String = ""
@@ -4837,15 +4744,11 @@ Partial Class PopUpVerFactura
                 End If
 
             Case 19 'ARMADO DE PAQUETE
-                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)
 
 
-                If Imagen.Exists Then
+                params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-                    params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-                Else
-                    params.Add(New ReportParameter("LogoPath", ""))
-                End If
 
                 params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
                 params.Add(New ReportParameter("Concepto", "Armado de Paquete"))
@@ -4866,15 +4769,11 @@ Partial Class PopUpVerFactura
                 ImprimirPDF("Empresas/Grales/Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Armado de Paquete - {0}", Folio.ToString), RDSName:="DsInventarios")
 
             Case 20 'DESARMADO DE PAQUETE
-                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)
 
 
-                If Imagen.Exists Then
+                params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-                    params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-                Else
-                    params.Add(New ReportParameter("LogoPath", ""))
-                End If
 
                 params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
                 params.Add(New ReportParameter("Concepto", "Desarmado de Paquete"))
@@ -4895,7 +4794,7 @@ Partial Class PopUpVerFactura
 
 
             Case 21, 22 'SALIDA POR PRESTAMO
-                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)
 
                 Dim Archivo As String = $"Empresas/{UsuarioActual.CveEmpresa}/Formatos/EntradaSalida.rdlc"
@@ -4903,11 +4802,7 @@ Partial Class PopUpVerFactura
                     Archivo = "Empresas/Grales/Formatos/EntradaSalida.rdlc"
                 End If
 
-                If Imagen.Exists Then
+                params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-                    params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-                Else
-                    params.Add(New ReportParameter("LogoPath", ""))
-                End If
 
                 'params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
                 If CveConcepto = 21 Then
@@ -4937,7 +4832,7 @@ Partial Class PopUpVerFactura
                 End If
 
             'Case 22 'ENTRADA POR PRESTAMO
-            '    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)
 
             '    
@@ -4966,7 +4861,7 @@ Partial Class PopUpVerFactura
 
             Case 24 'SALIDA POR RESGUARDO
                 If DtMovimientos(0)("CveTipoAlmacen").ToString.ToEntero = 20 Or DtMovimientos(0)("CveTipoAlmacen").ToString.ToEntero = 19 Then
-                    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)
 
                     Dim ArchivoRuta As New System.IO.FileInfo(String.Format("{0}Formatos/EntradaSalidaUniforme.rdlc", UsuarioActual.Empresa.Ruta))
@@ -4976,11 +4871,7 @@ Partial Class PopUpVerFactura
                         Archivo = "Empresas/Grales/Formatos/EntradaSalidaUniforme.rdlc"
                     End If
 
-                    If Imagen.Exists Then
+                    params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-                        params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-                    Else
-                        params.Add(New ReportParameter("LogoPath", ""))
-                    End If
 
                     Dim DepartamentoRecibe As String = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Departamento", String.Format("NombreCompleto = '{0}'", Recibio))
                     Dim DepartamentoEntrego As String = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Departamento", String.Format("NombreCompleto = '{0}'", NombreEntrego))
@@ -5011,7 +4902,7 @@ Partial Class PopUpVerFactura
 
                     ImprimirPDF(Archivo, DtMovimientos, params, String.Format("Uniforme_{0}", Folio.ToString), RDSName:="DsInventarios")
                 Else
-                    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)
                     Dim TipoResponsable As String = ""
                     Dim Responsable As String = ""
@@ -5023,11 +4914,7 @@ Partial Class PopUpVerFactura
                     End If
 
 
-                    If Imagen.Exists Then
+                    params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-                        params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-                    Else
-                        params.Add(New ReportParameter("LogoPath", ""))
-                    End If
 
                     params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
                     params.Add(New ReportParameter("Folio", Folio))
@@ -5062,15 +4949,11 @@ Partial Class PopUpVerFactura
                 End If
 
             Case 28, 29 'ENTRADA POR PRESTAMO DE PROVEEDOR
-                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)
 
 
-                If Imagen.Exists Then
+                params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-                    params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-                Else
-                    params.Add(New ReportParameter("LogoPath", ""))
-                End If
                 Dim ConceptoReporte As String = If(CveConcepto = 28, "Entrada por Préstamo", "Devolución de Préstamo")
 
                 params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
@@ -5088,7 +4971,7 @@ Partial Class PopUpVerFactura
             Case 30
                 Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Salidas.rdlc", UsuarioActual.Empresa.Ruta))
                 Dim Archivo2 As New System.IO.FileInfo(String.Format("{0}Formatos/ConsumoInterno.rdlc", UsuarioActual.Empresa.Ruta))
-                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)
 
@@ -5125,11 +5008,7 @@ Partial Class PopUpVerFactura
                 params.Add(New ReportParameter("NombreEntrego", Capturo))
                 params.Add(New ReportParameter("NombreRecibio", Recibio))
 
-                If Imagen.Exists Then
+                params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-                    params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-                Else
-                    params.Add(New ReportParameter("LogoPath", ""))
-                End If
 
                 'End If
 
@@ -5159,7 +5038,7 @@ Partial Class PopUpVerFactura
                 'Dim Imagen As New System.IO.FileInfo(String.Format("Empresas/{0}/Logo.png", 72))
                 Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Salidas.rdlc", UsuarioActual.Empresa.Ruta))
                 Dim Archivo2 As New System.IO.FileInfo(String.Format("{0}Formatos/ConsumoInterno.rdlc", UsuarioActual.Empresa.Ruta))
-                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)
 
                 If DtMovimientos(0)("CveAlmacen").ToString.ToEntero.Contiene(77, 146, 147, 148, 229, 342, 359, 360, 361, 362) Then
@@ -5315,11 +5194,7 @@ Partial Class PopUpVerFactura
 
                     Else
                         Dim A As New System.IO.FileInfo(String.Format("{0}Formatos/EntradaSalida.rdlc", UsuarioActual.Empresa.Ruta))
-                        If Imagen.Exists Then
+                        params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-                            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-                        Else
-                            params.Add(New ReportParameter("LogoPath", ""))
-                        End If
 
                         params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
                         params.Add(New ReportParameter("Concepto", "SALIDA POR AJUSTE"))
@@ -5572,7 +5447,7 @@ Partial Class PopUpVerFactura
             End If
         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")
 
         If Not RutaReporte.Exists Then
 
@@ -5582,11 +5457,7 @@ Partial Class PopUpVerFactura
             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
             params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
 
-            If Imagen.Exists Then
+            params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-            Else
-                params.Add(New ReportParameter("LogoPath", ""))
-            End If
 
         End If
 
@@ -5778,12 +5649,8 @@ Partial Class PopUpVerFactura
 
         ObjAF.Dispose()
 
-        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")
-        If Imagen.Exists Then
+        params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-        Else
-            params.Add(New ReportParameter("LogoPath", ""))
-        End If
 
         params.Add(New ReportParameter("SubproyectoDestino", dr("SubProyectoDestino").ToString))
         params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
@@ -6387,11 +6254,7 @@ Partial Class PopUpVerFactura
                 params.Add(New ReportParameter("importe", ParamComprobacion.Rows(0)("Importe").ToString))
                 params.Add(New ReportParameter("TotAbono", DtComprobacion.SUM("Abonado").ToString))
 
-                If Imagen.Exists Then
+                params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-                    params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-                Else
-                    params.Add(New ReportParameter("LogoPath", ""))
-                End If
 
                 ImprimirPDF("Empresas/Grales/Formatos/RepRembolsosComprobaciones.rdlc", DtComprobacion, params, String.Format("IE{0}", CveIE), Formato:="PDF")
             End If
@@ -6435,7 +6298,7 @@ Partial Class PopUpVerFactura
                     Dim paramList As New List(Of ReportParameter)
                     With paramList
 
-                        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")
 
                         .Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
                         .Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
@@ -6758,7 +6621,7 @@ Partial Class PopUpVerFactura
         End If
         ObjPS.Dispose()
 
-        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 DtDatos As New DataTable
 
@@ -6837,11 +6700,7 @@ Partial Class PopUpVerFactura
         params.Add(New ReportParameter("Comprobante", Comprobante))
         params.Add(New ReportParameter("CodigoTD", CodigoTD))
 
-        If Imagen.Exists Then
+        params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-        Else
-            params.Add(New ReportParameter("LogoPath", ""))
-        End If
 
         ImprimirPDF("Empresas/Grales/Formatos/Ajuste.rdlc", DtDatos, params, "Reporte de Ajuste", "PDF") ', Content_Disposition:="inline")
     End Sub
@@ -6895,7 +6754,7 @@ Partial Class PopUpVerFactura
         End If
         ObjPS.Dispose()
 
-        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 DtDatos As New DataTable
 
@@ -6974,11 +6833,7 @@ Partial Class PopUpVerFactura
         params.Add(New ReportParameter("Comprobante", Comprobante))
         params.Add(New ReportParameter("CodigoTD", CodigoTD))
 
-        If Imagen.Exists Then
+        params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-        Else
-            params.Add(New ReportParameter("LogoPath", ""))
-        End If
 
         ImprimirPDF("Empresas/Grales/Formatos/Ajuste.rdlc", DtDatos, params, "Reporte de Ajuste", "PDF") ', Content_Disposition:="inline")
     End Sub

Compras/Proveedores.aspx.vb

@@ -3834,8 +3834,8 @@ Partial Class Compras_Proveedores
 
     Private Sub ImprimirReporteCxPCrystal(Optional Formato As String = "PDF")
         Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/RepProveedorCxP.rpt", UsuarioActual.Empresa.Ruta))
-        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 logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
 
         Dim DTCxPTempral As DataTable = Nothing
 
@@ -3866,15 +3866,9 @@ Partial Class Compras_Proveedores
             lista.Add(New CrystalParametro("LimiteCredito", TxtLimiteCredito.Text))
             lista.Add(New CrystalParametro("SaldoDisponible", (TxtLimiteCredito.Text.ToDouble - dr("Saldo").ToString.ToDouble).ToString.FormatoNumero))
             lista.Add(New CrystalParametro("UsuarioImprimio", UsuarioActual.Nombre))
+            lista.Add(New CrystalParametro("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
 			
-            Dim params As New List(Of ReportParameter)
+            'Dim params As New List(Of ReportParameter)
-
-            If Imagen.Exists Then
-                lista.Add(New CrystalParametro("LogoPath", logouri))
-            Else
-                lista.Add(New CrystalParametro("LogoPath", ""))
-            End If
-
             Dim dtnc As New DataTable
             Dim ObjCompra As New ClsCompras()
             For Each dr2 As DataRow In DTCxPTempral.FiltraParametros("", DistinctColumns:={"CveIE"}).Rows
@@ -4174,7 +4168,7 @@ Partial Class Compras_Proveedores
     End Sub
 
     Private Sub ImprimirReporteCxP(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 ObjMovtos As New ClsMovimientos()
 
@@ -4224,11 +4218,7 @@ Partial Class Compras_Proveedores
                 params.Add(New ReportParameter("SaldoDisponible", (TxtLimiteCredito.Text.ToDouble - dr("Saldo").ToString.ToDouble).ToString.FormatoNumero))
                 params.Add(New ReportParameter("AgrupadoPor", $"<b>Agrupado Por:</b>&nbsp;{Proveedor}{FechaIn}{FechaFn}{FechVI}{FechVF}"))
 
-                If Imagen.Exists Then
+                params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-                    params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-                Else
-                    params.Add(New ReportParameter("LogoPath", ""))
-                End If
 
                 ImprimirPDF("Empresas/Grales/Formatos/RepProveedorCxP.rdlc", DTCxPTempral, params, "RepCxP")
             Else
@@ -4260,11 +4250,7 @@ Partial Class Compras_Proveedores
                 params.Add(New ReportParameter("NombreProveedor", LtlProveedor.Text))
                 params.Add(New ReportParameter("FechaInicio", FI))
                 params.Add(New ReportParameter("FechaFin", FF))
-                If Imagen.Exists Then
+                params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-                    params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-                Else
-                    params.Add(New ReportParameter("LogoPath", ""))
-                End If
 
                 ImprimirPDF("Empresas/Grales/Formatos/RepAntNC.rdlc", DtANC, params, "RepAnticiposProveedor", Formato)
             Else
@@ -4708,7 +4694,7 @@ Partial Class Compras_Proveedores
             dt.WriteXml(writer)
             If ObjProveedores.GetProveedoresConciliacion(CveProveedor, DataTableToXml(writer)) Then
                 'ObjProveedores.DtResultados.ExportToExcel("Resultados")
-                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 params As New List(Of ReportParameter)
@@ -4716,11 +4702,7 @@ Partial Class Compras_Proveedores
                 params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
                 params.Add(New ReportParameter("NombreProveedor", TxtRazonSocial.Text))
 
-                If Imagen.Exists Then
+                params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-                    params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-                Else
-                    params.Add(New ReportParameter("LogoPath", ""))
-                End If
                 ImprimirPDF("Empresas/Grales/Formatos/ProveedorConciliacion.rdlc", ObjProveedores.DtResultados, params, String.Format("ProveedorConciliacion-{0}", Now.ToDateTime.ToShortDateString))
 
             End If
@@ -6283,18 +6265,14 @@ Partial Class Compras_Proveedores
         If DtTemp IsNot Nothing And DtTemp.Rows.Count > 0 Then
             Dim params As New List(Of ReportParameter)
 
-            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")
 
 
             params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
             params.Add(New ReportParameter("AgrupadoPor", "Proveedor: " & LtlProveedor.Text))
 
-            If Imagen.Exists Then
+            params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-            Else
-                params.Add(New ReportParameter("LogoPath", ""))
-            End If
             ImprimirPDF("Empresas\Grales\Formatos\" & NombreFormato & ".rdlc", DtTemp, params, NombreFormato & "_" & Now.ToString("yyyyMMddhhmmss"), Formato:=Formato)
         Else
             Alert("No se encontró información.", TipoMensaje.MsgAdvertencia)

Compras/ProveedoresAuxiliar.aspx.vb

@@ -118,18 +118,14 @@ Partial Class Compras_ProveedoresAuxiliar
         Dim OpcionP = If(DdlOpcion.SelectedValue = "-1", "", $"&emsp;<b>Opción:</b> {DdlOpcion.SelectedItem.Text}")
         Dim TipoProv = If(DdlTipoProveedor.SelectedValue = "-1", "", $"&emsp;<b>Tipo Proveedor:</b> {DdlTipoProveedor.SelectedItem.Text}")
         Dim ContaP = If(DdlOpcionContabilizable.SelectedValue = "-1", "", $"&emsp;<b>Contabilizable:</b> {DdlOpcionContabilizable.SelectedItem.Text}")
-        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)
         params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
         params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
         params.Add(New ReportParameter("FechaImpresion", Now.ToString))
         params.Add(New ReportParameter("Filtros", $"<b>Filtros:</b> {Proveedor}{FechaIn}{FechaFn}{OpcionP}{TipoProv}{ContaP}"))
-        If Imagen.Exists Then
+        params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-        Else
-            params.Add(New ReportParameter("LogoPath", ""))
-        End If
         ImprimirPDF("Empresas/Grales/Formatos/AuxiliarProveedor.rdlc", DtDatos, params, "AuxiliarProveedor", Opcion)
     End Sub
     Protected Sub LnkPdf_Click(sender As Object, e As EventArgs) Handles LnkPdf.Click

Compras/ReembolsosComprobaciones.aspx.vb

@@ -1294,11 +1294,7 @@ Partial Class Compras_ReembolsosComprobaciones
 
             params.Add(New ReportParameter("CajaChica", If(DdlCajaChica.SelectedValue.ToEntero > 0, "Caja chica: " & DdlCajaChica.SelectedItem.Text, "Funcionario/Empleado: " & DdlPersonal.SelectedItem.Text)))
 
-            If Imagen.Exists Then
+            params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-            Else
-                params.Add(New ReportParameter("LogoPath", ""))
-            End If
 
             ImprimirPDF("Empresas/Grales/Formatos/RepRembolsosComprobaciones.rdlc", DtDatos, params, "RepRembolsosComprobaciones", Formato:=Formato)
         End If

Compras/RepAnt-NC-EXC.aspx.cs

@@ -110,7 +110,7 @@ public partial class Compras_RepAnt_NC_EXC : ClsPaginas
         if (DdlProveedor.SelectedValue != "-1") { Proveedor = $"&emsp;<b>Proveedor:</b> {DdlProveedor.SelectedItem.Text}"; } else { Proveedor = ""; }
         if (DtDatos.Rows.Count > 0)
         {
-            System.IO.FileInfo Imagen = new System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta));
+            System.IO.FileInfo Imagen = new System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png");
             String logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa);
             List<ReportParameter> para = new List<ReportParameter>();
             para.Add(new ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa));

Compras/RepAnt-NC-EXCDetalle.aspx.cs

@@ -147,7 +147,7 @@ public partial class Compras_RepAnt_NC_EXCDetalle : ClsPaginas
         if (DdlTipo.SelectedValue != "-1") { Tipo2 = $"&emsp;<b>Tipo:</b> {DdlTipo.SelectedItem.Text}"; } else { Tipo2 = ""; }
         if (DtDatos.Rows.Count > 0)
         {
-            System.IO.FileInfo Imagen = new System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta));
+            System.IO.FileInfo Imagen = new System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png");
             String logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa);
             List<ReportParameter> para = new List<ReportParameter>();
             para.Add(new ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa));

Compras/RepComplementoPago.aspx.vb

@@ -173,7 +173,7 @@ Partial Class Compras_RepComplementoPago
 
     Private Sub GeneraImpresion(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 proveedor As String = If(DdlProveedores.SelectedValue = "", "", $"&emsp;<b>Proveedor:</b>&nbsp;{DdlProveedores.SelectedText}")
@@ -192,11 +192,7 @@ Partial Class Compras_RepComplementoPago
             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
             params.Add(New ReportParameter("AgrupadoPor", $"{proveedor}{FI}{FF}{vinc}{TP}{subProy}{usuario}"))
 
-            If Imagen.Exists Then
+            params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-            Else
-                params.Add(New ReportParameter("LogoPath", ""))
-            End If
 
             ImprimirPDF("Empresas/Grales/Formatos/RepComplementoPago.rdlc", DTComplemntos, params, "RepComplementoPago", Formato)
         Else

Compras/RepCompras.aspx.vb

@@ -400,7 +400,7 @@ Partial Class Compras_RepCompras
         Dim TipoProveedor = If(DdlTipoProveedor.SelectedValue = "-1", "", $"&emsp;<b>Tipo de Proveedor:</b> {DdlTipoProveedor.SelectedItem.Text}")
         Dim TipoDocto = If(DdlTipoDocto.SelectedValue = "-1", "", $"&emsp;<b>Tipo de Documento:</b> {DdlTipoDocto.SelectedItem.Text}")
         If DtCompras IsNot Nothing AndAlso DtCompras.Rows.Count > 0 Then
-            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)
             params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
@@ -410,11 +410,7 @@ Partial Class Compras_RepCompras
             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
             params.Add(New ReportParameter("FechaImpresion", Now.ToString))
             params.Add(New ReportParameter("AgrupadoPor", $"<b>Agrupado Por:</b> {Grupo}{Proveedor}{Capturo}{Moneda}{FechaIn}{FechaFn}{Proyecto}{SubProyecto}{TipoGasto}{TipoProveedor}{FechaICaptura}{FechaFCaptura}{TipoDocto}"))
-            If Imagen.Exists Then
+            params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-            Else
-                params.Add(New ReportParameter("LogoPath", ""))
-            End If
             ImprimirPDF("Empresas/Grales/Formatos/RepCompras.rdlc", DtCompras, params, "ReporteCompras")
         Else
             Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)

Compras/RepComprasAF.aspx.vb

@@ -241,7 +241,7 @@ Partial Class Compras_RepComprasAF
     Private Sub GenerarPDF(Optional Formato As String = "PDF")
         Dim ObjTareas As New ClsOIEventos
         Dim params As New List(Of ReportParameter)
-        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 FechaI, FechaF As String
         FechaI = If(txtFechaI.Text = "" Or txtFechaI.Text = "__/__/____", "-1", txtFechaI.Text)
@@ -257,11 +257,7 @@ Partial Class Compras_RepComprasAF
         params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
         params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
 
-        If Imagen.Exists Then
+        params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-        Else
-            params.Add(New ReportParameter("LogoPath", ""))
-        End If
         ImprimirPDF("Empresas\Grales\Formatos\RepComprasAF.rdlc", DTDatos, params, "ReporteComprasAF_" & Now.ToString("yyyyMMddmmss"), Formato:=Formato)
     End Sub
 

Compras/RepComprasAFDetalle.aspx.vb

@@ -375,7 +375,7 @@ Partial Class Compras_RepComprasAFDetalle
 
 
 
-        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 FechaI, FechaF As String
@@ -391,11 +391,7 @@ Partial Class Compras_RepComprasAFDetalle
         params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
         params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
 
-        If Imagen.Exists Then
+        params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-        Else
-            params.Add(New ReportParameter("LogoPath", ""))
-        End If
 
         ImprimirPDF(RutaPDF, DTDatos, params, "ReporteComprasAFDetalle_" & Now.ToString("yyyyMMddmmss"), Formato:=Formato)
 

Compras/RepComprasDetalle.aspx.vb

@@ -441,7 +441,7 @@ Partial Class Compras_RepComprasDetalle
             For Each Dr As DataRow In DtDatos.Rows
                 Dr("Fecha") = Dr("Fecha").ToString.ToDate.ToShortDateString
             Next
-            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)
             params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
@@ -451,11 +451,7 @@ Partial Class Compras_RepComprasDetalle
             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
             params.Add(New ReportParameter("FechaImpresion", Now.ToString))
             params.Add(New ReportParameter("AgrupadoPor", $"<b>Agrupado Por:</b> {Grupo}{Proveedor}{Capturo}{FechaIn}{FechaFn}{FechaCIn}{FechaCFn}{Proyecto}{SubProyecto}{TipoGasto}{TipoProveedor}{TipoDocto}"))
-            If Imagen.Exists Then
+            params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-            Else
-                params.Add(New ReportParameter("LogoPath", ""))
-            End If
             ImprimirPDF("Empresas/Grales/Formatos/RepComprasDetalle.rdlc", DtDatos, params, "ReporteComprasDetalles", Opcion)
         Else
             Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)

Compras/RepComprasInventarios.aspx.cs

@@ -94,7 +94,7 @@ public partial class Compras_RepComprasInventarios : ClsPaginas
     }
     protected void GeneraImpresion(string Formato)
     {
-        System.IO.FileInfo Imagen = new System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta));
+        System.IO.FileInfo Imagen = new System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png");
         string logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa);
         
         string FIC = (txtFechaIC.Text == "" ? "" : $"&emsp;<b>Fecha Inicio:</b>&nbsp;{txtFechaIC.Text}");

Compras/RepComprasPeriodo.aspx.vb

@@ -304,7 +304,7 @@ Partial Class Compras_RepComprasPeriodo
                                            DdlMonedas.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero,
                                            RblTipoCambio.SelectedValue.ToEntero, TCEspecifico, DdlTipoGasto.SelectedValue.ToEntero, CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then
 
-            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 = ObjCompras.DtResultados
             Dim params As New List(Of ReportParameter)
@@ -315,11 +315,7 @@ Partial Class Compras_RepComprasPeriodo
             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
             params.Add(New ReportParameter("FechaImpresion", Now.ToString))
             params.Add(New ReportParameter("AgrupadoPor", $"<b>Agrupado Por:</b> {Proveedor}{Capturo}{Grupo}{Moneda}{FechaIn}{FechaFn}{Proyecto}{SubProyecto}"))
-            If Imagen.Exists Then
+            params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-            Else
-                params.Add(New ReportParameter("LogoPath", ""))
-            End If
             ImprimirPDF("Empresas/Grales/Formatos/RepComprasPeriodo.rdlc", dt, params, "RepComprasPeriodo")
         Else
             Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)

Compras/RepComprasPersonal.aspx.vb

@@ -193,7 +193,7 @@ Partial Class Compras_RepComprasPersonal
 
         Dim params As New List(Of ReportParameter)
 
-        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 FechaI, FechaF As String
@@ -208,11 +208,7 @@ Partial Class Compras_RepComprasPersonal
         params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
         params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
 
-        If Imagen.Exists Then
+        params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-        Else
-            params.Add(New ReportParameter("LogoPath", ""))
-        End If
         ImprimirPDF("Empresas\Grales\Formatos\RepComprasPersonal.rdlc", DTDatos, params, "ReporteComprasPersonal_" & Now.ToString("yyyyMMddmmss"), Formato:=Formato)
     End Sub
 

Compras/RepComprasPersonalDetalle.aspx.vb

@@ -315,7 +315,7 @@ Partial Class Compras_RepComprasPersonalDetalle
 
 
 
-        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 FechaI, FechaF As String
@@ -331,11 +331,7 @@ Partial Class Compras_RepComprasPersonalDetalle
         params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
         params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
 
-        If Imagen.Exists Then
+        params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-        Else
-            params.Add(New ReportParameter("LogoPath", ""))
-        End If
 
 
         ImprimirPDF("Empresas\Grales\Formatos\RepComprasPersonalDetalle.rdlc", DTDatos, params, "ReporteComprasPersonalDetalle_" & Now.ToString("yyyyMMddmmss"), Formato:=Formato)

Compras/RepCxP.aspx.vb

@@ -1473,7 +1473,7 @@ Partial Class Compras_RepCxP
             If DtDatos.Rows(0)("TC8").ToString.ToEntero = 1 Or DtDatos.Rows(0)("TC8").ToString.ToEntero = 2 Then CantidadColumnas += 1
             If DtDatos.Rows(0)("TC9").ToString.ToEntero = 1 Or DtDatos.Rows(0)("TC9").ToString.ToEntero = 2 Then CantidadColumnas += 1
 
-            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)
             params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
@@ -1485,11 +1485,7 @@ Partial Class Compras_RepCxP
             params.Add(New ReportParameter("AgrupadoPor", $"{Grupo}{Proveedor}{Clasificacion}{FechaIn}{FechaFn}{Registro}{Responsable}{Proyecto}{Sucursal}{TipoMoneda}{FVI}{FVF}"))
             params.Add(New ReportParameter("CantColumnas", CantidadColumnas))
 
-            If Imagen.Exists Then
+            params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-            Else
-                params.Add(New ReportParameter("LogoPath", ""))
-            End If
             ImprimirPDF("Empresas/Grales/Formatos/RepCxP.rdlc", DtDatos, params, "ReporteCxP", Formato)
         Else
             Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)

Compras/RepCxPDetalle.aspx.vb

@@ -740,7 +740,7 @@ Partial Class RepCxPDetalle
         FechaVI = If(IsDate(txtFechaVI.Text.Trim()), txtFechaVI.Text.Trim(), "-1")
         FechaVF = If(IsDate(txtFechaVF.Text.Trim()), txtFechaVF.Text.Trim(), "-1")
 
-        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 params As New List(Of ReportParameter)
         params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
@@ -763,11 +763,7 @@ Partial Class RepCxPDetalle
         Dim TipoMoneda = If(RblTipoCambio.SelectedValue = "-1", "", $"&emsp;<b>Tipo Moneda:</b> {RblTipoCambio.SelectedItem.Text}")
         params.Add(New ReportParameter("AgrupadoPor", $"{Grupo}{Proveedor}{FechaIn}{FechaFn}{FechaInV}{FechaFnV}{Responsable}{Estatus}{Registro}{Clasificacion}{Sucursal}{TipoMoneda}"))
 
-        If Imagen.Exists Then
+        params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-        Else
-            params.Add(New ReportParameter("LogoPath", ""))
-        End If
 
         ImprimirPDF("Empresas/Grales/Formatos/RepCxPDetalle.rdlc", DtDatos, params, "ReporteCxPDetalle", Formato)
 

Compras/RepCxPPeriodo.aspx.cs

@@ -280,7 +280,7 @@ public partial class Compras_RepCxPPeriodo : ClsPaginas
             RutaPDF = "Empresas/Grales/Formatos/RepCxPPeriodo.rdlc";
         }
 
-        System.IO.FileInfo Imagen = new System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta));
+        System.IO.FileInfo Imagen = new System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png");
         string logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa);
         List<ReportParameter> para = new List<ReportParameter>();
         para.Add(new ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa));

Compras/RepEvaluacionesProveedores.aspx.vb

@@ -49,23 +49,18 @@ Partial Class RepEvaluacionesProveedores
     End Sub
 
     Private Sub LnkPDF_Click(sender As Object, e As EventArgs) Handles LnkPDF.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 logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+        'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
 
         Dim params As New List(Of ReportParameter)
         params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
-        If Imagen.Exists Then
+        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-            params.Add(New ReportParameter("pImg", logouri))
-        Else
-            params.Add(New ReportParameter("pImg", ""))
-        End If
         params.Add(New ReportParameter("FechaInicial", TxtFechaI.Text))
         params.Add(New ReportParameter("FechaFinal", TxtFechaF.Text))
         params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
         params.Add(New ReportParameter("FechaImpresion", Today))
         params.Add(New ReportParameter("Proveedor", DdlProveedor.SelectedItem.ToString))
 
-
         ImprimirPDF("Empresas/Grales/Formatos/RepEvaluacionesProveedores.rdlc", DtDatos, params, "RepEvaluacionesProveedores", "PDF", RDSName:="DataSet1")
     End Sub
 

Compras/RepGastosFijos.aspx.cs

@@ -225,11 +225,11 @@ public partial class Compras_RepGastosFijos : ClsPaginas
             RutaPDF = "Empresas/Grales/Formatos/RepGastosFijos.rdlc";
         }
         
-        System.IO.FileInfo Imagen = new System.IO.FileInfo(string.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta));
+        System.IO.FileInfo Imagen = new System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png");
 
         List<ReportParameter> @params = new List<ReportParameter>();
 
-        @params.Add(new ReportParameter("pImg", new Uri(Server.MapPath(string.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri));
+        @params.Add(new ReportParameter("pImg", Imagen.Exists ? $"file://{Imagen.FullName}" : ""));
         @params.Add(new ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa));
 
         @params.Add(new ReportParameter("FechaInicio", FechaInicio));

Compras/RepGastosSemanal.aspx.cs

@@ -165,7 +165,7 @@ public partial class Compras_RepGastosSemanal : ClsPaginas
     }
     #endregion
 
-    #region PDF
+    #region PDF
 
     protected void GenerarPDF(String Opcion)
     {

Compras/RepNotasCredito.aspx.vb

@@ -75,7 +75,7 @@ Partial Class Compras_RepNotasCredito
             If txtFechaF.Text <> "" Then StrFiltro.AppendFormat("&emsp;<b>Fecha Fin </b>: {0}", txtFechaF.Text.ToDate.ToShortDateString)
 
 
-            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 = DtVentas.FiltraParametros("", "Orden") '.FiltraParametros("Total > 0", DistinctColumns:={"GPO", "Cantidad", "SubTotal", "Descuento", "Amortizacion", "IVA", "Total"})
             Dim FechaI, FechaF As String
@@ -90,11 +90,7 @@ Partial Class Compras_RepNotasCredito
             params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
             params.Add(New ReportParameter("Filtros", StrFiltro.ToString))
 
-            If Imagen.Exists Then
+            params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-            Else
-                params.Add(New ReportParameter("LogoPath", ""))
-            End If
             ImprimirPDF("Empresas/Grales/Formatos/RepNotasCredito.rdlc", DtDatos, params, String.Format("ReporteVentas-{0}", Now.ToDateTime.ToShortDateString), Formato:=Formato)
         Else
             Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)