nueva consulta para RepIEPS y se reparó el uso del logo en Reportes.aspx

App_Code/ClsContabilidad.vb

@@ -5869,6 +5869,22 @@ Public Class ClsContabilidad
         End Try
         Return Retorno
     End Function
+    Public Function GetProductosSinIEPS(FechaInicio As Date, FechaFin As Date, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Conta_ProductosSinIEPS")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio
+            .Add("@FechaFin", SqlDbType.Date).Value = FechaFin
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el reporte de productos sin IEPS.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+        Return Retorno
+    End Function
     Public Function GetRepIEPSLayoutAnual(Ano As Integer, Tipo As Integer, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Conta_RepIEPSLayoutAnual")
@@ -6568,4 +6584,6 @@ Public Class ClsContabilidad
     End Function
 
 #End Region
+
+
 End Class

Bancos/RepIE.aspx.vb

@@ -535,8 +535,9 @@ Partial Class Bancos_RepIE
     End Sub
     Private Sub Imprimir(Formato As String)
 
+        Dim LogoRutaFisica As String = String.Format("Empresas\{0}\Logo.png", UsuarioActual.CveEmpresa)
+        Dim logouri = String.Format("{0}://{1}:{2}/ashx/sigfiles.ashx?P={3}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, Encripta(LogoRutaFisica))
         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)
 

Bancos/Reportes.aspx.vb

@@ -146,8 +146,12 @@ Partial Class Bancos_Reportes
 
                         Dim paramList As New List(Of ReportParameter)
                         With paramList
-                            Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+                            'Dim Imagen As New System.IO.FileInfo(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 logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
+                            Dim LogoRutaFisica As String = String.Format("Empresas\{0}\Logo.png", UsuarioActual.CveEmpresa)
+                            Dim logouri = String.Format("{0}://{1}:{2}/ashx/sigfiles.ashx?P={3}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, Encripta(LogoRutaFisica))
+                            Dim Imagen As New System.IO.FileInfo(String.Format("{0}Logo.png", UsuarioActual.Empresa.Ruta))
                             .Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
                             .Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
                             .Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))

Contabilidad/RepIEPS.aspx.vb

@@ -30,6 +30,18 @@ Partial Class Contabilidad_RepIEPS
         Dim ObjConta As New ClsContabilidad()
         If ObjConta.GetRepIEPS(txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), DdlTipoOperacion.SelectedValue, DdlModalidad.SelectedValue.ToEntero(), DdlLimite.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa) Then
             DtDatos = ObjConta.DtResultados.Copy()
+
+            If ObjConta.GetProductosSinIEPS(txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), UsuarioActual.CveEmpresa) Then
+                Dim DtProductos As DataTable = ObjConta.DtResultados.Copy
+                If DtProductos.Rows.Count > 0 Then
+                    Dim ProductosIEPS As String = "<strong>Los siguientes productos o servicios no tienen especificado alguno de los siguientes campos en relación al IEPS: Empaque, presentación o toxicidad</strong><br/><br/>"
+                    For Each producto As DataRow In DtProductos.Rows
+                        ProductosIEPS = String.Format("{0}<br/>{1}", ProductosIEPS, producto("CodigoPS"))
+                    Next
+                    Alert(ProductosIEPS, TipoMensaje.MsgAdvertencia)
+                End If
+            End If
+
         End If
         ObjConta.Dispose()
         If DtDatos IsNot Nothing AndAlso DtDatos.Rows.Count > 0 Then
@@ -40,9 +52,9 @@ Partial Class Contabilidad_RepIEPS
                 DtDatos = DtDatos.FiltraParametros("TipoDato in (1,2)")
             End If
             GvDatos.DataSource = DtDatos
-                GvDatos.DataBind()
+            GvDatos.DataBind()
-            Else
+        Else
-                Alert("No se encontraron resultados en la consulta")
+            Alert("No se encontraron resultados en la consulta")
         End If
         UpDatos.Update()
         UpLnkAcciones.Update()