RepAnexocatalogoSegmento, ligas a Anexo

Contabilidad/RepAnexoCatalogoSegmento.aspx.vb

@@ -18,6 +18,20 @@ Partial Class AC_RepAnexoCatalogoSegmento
             ViewState("DtDatos") = value
         End Set
     End Property
+
+    Private Property DTCabeceras As DataTable
+        Get
+            DTCabeceras = DirectCast(ViewState("DTCabeceras"), DataTable)
+        End Get
+
+        Set(ByVal value As DataTable)
+            ViewState("DTCabeceras") = value
+        End Set
+    End Property
+
+
+
+
     Private Property FechaInicio As Date
         Get
             FechaInicio = ViewState("FechaInicio").ToString.ToDate
@@ -225,7 +239,7 @@ Partial Class AC_RepAnexoCatalogoSegmento
     Private Sub CargaDatos()
         Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
 
-        Dim DTCabeceras As New DataTable
+        'Dim DTCabeceras As New DataTable
         TipoReporte = If(TipoReporte = -1, -1, DdlTipoReporte.SelectedValue.ToEntero)
 
         If ObjConta.GetEstadoActividadesSegmentoDetalle(FechaInicio, FechaFin, IdCuenta, Segmentos) Then
@@ -250,17 +264,15 @@ Partial Class AC_RepAnexoCatalogoSegmento
             CType(GvDatos.Columns(IndexGV), BoundField).DataField = Dr("id").ToString
             GvDatos.Columns(IndexGV).HeaderText = Dr("Nombre").ToString
 
-
             GvDatos.Columns(IndexGV).Visible = True
             CType(GvDatos.Columns(IndexGV), BoundField).DataField = Dr("id").ToString
             GvDatos.Columns(IndexGV).HeaderText = Dr("Nombre").ToString
 
-
-
             IndexActual = IndexActual + 1
             If IndexGV >= 200 Then
                 Exit For
             End If
+
         Next
 
 
@@ -292,6 +304,25 @@ Partial Class AC_RepAnexoCatalogoSegmento
             End If
 
 
+            Dim IndexActual As Integer = 0
+            For Each Dr As DataRow In DTCabeceras.Rows
+
+                Dim IndexGV As Integer = 3 + IndexActual
+
+
+
+                e.Row.Cells(IndexGV).Text = $"<a class='Texto' target='_blank' href='/Contabilidad/RepMovimientosAuxiliaresCatalogo.aspx?ID={e.Row.DBCampo("IdCuenta").ToEntero}&FI{TxtFechaDel.Text}&FF={TxtFechaAl.Text}&IdSegNeg={ Dr("id").ToString}'>{e.Row.Cells(IndexGV).Text }</a>"
+
+
+
+                IndexActual = IndexActual + 1
+                If IndexGV >= 200 Then
+                    Exit For
+                End If
+
+            Next
+
+
         End If
     End Sub
 #End Region