Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

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

@@ -3215,7 +3215,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}"))
@@ -4146,13 +4146,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/ClsNominas.vb

@@ -2397,7 +2397,7 @@ Public Class ClsNominas
         End Try
         Return retorno
     End Function
-    Public Function GetNominaEmpleadoSimulador(CveProyecto As Integer, CveSubProyecto As Integer, CveTurno As Integer, CvePeriodo As Integer, CveEmpresa As Integer, Agrupador As Integer, SalarioDiario As Decimal) As Boolean
+    Public Function GetNominaEmpleadoSimulador(CveProyecto As Integer, CveSubProyecto As Integer, CveTurno As Integer, CvePeriodo As Integer, CveEmpresa As Integer, Agrupador As Integer, SalarioDiario As Decimal, CveTipoTrabajador As Integer) As Boolean
         Dim retorno As Boolean = False
         Try
             DTSet = New DataSet()
@@ -2410,6 +2410,7 @@ Public Class ClsNominas
                 .Add("@Agrupador", SqlDbType.VarChar).Value = Agrupador
                 .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
                 .Add("@SalarioDiario", SqlDbType.Decimal).Value = SalarioDiario
+                .Add("@CveTipoTrabajador", SqlDbType.Decimal).Value = CveTipoTrabajador
             End With
 
 

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/ClsRH.vb

@@ -858,7 +858,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
 
         Return Retorno
     End Function
-    Public Function UpdateEstatusPersonal(EstatusPersonal As String, Estatus As Boolean, CveEstatusPersonal As Integer) As Boolean
+    Public Function UpdateEstatusPersonal(EstatusPersonal As String, Estatus As Boolean, CveEstatusPersonal As Integer, CveUsuario As Integer) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_RH_EstatusPersonalUpdate")
@@ -867,6 +867,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
             .Add("@EstatusPersonal", SqlDbType.VarChar).Value = EstatusPersonal
             .Add("@Estatus", SqlDbType.Bit).Value = Estatus
             .Add("@CveEstatusPersonal", SqlDbType.Int).Value = CveEstatusPersonal
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
         End With
 
         Try
@@ -1939,7 +1940,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
         NombrePadre As String, NombreMadre As String, CveSATBanco As Integer, CveSATRiesgoPuesto As Integer, CveSATRegimenContratacion As Integer, CveClienteAsignado As Integer, CveSubProyecto As Integer, URL As String, CveSupervisor As Integer, CLABE As String, BancoNumCuenta As String,
         CveJornada As Integer, IdCtaContPersonal As Integer, CtaContPersonal As String, IdCtaContPrestamos As Integer, CtaContPrestamos As String, CveUsuario As Integer, CveEmpresa As Integer, CveUsuarioNomina As Integer, Optional CveSubProyectoZona As Integer = Nothing, Optional CveUniforme As Integer = -1,
         Optional TelefonoExtension As String = "-1", Optional CelularPersonal As String = "-1", Optional TelefonoMarcadoRapido As String = "-1", Optional ContactoAlterno As String = "-1", Optional CveTipodeSalario As Integer = 1, Optional Sindicalizado As Boolean = False, Optional CvePais As Integer = -1,
-        Optional Pensionado As Boolean = False, Optional CveMedioTransporte As Integer = -1, Optional CveRegistroPatronal As Integer = -1, Optional CveEmpresaAsignado As Integer = -1) As Boolean
+        Optional Pensionado As Boolean = False, Optional CveMedioTransporte As Integer = -1, Optional CveRegistroPatronal As Integer = -1, Optional CveEmpresaAsignado As Integer = -1, Optional CveTipoTrabajador As Integer = -1) As Boolean
 
         Dim Retorno As Boolean = False
         Dim noguardoXcurp = False
@@ -2028,6 +2029,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
             .Add("@CveMedioTransporte", SqlDbType.Int).Value = CveMedioTransporte
             .Add("@CveRegistroPatronal", SqlDbType.Int).Value = CveRegistroPatronal
             .Add("@CveEmpresaAsignado", SqlDbType.Int).Value = CveEmpresaAsignado
