--merge AF

AF/CatAF.aspx.vb

@@ -457,7 +457,7 @@ Partial Class AF_CatAF
         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 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\CatAF.rdlc", UsuarioActual.Empresa.Ruta))
             Dim Ruta As String = ""
             params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
@@ -465,7 +465,7 @@ Partial Class AF_CatAF
             params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
 
             If Imagen.Exists Then
-                params.Add(New ReportParameter("LogoPath", logouri))
+                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
             Else
                 params.Add(New ReportParameter("LogoPath", ""))
             End If

AF/RepAF.aspx.vb

@@ -326,15 +326,14 @@ 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(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-            Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
-
             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", logouri))
+                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
             Else
                 params.Add(New ReportParameter("LogoPath", ""))
             End If

AF/RepDepreciacion.aspx.vb

@@ -13,7 +13,7 @@ Partial Class AF_RepDepreciacion
 #End Region
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
-            txtFechaI.Text = Now.ToString
+            txtFechaI.Text = New Date(Now.Year, Now.Month + 1, 1).AddDays(-1).ToString("dd/MM/yyyy")
         End If
     End Sub
 
@@ -35,6 +35,7 @@ Partial Class AF_RepDepreciacion
             Dim CvePrePoliza = ObjConta.AddPrePolizas("Depreciacion", 74, 0, 0, 1, txtFechaI.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
 
 
+
             For Each RowsDt As GridViewRow In GvDatos.Rows
                 CveActivoFijo = RowsDt.DataKey("CveActivoFijo").ToEntero
                 If RowsDt.FCLiteral("LtlDepreciacionMensual").Text.ToDouble > 0 And CveActivoFijo <> 0 Then

Acarreos/RepContratosAcarreos.aspx.vb

@@ -150,8 +150,6 @@ Partial Class Acarreos_RepContratosAcarreos
             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 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))
@@ -159,7 +157,7 @@ Partial Class Acarreos_RepContratosAcarreos
             params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
             params.Add(New ReportParameter("Filtros", StrFiltro.ToString))
             If Imagen.Exists Then
-                params.Add(New ReportParameter("LogoPath", logouri))
+                params.Add(New ReportParameter("LogoPath", $"file://{Imagen}"))
             Else
                 params.Add(New ReportParameter("LogoPath", ""))
             End If
@@ -180,9 +178,6 @@ Partial Class Acarreos_RepContratosAcarreos
             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 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))
@@ -190,7 +185,7 @@ Partial Class Acarreos_RepContratosAcarreos
             params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
             params.Add(New ReportParameter("Filtros", StrFiltro.ToString))
             If Imagen.Exists Then
-                params.Add(New ReportParameter("LogoPath", logouri))
+                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
             Else
                 params.Add(New ReportParameter("LogoPath", ""))
             End If

Acarreos/RepContratosAcarreosDetalle.aspx.vb

@@ -179,7 +179,6 @@ Partial Class Acarreos_RepContratosAcarreosDetalle
         If DTCont IsNot Nothing Then
 
             Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-            Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
 
             Dim params As New List(Of ReportParameter)
             params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
@@ -202,7 +201,7 @@ Partial Class Acarreos_RepContratosAcarreosDetalle
             params.Add(New ReportParameter("VolF", LblVolFaltante.Text))
             params.Add(New ReportParameter("PresF", LblPresFaltante.Text))
             If Imagen.Exists Then
-                params.Add(New ReportParameter("LogoPath", logouri))
+                params.Add(New ReportParameter("LogoPath", $"file://{Imagen}"))
             Else
                 params.Add(New ReportParameter("LogoPath", ""))
             End If
@@ -218,7 +217,7 @@ Partial Class Acarreos_RepContratosAcarreosDetalle
         If DTCont IsNot Nothing Then
 
             Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-            Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
 
             Dim params As New List(Of ReportParameter)
             params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
@@ -241,7 +240,7 @@ Partial Class Acarreos_RepContratosAcarreosDetalle
             params.Add(New ReportParameter("VolF", LblVolFaltante.Text))
             params.Add(New ReportParameter("PresF", LblPresFaltante.Text))
             If Imagen.Exists Then
-                params.Add(New ReportParameter("LogoPath", logouri))
+                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
             Else
                 params.Add(New ReportParameter("LogoPath", ""))
             End If

Acarreos/RepPreEstimacionDetalle.aspx.vb

@@ -94,7 +94,7 @@ Partial Class Acarreos_RepPreEstimacionDetalle
 
 
             Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-            Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
 
 
             Dim params As New List(Of ReportParameter)
@@ -103,7 +103,7 @@ Partial Class Acarreos_RepPreEstimacionDetalle
             params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
             params.Add(New ReportParameter("Filtros", StrFiltro.ToString))
             If Imagen.Exists Then
-                params.Add(New ReportParameter("LogoPath", logouri))
+                params.Add(New ReportParameter("LogoPath", $"file://{Imagen}"))
             Else
                 params.Add(New ReportParameter("LogoPath", ""))
             End If
@@ -127,7 +127,7 @@ Partial Class Acarreos_RepPreEstimacionDetalle
 
 
             Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-            Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
 
 
             Dim params As New List(Of ReportParameter)
@@ -136,7 +136,7 @@ Partial Class Acarreos_RepPreEstimacionDetalle
             params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
             params.Add(New ReportParameter("Filtros", StrFiltro.ToString))
             If Imagen.Exists Then
-                params.Add(New ReportParameter("LogoPath", logouri))
+                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
             Else
                 params.Add(New ReportParameter("LogoPath", ""))
             End If

Acumuladores/RepIndicadorDiario.aspx.vb

@@ -193,8 +193,8 @@ 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(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-            Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
 
             Dim params As New List(Of ReportParameter)
             params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
@@ -205,7 +205,7 @@ Partial Class ACumuladores_RepIndicadorDiario
             params.Add(New ReportParameter("AgrupadoPor", $"<b>Filtros Por:</b>  {FechaIn} {FechaFn} {SubProyecto} "))
 
             If Imagen.Exists Then
-                params.Add(New ReportParameter("LogoPath", logouri))
+                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
             Else
                 params.Add(New ReportParameter("LogoPath", ""))
             End If

App_Code/ClsContabilidad.vb

@@ -193,7 +193,7 @@ Public Class ClsContabilidad
     End Function
 
     Public Function AddPrePolizas(Modulo As String, CvePlantillaPoliza As Integer, Cargos As Double, Abonos As Double, CveMoneda As Integer, Fecha As Date, Concepto As String, CveUsuario As Integer, CveEmpresa As Integer, Optional FolioFijo As Integer = 0, Optional ReglaFolioPoliza As String = "", Optional CveTipoPoliza As Integer = -1,
-                                   Optional AgregarFolio As Boolean = False, Optional TipoContable As Integer = -1) As Integer
+                                   Optional AgregarFolio As Boolean = False, Optional TipoContable As Integer = 1) As Integer
         FolioPoliza = -1
         Dim Retorno As Integer = -1
 

App_Code/ClsInventarios.vb

@@ -1611,17 +1611,18 @@ Public Class ClsInventarios
 
     End Function
 
-    Public Function GetExistenciasProductoSerie(CvePS As Integer, CveAlmacen As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional CveAlmacenes As String = "-1") As Boolean
+    Public Function GetExistenciasProductoSerie(CvePS As Integer, CveUsuario As Integer, CveEmpresa As Integer, Fecha As DateTime, Optional CveAlmacenes As String = "-1") As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Inv_ExistenciaPSSeriesGet")
 
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CvePS", SqlDbType.Int).Value = CvePS
-            .Add("@CveAlmacen", SqlDbType.VarChar).Value = CveAlmacen
+            ' .Add("@CveAlmacen", SqlDbType.VarChar).Value = CveAlmacen
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@CveAlmacenes", SqlDbType.VarChar).Value = CveAlmacenes
+            .Add("@Fecha", SqlDbType.DateTime).Value = Fecha
         End With
 
         Try

App_Code/ClsOIEventos.vb

@@ -221,9 +221,15 @@ Public Class ClsOIEventos
 
     End Sub
 #End Region
-    Public Sub IniciaTransacSQL()
+    'Public Sub IniciaTransacSQL()
-        SqlTransacc = SqlConexion.BeginTransaction()
+    '    SqlTransacc = SqlConexion.BeginTransaction()
-    End Sub
+
+    'End Sub
+
+    Public Function IniciaTransacSQL() As SqlTransaction
+        If SqlTransacc Is Nothing Then SqlTransacc = SqlConexion.BeginTransaction()
+        Return SqlTransacc
+    End Function
     Public Sub RollBack()
         SqlTransacc.Rollback()
     End Sub

App_Code/ClsProductosServicios.vb

@@ -1770,6 +1770,11 @@ Public Class ClsProductosServicios
             SqlAdapter.Fill(Data)
             Retorno = True
         Catch Ex1 As SqlException
