Correciones en reporte de presupuestos

Contratos/RepPresupuestosDetalleCompras.aspx.vb

@@ -31,11 +31,16 @@ Partial Class Contratos_RepPresupuestosDetalleCompras
     Private Sub InicializaValores()
 
         TxtFiltrosFechaInicio.Text = $"01/09/{Now.Year - 1}"
-        TxtFiltrosFechaFin.Text = $"31/08/{Now.Year}"
-
-        DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
+        TxtFiltrosFechaFin.Text = $"31/08/{Now.Year}"
+
+        Dim dtAgrupador = (From dr In GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
+                           Select New With {.CveAgrupador = dr("CveClasificacion").ToString().ToEntero(), .Agrupador = dr("Clasificacion").ToString()}
+                  ).Union(From dr In GlobalDTContaConceptosContables(-1)
+                          Select New With {.CveAgrupador = dr("CveConceptoContable").ToString().ToEntero(), .Agrupador = dr("ConceptoContable").ToString()}).QueryToDataTable(True)
+
+        DdlClasificacion.DataSource = dtAgrupador
+        DdlClasificacion.DataBind()
         DdlClasificacion.Items.Insert(0, New ListItem("Todas", "-1"))
-        DdlClasificacion.DataBind()
 
         DdlTipoGasto.DataSource = GlobalDTTiposGastos(UsuarioActual.CveEmpresa)
         DdlTipoGasto.DataBind()
@@ -121,6 +126,21 @@ Partial Class Contratos_RepPresupuestosDetalleCompras
         If e.Row.RowType = DataControlRowType.DataRow Then
             If e.Row.RowIndex = 0 Then
                 e.Row.CssClass = "Totales"
+            End If
+            If e.Row.RowIndex > 0 Then
+                Dim Liga = ""
+                Dim Css = "Texto"
+
+                Dim TipoAgrupador As Integer = e.Row.DBCampo("TipoAgrupador").ToEntero()
+                Select Case TipoAgrupador
+                    Case 1
+                        Liga = $"/Compras/Compras.aspx?&CveCompra={e.Row.DBCampo("CveCompra")}"
+                    Case 2
+                        Liga = $"/Contabilidad/RegPrePoliza.aspx?&CvePrePoliza={e.Row.DBCampo("CveCompra")}"
+                    Case Else
+
+                End Select
+                e.Row.Cells(0).Text = "<a target=""_blank"" class=" + "" + Css + "" + " href=" + "" + Liga + "" + ">" + e.Row.Cells(0).Text + "</a>"
             End If
         End If
     End Sub