+            .Add("@CveTipoTrabajador", SqlDbType.Int).Value = CveTipoTrabajador
 
 
 
@@ -2073,7 +2075,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
         CveJornada As Integer, IdCtaContPersonal As Integer, CtaContPersonal As String, IdCtaContPrestamos As Integer, CtaContPrestamos As String, CveEmpresa As Integer, CveUsuarioNomina As Integer, Optional CveSubProyectoZona As Integer = Nothing, Optional CveUniforme As Integer = -1,
         Optional TelefonoExtension As String = "-1", Optional CelularPersonal As String = "-1", Optional TelefonoMarcadoRapido As String = "-1", Optional ContactoAlterno As String = "-1", Optional CveUsuarioModifico As Integer = -1,
         Optional FechaActivo As Date = MinFecha, Optional FechaReingreso As Date = MinFecha, Optional CveTipodeSalario As Integer = 1, Optional Sindicalizado As Integer = -1, Optional CvePais As Integer = -1, Optional Pensionado As Boolean = False, Optional CveRegistroPatronal As Integer = -1,
-        Optional CveEmpresaAsignado As Integer = -1, Optional CveMedioTransporte As Integer = -1, Optional EsReserva As Integer = -1, Optional Fiscalizable As Integer = -1) As Boolean
+        Optional CveEmpresaAsignado As Integer = -1, Optional CveMedioTransporte As Integer = -1, Optional EsReserva As Integer = -1, Optional Fiscalizable As Integer = -1, Optional CveTipoTrabajador As Integer = -1) As Boolean
 
         Dim Retorno As Boolean = False
 
@@ -2168,6 +2170,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
             .Add("@CveMedioTransporte", SqlDbType.Int).Value = CveMedioTransporte
             .Add("@EsReserva", SqlDbType.Int).Value = EsReserva
             .Add("@Fiscalizable", SqlDbType.Int).Value = Fiscalizable
+            .Add("@CveTipoTrabajador", SqlDbType.Int).Value = CveTipoTrabajador
 
         End With
 
@@ -2452,12 +2455,13 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
         Return Retorno
     End Function
 
-    Public Function UpPersonalAltas(CvePersonal As Integer, fechaInicio As String, fechaFin As String, CvePeriodoFiniquito As Integer, CveMotivoBaja As Integer, esLiquidacion As Boolean, ValIndemnizacion As Boolean, ValSeparacionunica As Boolean, ValPrimadeantiguedad As Boolean, Optional Observaciones As String = "") As Boolean
+    Public Function UpPersonalAltas(CvePersonal As Integer, CveUsuario As Integer, fechaInicio As String, fechaFin As String, CvePeriodoFiniquito As Integer, CveMotivoBaja As Integer, esLiquidacion As Boolean, ValIndemnizacion As Boolean, ValSeparacionunica As Boolean, ValPrimadeantiguedad As Boolean, Optional Observaciones As String = "") As Boolean
         Dim Retorno As Boolean = False
         SqlDataAdapter("PA_RH_PersonalAltasUp")
 
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
             .Add("@fechaInicio", SqlDbType.VarChar).Value = fechaInicio
             .Add("@fechaFin", SqlDbType.VarChar).Value = fechaFin
             .Add("@CvePeriodoFiniquito", SqlDbType.Int).Value = CvePeriodoFiniquito
@@ -2757,13 +2761,14 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
         Return Retorno
     End Function
 