+
+            If Ex1.Message.Contains("Producto princial no encontrado:") Or Ex1.Message.Contains("Producto unificado no encontrado:") Then
+                Alert(Ex1.Message, TipoMensaje.MsgAdvertencia)
+            End If
+
             OnError("Ocurrió un error al intentar Unificar los Productos o Servicios.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
         Catch ex As Exception
             OnError("Ocurrió un error al intentar Unificar los Productos o Servicios.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)

App_Code/ClsVentas.vb

@@ -195,7 +195,7 @@ Public Class ClsVentas
             SqlAdapter.Fill(Data)
             retorno = True
         Catch ex As Exception
-            OnError("Ocurrió un error al actualizar venta manifiesto.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            OnError("Ocurrió un error al actualizar venta Orden de Producción.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
         End Try
         Return retorno
     End Function
@@ -2151,7 +2151,7 @@ Public Class ClsVentas
     End Function
     Public Function AddPromociones(Promocion As String, FechaInicio As Date, FechaFin As Date, CveVendedor As Integer, CveCliente As Integer, Estatus As Boolean,
                                    CveMoneda As Integer, CveUsuario As Integer, CveEmpresa As Integer, CveSubProyecto As Integer, TipoAplicacion As String,
-                                   Optional CveMarca As Integer = -1, Optional EsDistribuidor As Integer = -1) As Integer
+                                   Optional CveMarca As Integer = -1, Optional EsDistribuidor As Integer = -1, Optional CvePromocionPadre As Integer = -1) As Integer
         Dim Retorno = -1
         DataAdapter("PA_Vta_PromocionesAdd")
 
@@ -2169,6 +2169,7 @@ Public Class ClsVentas
             .Add("@TipoAplicacion", SqlDbType.VarChar).Value = TipoAplicacion
             .Add("@CveMarca", SqlDbType.Int).Value = CveMarca
             .Add("@EsDistribuidor", SqlDbType.Int).Value = EsDistribuidor
+            .Add("@CvePromocionPadre", SqlDbType.Int).Value = CvePromocionPadre
             .Add("@CvePromocion", SqlDbType.Int).Direction = ParameterDirection.Output
         End With
 
@@ -2181,6 +2182,30 @@ Public Class ClsVentas
 
         Return Retorno
     End Function
+
+
+    Public Function AddPromociones(CvePromocion As Integer, CveUsuario As Integer, CveEmpresa As Integer, Actualizar As Boolean) As Integer
+        Dim Retorno = -1
+        DataAdapter("PA_Vta_PromocionesAddClonar")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CvePromocion", SqlDbType.Int).Value = CvePromocion
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@Actualizar", SqlDbType.Bit).Value = Actualizar
+
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = SqlAdapter.SelectCommand.Parameters("@CvePromocion").Value.ToString.ToEntero
+        Catch ex As Exception
+            OnError("Ocurrió un error al agregar la Promoción.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
     Public Function UpdatePromociones(Promocion As String, FechaInicio As Date, FechaFin As Date, CveVendedor As Integer, CveCliente As Integer, Estatus As Boolean,
                                       CveMoneda As Integer, CveUsuario As Integer, CvePromocion As Integer, CveSubProyecto As Integer, TipoAplicacion As Integer, CveEmpresa As Integer, Optional CveMarca As Integer = -1, Optional EsDistribuidor As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
@@ -2278,7 +2303,7 @@ Public Class ClsVentas
     Public Function AddPromocionesDetalle(CvePromocion As Integer, CvePS As Integer, TipoPromocion As Integer, Promocion As Double, PUAnterior As Double, PUPromocion As Double,
                                           AplicaRestriccion As Boolean, AplicaLunes As Boolean, AplicaMartes As Boolean, AplicaMiercoles As Boolean, AplicaJueves As Boolean,
                                           AplicaViernes As Boolean, AplicaSabado As Boolean, AplicaDomingo As Boolean, HoraInicio As DateTime, HoraFin As DateTime, Optional CantidadMinima As Integer = 1,
-                                          Optional CveClasificacion As Integer = -1, Optional CveRinTamaño As Integer = -1, Optional IncluyeImpuestos As Boolean = False) As Boolean
+                                          Optional CveClasificacion As Integer = -1, Optional CveRinTamaño As Integer = -1, Optional IncluyeImpuestos As Boolean = False, Optional Opcion As Integer = 1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_PromocionesDetalleAdd")
 
@@ -2304,6 +2329,7 @@ Public Class ClsVentas
             .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
             .Add("@CveRinTamaño", SqlDbType.Int).Value = CveRinTamaño
             .Add("@IncluyeImpuestos", SqlDbType.Bit).Value = IncluyeImpuestos
+            .Add("@Opcion", SqlDbType.Int).Value = Opcion
         End With
 
         Try
@@ -2357,12 +2383,39 @@ Public Class ClsVentas
         Return Retorno
     End Function
 
-    Public Function RemovePromocionesDetalle(CvePromocionDetalle As Integer) As Boolean
+    Public Function SincronizarPromocionesClonar(CvePromocion As Integer, CveUsuario As Integer, CveEmpresa As Integer, Opcion As Integer) As Boolean
+        'Opcion 1 replicar insert 
+        'Opcion 2 replicar actualización
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Vta_PromocionesClonar")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CvePromocion", SqlDbType.Int).Value = CvePromocion
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@Opcion", SqlDbType.Int).Value = Opcion
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError($"Ocurrió un error  al actualizar las franquicias.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+
+
+    Public Function RemovePromocionesDetalle(CvePromocionDetalle As Integer, Optional Opcion As Integer = 1, Optional CvePromocion As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_PromocionesDetalleRemove")
 
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CvePromocionDetalle", SqlDbType.Int).Value = CvePromocionDetalle
+            .Add("@CvePromocion", SqlDbType.Int).Value = CvePromocion
+            .Add("@Opcion", SqlDbType.Int).Value = Opcion
         End With
 
         Try
@@ -2374,6 +2427,7 @@ Public Class ClsVentas
 
         Return Retorno
     End Function
+
 #End Region
 
 #Region "Pruebas"
@@ -5474,20 +5528,14 @@ Public Class ClsVentas
     End Function
 
 
-    Public Function GetLineasAdicionales(CveLineaAdicional As Integer, CveCliente As Integer, CveProveedor As Integer, TipoLinea As Integer, CveMoneda As Integer,
+    Public Function GetLineasAdicionales(CveCliente As Integer, TipoLinea As Integer, CveMoneda As Integer, CveLineaAdicionalEstatus As Integer, CveEmpresa As Integer) As Boolean
-                                         FechaI As Date, FechaF As Date, CveLineaAdicionalEstatus As Integer, CveEmpresa As Integer) As Boolean
 
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_LineasAdicionalesGet")
         With SqlAdapter.SelectCommand.Parameters
-
-            .Add("@CveLineaAdicional", SqlDbType.Int).Value = CveLineaAdicional
             .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
-            .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
             .Add("@TipoLinea", SqlDbType.Int).Value = TipoLinea
             .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda
-            .Add("@FechaI", SqlDbType.Date).Value = FechaI
-            .Add("@FechaF", SqlDbType.Date).Value = FechaF
             .Add("@CveLineaAdicionalEstatus", SqlDbType.Int).Value = CveLineaAdicionalEstatus
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
         End With

App_Code/Modelos.vb

@@ -10371,6 +10371,8 @@ Namespace Modelos
             Telefono = ""
             UTCOffsetVerano = -7
             UTCOffsetInvierno = -7
+            Acum_PortalUsuario = ""
+            Acum_PortalContrasena = ""
         End Sub
         Public Sub New()
             MyBase.New()
@@ -10409,6 +10411,8 @@ Namespace Modelos
         Public Property ImprimeNombre As String
         Public Property UTCOffsetVerano As Integer
         Public Property UTCOffsetInvierno As Integer
+        Public Property Acum_PortalUsuario As String
+        Public Property Acum_PortalContrasena As String
 
     End Class
 

Ashx/CargaEventos.ashx

@@ -101,98 +101,138 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState
 
                 Try
                     For Each dr As DataRow In ObjEventos.DtResultados.Rows
-                        Dim cevent As CalendarEvent = New CalendarEvent()
-                        cevent.id = dr("CveEvento").ToString.ToEntero
-                        cevent.title = dr("Asunto").ToString
-                        cevent.description = dr("Descripcion").ToString
-                        cevent.start = String.Format("{0:s}", dr("FechaInicio").ToString.ToDateTime)
-                        cevent.end = String.Format("{0:s}", dr("FechaFin").ToString.ToDateTime)
-                        cevent.allDay = False
-                        cevent.CveEventoEstatus = dr("CveEventoEstatus").ToString.ToEntero
-                        cevent.cveagendatipo = dr("CveAgendaTipo").ToString
-                        cevent.prioridad = dr("CvePrioridad").ToString.ToEntero
-                        cevent.backgroundColor = dr("BackGroundColor").ToString
-                        cevent.recurrenciatipo = dr("RecurrenciaTipo").ToString.ToEntero
-                        cevent.frecuencia = dr("Frecuencia").ToString.ToEntero
-                        cevent.diassemana = dr("DiasSemana").ToString
-                        cevent.dia = dr("Dia").ToString.ToEntero
-                        cevent.mes = dr("Mes").ToString.ToEntero
-                        cevent.recurrenciafin = dr("RecurrenciaFin").ToString
-                        cevent.CveProspecto = dr("CveProspecto").ToString.ToEntero
-                        cevent.Prospecto = dr("Prospecto").ToString
-                        cevent.CveTipoEvento = dr("Prospecto").ToString.ToEntero
-                        cevent.EmpresaCRM = dr("EmpresaCRM").ToString
-                        cevent.SubProyecto = dr("SubProyecto").ToString
-                        cevent.CveSubProyecto = dr("CveSubProyecto").ToString.ToEntero
-                        cevent.Direccion = dr("Direccion").ToString
 
-                        '11/05/2018 - Evento Gasto Recurrente
+                        If dr("CveEventoEstatus").ToString.ToEntero <> 5 Then
-                        cevent.CveTipoEvento = dr("CveTipoEvento").ToString.ToEntero
-                        If cevent.CveTipoEvento = 10 Then
-                            cevent.Importe = dr("Importe").ToString.ToDouble
-                        End If
 
-                        If cevent.CveEventoEstatus.ToString.ToEntero = 3 Then
+                            Dim cevent As CalendarEvent = New CalendarEvent()
-                            cevent.backgroundColor = "#1BBC9B"
+                            cevent.id = dr("CveEvento").ToString.ToEntero
-                        End If
+                            cevent.title = dr("Asunto").ToString
+                            cevent.description = dr("Descripcion").ToString
+                            cevent.start = String.Format("{0:s}", dr("FechaInicio").ToString.ToDateTime)
+                            cevent.end = String.Format("{0:s}", dr("FechaFin").ToString.ToDateTime)
+                            cevent.allDay = False
+                            cevent.CveEventoEstatus = dr("CveEventoEstatus").ToString.ToEntero
+                            cevent.cveagendatipo = dr("CveAgendaTipo").ToString
+                            cevent.prioridad = dr("CvePrioridad").ToString.ToEntero
+                            cevent.backgroundColor = dr("BackGroundColor").ToString
+                            cevent.recurrenciatipo = dr("RecurrenciaTipo").ToString.ToEntero
+                            cevent.frecuencia = dr("Frecuencia").ToString.ToEntero
+                            cevent.diassemana = dr("DiasSemana").ToString
+                            cevent.dia = dr("Dia").ToString.ToEntero
+                            cevent.mes = dr("Mes").ToString.ToEntero
+                            cevent.recurrenciafin = dr("RecurrenciaFin").ToString
+                            cevent.CveProspecto = dr("CveProspecto").ToString.ToEntero
+                            cevent.Prospecto = dr("Prospecto").ToString
+                            cevent.CveTipoEvento = dr("Prospecto").ToString.ToEntero
+                            cevent.EmpresaCRM = dr("EmpresaCRM").ToString
+                            cevent.SubProyecto = dr("SubProyecto").ToString
+                            cevent.CveSubProyecto = dr("CveSubProyecto").ToString.ToEntero
+                            cevent.Direccion = dr("Direccion").ToString
 
-                        'VERIFICAMOS SI TIENE O NO RECURRENCIA
+                            '11/05/2018 - Evento Gasto Recurrente
-                        If Not cevent.recurrenciatipo > 0 Then
+                            cevent.CveTipoEvento = dr("CveTipoEvento").ToString.ToEntero
-
+                            If cevent.CveTipoEvento = 10 Then
-                            'AGREGAMOS CUANDO NO ES RECURRENTE
+                                cevent.Importe = dr("Importe").ToString.ToDouble
-                            Dim tFecha As DateTime = DateAdd(DateInterval.Month, -6, Date.Now)
-                            'SI LA FECHA DEL EVENTO ES MENOR DE 6 MESES DE LA FECHA ACTUAL NO LO AGREGA
-                            If dr("FechaFin").ToString.ToDateTime > tFecha Or dr("FechaInicio").ToString.ToDateTime > tFecha Then
-                                events.Add(cevent)
                             End If
-                        Else
 
-                            'EMPIEZA METODO PARA AGREGAR CUANDO SI ES RECURRENTE
+                            If cevent.CveEventoEstatus.ToString.ToEntero = 3 Then
+                                cevent.backgroundColor = "#1BBC9B"
+                            End If
 
-                            Dim FinRecurrencia = cevent.recurrenciafin.ToEntero
+                            'VERIFICAMOS SI TIENE O NO RECURRENCIA
-                            Dim FI As DateTime, FF As DateTime, FT As DateTime
+                            If Not cevent.recurrenciatipo > 0 Then
-                            Dim DiasSemana = cevent.diassemana.Split(","c)
-                            FI = cevent.start.ToDateTime
-                            FF = cevent.end.ToDateTime
 
-                            'OBTENEMOS LA FECHA TERMINO (FT) DE LA RECURRENCIA
+                                'AGREGAMOS CUANDO NO ES RECURRENTE
-                            Select Case FinRecurrencia
+                                Dim tFecha As DateTime = DateAdd(DateInterval.Month, -6, Date.Now)
-                                Case -1
+                                'SI LA FECHA DEL EVENTO ES MENOR DE 6 MESES DE LA FECHA ACTUAL NO LO AGREGA
-                                    FT = DateAdd(DateInterval.Year, 2, dr("FechaInicio").ToString.ToDateTime)
+                                If dr("FechaFin").ToString.ToDateTime > tFecha Or dr("FechaInicio").ToString.ToDateTime > tFecha Then
-                                Case 0
+                                    events.Add(cevent)
-                                    FT = dr("RecurrenciaFin").ToString.ToDate
+                                End If
-                                Case Is > 0
+                            Else
-                                    FinRecurrencia -= 1
-                                    Select Case cevent.recurrenciatipo
-                                        Case 1
-                                            FT = DateAdd(DateInterval.Hour, FinRecurrencia * cevent.frecuencia, dr("FechaInicio").ToString.ToDateTime)
-                                        Case 2
-                                            FT = DateAdd(DateInterval.Day, FinRecurrencia * cevent.frecuencia, dr("FechaInicio").ToString.ToDateTime)
-                                        Case 3
-                                            FT = DateAdd(DateInterval.WeekOfYear, FinRecurrencia * cevent.frecuencia, dr("FechaInicio").ToString.ToDateTime)
-                                            FT = DateAdd(DateInterval.Day, (7 - Weekday(FT)).ToString.ToDouble, FT)
-                                        Case 4
-                                            FT = DateAdd(DateInterval.Month, FinRecurrencia * cevent.frecuencia, dr("FechaInicio").ToString.ToDateTime)
-                                        Case 5
-                                            FT = DateAdd(DateInterval.Year, FinRecurrencia * cevent.frecuencia, dr("FechaInicio").ToString.ToDateTime)
-                                    End Select
-                            End Select
 
-                            'SI ES TIPO SEMANAL Y DIASSEMANA TIENE VALORES CHECKEA ESTOS VALORES
+                                'EMPIEZA METODO PARA AGREGAR CUANDO SI ES RECURRENTE
-                            Do
-                                If DiasSemana.Length > 0 AndAlso DiasSemana(0) <> "" Then
-                                    For Each drDias As String In DiasSemana
-                                        Dim FIT = FI, FFT = FF
 
-                                        FIT = DateAdd(DateInterval.Day, (drDias.ToEntero - Weekday(FI)).ToString.ToDouble, FI)
+                                Dim FinRecurrencia = cevent.recurrenciafin.ToEntero
-                                        FFT = DateAdd(DateInterval.Day, (drDias.ToEntero - Weekday(FF)).ToString.ToDouble, FF)
+                                Dim FI As DateTime, FF As DateTime, FT As DateTime
+                                Dim DiasSemana = cevent.diassemana.Split(","c)
+                                FI = cevent.start.ToDateTime
+                                FF = cevent.end.ToDateTime
 
+                                'OBTENEMOS LA FECHA TERMINO (FT) DE LA RECURRENCIA
+                                Select Case FinRecurrencia
+                                    Case -1
+                                        FT = DateAdd(DateInterval.Year, 2, dr("FechaInicio").ToString.ToDateTime)
+                                    Case 0
+                                        FT = dr("RecurrenciaFin").ToString.ToDate
+                                    Case Is > 0
+                                        FinRecurrencia -= 1
+                                        Select Case cevent.recurrenciatipo
+                                            Case 1
+                                                FT = DateAdd(DateInterval.Hour, FinRecurrencia * cevent.frecuencia, dr("FechaInicio").ToString.ToDateTime)
+                                            Case 2
+                                                FT = DateAdd(DateInterval.Day, FinRecurrencia * cevent.frecuencia, dr("FechaInicio").ToString.ToDateTime)
+                                            Case 3
+                                                FT = DateAdd(DateInterval.WeekOfYear, FinRecurrencia * cevent.frecuencia, dr("FechaInicio").ToString.ToDateTime)
+                                                FT = DateAdd(DateInterval.Day, (7 - Weekday(FT)).ToString.ToDouble, FT)
+                                            Case 4
+                                                FT = DateAdd(DateInterval.Month, FinRecurrencia * cevent.frecuencia, dr("FechaInicio").ToString.ToDateTime)
+                                            Case 5
+                                                FT = DateAdd(DateInterval.Year, FinRecurrencia * cevent.frecuencia, dr("FechaInicio").ToString.ToDateTime)
+                                        End Select
+                                End Select
+
+                                'SI ES TIPO SEMANAL Y DIASSEMANA TIENE VALORES CHECKEA ESTOS VALORES
+                                Do
+                                    If DiasSemana.Length > 0 AndAlso DiasSemana(0) <> "" Then
+                                        For Each drDias As String In DiasSemana
+                                            Dim FIT = FI, FFT = FF
+
+                                            FIT = DateAdd(DateInterval.Day, (drDias.ToEntero - Weekday(FI)).ToString.ToDouble, FI)
+                                            FFT = DateAdd(DateInterval.Day, (drDias.ToEntero - Weekday(FF)).ToString.ToDouble, FF)
+
+                                            cevent = New CalendarEvent()
+                                            cevent.id = dr("CveEvento").ToString.ToEntero
+                                            cevent.title = dr("Asunto").ToString
+                                            cevent.description = dr("Descripcion").ToString
+                                            cevent.start = String.Format("{0:s}", FIT)
+                                            cevent.end = String.Format("{0:s}", FFT)
+                                            cevent.allDay = False
+                                            cevent.CveEventoEstatus = dr("CveEventoEstatus").ToString.ToEntero
+                                            cevent.cveagendatipo = dr("CveAgendaTipo").ToString
+                                            cevent.prioridad = dr("CvePrioridad").ToString.ToEntero
+                                            cevent.backgroundColor = dr("BackGroundColor").ToString
+
+                                            cevent.recurrenciatipo = dr("RecurrenciaTipo").ToString.ToEntero
+                                            cevent.frecuencia = dr("Frecuencia").ToString.ToEntero
+                                            cevent.diassemana = dr("DiasSemana").ToString
+                                            cevent.dia = dr("Dia").ToString.ToEntero
+                                            cevent.mes = dr("Mes").ToString.ToEntero
+                                            cevent.recurrenciafin = dr("RecurrenciaFin").ToString
+                                            cevent.CveProspecto = dr("CveProspecto").ToString.ToEntero
+                                            cevent.Prospecto = dr("Prospecto").ToString
+
+                                            '11/05/2018 - Evento Gasto Recurrente
+                                            cevent.CveTipoEvento = dr("CveTipoEvento").ToString.ToEntero
+                                            If cevent.CveTipoEvento = 10 Then
+                                                cevent.Importe = dr("Importe").ToString.ToDouble
+                                            End If
+
+                                            If cevent.CveEventoEstatus.ToString.ToEntero = 3 Then
+                                                cevent.backgroundColor = "#1BBC9B"
+                                            End If
+
+                                            'SI LA FECHA DEL EVENTO ES MENOR DE 6 MESES DE LA FECHA ACTUAL Y/0 SI LA FECHA INICIAL DE LA RECURRENCIA ES MENOR A LA FECHA QUE SE CREO EL EVENTO NO LO AGREGA
+                                            If FIT > DateAdd(DateInterval.Month, -6, Date.Now) And FIT >= dr("FechaInicio").ToString.ToDateTime Then
+                                                events.Add(cevent)
+                                            End If
+                                        Next
+                                    Else
                                         cevent = New CalendarEvent()
                                         cevent.id = dr("CveEvento").ToString.ToEntero
                                         cevent.title = dr("Asunto").ToString
                                         cevent.description = dr("Descripcion").ToString
-                                        cevent.start = String.Format("{0:s}", FIT)
+                                        cevent.start = String.Format("{0:s}", FI)
-                                        cevent.end = String.Format("{0:s}", FFT)
+                                        cevent.end = String.Format("{0:s}", FF)
                                         cevent.allDay = False
                                         cevent.CveEventoEstatus = dr("CveEventoEstatus").ToString.ToEntero
                                         cevent.cveagendatipo = dr("CveAgendaTipo").ToString
@@ -218,69 +258,37 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState
                                             cevent.backgroundColor = "#1BBC9B"
                                         End If
 
-                                        'SI LA FECHA DEL EVENTO ES MENOR DE 6 MESES DE LA FECHA ACTUAL Y/0 SI LA FECHA INICIAL DE LA RECURRENCIA ES MENOR A LA FECHA QUE SE CREO EL EVENTO NO LO AGREGA
+                                        'SI LA FECHA DEL EVENTO ES MENOR DE 6 MESES DE LA FECHA ACTUAL NO LO AGREGA
-                                        If FIT > DateAdd(DateInterval.Month, -6, Date.Now) And FIT >= dr("FechaInicio").ToString.ToDateTime Then
+                                        If FI > DateAdd(DateInterval.Month, -6, Date.Now) Then
                                             events.Add(cevent)
                                         End If
-                                    Next
-                                Else
-                                    cevent = New CalendarEvent()
-                                    cevent.id = dr("CveEvento").ToString.ToEntero
-                                    cevent.title = dr("Asunto").ToString
-                                    cevent.description = dr("Descripcion").ToString
-                                    cevent.start = String.Format("{0:s}", FI)
-                                    cevent.end = String.Format("{0:s}", FF)
-                                    cevent.allDay = False
-                                    cevent.CveEventoEstatus = dr("CveEventoEstatus").ToString.ToEntero
-                                    cevent.cveagendatipo = dr("CveAgendaTipo").ToString
-                                    cevent.prioridad = dr("CvePrioridad").ToString.ToEntero
-                                    cevent.backgroundColor = dr("BackGroundColor").ToString
-
-                                    cevent.recurrenciatipo = dr("RecurrenciaTipo").ToString.ToEntero
-                                    cevent.frecuencia = dr("Frecuencia").ToString.ToEntero
-                                    cevent.diassemana = dr("DiasSemana").ToString
-                                    cevent.dia = dr("Dia").ToString.ToEntero
-                                    cevent.mes = dr("Mes").ToString.ToEntero
-                                    cevent.recurrenciafin = dr("RecurrenciaFin").ToString
-                                    cevent.CveProspecto = dr("CveProspecto").ToString.ToEntero
-                                    cevent.Prospecto = dr("Prospecto").ToString
-
-                                    '11/05/2018 - Evento Gasto Recurrente
-                                    cevent.CveTipoEvento = dr("CveTipoEvento").ToString.ToEntero
-                                    If cevent.CveTipoEvento = 10 Then
-                                        cevent.Importe = dr("Importe").ToString.ToDouble
                                     End If
 
-                                    If cevent.CveEventoEstatus.ToString.ToEntero = 3 Then
+                                    Select Case cevent.recurrenciatipo
-                                        cevent.backgroundColor = "#1BBC9B"
+                                        Case 1
-                                    End If
+                                            FI = DateAdd(DateInterval.Hour, cevent.frecuencia, FI)
+                                            FF = DateAdd(DateInterval.Hour, cevent.frecuencia, FF)
+                                        Case 2
+                                            FI = DateAdd(DateInterval.Day, cevent.frecuencia, FI)
+                                            FF = DateAdd(DateInterval.Day, cevent.frecuencia, FF)
+                                        Case 3
+                                            FI = DateAdd(DateInterval.WeekOfYear, cevent.frecuencia, FI)
+                                            FF = DateAdd(DateInterval.WeekOfYear, cevent.frecuencia, FF)
+                                        Case 4
+                                            FI = DateAdd(DateInterval.Month, cevent.frecuencia, FI)
+                                            FF = DateAdd(DateInterval.Month, cevent.frecuencia, FF)
+                                        Case 5
+                                            FI = DateAdd(DateInterval.Year, cevent.frecuencia, FI)
+                                            FF = DateAdd(DateInterval.Year, cevent.frecuencia, FF)
+                                    End Select
 
-                                    'SI LA FECHA DEL EVENTO ES MENOR DE 6 MESES DE LA FECHA ACTUAL NO LO AGREGA
+                                Loop Until FI > FT
-                                    If FI > DateAdd(DateInterval.Month, -6, Date.Now) Then
+                            End If
-                                        events.Add(cevent)
-                                    End If
-                                End If
 
-                                Select Case cevent.recurrenciatipo
-                                    Case 1
-                                        FI = DateAdd(DateInterval.Hour, cevent.frecuencia, FI)
-                                        FF = DateAdd(DateInterval.Hour, cevent.frecuencia, FF)
-                                    Case 2
-                                        FI = DateAdd(DateInterval.Day, cevent.frecuencia, FI)
-                                        FF = DateAdd(DateInterval.Day, cevent.frecuencia, FF)
-                                    Case 3
-                                        FI = DateAdd(DateInterval.WeekOfYear, cevent.frecuencia, FI)
-                                        FF = DateAdd(DateInterval.WeekOfYear, cevent.frecuencia, FF)
-                                    Case 4
-                                        FI = DateAdd(DateInterval.Month, cevent.frecuencia, FI)
-                                        FF = DateAdd(DateInterval.Month, cevent.frecuencia, FF)
-                                    Case 5
-                                        FI = DateAdd(DateInterval.Year, cevent.frecuencia, FI)
-                                        FF = DateAdd(DateInterval.Year, cevent.frecuencia, FF)
-                                End Select
 
-                            Loop Until FI > FT
                         End If
+
+
                     Next
                 Catch ex As Exception
                     GuardaLog(ex.ToString())

Bancos/CatBancos.aspx.vb

@@ -218,12 +218,12 @@ Partial Class Bancos_CatBancos
 
         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 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))
             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
             If Imagen.Exists Then
-                params.Add(New ReportParameter("LogoPath", logouri))
+                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
             Else
                 params.Add(New ReportParameter("LogoPath", ""))
             End If

Bancos/CuentasBancarias.aspx.vb

@@ -154,12 +154,12 @@ Partial Class Bancos_CuentasBancarias
     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 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))
             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
             If Imagen.Exists Then
-                params.Add(New ReportParameter("LogoPath", logouri))
+                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
             Else
                 params.Add(New ReportParameter("LogoPath", ""))
             End If

Bancos/DepositosCaja.aspx.vb

@@ -43,8 +43,8 @@ Partial Class Bancos_DepositosCaja
 
         DdlCajaChica.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("  CveTipoCuenta = 1", "", {"CveCuenta", "NumCuentaMoneda"})
         DdlCajaChica.DataBind()
-        'código temporal, para claudia y toñita, monge, anadelia, alba
+        'código temporal, para claudia y toñita, monge, anadelia, alba,patricia
-        If UsuarioActual.CveUsuario.Contiene(1937, 2452, 3358, 3033, 2897) Then
+        If UsuarioActual.CveUsuario.Contiene(1937, 2452, 3358, 3033, 2897, 2560) Then
             DdlCajaChica.Items.Add(New ListItem("Todas", "-1"))
             divFolio.Visible = True
         End If
@@ -255,8 +255,8 @@ Partial Class Bancos_DepositosCaja
             CveTransaccionBanco = 6
         End If
 
-        'código temporal, para claudia y toñita, monge, anadelia, alba
+        'código temporal, para claudia y toñita, monge, anadelia, alba,patricia
-        If UsuarioActual.CveUsuario.Contiene(1937, 2452, 3358, 3033, 2897) Then
+        If UsuarioActual.CveUsuario.Contiene(1937, 2452, 3358, 3033, 2897, 2560) Then
             FolioIE = TxtFolio.Text.ToEntero
         End If
 

Bancos/FluctuacionCambiaria.aspx.vb

@@ -139,10 +139,8 @@ Partial Class Bancos_FluctuacionCambiaria
             LtIndicador_CPPesosFinal.Text = Final.Abs.ToString.FormatoNumero
             LblComprasPerdidaGanancia.Text = If(Final < 0, "Ganancia", "Pérdida")
 
-            LblTotal = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero
+            LblTotal = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero
-        Else
+
-            GvProveedores.DataSource = Nothing
-            Alert("Ocurrio un error al cargar las compras", TipoMensaje.MsgAdvertencia)
         End If
         ObjBancos.Dispose()
         GvProveedores.DataBind()
@@ -179,10 +177,8 @@ Partial Class Bancos_FluctuacionCambiaria
             LtIndicador_CPPesosFinal.Text = Final.Abs.ToString.FormatoNumero
             LblComprasPerdidaGanancia.Text = If(Final > 0, "Ganancia", "Pérdida")
 
-            LblTotal = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero
+            LblTotal = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero
-        Else
+
-            GvProveedoresAnt.DataSource = Nothing
-            Alert("Ocurrio un error al cargar las compras", TipoMensaje.MsgAdvertencia)
         End If
         ObjBancos.Dispose()
         GvProveedoresAnt.DataBind()
@@ -220,10 +216,8 @@ Partial Class Bancos_FluctuacionCambiaria
 
             LblTotalVentas.Text = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero
 
-            UpIndicadoresVentas.Visible = True
+            UpIndicadoresVentas.Visible = True
-        Else
+
-            GvVentas.DataSource = Nothing
-            Alert("Ocurrio un error al cargar las compras", TipoMensaje.MsgAdvertencia)
         End If
         ObjBancos.Dispose()
         GvVentas.DataBind()
@@ -257,10 +251,8 @@ Partial Class Bancos_FluctuacionCambiaria
 
             LblTotalVentasAnt.Text = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero
 
-            UpIndicadoresVentas.Visible = True
+            UpIndicadoresVentas.Visible = True
-        Else
+
-            GvClientesAnt.DataSource = Nothing
-            Alert("Ocurrio un error al cargar las compras", TipoMensaje.MsgAdvertencia)
         End If
         ObjBancos.Dispose()
         GvClientesAnt.DataBind()
@@ -359,7 +351,7 @@ Partial Class Bancos_FluctuacionCambiaria
     Private Sub CargaDatosDeudores()
         Dim ObjBancos As New ClsBancos
         LblTotalDeudores.Text = "0.00"
-        If ObjBancos.GetFluctuaciones(FechaUltimoDiaMes, 5, UsuarioActual.CveEmpresa) Then
+        If ObjBancos.GetFluctuaciones(FechaUltimoDiaMes, 9, UsuarioActual.CveEmpresa) Then
             GvDeudores.DataSource = ObjBancos.DtResultados
             LblTotalDeudores.Text = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero
         Else
@@ -374,7 +366,7 @@ Partial Class Bancos_FluctuacionCambiaria
     Private Sub CargaDatosFiliales()
         Dim ObjBancos As New ClsBancos
         LblTotalAcreedores.Text = "0.00"
-        If ObjBancos.GetFluctuaciones(FechaUltimoDiaMes, 7, UsuarioActual.CveEmpresa) Then
+        If ObjBancos.GetFluctuaciones(FechaUltimoDiaMes, 8, UsuarioActual.CveEmpresa) Then
             GvFiliales.DataSource = ObjBancos.DtResultados.FiltraParametros("Saldo > 0")
             LblTotalAcreedores.Text = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero
         Else

Bancos/FlujoDiario.aspx.vb

@@ -51,7 +51,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 logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
 
         params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
         params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
@@ -59,7 +59,7 @@ Partial Class Bancos_FlujoDiario
         params.Add(New ReportParameter("Fecha", TxtFecha.Text.ToDate.ToLongDateString))
 
         If Imagen.Exists Then
-            params.Add(New ReportParameter("LogoPath", logouri))
+            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
         Else
             params.Add(New ReportParameter("LogoPath", ""))
         End If

Bancos/IE.aspx

@@ -209,7 +209,7 @@
                                 <label class="col-md-2 control-label">
                                     <asp:Label ID="LblFolio" runat="server" Text="Número:"></asp:Label></label>
                                 <div class="col-md-4">
-                                    <asp:TextBox ID="TxtFolio" runat="server" MaxLength="20" class="form-control input-sm"></asp:TextBox>
+                                    <asp:TextBox ID="TxtFolio" runat="server" MaxLength="25" class="form-control input-sm"></asp:TextBox>
                                     <asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server" ControlToValidate="TxtFolio" Display="None" ErrorMessage="El campo <b>''Folio''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                     <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender2" runat="server" HighlightCssClass="vco" TargetControlID="RequiredFieldValidator1" Width="350px"></ajax:ValidatorCalloutExtender>
 

Bancos/IE.aspx.vb

@@ -6457,10 +6457,14 @@ Partial Class Bancos_IE
     Private Sub BtnAjustarMovimiento_Click(sender As Object, e As EventArgs) Handles BtnAjustarMovimiento.Click
 
         Dim ObjBanco As New ClsBancos
+        ObjBanco.IniciaTransacSQL()
 
         If ObjBanco.UpdateAjustarMovimiento(CveIE, TxtAjustarMovimiento.Text.ToDecimal, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+            ObjBanco.Commit()
             RegistraScript("$('#ModalAjustarMovimiento').modal('hide');", "ALTR")
             Alert("El ajuste se realizo correctamente.", TipoMensaje.MsgInformacion, $" document.location.href = ""./IE.aspx?CveIE={CveIE}"";")
+        Else
+            ObjBanco.RollBack()
         End If
 
         ObjBanco.Dispose()

Bancos/PagoElectronico.aspx.vb

@@ -2751,11 +2751,10 @@ Partial Class Bancos_PagoElectronico
         If Archivo.Exists Then
             'ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/LayoutAltaProveedor.rdlc", DtAlta, params, "LayoutAltaProveedor", RDSName:="DsPagoElectronico") 
             ImprimirPDF(String.Format("{0}Formatos\LayoutAltaProveedor.rdlc", UsuarioActual.Empresa.Ruta), DtAlta, params, "LayoutAltaProveedor", RDSName:="DsPagoElectronico")
-        Else
+        Else
-            Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
-
             If Imagen.Exists Then
-                params.Add(New ReportParameter("LogoPath", logouri))
+                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
             Else
                 params.Add(New ReportParameter("LogoPath", ""))
             End If
@@ -2780,12 +2779,10 @@ Partial Class Bancos_PagoElectronico
 
         If Archivo.Exists Then
             ImprimirPDF(String.Format("{0}Formatos\LayoutAltaProveedor.rdlc", UsuarioActual.Empresa.Ruta), DtAlta, params, "LayoutAltaProveedor", RDSName:="DsPagoElectronico")
-        Else
+        Else
-
+
-            Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
-
             If Imagen.Exists Then
-                params.Add(New ReportParameter("LogoPath", logouri))
+                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
             Else
                 params.Add(New ReportParameter("LogoPath", ""))
             End If
@@ -2807,11 +2804,10 @@ Partial Class Bancos_PagoElectronico
 
         If Archivo.Exists Then
             ImprimirPDF(String.Format("{0}Formatos\LayoutPagoProveedor.rdlc", UsuarioActual.Empresa.Ruta), DtPago, params, "LayoutPagoProveedor", RDSName:="DSPagoElectronicoV2")
-        Else
+        Else
-            Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
-
             If Imagen.Exists Then
-                params.Add(New ReportParameter("LogoPath", logouri))
+                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
             Else
                 params.Add(New ReportParameter("LogoPath", ""))
             End If

Bancos/PagoElectronicoGrupos.aspx

@@ -579,7 +579,7 @@
                                </div>                                        
                                         
                                         <asp:GridView ID="GvEnviadas" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros enviados" ToolTip="Tabla de pagos electronicos" 
-                                            DataKeyNames="CveLayoutEnvioDetalle,CveIE,CveLayoutEnvio,CveProveedor,Archivo,Estatus,NotificarA"
+                                            DataKeyNames="CveLayoutEnvioDetalle,CveIE,CveLayoutEnvio,CveProveedor,Archivo,Estatus,NotificarA,Tipo,CveCuenta"
                                             OnRowDataBound="GvEnviadas_RowDataBound" CssClass="table table-striped table-hover Widthall ScrollAD" data-heigth="350px" data-freezerows="1" Style="text-align: center;" GridLines="None">
                                             <Columns>
                                                 <asp:BoundField DataField="Fecha" HeaderText="Fecha Envio" DataFormatString="{0:d}" />

Bancos/PagoElectronicoGrupos.aspx.vb

@@ -650,13 +650,26 @@ Partial Class Bancos_PagoElectronicoGrupos
 
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
 
+
         Dim CveBLE = CType(sender, LinkButton).CommandArgument.ToEntero
+        Dim Cvecuenta As Integer = GvRow.DataKey("CveCuenta").ToEntero
+        Dim CveLayoutEnvio As Integer = GvRow.DataKey("CveLayoutEnvio").ToEntero
+
+        Dim TipoRegenrar As String = ""
+
+        If DTEnviadas IsNot Nothing Then
+            TipoRegenrar = DTEnviadas.FiltroPrimeroValor("Tipo", "LEN(Tipo) > 0")
+            TipoRegenrar = If(TipoRegenrar.Contains("ANT"), "ANT", TipoRegenrar)
+        End If
+
+
+
         Dim DtRegenerar As New DataTable
 
         Dim NombreDelArchivo As String = GvRow.DataKey("Archivo")
 
         Dim ObjBancos As New ClsBancos
-        If ObjBancos.GetLayoutPagos(DdlCuentaEnviados.SelectedValue.ToEntero, CveBLE, DdlTipoGeneracionEnviados.SelectedValue, PorGrupos:=True) Then
+        If ObjBancos.GetLayoutPagos(Cvecuenta, CveBLE, TipoRegenrar, PorGrupos:=True) Then
             DtRegenerar = ObjBancos.DtResultados
         Else
             DtRegenerar = Nothing
@@ -2311,10 +2324,10 @@ Partial Class Bancos_PagoElectronicoGrupos
             'ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/LayoutAltaProveedor.rdlc", DtAlta, params, "LayoutAltaProveedor", RDSName:="DsPagoElectronico") 
             ImprimirPDF(String.Format("{0}Formatos\LayoutAltaProveedor.rdlc", UsuarioActual.Empresa.Ruta), DtAlta, params, "LayoutAltaProveedor", RDSName:="DsPagoElectronico")
         Else
-            Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
 
             If Imagen.Exists Then
-                params.Add(New ReportParameter("LogoPath", logouri))
+                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
             Else
                 params.Add(New ReportParameter("LogoPath", ""))
             End If
@@ -2342,12 +2355,12 @@ Partial Class Bancos_PagoElectronicoGrupos
 
         If Archivo.Exists Then
             ImprimirPDF(String.Format("{0}Formatos\LayoutAltaProveedor.rdlc", UsuarioActual.Empresa.Ruta), DtAlta, params, "LayoutAltaProveedor", RDSName:="DsPagoElectronico")
-        Else
+        Else
-
+
-            Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
-
+
             If Imagen.Exists Then
-                params.Add(New ReportParameter("LogoPath", logouri))
+                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
             Else
                 params.Add(New ReportParameter("LogoPath", ""))
             End If
@@ -2381,11 +2394,11 @@ Partial Class Bancos_PagoElectronicoGrupos
 
         If Archivo.Exists Then
             ImprimirPDF(String.Format("{0}Formatos\LayoutPagoProveedor.rdlc", UsuarioActual.Empresa.Ruta), DtPago, params, "LayoutPagoProveedor", RDSName:="DSPagoElectronicoV2")
-        Else
+        Else
-            Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
-
+
-            If Imagen.Exists Then
+            If Imagen.Exists Then
-                params.Add(New ReportParameter("LogoPath", logouri))
+                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
             Else
                 params.Add(New ReportParameter("LogoPath", ""))
             End If
@@ -2538,6 +2551,8 @@ Partial Class Bancos_PagoElectronicoGrupos
     Protected Sub ImgUpload_Click(sender As Object, e As EventArgs)
 
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+
+
         CveIEPagoActual = GvRow.DataKey("CveIE").ToEntero
 
         ' HFComprobanteActual = GvRow.FCHiddenField("HFComprobante")
@@ -2979,11 +2994,11 @@ Partial Class Bancos_PagoElectronicoGrupos
 
         If Archivo.Exists Then
             ImprimirPDF(String.Format("{0}Formatos\LayoutPagoProveedor.rdlc", UsuarioActual.Empresa.Ruta), DtPago, params, "LayoutPagoProveedor", RDSName:="DSPagoElectronicoV2")
-        Else
+        Else
-            Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
-
+
-            If Imagen.Exists Then
+            If Imagen.Exists Then
-                params.Add(New ReportParameter("LogoPath", logouri))
+                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
             Else
                 params.Add(New ReportParameter("LogoPath", ""))
             End If

Bancos/ProveedoresAbonar.aspx.vb

@@ -2029,7 +2029,7 @@ Partial Class Bancos_ProveedoresAbonar
     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 logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
             Dim StrImporte As String = DtDatos.Rows(0)("Saldo").ToString.FormatoNumero
             Dim params As New List(Of ReportParameter)
             params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
@@ -2059,7 +2059,7 @@ Partial Class Bancos_ProveedoresAbonar
             params.Add(New ReportParameter("Cuenta", Cuenta))
             params.Add(New ReportParameter("Correo", Correo))
             If Imagen.Exists Then
-                params.Add(New ReportParameter("LogoPath", logouri))
+                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
             Else
                 params.Add(New ReportParameter("LogoPath", ""))
             End If

Bancos/RepClientesAnticipo.aspx.vb

@@ -147,7 +147,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 logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
         Dim Filtros As String = "<b>Filtros: </b>"
 
         If DdlClientes.SelectedIndex > 0 Then Filtros = Filtros & " Clientes Todos: " Else Filtros = Filtros & " Cliente: " & DdlClientes.SelectedItem.Text
@@ -170,7 +170,7 @@ Partial Class Bancos_RepClientesAnticipo
         params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
 
         If Imagen.Exists Then
-            params.Add(New ReportParameter("LogoPath", logouri))
+            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
         Else
             params.Add(New ReportParameter("LogoPath", ""))
         End If

Bancos/RepCobrado.aspx.vb

@@ -141,14 +141,14 @@ Partial Class Ventas_RepRecuperacion
         End If
 
         Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
         Dim 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", logouri))
+            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
         Else
             params.Add(New ReportParameter("LogoPath", ""))
         End If

Bancos/RepCobradoDetalle.aspx.vb

@@ -199,15 +199,15 @@ 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(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
         Dim 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", logouri))
+            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
         Else
             params.Add(New ReportParameter("LogoPath", ""))
         End If

Bancos/RepCobradoPagado.aspx.vb

@@ -190,7 +190,7 @@ Partial Class Bancos_RepCobradoPagado
 
         If DtDatos.Rows.Count > 0 Then
             Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-            Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
             Dim params As New List(Of ReportParameter)
             params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
             params.Add(New ReportParameter("FechaInicio", FechaI))
@@ -203,7 +203,7 @@ Partial Class Bancos_RepCobradoPagado
             params.Add(New ReportParameter("FUltimoMes", FUltimoMes))
             params.Add(New ReportParameter("FPenultimoMes", FPenultimoMes))
             If Imagen.Exists Then
-                params.Add(New ReportParameter("LogoPath", logouri))
+                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
             Else
                 params.Add(New ReportParameter("LogoPath", ""))
             End If

Bancos/RepComprobaciones.aspx.cs

@@ -1,4 +1,5 @@
 using System;
+using System.Activities.Expressions;
 using System.Collections.Generic;
 using System.Data;
 using System.Linq;
@@ -74,8 +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(string.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta));        
-        var logouri = string.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa);
 
         @params.Add(new ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa));
         @params.Add(new ReportParameter("FechaInicio", TxtFechaInicio.Text));
