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

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()
-            Else
-                Alert("No se encontraron resultados en la consulta")
+            GvDatos.DataBind()
+        Else
+            Alert("No se encontraron resultados en la consulta")
         End If
         UpDatos.Update()
         UpLnkAcciones.Update()