-    Public Function AddAsistenciaMasiva2(CvePeriodo As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
+    Public Function AddAsistenciaMasiva2(CvePeriodo As Integer, CveUsuario As Integer, CveEmpresa As Integer, CveTipoTrabajador As Integer) As Boolean
 
         Dim Retorno As Boolean = False
         Data = New DataTable
-        SqlDataAdapter("PA_RH_PersonalAsistenciasMasivaAddUpd2")
+        SqlDataAdapter("PA_RH_PersonalAsistenciasMasivas")
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CvePeriodo", SqlDbType.Int).Value = CvePeriodo
+            .Add("@CveTipoTrabajador", SqlDbType.Int).Value = CveTipoTrabajador
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
         End With
@@ -7578,7 +7583,69 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
         Return Retorno
     End Function
 
-
+#Region "TipoTrabajador"
+#Region "CRUD_TiposTrabajador"
+    Public Function TiposTrabajadorGet(cveTipoTrabajador As Int32, cveEmpresa As Int32) As Boolean
+        Dim retorno As Boolean = False
+        DataAdapter("PA_RH_TiposTrabajadorGet", CommandType.StoredProcedure)
+        addParameters("@CveTipoTrabajador", SqlDbType.Int, cveTipoTrabajador)
+        addParameters("@CveEmpresa", SqlDbType.Int, cveEmpresa)
+        Try
+            SqlAdapter.Fill(Data)
+            retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener los tipos trabajador.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return retorno
+    End Function
+    Public Function TiposTrabajadorAdd(tipoTrabajador As String, estatus As Boolean, fechaIng As DateTime, cveUsuario As Int32, cveEmpresa As Int32) As Boolean
+        Dim retorno As Boolean = False
+        DataAdapter("PA_RH_TiposTrabajadorAdd", CommandType.StoredProcedure)
+        addParameters("@TipoTrabajador", SqlDbType.VarChar, tipoTrabajador)
+        addParameters("@Estatus", SqlDbType.Bit, estatus)
+        addParameters("@CveUsuario", SqlDbType.Int, cveUsuario)
+        addParameters("@CveEmpresa", SqlDbType.Int, cveEmpresa)
+        Try
+            SqlAdapter.Fill(Data)
+            retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al agregar el tipo trabajador.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return retorno
+    End Function
+    Public Function TiposTrabajadorUp(cveTipoTrabajador As Int32, tipoTrabajador As String, estatus As Boolean, fechaIng As DateTime, cveUsuario As Int32, cveEmpresa As Int32) As Boolean
+        Dim retorno As Boolean = False
+        DataAdapter("PA_RH_TiposTrabajadorUp", CommandType.StoredProcedure)
+        addParameters("@CveTipoTrabajador", SqlDbType.Int, cveTipoTrabajador)
+        addParameters("@TipoTrabajador", SqlDbType.VarChar, tipoTrabajador)
+        addParameters("@Estatus", SqlDbType.Bit, estatus)
+        addParameters("@CveUsuario", SqlDbType.Int, cveUsuario)
+        addParameters("@CveEmpresa", SqlDbType.Int, cveEmpresa)
+        Try
+            SqlAdapter.Fill(Data)
+            retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al actualizar el tipo trabajador.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return retorno
+    End Function
+    Public Function TiposTrabajadorRemove(cveTipoTrabajador As Int32, cveUsuario As Int32, cveEmpresa As Int32) As Boolean
+        Dim retorno As Boolean = False
+        DataAdapter("PA_RH_TiposTrabajadorRemove", CommandType.StoredProcedure)
+        addParameters("@CveTipoTrabajador", SqlDbType.Int, cveTipoTrabajador)
+        addParameters("@CveUsuario", SqlDbType.Int, cveUsuario)
+        addParameters("@CveEmpresa", SqlDbType.Int, cveEmpresa)
+        retorno = RunQuery("Ocurrió un error al eliminar el TiposTrabajador.")
+        Try
+            SqlAdapter.Fill(Data)
+            retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al eliminar el tipo trabajador.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return retorno
+    End Function
+#End Region
+#End Region
 
     'Public msgsError As New StringBuilder()
     'Public Sub OnError(Mensaje As String, Exeption As Exception, Optional InfoAdicional As String = "")

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));