@@ -86,7 +86,7 @@ public partial class Bancos_RepComprobaciones : ClsPaginas
 
         if (Imagen.Exists)
         {
-            @params.Add(new ReportParameter("LogoPath", logouri));
+            @params.Add(new ReportParameter("LogoPath", $"file://{Imagen.FullName}"));
         }
         else
         {

Bancos/RepCxCCliente.aspx.vb

@@ -132,7 +132,7 @@ Partial Class Bancos_RepCxCCliente
 
     Private Sub GenerarPDFpp()
         Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
         'OBTENEMOS LOS DATOS
         Dim ObjMovtos As New ClsMovimientos()
         Dim DTpp As DataTable
@@ -159,7 +159,7 @@ Partial Class Bancos_RepCxCCliente
             params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToString))
 
             If Imagen.Exists Then
-                params.Add(New ReportParameter("LogoPath", logouri))
+                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
             Else
                 params.Add(New ReportParameter("LogoPath", ""))
             End If

Bancos/RepEgresosSinComprobante.aspx.vb

@@ -367,8 +367,8 @@ 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(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-            Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
             Dim FechaI, FechaF As String
             FechaI = If(txtFechaI.Text = "" Or txtFechaI.Text = "__/__/____", "-1", txtFechaI.Text)
             FechaF = If(txtFechaF.Text = "" Or txtFechaF.Text = "__/__/____", "-1", txtFechaF.Text)
@@ -380,7 +380,7 @@ Partial Class Bancos_RepEgresosSinComprobante
             params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
             params.Add(New ReportParameter("Filtros", StrFiltro.ToString))
             If Imagen.Exists Then
-                params.Add(New ReportParameter("LogoPath", logouri))
+                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
             Else
                 params.Add(New ReportParameter("LogoPath", ""))
             End If

Bancos/RepSaldos.aspx.vb

@@ -160,7 +160,6 @@ 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 logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
 
         'OBTENEMOS LOS DATOS
         Dim DtBancos As DataTable
@@ -197,7 +196,7 @@ Partial Class Bancos_RepSaldos
         params.Add(New ReportParameter("FechaFin", FechaF))
 
         If Imagen.Exists Then
-            params.Add(New ReportParameter("LogoPath", logouri))
+            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
         Else
             params.Add(New ReportParameter("LogoPath", ""))
         End If

Bancos/RepSaldosDetalle.aspx.vb

@@ -187,7 +187,6 @@ Partial Class Bancos_RepSaldosDetalle
 
     Private Sub ImprimirReporte(formato As String)
         Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
 
         'OBTENEMOS LOS DATOS
         Dim dt As DataTable
@@ -215,7 +214,7 @@ Partial Class Bancos_RepSaldosDetalle
         params.Add(New ReportParameter("SaldoInicial", LblSaldoInicial.Text))
 
         If Imagen.Exists Then
-            params.Add(New ReportParameter("LogoPath", logouri))
+            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
         Else
             params.Add(New ReportParameter("LogoPath", ""))
         End If

CGame/OrdenProduccion.aspx.vb

@@ -1677,7 +1677,7 @@ Partial Class CGame_OrdenProduccion
             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 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))
                 params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
@@ -1688,7 +1688,7 @@ Partial Class CGame_OrdenProduccion
                 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", logouri))
+                    params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
                 Else
                     params.Add(New ReportParameter("LogoPath", ""))
                 End If

Compras/CatEstatusFactura.aspx.vb

@@ -149,14 +149,14 @@ Partial Class Compras_CatEstatusFactura
 
     Private Sub GenerarPDF(Optional Formato As String = "PDF")
         Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
         Dim 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", logouri))
+            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
         Else
             params.Add(New ReportParameter("LogoPath", ""))
         End If

Compras/CatProveedores.aspx.vb

@@ -254,7 +254,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 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
         Dim ObjBancos As New ClsBancos
 
@@ -270,7 +270,7 @@ Partial Class Compras_CatProveedores
             params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
 
             If Imagen.Exists Then
-                params.Add(New ReportParameter("LogoPath", logouri))
+                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
             Else
                 params.Add(New ReportParameter("LogoPath", ""))
             End If

Compras/Compras.aspx.vb

@@ -6584,7 +6584,7 @@ Partial Class Compras_Compras
 
                                                                 If RegistraConcepto225 Then
 
-                                                                    importeMovimiento = TmpDT.SUM(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total"), $"ISNULL(TipoAF,0) <> 2 And ISNULL(CveAlmacen,0) = 0 And ISNULL(AplicaCostoIndirecto,0) <> 1 And ISNULL(CveTipoPS,0) = 2").ToString.ToDecimal
+                                                                    importeMovimiento = TmpDT.SUM(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total"), $"ISNULL(TipoAF,0) <> 2 And  ISNULL(AplicaCostoIndirecto,0) <> 1 And ISNULL(CveTipoPS,0) = 2").ToString.ToDecimal
                                                                     importeMN = importeMovimiento * tipoCambioActual * Multiplicador
 
                                                                     'no es necesario, ya se está interpretandoe l usado como producto
@@ -6978,7 +6978,7 @@ Partial Class Compras_Compras
                                                                         End If
                                                                     Else
 
-                                                                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, (importeMovimiento + OtrosGastosIngresos), Referencia, CveConceptoContableDeoudor, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=tCveProveedor, CveIE:=rw.DataKey("CveIE").ToString.ToEntero, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMNOtrosIngEgs, ImporteME:=If(tipoCambioActual = 1, 0, (importeMovimiento + OtrosGastosIngresos)), Contabilizable:=SeContabiliza) Then
+                                                                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, If(TipoMovimiento, False, True), (importeMovimiento + OtrosGastosIngresos), Referencia, CveConceptoContableDeoudor, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=tCveProveedor, CveIE:=rw.DataKey("CveIE").ToString.ToEntero, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMNOtrosIngEgs, ImporteME:=If(tipoCambioActual = 1, 0, (importeMovimiento + OtrosGastosIngresos)), Contabilizable:=SeContabiliza) Then
                                                                             ErrorPrepoliza = True : Exit For
                                                                         End If
                                                                     End If
@@ -6987,7 +6987,7 @@ Partial Class Compras_Compras
                                                                         .ImportePago = importeMovimiento,
                                                                         .CveIE = CveIE,
                                                                         .CveMonedaPago = rw.DataKey("CveMoneda").ToEntero,
-                                                                        .OtroGastoIngreso = OtrosGastosIngresos
+                                                                        .OtroGastoIngreso = -OtrosGastosIngresos 'Se manda en negativo para no afectar en prepoliza,   en funcion AplicaPrePolizaPagoCompra se mete en positivo por default
                                                                     }
                                                                     AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta)
                                                                 End If

Compras/PopUpVerFactura.aspx.vb

@@ -3094,13 +3094,13 @@ Partial Class PopUpVerFactura
                         CartaPorte.Parametros.Add(New ReportParameter($"TieneCartaPorte", "False"))
                     End If
                 Else
-                    If UsuarioActual.CveEmpresa = 13 AndAlso Vta.TipoDocto = "Egs" Then
+                    If UsuarioActual.CveEmpresa = 13 AndAlso Vta.TipoDocto.Contiene("Egs", "Ant") Then
                         CartaPorte = New Modelos.MSubReportData()
                         CartaPorte.Parametros.Add(New ReportParameter($"TieneCartaPorte", "False"))
                     End If
                 End If
             Else
-                If UsuarioActual.CveEmpresa = 13 AndAlso Vta.TipoDocto = "Egs" Then
+                If UsuarioActual.CveEmpresa = 13 AndAlso Vta.TipoDocto.Contiene("Egs", "Ant") Then
                     CartaPorte = New Modelos.MSubReportData()
                     CartaPorte.Parametros.Add(New ReportParameter($"TieneCartaPorte", "False"))
                 End If
@@ -4797,9 +4797,9 @@ Partial Class PopUpVerFactura
             '    Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
             '    Dim params As New List(Of ReportParameter)
 
-            '    Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+            '    
             '    If Imagen.Exists Then
-            '        params.Add(New ReportParameter("LogoPath", logouri))
+            '        params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
             '    Else
             '        params.Add(New ReportParameter("LogoPath", ""))
             '    End If

Compras/Proveedores.aspx.vb

@@ -4175,7 +4175,7 @@ Partial Class Compras_Proveedores
 
     Private Sub ImprimirReporteCxP(Optional Formato As String = "PDF")
         Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
         Dim ObjMovtos As New ClsMovimientos()
 
         If rblreporte.SelectedValue = "cxp" Then
@@ -4225,7 +4225,7 @@ Partial Class Compras_Proveedores
                 params.Add(New ReportParameter("AgrupadoPor", $"<b>Agrupado Por:</b>&nbsp;{Proveedor}{FechaIn}{FechaFn}{FechVI}{FechVF}"))
 
                 If Imagen.Exists Then
-                    params.Add(New ReportParameter("LogoPath", logouri))
+                    params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
                 Else
                     params.Add(New ReportParameter("LogoPath", ""))
                 End If
@@ -4261,7 +4261,7 @@ Partial Class Compras_Proveedores
                 params.Add(New ReportParameter("FechaInicio", FI))
                 params.Add(New ReportParameter("FechaFin", FF))
                 If Imagen.Exists Then
-                    params.Add(New ReportParameter("LogoPath", logouri))
+                    params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
                 Else
                     params.Add(New ReportParameter("LogoPath", ""))
                 End If
@@ -4717,7 +4717,7 @@ Partial Class Compras_Proveedores
                 params.Add(New ReportParameter("NombreProveedor", TxtRazonSocial.Text))
 
                 If Imagen.Exists Then
-                    params.Add(New ReportParameter("LogoPath", logouri))
+                    params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
                 Else
                     params.Add(New ReportParameter("LogoPath", ""))
                 End If
@@ -6284,14 +6284,14 @@ Partial Class Compras_Proveedores
             Dim params As New List(Of ReportParameter)
 
             Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-            Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
 
             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", logouri))
+                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
             Else
                 params.Add(New ReportParameter("LogoPath", ""))
             End If

Compras/ProveedoresAuxiliar.aspx.vb

@@ -119,14 +119,14 @@ Partial Class Compras_ProveedoresAuxiliar
         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 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))
         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", logouri))
+            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
         Else
             params.Add(New ReportParameter("LogoPath", ""))
         End If

Compras/ReembolsosComprobaciones.aspx.vb

@@ -1259,9 +1259,9 @@ Partial Class Compras_ReembolsosComprobaciones
     End Sub
 
     Private Sub Imprimir(Formato As String)
+
         Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos\Reembolso.rdlc", UsuarioActual.Empresa.Ruta))
         Dim Imagen As New System.IO.FileInfo(String.Format("{0}Logo.png", UsuarioActual.Empresa.Ruta))
-        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
 
         Dim params As New List(Of ReportParameter)
 
@@ -1295,7 +1295,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", logouri))
+                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
             Else
                 params.Add(New ReportParameter("LogoPath", ""))
             End If

Compras/RepComplementoPago.aspx.vb

@@ -174,7 +174,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 logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
 
         Dim proveedor As String = If(DdlProveedores.SelectedValue = "", "", $"&emsp;<b>Proveedor:</b>&nbsp;{DdlProveedores.SelectedText}")
         Dim FI As String = If(TxtFiltrosFechaInicio.Text = "", "", $"&emsp;<b>Fecha Inicio:</b>&nbsp;{TxtFiltrosFechaInicio.Text}")
@@ -193,7 +193,7 @@ Partial Class Compras_RepComplementoPago
             params.Add(New ReportParameter("AgrupadoPor", $"{proveedor}{FI}{FF}{vinc}{TP}{subProy}{usuario}"))
 
             If Imagen.Exists Then
-                params.Add(New ReportParameter("LogoPath", logouri))
+                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
             Else
                 params.Add(New ReportParameter("LogoPath", ""))
             End If

Compras/RepCompras.aspx.vb

@@ -400,8 +400,8 @@ 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(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-            Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
             Dim params As New List(Of ReportParameter)
             params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
             params.Add(New ReportParameter("FechaInicio", FechaI))
@@ -411,7 +411,7 @@ Partial Class Compras_RepCompras
             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", logouri))
+                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
             Else
                 params.Add(New ReportParameter("LogoPath", ""))
             End If

Compras/RepComprasAF.aspx.vb

@@ -242,7 +242,7 @@ Partial Class Compras_RepComprasAF
         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 logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
         Dim FechaI, FechaF As String
         FechaI = If(txtFechaI.Text = "" Or txtFechaI.Text = "__/__/____", "-1", txtFechaI.Text)
         FechaF = If(txtFechaF.Text = "" Or txtFechaF.Text = "__/__/____", "-1", txtFechaF.Text)
@@ -258,7 +258,7 @@ Partial Class Compras_RepComprasAF
         params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
 
         If Imagen.Exists Then
-            params.Add(New ReportParameter("LogoPath", logouri))
+            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
         Else
             params.Add(New ReportParameter("LogoPath", ""))
         End If

Compras/RepComprasAFDetalle.aspx.vb

@@ -376,7 +376,7 @@ Partial Class Compras_RepComprasAFDetalle
 
 
         Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
 
         Dim FechaI, FechaF As String
         FechaI = If(txtFechaI.Text = "" Or txtFechaI.Text = "__/__/____", "-1", txtFechaI.Text)
@@ -392,7 +392,7 @@ Partial Class Compras_RepComprasAFDetalle
         params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
 
         If Imagen.Exists Then
-            params.Add(New ReportParameter("LogoPath", logouri))
+            pparams.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
         Else
             params.Add(New ReportParameter("LogoPath", ""))
         End If

Compras/RepComprasDetalle.aspx.vb

@@ -441,8 +441,8 @@ 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(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-            Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
             Dim params As New List(Of ReportParameter)
             params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
             params.Add(New ReportParameter("FechaInicio", FechaI))
@@ -452,7 +452,7 @@ Partial Class Compras_RepComprasDetalle
             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", logouri))
+                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
             Else
                 params.Add(New ReportParameter("LogoPath", ""))
             End If

Compras/RepComprasPeriodo.aspx.vb

@@ -305,7 +305,7 @@ Partial Class Compras_RepComprasPeriodo
                                            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 logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
             Dim dt As DataTable = ObjCompras.DtResultados
             Dim params As New List(Of ReportParameter)
             params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
@@ -316,7 +316,7 @@ Partial Class Compras_RepComprasPeriodo
             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", logouri))
+                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
             Else
                 params.Add(New ReportParameter("LogoPath", ""))
             End If

Compras/RepComprasPersonal.aspx.vb

@@ -194,7 +194,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 logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
 
         Dim FechaI, FechaF As String
         FechaI = If(txtFechaI.Text = "" Or txtFechaI.Text = "__/__/____", "-1", txtFechaI.Text)
@@ -209,7 +209,7 @@ Partial Class Compras_RepComprasPersonal
         params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
 
         If Imagen.Exists Then
-            params.Add(New ReportParameter("LogoPath", logouri))
+            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
         Else
             params.Add(New ReportParameter("LogoPath", ""))
         End If

Compras/RepComprasPersonalDetalle.aspx.vb

@@ -316,7 +316,7 @@ Partial Class Compras_RepComprasPersonalDetalle
 
 
         Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
 
         Dim FechaI, FechaF As String
         FechaI = If(txtFechaI.Text = "" Or txtFechaI.Text = "__/__/____", "-1", txtFechaI.Text)
@@ -332,7 +332,7 @@ Partial Class Compras_RepComprasPersonalDetalle
         params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
 
         If Imagen.Exists Then
-            params.Add(New ReportParameter("LogoPath", logouri))
+            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
         Else
             params.Add(New ReportParameter("LogoPath", ""))
         End If

Compras/RepCxP.aspx.vb

@@ -1441,7 +1441,7 @@ Partial Class Compras_RepCxP
             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 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))
             params.Add(New ReportParameter("FechaInicio", FechaI))
@@ -1453,7 +1453,7 @@ Partial Class Compras_RepCxP
             params.Add(New ReportParameter("CantColumnas", CantidadColumnas))
 
             If Imagen.Exists Then
-                params.Add(New ReportParameter("LogoPath", logouri))
+                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
             Else
                 params.Add(New ReportParameter("LogoPath", ""))
             End If

Compras/RepGastosFijos.aspx.cs

@@ -224,8 +224,7 @@ public partial class Compras_RepGastosFijos : ClsPaginas
         {
             RutaPDF = "Empresas/Grales/Formatos/RepGastosFijos.rdlc";
         }
-
+        
-        var logouri = string.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa);
         System.IO.FileInfo Imagen = new System.IO.FileInfo(string.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta));
 
         List<ReportParameter> @params = new List<ReportParameter>();
@@ -241,7 +240,7 @@ public partial class Compras_RepGastosFijos : ClsPaginas
 
         if (Imagen.Exists)
         {
-            @params.Add(new ReportParameter("LogoPath", logouri));
+            @params.Add(new ReportParameter("LogoPath", $"file://{Imagen.FullName}"));
         }
         else
         {

Compras/RepNotasCredito.aspx.vb

@@ -76,7 +76,7 @@ Partial Class Compras_RepNotasCredito
 
 
             Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-            Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
             'Dim dt As DataTable = DtVentas.FiltraParametros("", "Orden") '.FiltraParametros("Total > 0", DistinctColumns:={"GPO", "Cantidad", "SubTotal", "Descuento", "Amortizacion", "IVA", "Total"})
             Dim FechaI, FechaF As String
             FechaI = If(txtFechaI.Text = "" Or txtFechaI.Text = "__/__/____", "-1", txtFechaI.Text)
@@ -91,7 +91,7 @@ Partial Class Compras_RepNotasCredito
             params.Add(New ReportParameter("Filtros", StrFiltro.ToString))
 
             If Imagen.Exists Then
-                params.Add(New ReportParameter("LogoPath", logouri))
+                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
             Else
                 params.Add(New ReportParameter("LogoPath", ""))
             End If

Compras/RepPUESinPago.aspx.vb

@@ -81,7 +81,6 @@ Partial Class Compras_RepPUESinPago
     Private Sub GeneraImpresion(Optional Formato As String = "PDF")
 
         Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
 
         Dim FI As String = If(TxtFechaI.Text = "", "", $"&emsp;<b>Fecha Inicio:</b>&nbsp;{TxtFechaI.Text}")
         Dim FF As String = If(TxtFechaF.Text = "", "", $"&emsp;<b>Fecha Fin:</b>&nbsp;{TxtFechaF.Text}")
@@ -97,7 +96,7 @@ Partial Class Compras_RepPUESinPago
             params.Add(New ReportParameter("AgrupadoPor", $"{FI}{FF}{cliente}{subProy}"))
 
             If Imagen.Exists Then
-                params.Add(New ReportParameter("LogoPath", logouri))
+                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
             Else
                 params.Add(New ReportParameter("LogoPath", ""))
             End If

Compras/RepProductosServicios.aspx.vb

@@ -498,7 +498,7 @@ Partial Class Compras_RepProductosServicios
     Protected Sub GeneraPDF(Optional Formato As String = "PDF")
         Dim params As List(Of ReportParameter) = New List(Of ReportParameter)()
         Dim Imagen As System.IO.FileInfo = New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
 
         Dim Proveedor = If(DdlProveedor.SelectedValue = "-1", "", $"&emsp;<b>Proveedor:</b>&nbsp;{DdlProveedor.SelectedText}")
         Dim FechaInicio = If(txtFechaI.Text = "", "", $"&emsp;<b>Fecha Inicio:</b>&nbsp;{txtFechaI.Text}")
@@ -536,7 +536,7 @@ Partial Class Compras_RepProductosServicios
         'params.Add(New ReportParameter("AF", IIf(DdlAF.SelectedItem.Text = "", "Todos", DdlAF.SelectedItem.Text).ToString()))
 
         If Imagen.Exists Then
-            params.Add(New ReportParameter("LogoPath", logouri))
+            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
         Else
             params.Add(New ReportParameter("LogoPath", ""))
         End If

Compras/RepProductosServiciosDetalle.aspx - copia.vb

@@ -412,7 +412,7 @@ Partial Class Compras_RepProductosServiciosDetalle
 
         If DtDatos.Rows.Count > 0 Then
             Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-            Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
             Dim params As New List(Of ReportParameter)
             params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
             'params.Add(New ReportParameter("FechaInicio", FechaI))
@@ -422,7 +422,7 @@ Partial Class Compras_RepProductosServiciosDetalle
             params.Add(New ReportParameter("AgrupoPor", $"{Grupo}{Proyecto}{SubProyecto}{Categoria}{Clasificacion}{PS}{Proveedor}{Estatus}{TipoAF}{FechaIn}{FechaFn}"))
 
             If Imagen.Exists Then
-                params.Add(New ReportParameter("LogoPath", logouri))
+                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
             Else
                 params.Add(New ReportParameter("LogoPath", ""))
             End If

Compras/RepProductosServiciosDetalle.aspx.vb

@@ -641,7 +641,7 @@ Partial Class Compras_RepProductosServiciosDetalle
 
         If DtDatos.Rows.Count > 0 Then
             Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-            Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
             Dim params As New List(Of ReportParameter)
             params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
             'params.Add(New ReportParameter("FechaInicio", FechaI))
@@ -651,7 +651,7 @@ Partial Class Compras_RepProductosServiciosDetalle
             params.Add(New ReportParameter("AgrupoPor", $"{Grupo}{Proyecto}{TipoGasto}{SubProyecto}{Categoria}{Clasificacion}{PS}{Proveedor}{Estatus}{TipoAF}{SubTipoAF}{FechaIn}{FechaFn}"))
 
             If Imagen.Exists Then
-                params.Add(New ReportParameter("LogoPath", logouri))
+                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
             Else
                 params.Add(New ReportParameter("LogoPath", ""))
             End If

Compras/RepRembolsoComprobaciones.aspx.vb

@@ -327,7 +327,6 @@ Partial Class Compras_RepRembolsoComprobaciones
     Private Sub Imprimir(Formato As String)
         Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos\Reembolso.rdlc", UsuarioActual.Empresa.Ruta))
         Dim Imagen As New System.IO.FileInfo(String.Format("{0}Logo.png", UsuarioActual.Empresa.Ruta))
-        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
 
         Dim params As New List(Of ReportParameter)
 
@@ -366,7 +365,7 @@ Partial Class Compras_RepRembolsoComprobaciones
             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", logouri))
+                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
             Else
                 params.Add(New ReportParameter("LogoPath", ""))
             End If

Compras/RepReqOCCompraInv.aspx.vb

@@ -141,7 +141,7 @@ Partial Class RepReqOCCompraInv
     '        params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
     '        params.Add(New ReportParameter("Filtros", StrFiltro.ToString))
     '        If Imagen.Exists Then
-    '            params.Add(New ReportParameter("LogoPath", logouri))
+    '            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
     '        Else
     '            params.Add(New ReportParameter("LogoPath", ""))
     '        End If

Contabilidad/CatCuentas.aspx.vb

@@ -301,7 +301,7 @@ Partial Class Contabilidad_CatCuentas
     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 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))
@@ -309,7 +309,7 @@ Partial Class Contabilidad_CatCuentas
         params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
 
         If Imagen.Exists Then
-            params.Add(New ReportParameter("LogoPath", logouri))
+            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
         Else
             params.Add(New ReportParameter("LogoPath", ""))
         End If

Contabilidad/FiltraPolizas.aspx.vb

@@ -217,7 +217,7 @@ Partial Class Contabilidad_FiltraPolizas
         If DtDatos IsNot Nothing Then
             Dim params As New List(Of ReportParameter)
             Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-            Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
             Dim dt As DataTable = DtDatos
 
 
@@ -227,7 +227,7 @@ Partial Class Contabilidad_FiltraPolizas
             params.Add(New ReportParameter("Periodo", DdlPeriodo.SelectedItem.ToString))
 
             If Imagen.Exists Then
-                params.Add(New ReportParameter("LogoPath", logouri))
+                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
             Else
                 params.Add(New ReportParameter("LogoPath", ""))
             End If

Contabilidad/PopUpAuxiliar.aspx.vb

@@ -362,7 +362,7 @@ Partial Class PopUpAuxiliar
     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 logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
 
         If DTDatos IsNot Nothing And DTDatos.Rows.Count > 0 Then
 
@@ -377,7 +377,7 @@ Partial Class PopUpAuxiliar
             params.Add(New ReportParameter("Saldo", LtlSaldo.Text))
 
             If Imagen.Exists Then
-                params.Add(New ReportParameter("LogoPath", logouri))
+                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
             Else
                 params.Add(New ReportParameter("LogoPath", ""))
             End If

Contabilidad/RegPrePolizaS.aspx.vb

@@ -1811,7 +1811,7 @@ Partial Class ContabilidadC_RegPrePolizaS
                 dr("CvePersonal") = DdlPersonalE.SelectedValue.ToEntero
                 dr("CveCliente") = DdlClientesE.SelectedValue.ToEntero
                 dr("CveVenta") = DdlVentasE.SelectedValue.ToEntero
-                dr("FolioFactura") = If(DdlComprasE.Visible = True, DdlComprasE.SelectedItem.ToString, If(DdlVentasE.Visible = True, DdlVentasE.SelectedItem.ToString, ""))
+                dr("FolioFactura") = If(DdlComprasE.Visible = True AndAlso DdlComprasE.SelectedItem IsNot Nothing, DdlComprasE.SelectedItem.ToString, If(DdlVentasE.Visible = True AndAlso DdlVentasE.SelectedItem IsNot Nothing, DdlVentasE.SelectedItem.ToString, ""))
                 dr("Modificado") = True
 
                 dr("ContadoCuenta") = DdlModalConceptoCuenta.SelectedValue.ToEntero

Contabilidad/RepEdoResultados2.aspx.vb

@@ -207,10 +207,9 @@ Partial Class Contabilidad_RepEdoResultados2
         Dim StrFiltro As New StringBuilder
 
         Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
 
         If Imagen.Exists Then
-            params.Add(New ReportParameter("LogoPath", logouri))
+            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
         Else
             params.Add(New ReportParameter("LogoPath", ""))
         End If

Contabilidad/RepGastosCC.aspx.vb

@@ -129,7 +129,7 @@ Partial Class RepGastosCC
     '        params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
     '        params.Add(New ReportParameter("Filtros", StrFiltro.ToString))
     '        If Imagen.Exists Then
-    '            params.Add(New ReportParameter("LogoPath", logouri))
+    '            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
     '        Else
     '            params.Add(New ReportParameter("LogoPath", ""))
     '        End If

Contratos/CatRefrendos.aspx.cs

@@ -1,4 +1,5 @@
 using System;
+using System.Activities.Expressions;
 using System.Collections.Generic;
 using System.Data;
 using System.IO;
@@ -502,12 +503,12 @@ public partial class Contratos_CatRefrendos : ClsPaginas
         @params.Add(new ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa));
         @params.Add(new ReportParameter("Estatus", DdlEstatus.SelectedItem.Text));
 
-        var logouri = string.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa);
+        
         System.IO.FileInfo Imagen = new System.IO.FileInfo(string.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta));
 
         if (Imagen.Exists)
         {
-            @params.Add(new ReportParameter("LogoPath", logouri));
+            @params.Add(new ReportParameter("LogoPath", $"file://{Imagen.FullName}"));
         }
         else
         {

Contratos/Contrato.aspx.vb

@@ -2856,9 +2856,9 @@ Partial Class Contratos_Default
             Exit Sub
         End If
 
-        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
-
+
         Dim params As New List(Of ReportParameter)
 
         params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
@@ -2871,7 +2871,7 @@ Partial Class Contratos_Default
         params.Add(New ReportParameter("Tipo", "-1"))
 
         If Imagen.Exists Then
-            params.Add(New ReportParameter("LogoPath", logouri))
+            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
         Else
             params.Add(New ReportParameter("LogoPath", ""))
         End If
@@ -3646,9 +3646,9 @@ Partial Class Contratos_Default
     End Sub
     Private Sub GenerarPDF(Optional Formato As String = "PDF")
 
-        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
-
+
         Dim dt As DataTable = DtAvanceDocumento.FiltraParametros("CveVenta > 0")
         Dim params As New List(Of ReportParameter)
         params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
@@ -3662,8 +3662,8 @@ Partial Class Contratos_Default
         params.Add(New ReportParameter("FechaFin", TxtFechaFinal.Text.Trim))
         params.Add(New ReportParameter("TipoContrato", TipoDocumento))
         params.Add(New ReportParameter("TotalContrato", LblImporte.Text))
-        If Imagen.Exists Then
+        If Imagen.Exists Then
-            params.Add(New ReportParameter("LogoPath", logouri))
+            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
         Else
             params.Add(New ReportParameter("LogoPath", ""))
         End If
@@ -3671,9 +3671,9 @@ Partial Class Contratos_Default
         ImprimirPDF("Empresas/Grales/Formatos/RepContratoAvanceDocumento.rdlc", dt, params, $"{Nombre}-AvanceDocumento", Formato:=Formato)
     End Sub
     Private Sub LBImprimirInformacionG_Click(sender As Object, e As EventArgs) Handles LBImprimirInformacionG.Click
-        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
-
+
         Dim dt As DataTable = DtAvanceDocumento
         Dim params As New List(Of ReportParameter)
         params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
@@ -3714,7 +3714,7 @@ Partial Class Contratos_Default
         params.Add(New ReportParameter("FechaVencimiento", txtFechaVenc.Text.Trim))
 
         If Imagen.Exists Then
-            params.Add(New ReportParameter("LogoPath", logouri))
+            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
         Else
             params.Add(New ReportParameter("LogoPath", ""))
         End If
@@ -3731,8 +3731,8 @@ Partial Class Contratos_Default
     End Sub
     Private Sub GenerarPDFGastos(Optional Formato As String = "PDF")
 
-        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
         Dim UtilidadGastos As String = IIf(LblUtilidad.Text <> "", LblUtilidad.Text, "-").ToString
 
 
@@ -3752,7 +3752,7 @@ Partial Class Contratos_Default
         params.Add(New ReportParameter("Utilidad", UtilidadGastos))
 
         If Imagen.Exists Then
-            params.Add(New ReportParameter("LogoPath", logouri))
+            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
         Else
             params.Add(New ReportParameter("LogoPath", ""))
         End If
@@ -3775,9 +3775,9 @@ Partial Class Contratos_Default
         GenerarPDFSuministros()
     End Sub
     Private Sub GenerarPDFSuministros(Optional Formato As String = "PDF")
-        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
-
+
         Dim dt As DataTable = DtSuministros
         Dim params As New List(Of ReportParameter)
         params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
@@ -3792,7 +3792,7 @@ Partial Class Contratos_Default
         params.Add(New ReportParameter("TipoContrato", TipoDocumento))
         params.Add(New ReportParameter("TotalContrato", LblImporte.Text))
         If Imagen.Exists Then
-            params.Add(New ReportParameter("LogoPath", logouri))
+            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
         Else
             params.Add(New ReportParameter("LogoPath", ""))
         End If
@@ -3806,9 +3806,9 @@ Partial Class Contratos_Default
         GenerarPDFAvance()
     End Sub
     Private Sub GenerarPDFAvance(Optional Formato As String = "PDF")
-        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
-
+
         Dim dt As DataTable = DtAvance
         Dim params As New List(Of ReportParameter)
         params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
@@ -3823,8 +3823,8 @@ Partial Class Contratos_Default
         params.Add(New ReportParameter("TipoContrato", TipoDocumento))
         params.Add(New ReportParameter("TotalContrato", LblImporte.Text))
 
-        If Imagen.Exists Then
+        If Imagen.Exists Then
-            params.Add(New ReportParameter("LogoPath", logouri))
+            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
         Else
             params.Add(New ReportParameter("LogoPath", ""))
         End If
@@ -3841,9 +3841,9 @@ Partial Class Contratos_Default
         GenerarPDFPPresupuesto(Formato:="EXCEL")
     End Sub
     Private Sub GenerarPDFPPresupuesto(Optional Formato As String = "PDF")
-        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
-
+
         Dim dt As DataTable = DtPresupuestos
         Dim params As New List(Of ReportParameter)
         params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
@@ -3859,7 +3859,7 @@ Partial Class Contratos_Default
         params.Add(New ReportParameter("TotalContrato", LblImporte.Text))
 
         If Imagen.Exists Then
-            params.Add(New ReportParameter("LogoPath", logouri))
+            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
         Else
             params.Add(New ReportParameter("LogoPath", ""))
         End If
@@ -3876,9 +3876,9 @@ Partial Class Contratos_Default
         GenerarPDFActivosFijos("Excel")
     End Sub
     Private Sub GenerarPDFActivosFijos(Optional Formato As String = "PDF")
-        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
-
+
         Dim dt As DataTable = Nothing
 
         Select Case RBLAlmacen.SelectedValue
@@ -3913,7 +3913,7 @@ Partial Class Contratos_Default
         params.Add(New ReportParameter("FiltroContratos", Filtro))
 
         If Imagen.Exists Then
-            params.Add(New ReportParameter("LogoPath", logouri))
+            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
         Else
             params.Add(New ReportParameter("LogoPath", ""))
         End If

Contratos/Contrato.vb

@@ -1866,9 +1866,9 @@ Partial Class Contratos_Default
     End Sub
     Private Sub GenerarPDF(Optional Formato As String = "PDF")
 
-        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
-
+
         Dim dt As DataTable = DtAvanceDocumento
         Dim params As New List(Of ReportParameter)
         params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
@@ -1877,7 +1877,7 @@ Partial Class Contratos_Default
         params.Add(New ReportParameter("Contrato", Titulo))
 
         If Imagen.Exists Then
-            params.Add(New ReportParameter("LogoPath", logouri))
+            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
         Else
             params.Add(New ReportParameter("LogoPath", ""))
         End If
@@ -1885,9 +1885,9 @@ Partial Class Contratos_Default
         ImprimirPDF("Empresas/Grales/Formatos/RepContratoAvanceDocumento.rdlc", dt, params, $"{Nombre}-AvanceDocumento", Formato:=Formato)
     End Sub
     Private Sub LBImprimirInformacionG_Click(sender As Object, e As EventArgs) Handles LBImprimirInformacionG.Click
-        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
-
+
         Dim dt As DataTable = DtAvanceDocumento
         Dim params As New List(Of ReportParameter)
         params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
@@ -1928,7 +1928,7 @@ Partial Class Contratos_Default
         params.Add(New ReportParameter("FechaVencimiento", txtFechaVenc.Text.Trim))
 
         If Imagen.Exists Then
-            params.Add(New ReportParameter("LogoPath", logouri))
+            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
         Else
             params.Add(New ReportParameter("LogoPath", ""))
         End If

Contratos/ContratoObra.aspx.vb

@@ -2920,7 +2920,7 @@ Partial Class Contratos_ContratoObra
         End If
 
         Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
 
         Dim params As New List(Of ReportParameter)
 
@@ -2934,7 +2934,7 @@ Partial Class Contratos_ContratoObra
         params.Add(New ReportParameter("Tipo", "-1"))
 
         If Imagen.Exists Then
-            params.Add(New ReportParameter("LogoPath", logouri))
+            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
         Else
             params.Add(New ReportParameter("LogoPath", ""))
         End If
@@ -3423,7 +3423,7 @@ Partial Class Contratos_ContratoObra
     Private Sub GenerarPDF(Optional Formato As String = "PDF")
 
         Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
 
         Dim dt As DataTable = DtAvanceDocumento.FiltraParametros("CveVenta > 0")
         Dim params As New List(Of ReportParameter)
@@ -3439,7 +3439,7 @@ Partial Class Contratos_ContratoObra
         params.Add(New ReportParameter("TipoContrato", TipoDocumento))
         params.Add(New ReportParameter("TotalContrato", LblImporte.Text))
         If Imagen.Exists Then
-            params.Add(New ReportParameter("LogoPath", logouri))
+            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
         Else
             params.Add(New ReportParameter("LogoPath", ""))
         End If
@@ -3459,7 +3459,7 @@ Partial Class Contratos_ContratoObra
     Private Sub GenerarPDFGastos(Optional Formato As String = "PDF")
 
         Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
         ' Dim UtilidadGastos As String = IIf(LblUtilidad.Text <> "", LblUtilidad.Text, "-").ToString
 
 
@@ -3479,7 +3479,7 @@ Partial Class Contratos_ContratoObra
         ' params.Add(New ReportParameter("Utilidad", UtilidadGastos))
 
         If Imagen.Exists Then
-            params.Add(New ReportParameter("LogoPath", logouri))
+            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
         Else
             params.Add(New ReportParameter("LogoPath", ""))
         End If
@@ -3503,7 +3503,7 @@ Partial Class Contratos_ContratoObra
     'End Sub
     Private Sub GenerarPDFSuministros(Optional Formato As String = "PDF")
         Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
 
         Dim dt As DataTable = DtSuministros
         Dim params As New List(Of ReportParameter)
@@ -3519,7 +3519,7 @@ Partial Class Contratos_ContratoObra
         params.Add(New ReportParameter("TipoContrato", TipoDocumento))
         params.Add(New ReportParameter("TotalContrato", LblImporte.Text))
         If Imagen.Exists Then
-            params.Add(New ReportParameter("LogoPath", logouri))
+            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
         Else
             params.Add(New ReportParameter("LogoPath", ""))
         End If
@@ -3534,7 +3534,7 @@ Partial Class Contratos_ContratoObra
     'End Sub
     Private Sub GenerarPDFAvance(Optional Formato As String = "PDF")
         Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
 
         Dim dt As DataTable = DtAvance
         Dim params As New List(Of ReportParameter)
@@ -3551,7 +3551,7 @@ Partial Class Contratos_ContratoObra
         params.Add(New ReportParameter("TotalContrato", LblImporte.Text))
 
         If Imagen.Exists Then
-            params.Add(New ReportParameter("LogoPath", logouri))
+            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
         Else
             params.Add(New ReportParameter("LogoPath", ""))
         End If
@@ -3566,7 +3566,7 @@ Partial Class Contratos_ContratoObra
     'End Sub
     Private Sub GenerarPDFPPresupuesto(Optional Formato As String = "PDF")
         Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
 
         Dim dt As DataTable = DtPresupuestos
         Dim params As New List(Of ReportParameter)
@@ -3583,7 +3583,7 @@ Partial Class Contratos_ContratoObra
         params.Add(New ReportParameter("TotalContrato", LblImporte.Text))
 
         If Imagen.Exists Then
-            params.Add(New ReportParameter("LogoPath", logouri))
+            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
         Else
             params.Add(New ReportParameter("LogoPath", ""))
         End If
@@ -3601,7 +3601,7 @@ Partial Class Contratos_ContratoObra
     'End Sub
     Private Sub GenerarPDFActivosFijos(Optional Formato As String = "PDF")
         Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
 
         Dim dt As DataTable = Nothing
 
@@ -3637,7 +3637,7 @@ Partial Class Contratos_ContratoObra
         params.Add(New ReportParameter("FiltroContratos", Filtro))
 
         If Imagen.Exists Then
-            params.Add(New ReportParameter("LogoPath", logouri))
+            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
         Else
             params.Add(New ReportParameter("LogoPath", ""))
         End If

Contratos/Contratos.aspx.vb

@@ -95,7 +95,7 @@ Partial Class Contratos_Contratos
             params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
             params.Add(New ReportParameter("AgrupadoPor", $"<b>Agrupado Por:</b>&nbsp;{Cliente}{Estatus}"))
             If Imagen.Exists Then
-                params.Add(New ReportParameter("LogoPath", logouri))
+                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
             Else
                 params.Add(New ReportParameter("LogoPath", ""))
             End If

Contratos/RepContratosCostos.aspx.vb

@@ -91,7 +91,7 @@ Partial Class Contratos_RepContratosCostos
         params.Add(New ReportParameter("Tipo", DdlTipo.SelectedItem.Text))
 
         If Imagen.Exists Then
-            params.Add(New ReportParameter("LogoPath", logouri))
+            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
         Else
             params.Add(New ReportParameter("LogoPath", ""))
         End If

Contratos/RepContratosFianzas.aspx.cs

@@ -1,4 +1,5 @@
 using System;
+using System.Activities.Expressions;
 using System.Collections.Generic;
 using System.Data;
 using System.Linq;
@@ -133,7 +134,7 @@ public partial class Contratos_RepContratosFianzas : ClsPaginas
 
         if (Imagen.Exists)
         {
-            @params.Add(new ReportParameter("LogoPath", logouri));
+            @params.Add(new ReportParameter("LogoPath", $"file://{Imagen.FullName}"));
         }
         else
         {

Contratos/RepContratosSuministros.aspx.vb

@@ -90,7 +90,7 @@ Partial Class Contratos_RepContratosSuministros
         params.Add(New ReportParameter("AgrupadoPor", $"{FechaI}{FechaF}{Contrato}{Estatus}{Tipo}"))
 
         If Imagen.Exists Then
-            params.Add(New ReportParameter("LogoPath", logouri))
+            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
         Else
             params.Add(New ReportParameter("LogoPath", ""))
         End If

Contratos/RepPedidosDevolucionesXContrato.aspx.vb

@@ -84,7 +84,7 @@ Partial Class Ventas_RepPedidosDevolucionesXContrato
         params.Add(New ReportParameter("Tipo", DdlTipo.SelectedItem.Text))
 
         If Imagen.Exists Then
-            params.Add(New ReportParameter("LogoPath", logouri))
+            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
         Else
             params.Add(New ReportParameter("LogoPath", ""))
         End If

Contratos/RepPresupuestos.aspx.vb

@@ -550,7 +550,7 @@ Partial Class Contratos_RepPresupuestos
             params.Add(New ReportParameter("PorEjercer", LtlPorEjercer.Text.FormatoNumero()))
 
             If Imagen.Exists Then
-                params.Add(New ReportParameter("LogoPath", logouri))
+                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
             Else
                 params.Add(New ReportParameter("LogoPath", ""))
             End If

Contratos/RepPresupuestosDetalle.aspx.vb

@@ -345,7 +345,7 @@ Partial Class Contratos_RepPresupuestosDetalle
             params.Add(New ReportParameter("PorEjercer", DtPresupuestos.Rows(0)("PorEjercer").ToString.FormatoNumero()))
 
             If Imagen.Exists Then
-                params.Add(New ReportParameter("LogoPath", logouri))
+                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
             Else
                 params.Add(New ReportParameter("LogoPath", ""))
             End If

CxC/GestionCobranza.aspx.vb

@@ -205,7 +205,7 @@ Partial Class Ventas_GestionCobranza
             params.Add(New ReportParameter("Filtros", $"{Cobrador}{Estatus}{Responsable}{Turno}{TipoPago}"))
 
             If Imagen.Exists Then
-                params.Add(New ReportParameter("LogoPath", logouri))
+                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
             Else
                 params.Add(New ReportParameter("LogoPath", ""))
             End If

CxC/RepCxCDetalle.aspx.vb

@@ -962,7 +962,7 @@ Partial Class RepCxCDetalle
         params.Add(New ReportParameter("TituloReporte", TituloReporte))
 
         If Imagen.Exists Then
-            params.Add(New ReportParameter("LogoPath", logouri))
+            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
         Else
             params.Add(New ReportParameter("LogoPath", ""))
         End If

Edoc/Contratos.aspx.vb

@@ -364,9 +364,9 @@ Partial Class Proveedores_Contratos
         Dim Filtro As String = String.Format("<b>{0}: </b>{1}&emsp; &emsp;<b>Proveedor: </b>{2}&emsp; &emsp;<b>Tipo Contrato: </b>{3}", LblSubProyectoFiltro.Text, DdlSubProyectoFiltro.SelectedItem.Text, DdlProveedorFiltro.SelectedItem.Text, DdlTipoContratoFiltro.SelectedItem.Text)
         params.Add(New ReportParameter("Filtro", Filtro))
         If Imagen.Exists Then
-            params.Add(New ReportParameter("LogoPath", logouri))
+            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
         Else
-            params.Add(New ReportParameter("LogoPath", logouri))
+            params.Add(New ReportParameter("LogoPath", ""))
         End If
         ImprimirPDF("Empresas/Grales/Formatos/RepContratosGen.rdlc", DtDatos, params, "Reporte de Contratos", Formato)
     End Sub

Finanzas/RepRotacionCartera.aspx.cs

@@ -9,6 +9,7 @@ using Extensiones;
 using System.Data;
 using System.IO;
 using Microsoft.Reporting.WebForms;
+using System.Activities.Expressions;
 
 public partial class Finanzas_RepRotacionCartera : ClsPaginas
 {
@@ -359,7 +360,7 @@ public partial class Finanzas_RepRotacionCartera : ClsPaginas
         
         if (Imagen.Exists)
         {
-            @params.Add(new ReportParameter("LogoPath", logouri));
+            @params.Add(new ReportParameter("LogoPath", $"file://{Imagen.FullName}"));
         }
         else
         {

Finanzas/RepRotacionCarteraDetalle.aspx.cs

@@ -350,7 +350,7 @@ public partial class Finanzas_RepRotacionCarteraDetalle : ClsPaginas
 
     //    if (Imagen.Exists)
     //    {
-    //        @params.Add(new ReportParameter("LogoPath", logouri));
+    //        @params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"));
     //    }
     //    else
     //    {
@@ -380,5 +380,5 @@ public partial class Finanzas_RepRotacionCarteraDetalle : ClsPaginas
     //    //GeneraPDF("Excel");
     //}
     #endregion
-    
+
 }

Flotillas/RepIncidentes.aspx.vb

@@ -117,7 +117,7 @@ Partial Class AF_RepIncidentes
         params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
 
         If Imagen.Exists Then
-            params.Add(New ReportParameter("LogoPath", logouri))
+            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
         Else
             params.Add(New ReportParameter("LogoPath", ""))
         End If

Flotillas/RepLicencias.aspx.vb

@@ -122,7 +122,7 @@ Partial Class AF_RepLicencias
         params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
 
         If Imagen.Exists Then
-            params.Add(New ReportParameter("LogoPath", logouri))
+            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
         Else
             params.Add(New ReportParameter("LogoPath", ""))
         End If

Flotillas/RepPlacas.aspx.vb

@@ -99,7 +99,7 @@ Partial Class AF_RepPlacas
             params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
 
             If Imagen.Exists Then
-                params.Add(New ReportParameter("LogoPath", logouri))
+                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
             Else
                 params.Add(New ReportParameter("LogoPath", ""))
             End If

Flotillas/RepPolizaSeguro.aspx.vb

@@ -96,7 +96,7 @@ Partial Class AF_RepPolizaSeguro
         params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
 
         If Imagen.Exists Then
-            params.Add(New ReportParameter("LogoPath", logouri))
+            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
         Else
             params.Add(New ReportParameter("LogoPath", ""))
         End If