Cambios en cxp agrupacion por mes

App_Code/ClsMovimientos.vb

@@ -616,7 +616,7 @@ Public Class ClsMovimientos
                                 Optional FechaVI As String = "-1", Optional FechaVF As String = "-1",
                                 Optional FechaCorte As Date = Nothing, Optional CveUsuarioConsulta As Integer = -1,
                                 Optional CveTipoProveedor As Integer = -1, Optional Comprobaciones As Integer = -1,
-                                Optional TipoDocto As String = "-1") As Boolean
+                                Optional TipoDocto As String = "-1", Optional TipoAgrupacion As Integer = -1) As Boolean
 
         Dim Retorno As Boolean = False
         If FechaCorte = Nothing Then FechaCorte = Now
@@ -645,6 +645,8 @@ Public Class ClsMovimientos
             .Add("@CveTipoProveedor", SqlDbType.Int).Value = CveTipoProveedor
             .Add("@Comprobaciones", SqlDbType.Int).Value = Comprobaciones
             .Add("@TipoDocto", SqlDbType.VarChar).Value = TipoDocto
+            .Add("@TipoAgrupacion", SqlDbType.Bit).Value = TipoAgrupacion
+
         End With
 
         Try

Compras/RepCxP.aspx

@@ -253,6 +253,12 @@
                         </div>
 
                     </div>
+                    <div class="row" runat="server" id="divAgruparMes" visible="false">
+                        <div class="col-md-1"><span>Agrupar por meses:</span></div>
+                        <div class="col-md-1">
+                            <asp:CheckBox runat="server" ID="chkAgruparMes"/>
+                        </div>
+                    </div>
 
                     <div class="row">
                         <div id="DivEmpresasFiltro" runat="server" visible="false">
@@ -341,6 +347,43 @@
                         </ItemTemplate>
                         <ItemStyle HorizontalAlign="Right" />
                     </asp:TemplateField>
+                    <asp:TemplateField Visible="false">
+                        <ItemTemplate>
+                            <asp:HyperLink CssClass="Texto" ID="HplColumna10" runat="server"></asp:HyperLink>
+                        </ItemTemplate>
+                        <ItemStyle HorizontalAlign="Right" />
+                    </asp:TemplateField>
+                    <asp:TemplateField Visible="false">
+                        <ItemTemplate>
+                            <asp:HyperLink CssClass="Texto" ID="HplColumna11" runat="server"></asp:HyperLink>
+                        </ItemTemplate>
+                        <ItemStyle HorizontalAlign="Right" />
+                    </asp:TemplateField>
+                    <asp:TemplateField Visible="false">
+                        <ItemTemplate>
+                            <asp:HyperLink CssClass="Texto" ID="HplColumna12" runat="server"></asp:HyperLink>
+                        </ItemTemplate>
+                        <ItemStyle HorizontalAlign="Right" />
+                    </asp:TemplateField>
+                    <asp:TemplateField Visible="false">
+                        <ItemTemplate>
+                            <asp:HyperLink CssClass="Texto" ID="HplColumna13" runat="server"></asp:HyperLink>
+                        </ItemTemplate>
+                        <ItemStyle HorizontalAlign="Right" />
+                    </asp:TemplateField>
+                    <asp:TemplateField Visible="false">
+                        <ItemTemplate>
+                            <asp:HyperLink CssClass="Texto" ID="HplColumna14" runat="server"></asp:HyperLink>
+                        </ItemTemplate>
+                        <ItemStyle HorizontalAlign="Right" />
+                    </asp:TemplateField>
+                    <asp:TemplateField Visible="false">
+                        <ItemTemplate>
+                            <asp:HyperLink CssClass="Texto" ID="HplColumna15" runat="server"></asp:HyperLink>
+                        </ItemTemplate>
+                        <ItemStyle HorizontalAlign="Right" />
+                    </asp:TemplateField>
+
                     <asp:TemplateField ItemStyle-Width="7%">
                         <HeaderTemplate>
                             Total

Compras/RepCxP.aspx.vb

@@ -71,6 +71,24 @@ Partial Class Compras_RepCxP
         End Set
     End Property
 
+    Private Property CantVencidos() As Integer
+        Get
+            Return If(IsNothing(ViewState("CantVencidos")), -1, CInt(ViewState("CantVencidos")))
+        End Get
+        Set
+            ViewState("CantVencidos") = Value
+        End Set
+    End Property
+
+    Private Property CantPorVencer() As Integer
+        Get
+            Return If(IsNothing(ViewState("CantPorVencer")), -1, CInt(ViewState("CantPorVencer")))
+        End Get
+        Set
+            ViewState("CantPorVencer") = Value
+        End Set
+    End Property
+
     Private Property TCEspecifico As Double
 
 #End Region
@@ -82,6 +100,10 @@ Partial Class Compras_RepCxP
             CargaGvPersonalizarRaqngoColumnas()
             CargaDatos()
             CreaDataTableColor()
+
+            If UsuarioActual.CveRol = 1 Then
+                divAgruparMes.Visible = True
+            End If
         End If
     End Sub
 
@@ -154,10 +176,11 @@ Partial Class Compras_RepCxP
         If txtFechaF.Text = "" Then FechaF = "-1"
         If txtFechaVI.Text = "" Then FechaVI = "-1"
         If txtFechaVF.Text = "" Then FechaVF = "-1"
+        Dim TipoAgrupacion As Integer = IIf(chkAgruparMes.Checked, 1, -1)
         Dim TipoDocto As String = If(DdlTipoDocto.GetSelectedValuesM = "", "-1", DdlTipoDocto.GetSelectedValuesM)
         If Mov.GetCxP(FechaI, FechaF, DdlProveedor.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlProveedoresClasificaciones.SelectedValue.ToEntero, -1, DdlUsuarioResponsable.SelectedValue.ToEntero, DdlUsuarioRegistro.SelectedValue.ToEntero, DdlEstatusCompra.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero,
                       DdlSubProyecto.SelectedValue.ToEntero, RblTipoCambio.SelectedValue.ToEntero, TCEspecifico, FechaVI, FechaVF, FechaCorte:=txtCorteA.Text.ToDate, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveTipoProveedor:=IIf(DdlTipoProveedor.SelectedValue.ToEntero = 3, -1, DdlTipoProveedor.SelectedValue.ToEntero), Comprobaciones:=DdlComprobacion.SelectedValue.ToEntero,
-                      TipoDocto:=TipoDocto) Then
+                      TipoDocto:=TipoDocto, TipoAgrupacion:=TipoAgrupacion) Then
             GvCxP.DataSource = Mov.DtResultados
             DtDatos = Mov.DtResultados
             DtGrafica = Mov.DtResultados
@@ -165,6 +188,44 @@ Partial Class Compras_RepCxP
         Mov.Dispose()
         Dim NumCol As Integer
 
+        If chkAgruparMes.Checked Then
+
+            Dim monthNames As String() = {"", "Enero", "Febrero", "Marzo", "Abril", "Mayo", "Junio", "Julio", "Agosto", "Septiembre", "Octubre", "Noviembre", "Diciembre"}
+            GvCxP.Columns(2).Visible = True
+            GvCxP.Columns(3).Visible = True
+            GvCxP.Columns(4).Visible = True
+            GvCxP.Columns(5).Visible = True
+            GvCxP.Columns(6).Visible = True
+            GvCxP.Columns(7).Visible = True
+            GvCxP.Columns(8).Visible = True
+            GvCxP.Columns(9).Visible = True
+            GvCxP.Columns(10).Visible = True
+            GvCxP.Columns(11).Visible = True
+            GvCxP.Columns(12).Visible = True
+            GvCxP.Columns(13).Visible = True
+            GvCxP.Columns(14).Visible = True
+            GvCxP.Columns(15).Visible = True
+            GvCxP.Columns(16).Visible = True
+
+            Dim Dr As DataRow = DtDatos.Rows(0)
+            GvCxP.Columns(2).HeaderText = "Vencido"
+            GvCxP.Columns(3).HeaderText = "Total"
+            GvCxP.Columns(4).HeaderText = monthNames(Dr("NomMes1").ToString.ToDate.Month)
+            GvCxP.Columns(5).HeaderText = monthNames(Dr("NomMes2").ToString.ToDate.Month)
+            GvCxP.Columns(6).HeaderText = monthNames(Dr("NomMes3").ToString.ToDate.Month)
+            GvCxP.Columns(7).HeaderText = monthNames(Dr("NomMes4").ToString.ToDate.Month)
+            GvCxP.Columns(8).HeaderText = monthNames(Dr("NomMes5").ToString.ToDate.Month)
+            GvCxP.Columns(9).HeaderText = monthNames(Dr("NomMes6").ToString.ToDate.Month)
+            GvCxP.Columns(10).HeaderText = monthNames(Dr("NomMes7").ToString.ToDate.Month)
+            GvCxP.Columns(11).HeaderText = monthNames(Dr("NomMes8").ToString.ToDate.Month)
+            GvCxP.Columns(12).HeaderText = monthNames(Dr("NomMes9").ToString.ToDate.Month)
+            GvCxP.Columns(13).HeaderText = monthNames(Dr("NomMes10").ToString.ToDate.Month)
+            GvCxP.Columns(14).HeaderText = monthNames(Dr("NomMes11").ToString.ToDate.Month)
+            GvCxP.Columns(15).HeaderText = monthNames(Dr("NomMes12").ToString.ToDate.Month)
+            GvCxP.Columns(16).HeaderText = "12+"
+            GvCxP.DataBind()
+            UPPDatos.Update()
+        Else
             If DtDatos.Rows.Count > 0 Then
                 GvCxP.Columns(2).Visible = False
                 GvCxP.Columns(3).Visible = False
@@ -175,13 +236,25 @@ Partial Class Compras_RepCxP
                 GvCxP.Columns(8).Visible = False
                 GvCxP.Columns(9).Visible = False
                 GvCxP.Columns(10).Visible = False
+                GvCxP.Columns(11).Visible = False
+                GvCxP.Columns(12).Visible = False
+                GvCxP.Columns(13).Visible = False
+                GvCxP.Columns(14).Visible = False
+                GvCxP.Columns(15).Visible = False
+                GvCxP.Columns(16).Visible = False
                 Dim Contador As Integer = 2
+
                 Dim CargaColumnaVencido As Boolean = False
                 Dim Dr As DataRow = DtDatos.Rows(0)
                 If Dr("NomC1").ToString <> "" Then
                     GvCxP.Columns(Contador).Visible = True
                     GvCxP.Columns(Contador).HeaderText = Dr("NomC1").ToString
                     Contador += 1
+                    If Dr("TC1").ToString.ToEntero = 1 Then
+                        CantVencidos += 1
+                    Else
+                        CantPorVencer += 1
+                    End If
                 End If
                 If Dr("TC2").ToString.ToEntero = 2 And Not CargaColumnaVencido Then
                     GvCxP.Columns(Contador).Visible = True
@@ -194,6 +267,11 @@ Partial Class Compras_RepCxP
                     GvCxP.Columns(Contador).Visible = True
                     GvCxP.Columns(Contador).HeaderText = Dr("NomC2").ToString
                     Contador += 1
+                    If Dr("TC2").ToString.ToEntero = 1 Then
+                        CantVencidos += 1
+                    Else
+                        CantPorVencer += 1
+                    End If
                 End If
                 If Dr("TC3").ToString.ToEntero = 2 And Not CargaColumnaVencido Then
                     GvCxP.Columns(Contador).Visible = True
@@ -206,6 +284,11 @@ Partial Class Compras_RepCxP
                     GvCxP.Columns(Contador).Visible = True
                     GvCxP.Columns(Contador).HeaderText = Dr("NomC3").ToString
                     Contador += 1
+                    If Dr("TC3").ToString.ToEntero = 1 Then
+                        CantVencidos += 1
+                    Else
+                        CantPorVencer += 1
+                    End If
                 End If
                 If Dr("TC4").ToString.ToEntero = 2 And Not CargaColumnaVencido Then
                     GvCxP.Columns(Contador).Visible = True
@@ -218,6 +301,11 @@ Partial Class Compras_RepCxP
                     GvCxP.Columns(Contador).Visible = True
                     GvCxP.Columns(Contador).HeaderText = Dr("NomC4").ToString
                     Contador += 1
+                    If Dr("TC4").ToString.ToEntero = 1 Then
+                        CantVencidos += 1
+                    Else
+                        CantPorVencer += 1
+                    End If
                 End If
                 If Dr("TC5").ToString.ToEntero = 2 And Not CargaColumnaVencido Then
                     GvCxP.Columns(Contador).Visible = True
@@ -230,6 +318,11 @@ Partial Class Compras_RepCxP
                     GvCxP.Columns(Contador).Visible = True
                     GvCxP.Columns(Contador).HeaderText = Dr("NomC5").ToString
                     Contador += 1
+                    If Dr("TC5").ToString.ToEntero = 1 Then
+                        CantVencidos += 1
+                    Else
+                        CantPorVencer += 1
+                    End If
                 End If
                 If Dr("TC6").ToString.ToEntero = 2 And Not CargaColumnaVencido Then
                     GvCxP.Columns(Contador).Visible = True
@@ -242,6 +335,11 @@ Partial Class Compras_RepCxP
                     GvCxP.Columns(Contador).Visible = True
                     GvCxP.Columns(Contador).HeaderText = Dr("NomC6").ToString
                     Contador += 1
+                    If Dr("TC6").ToString.ToEntero = 1 Then
+                        CantVencidos += 1
+                    Else
+                        CantPorVencer += 1
+                    End If
                 End If
                 If Dr("TC7").ToString.ToEntero = 2 And Not CargaColumnaVencido Then
                     GvCxP.Columns(Contador).Visible = True
@@ -254,6 +352,11 @@ Partial Class Compras_RepCxP
                     GvCxP.Columns(Contador).Visible = True
                     GvCxP.Columns(Contador).HeaderText = Dr("NomC7").ToString
                     Contador += 1
+                    If Dr("TC7").ToString.ToEntero = 1 Then
+                        CantVencidos += 1
+                    Else
+                        CantPorVencer += 1
+                    End If
                 End If
                 If Dr("TC8").ToString.ToEntero = 2 And Not CargaColumnaVencido Then
                     GvCxP.Columns(Contador).Visible = True
@@ -266,12 +369,105 @@ Partial Class Compras_RepCxP
                     GvCxP.Columns(Contador).Visible = True
                     GvCxP.Columns(Contador).HeaderText = Dr("NomC8").ToString
                     Contador += 1
+                    If Dr("TC8").ToString.ToEntero = 1 Then
+                        CantVencidos += 1
+                    Else
+                        CantPorVencer += 1
+                    End If
+                End If
+                If Dr("TC9").ToString.ToEntero = 2 And Not CargaColumnaVencido Then
+                    GvCxP.Columns(Contador).Visible = True
+                    GvCxP.Columns(Contador).HeaderText = "Total"
+                    Contador += 1
+                    CargaColumnaVencido = True
+                    NumCol = 8
+                End If
+                If Dr("NomC9").ToString <> "" Then
+                    GvCxP.Columns(Contador).Visible = True
+                    GvCxP.Columns(Contador).HeaderText = Dr("NomC9").ToString
+                    Contador += 1
+                    If Dr("TC9").ToString.ToEntero = 1 Then
+                        CantVencidos += 1
+                    Else
+                        CantPorVencer += 1
+                    End If
+                End If
+                If Dr("TC10").ToString.ToEntero = 2 And Not CargaColumnaVencido Then
+                    GvCxP.Columns(Contador).Visible = True
+                    GvCxP.Columns(Contador).HeaderText = "Total"
+                    Contador += 1
+                    CargaColumnaVencido = True
+                    NumCol = 10
+                End If
+                If Dr("NomC10").ToString <> "" Then
+                    GvCxP.Columns(Contador).Visible = True
+                    GvCxP.Columns(Contador).HeaderText = Dr("NomC10").ToString
+                    Contador += 1
+                    If Dr("TC10").ToString.ToEntero = 1 Then
+                        CantVencidos += 1
+                    Else
+                        CantPorVencer += 1
+                    End If
+                End If
+                If Dr("TC11").ToString.ToEntero = 2 And Not CargaColumnaVencido Then
+                    GvCxP.Columns(Contador).Visible = True
+                    GvCxP.Columns(Contador).HeaderText = "Total"
+                    Contador += 1
+                    CargaColumnaVencido = True
+                    NumCol = 11
+                End If
+                If Dr("NomC11").ToString <> "" Then
+                    GvCxP.Columns(Contador).Visible = True
+                    GvCxP.Columns(Contador).HeaderText = Dr("NomC11").ToString
+                    Contador += 1
+                    If Dr("TC11").ToString.ToEntero = 1 Then
+                        CantVencidos += 1
+                    Else
+                        CantPorVencer += 1
+                    End If
+                End If
+                If Dr("TC12").ToString.ToEntero = 2 And Not CargaColumnaVencido Then
+                    GvCxP.Columns(Contador).Visible = True
+                    GvCxP.Columns(Contador).HeaderText = "Total"
+                    Contador += 1
+                    CargaColumnaVencido = True
+                    NumCol = 12
+                End If
+                If Dr("NomC12").ToString <> "" Then
+                    GvCxP.Columns(Contador).Visible = True
+                    GvCxP.Columns(Contador).HeaderText = Dr("NomC12").ToString
+                    Contador += 1
+                    If Dr("TC12").ToString.ToEntero = 1 Then
+                        CantVencidos += 1
+                    Else
+                        CantPorVencer += 1
+                    End If
+                End If
+                If Dr("TC13").ToString.ToEntero = 2 And Not CargaColumnaVencido Then
+                    GvCxP.Columns(Contador).Visible = True
+                    GvCxP.Columns(Contador).HeaderText = "Total"
+                    Contador += 1
+                    CargaColumnaVencido = True
+                    NumCol = 13
+                End If
+                If Dr("NomC13").ToString <> "" Then
+                    GvCxP.Columns(Contador).Visible = True
+                    GvCxP.Columns(Contador).HeaderText = Dr("NomC13").ToString
+                    Contador += 1
+                    If Dr("TC12").ToString.ToEntero = 1 Then
+                        CantVencidos += 1
+                    Else
+                        CantPorVencer += 1
                     End If
                 End If
 
+            End If
             GvCxP.DataBind()
             UPPDatos.Update()
             ActualizarDatatable(NumCol)
+
+        End If
+
         Agrupador = DdlGrupo.SelectedItem.Text
     End Sub
 
@@ -282,10 +478,16 @@ Partial Class Compras_RepCxP
     Protected Sub GvCxP_RowCreated(sender As Object, e As GridViewRowEventArgs) Handles GvCxP.RowCreated
         If e.Row.RowType = DataControlRowType.Header Then
             Dim FC As New SortedList
+            If chkAgruparMes.Checked Then
                 FC.Add(0, " ,2,1,Titulos")
-            FC.Add(2, "Vencido,4,1,Titulos")
+                FC.Add(2, "Vencido,2,1,Titulos")
-            FC.Add(3, "Por Vencer,5,1,Titulos")
+                FC.Add(3, "Por Vencer,14,1,Titulos")
+            Else
+                FC.Add(0, " ,2,1,Titulos")
+                FC.Add(2, String.Format("Vencido,{0},1,Titulos", CantVencidos + 2))
+                FC.Add(3, String.Format("Por Vencer,{0},1,Titulos", CantPorVencer + 2))
 
+            End If
             GetMultiRowHeader(DirectCast(sender, GridView), e, FC, "Titulos")
         End If
     End Sub
@@ -295,7 +497,122 @@ Partial Class Compras_RepCxP
 
         If e.Row.RowType = DataControlRowType.DataRow Then
             Dim Css As String = "Texto"
+            If chkAgruparMes.Checked Then
+                Dim TipoMoneda As Integer = RblTipoCambio.SelectedValue.ToEntero
+                '  Dim CveSubProyecto As Integer = DdlSubProyecto.SelectedValue.ToEntero
+                Dim Responsable As Integer = DdlUsuarioResponsable.SelectedValue.ToEntero
+                'Dim CveClasificacion As Integer = DdlProveedoresClasificaciones.SelectedValue.ToEntero
+                Dim CveTipoProveedor As Integer = DdlTipoProveedor.SelectedValue.ToEntero
+                'Dim CveProveedorSucursal As Integer = If(e.Row.DBCampo("CveProveedorSucursal").ToEntero > 0, e.Row.DBCampo("CveProveedorSucursal").ToEntero, -1)
 
+                Dim FechaI, FechaF, FechaVI, FechaVF As String
+                FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim(), "-1")
+                FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), "-1")
+                FechaVI = If(IsDate(txtFechaVI.Text.Trim()), txtFechaVI.Text.Trim(), "-1")
+                FechaVF = If(IsDate(txtFechaVF.Text.Trim()), txtFechaVF.Text.Trim(), Date.Now.ToShortDateString)
+                If DdlGrupo.SelectedValue.ToEntero = 11 Then
+                    If e.Row.DBCampo("CveSubProyecto") = "-1" Then
+                        e.Row.CssClass = "Totales"
+                    ElseIf e.Row.DBCampo("Orden") = "" Then
+                        e.Row.CssClass = "SubTotales"
+                    End If
+                Else
+                    If e.Row.DBCampo("Orden") = "" Then
+                        e.Row.CssClass = "Totales"
+                    End If
+                End If
+                If e.Row.DBCampo("Orden") <> "" Then
+                    e.Row.Cells(1).BackColor = Drawing.Color.LightGray
+                    e.Row.Cells(3).BackColor = Drawing.Color.LightGray
+                    e.Row.Cells(17).BackColor = Drawing.Color.LightGray
+                End If
+                If DdlGrupo.SelectedValue = "10" AndAlso e.Row.RowIndex.Contiene(1, 3) Then
+                    e.Row.Visible = False
+                End If
+                e.Row.FCHyperLink($"HplColumna1").Text = e.Row.DBCampo("vencido").ToString.FormatoNumero
+                e.Row.FCHyperLink($"HplColumna2").Text = e.Row.DBCampo("vencido").ToString.FormatoNumero
+                e.Row.FCHyperLink($"HplColumna3").Text = e.Row.DBCampo("Mes1").ToString.FormatoNumero
+                e.Row.FCHyperLink($"HplColumna4").Text = e.Row.DBCampo("Mes2").ToString.FormatoNumero
+                e.Row.FCHyperLink($"HplColumna5").Text = e.Row.DBCampo("Mes3").ToString.FormatoNumero
+                e.Row.FCHyperLink($"HplColumna6").Text = e.Row.DBCampo("Mes4").ToString.FormatoNumero
+                e.Row.FCHyperLink($"HplColumna7").Text = e.Row.DBCampo("Mes5").ToString.FormatoNumero
+                e.Row.FCHyperLink($"HplColumna8").Text = e.Row.DBCampo("Mes6").ToString.FormatoNumero
+                e.Row.FCHyperLink($"HplColumna9").Text = e.Row.DBCampo("Mes7").ToString.FormatoNumero
+                e.Row.FCHyperLink($"HplColumna10").Text = e.Row.DBCampo("Mes8").ToString.FormatoNumero
+                e.Row.FCHyperLink($"HplColumna11").Text = e.Row.DBCampo("Mes9").ToString.FormatoNumero
+                e.Row.FCHyperLink($"HplColumna12").Text = e.Row.DBCampo("Mes10").ToString.FormatoNumero
+                e.Row.FCHyperLink($"HplColumna13").Text = e.Row.DBCampo("Mes11").ToString.FormatoNumero
+                e.Row.FCHyperLink($"HplColumna14").Text = e.Row.DBCampo("Mes12").ToString.FormatoNumero
+                e.Row.FCHyperLink($"HplColumna15").Text = e.Row.DBCampo("Mes13").ToString.FormatoNumero
+
+                Dim Liga1 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}",
+                                              e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"))
+                e.Row.FCHyperLink($"HplColumna1").NavigateUrl = Liga1
+                Liga1 = String.Format("/Compras/RepCxPDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}",
+                                              e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"))
+                e.Row.FCHyperLink($"HplColumna2").NavigateUrl = Liga1
+                Liga1 = String.Format("/Compras/RepCxPDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}",
+                                              e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, e.Row.DBCampo("NomMes1"), e.Row.DBCampo("NomMesF1"), TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"))
+                e.Row.FCHyperLink($"HplColumna3").NavigateUrl = Liga1
+                Liga1 = String.Format("/Compras/RepCxPDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}",
+                                              e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, e.Row.DBCampo("NomMes2"), e.Row.DBCampo("NomMesF2"), TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"))
+                e.Row.FCHyperLink($"HplColumna4").NavigateUrl = Liga1
+                Liga1 = String.Format("/Compras/RepCxPDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}",
+                                              e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, e.Row.DBCampo("NomMes3"), e.Row.DBCampo("NomMesF3"), TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"))
+                e.Row.FCHyperLink($"HplColumna5").NavigateUrl = Liga1
+                Liga1 = String.Format("/Compras/RepCxPDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}",
+                                              e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, e.Row.DBCampo("NomMes4"), e.Row.DBCampo("NomMesF4"), TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"))
+                e.Row.FCHyperLink($"HplColumna6").NavigateUrl = Liga1
+                Liga1 = String.Format("/Compras/RepCxPDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}",
+                                              e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, e.Row.DBCampo("NomMes5"), e.Row.DBCampo("NomMesF5"), TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"))
+                e.Row.FCHyperLink($"HplColumna7").NavigateUrl = Liga1
+                Liga1 = String.Format("/Compras/RepCxPDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}",
+                                              e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, e.Row.DBCampo("NomMes6"), e.Row.DBCampo("NomMesF6"), TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"))
+                e.Row.FCHyperLink($"HplColumna8").NavigateUrl = Liga1
+                Liga1 = String.Format("/Compras/RepCxPDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}",
+                                              e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, e.Row.DBCampo("NomMes7"), e.Row.DBCampo("NomMesF7"), TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"))
+                e.Row.FCHyperLink($"HplColumna9").NavigateUrl = Liga1
+                Liga1 = String.Format("/Compras/RepCxPDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}",
+                                              e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, e.Row.DBCampo("NomMes8"), e.Row.DBCampo("NomMesF8"), TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"))
+                e.Row.FCHyperLink($"HplColumna10").NavigateUrl = Liga1
+                Liga1 = String.Format("/Compras/RepCxPDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}",
+                                              e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, e.Row.DBCampo("NomMes9"), e.Row.DBCampo("NomMesF9"), TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"))
+                e.Row.FCHyperLink($"HplColumna11").NavigateUrl = Liga1
+                Liga1 = String.Format("/Compras/RepCxPDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}",
+                                              e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, e.Row.DBCampo("NomMes10"), e.Row.DBCampo("NomMesF10"), TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"))
+                e.Row.FCHyperLink($"HplColumna12").NavigateUrl = Liga1
+                Liga1 = String.Format("/Compras/RepCxPDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}",
+                                              e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, e.Row.DBCampo("NomMes11"), e.Row.DBCampo("NomMesF11"), TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"))
+                e.Row.FCHyperLink($"HplColumna13").NavigateUrl = Liga1
+                Liga1 = String.Format("/Compras/RepCxPDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}",
+                                              e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, e.Row.DBCampo("NomMes12"), e.Row.DBCampo("NomMesF12"), TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"))
+                e.Row.FCHyperLink($"HplColumna14").NavigateUrl = Liga1
+                Liga1 = String.Format("/Compras/RepCxPDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}",
+                                              e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, e.Row.DBCampo("NomMes13"), "31/12/9999", TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"))
+                e.Row.FCHyperLink($"HplColumna15").NavigateUrl = Liga1
+
+                If e.Row.FCHyperLink("HplSaldo").Text = "0.00" Then e.Row.FCHyperLink("HplSaldo").Text = "-"
+                If e.Row.FCHyperLink("HplColumna1").Text.ToDouble = 0 Then e.Row.FCHyperLink("HplColumna1").Text = "-"
+                If e.Row.FCHyperLink("HplColumna2").Text.ToDouble = 0 Then e.Row.FCHyperLink("HplColumna2").Text = "-"
+                If e.Row.FCHyperLink("HplColumna3").Text.ToDouble = 0 Then e.Row.FCHyperLink("HplColumna3").Text = "-"
+                If e.Row.FCHyperLink("HplColumna4").Text.ToDouble = 0 Then e.Row.FCHyperLink("HplColumna4").Text = "-"
+                If e.Row.FCHyperLink("HplColumna5").Text.ToDouble = 0 Then e.Row.FCHyperLink("HplColumna5").Text = "-"
+                If e.Row.FCHyperLink("HplColumna6").Text.ToDouble = 0 Then e.Row.FCHyperLink("HplColumna6").Text = "-"
+                If e.Row.FCHyperLink("HplColumna7").Text.ToDouble = 0 Then e.Row.FCHyperLink("HplColumna7").Text = "-"
+                If e.Row.FCHyperLink("HplColumna8").Text.ToDouble = 0 Then e.Row.FCHyperLink("HplColumna8").Text = "-"
+                If e.Row.FCHyperLink("HplColumna9").Text.ToDouble = 0 Then e.Row.FCHyperLink("HplColumna9").Text = "-"
+                If e.Row.FCHyperLink("HplColumna10").Text.ToDouble = 0 Then e.Row.FCHyperLink("HplColumna10").Text = "-"
+                If e.Row.FCHyperLink("HplColumna11").Text.ToDouble = 0 Then e.Row.FCHyperLink("HplColumna11").Text = "-"
+                If e.Row.FCHyperLink("HplColumna12").Text.ToDouble = 0 Then e.Row.FCHyperLink("HplColumna12").Text = "-"
+                If e.Row.FCHyperLink("HplColumna13").Text.ToDouble = 0 Then e.Row.FCHyperLink("HplColumna13").Text = "-"
+                If e.Row.FCHyperLink("HplColumna14").Text.ToDouble = 0 Then e.Row.FCHyperLink("HplColumna14").Text = "-"
+                If e.Row.FCHyperLink("HplColumna15").Text.ToDouble = 0 Then e.Row.FCHyperLink("HplColumna15").Text = "-"
+
+
+                If e.Row.FCHyperLink("LtlPorVencer").Text = "0.00" Then e.Row.FCHyperLink("LtlPorVencer").Text = "-"
+                If e.Row.FCHyperLink("LtlVentas").Text = "0.00" Then e.Row.FCHyperLink("LtlVentas").Text = "-"
+                If e.Row.FCHyperLink("LtlSaldo1").Text = "0.00" Then e.Row.FCHyperLink("LtlSaldo1").Text = "-"
+            Else
                 If DdlGrupo.SelectedValue.ToEntero = 11 Then
                     If e.Row.DBCampo("CveSubProyecto") = "-1" Then
                         e.Row.CssClass = "Totales"
@@ -311,7 +628,7 @@ Partial Class Compras_RepCxP
 
                 If e.Row.DBCampo("Orden") <> "" Then
                     e.Row.Cells(1).BackColor = Drawing.Color.LightGray
-                e.Row.Cells(11).BackColor = Drawing.Color.LightGray
+                    e.Row.Cells(17).BackColor = Drawing.Color.LightGray
                 End If
 
 
@@ -361,14 +678,24 @@ Partial Class Compras_RepCxP
 
                 Dim Liga8 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C8&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}",
                                                e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"))
-
+                Dim Liga9 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C9&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}",
-            Dim Liga9 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}",
+                                               e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"))
+                Dim Liga10 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C10&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}",
+                                               e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"))
+                Dim Liga11 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C11&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}",
+                                               e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"))
+                Dim Liga12 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C12&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}",
+                                               e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"))
+                Dim Liga13 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C13&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}",
                                                e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"))
 
-            Dim Liga10 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=TV&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}",
+                Dim Liga14 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}",
                                                e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"))
 
-            Dim Liga11 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=TPV&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}",
+                Dim Liga15 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=TV&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}",
+                                               e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"))
+
+                Dim Liga16 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=TPV&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}",
                                                e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"))
 
 
@@ -390,7 +717,7 @@ Partial Class Compras_RepCxP
                         e.Row.Cells(ContadorColumna).BackColor = Drawing.Color.LightGray
                     End If
                     e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("vencido").ToString.FormatoNumero
-                e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga10
+                    e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga15
                     Contador += 1
                     CargaColumnaVencido = True
                     ContadorColumna += 1
@@ -408,7 +735,7 @@ Partial Class Compras_RepCxP
                         e.Row.Cells(ContadorColumna).BackColor = Drawing.Color.LightGray
                     End If
                     e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("vencido").ToString.FormatoNumero
-                e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga10
+                    e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga15
                     Contador += 1
                     CargaColumnaVencido = True
                     ContadorColumna += 1
@@ -426,7 +753,7 @@ Partial Class Compras_RepCxP
                         e.Row.Cells(ContadorColumna).BackColor = Drawing.Color.LightGray
                     End If
                     e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("vencido").ToString.FormatoNumero
-                e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga10
+                    e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga15
                     Contador += 1
                     CargaColumnaVencido = True
                     ContadorColumna += 1
@@ -444,7 +771,7 @@ Partial Class Compras_RepCxP
                         e.Row.Cells(ContadorColumna).BackColor = Drawing.Color.LightGray
                     End If
                     e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("vencido").ToString.FormatoNumero
-                e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga10
+                    e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga15
                     Contador += 1
                     CargaColumnaVencido = True
                     ContadorColumna += 1
@@ -462,7 +789,7 @@ Partial Class Compras_RepCxP
                         e.Row.Cells(ContadorColumna).BackColor = Drawing.Color.LightGray
                     End If
                     e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("vencido").ToString.FormatoNumero
-                e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga10
+                    e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga15
                     Contador += 1
                     CargaColumnaVencido = True
                     ContadorColumna += 1
@@ -480,7 +807,7 @@ Partial Class Compras_RepCxP
                         e.Row.Cells(ContadorColumna).BackColor = Drawing.Color.LightGray
                     End If
                     e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("vencido").ToString.FormatoNumero
-                e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga10
+                    e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga15
                     Contador += 1
                     CargaColumnaVencido = True
                     ContadorColumna += 1
@@ -498,7 +825,7 @@ Partial Class Compras_RepCxP
                         e.Row.Cells(ContadorColumna).BackColor = Drawing.Color.LightGray
                     End If
                     e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("vencido").ToString.FormatoNumero
-                e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga10
+                    e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga15
                     Contador += 1
                     CargaColumnaVencido = True
                     ContadorColumna += 1
@@ -511,9 +838,101 @@ Partial Class Compras_RepCxP
                     ContadorColumna += 1
                 End If
 
+                If e.Row.DBCampo("TC9").ToString.ToEntero = 2 And Not CargaColumnaVencido Then
+                    If Not e.Row.DBCampo("Orden") = "" Then
+                        e.Row.Cells(ContadorColumna).BackColor = Drawing.Color.LightGray
+                    End If
+                    e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("vencido").ToString.FormatoNumero
+                    e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga15
+                    Contador += 1
+                    CargaColumnaVencido = True
+                    ContadorColumna += 1
+                End If
 
-            e.Row.FCHyperLink("LtlPorVencer").NavigateUrl = Liga11
+                If e.Row.DBCampo("NomC9").ToString <> "" Then
-            e.Row.FCHyperLink("LtlVentas").NavigateUrl = Liga9
+                    e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("Columna9").ToString.FormatoNumero
+                    e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga9
+                    Contador += 1
+                    ContadorColumna += 1
+                End If
+
+                If e.Row.DBCampo("TC10").ToString.ToEntero = 2 And Not CargaColumnaVencido Then
+                    If Not e.Row.DBCampo("Orden") = "" Then
+                        e.Row.Cells(ContadorColumna).BackColor = Drawing.Color.LightGray
+                    End If
+                    e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("vencido").ToString.FormatoNumero
+                    e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga15
+                    Contador += 1
+                    CargaColumnaVencido = True
+                    ContadorColumna += 1
+                End If
+
+                If e.Row.DBCampo("NomC10").ToString <> "" Then
+                    e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("Columna10").ToString.FormatoNumero
+                    e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga10
+                    Contador += 1
+                    ContadorColumna += 1
+                End If
+
+                If e.Row.DBCampo("TC11").ToString.ToEntero = 2 And Not CargaColumnaVencido Then
+                    If Not e.Row.DBCampo("Orden") = "" Then
+                        e.Row.Cells(ContadorColumna).BackColor = Drawing.Color.LightGray
+                    End If
+                    e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("vencido").ToString.FormatoNumero
+                    e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga15
+                    Contador += 1
+                    CargaColumnaVencido = True
+                    ContadorColumna += 1
+                End If
+
+                If e.Row.DBCampo("NomC11").ToString <> "" Then
+                    e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("Columna11").ToString.FormatoNumero
+                    e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga11
+                    Contador += 1
+                    ContadorColumna += 1
+                End If
+
+                If e.Row.DBCampo("TC12").ToString.ToEntero = 2 And Not CargaColumnaVencido Then
+                    If Not e.Row.DBCampo("Orden") = "" Then
+                        e.Row.Cells(ContadorColumna).BackColor = Drawing.Color.LightGray
+                    End If
+                    e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("vencido").ToString.FormatoNumero
+                    e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga15
+                    Contador += 1
+                    CargaColumnaVencido = True
+                    ContadorColumna += 1
+                End If
+
+                If e.Row.DBCampo("NomC12").ToString <> "" Then
+                    e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("Columna12").ToString.FormatoNumero
+                    e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga12
+                    Contador += 1
+                    ContadorColumna += 1
+                End If
+
+                If e.Row.DBCampo("TC13").ToString.ToEntero = 2 And Not CargaColumnaVencido Then
+                    If Not e.Row.DBCampo("Orden") = "" Then
+                        e.Row.Cells(ContadorColumna).BackColor = Drawing.Color.LightGray
+                    End If
+                    e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("vencido").ToString.FormatoNumero
+                    e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga15
+                    Contador += 1
+                    CargaColumnaVencido = True
+                    ContadorColumna += 1
+                End If
+
+                If e.Row.DBCampo("NomC12").ToString <> "" Then
+                    e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("Columna13").ToString.FormatoNumero
+                    e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga13
+                    Contador += 1
+                    ContadorColumna += 1
+                End If
+
+
+
+
+                e.Row.FCHyperLink("LtlPorVencer").NavigateUrl = Liga16
+                e.Row.FCHyperLink("LtlVentas").NavigateUrl = Liga14
                 e.Row.FCHyperLink("LtlSaldo1").NavigateUrl = LigaTot
                 e.Row.FCHyperLink("HplSaldo").NavigateUrl = LigaTot
 
@@ -527,6 +946,12 @@ Partial Class Compras_RepCxP
                 If e.Row.FCHyperLink("HplColumna7").Text.ToDouble = 0 Then e.Row.FCHyperLink("HplColumna7").Text = "-"
                 If e.Row.FCHyperLink("HplColumna8").Text.ToDouble = 0 Then e.Row.FCHyperLink("HplColumna8").Text = "-"
                 If e.Row.FCHyperLink("HplColumna9").Text.ToDouble = 0 Then e.Row.FCHyperLink("HplColumna9").Text = "-"
+                If e.Row.FCHyperLink("HplColumna10").Text.ToDouble = 0 Then e.Row.FCHyperLink("HplColumna10").Text = "-"
+                If e.Row.FCHyperLink("HplColumna11").Text.ToDouble = 0 Then e.Row.FCHyperLink("HplColumna11").Text = "-"
+                If e.Row.FCHyperLink("HplColumna12").Text.ToDouble = 0 Then e.Row.FCHyperLink("HplColumna12").Text = "-"
+                If e.Row.FCHyperLink("HplColumna13").Text.ToDouble = 0 Then e.Row.FCHyperLink("HplColumna13").Text = "-"
+                If e.Row.FCHyperLink("HplColumna14").Text.ToDouble = 0 Then e.Row.FCHyperLink("HplColumna14").Text = "-"
+
                 If e.Row.FCHyperLink("LtlPorVencer").Text = "0.00" Then e.Row.FCHyperLink("LtlPorVencer").Text = "-"
                 If e.Row.FCHyperLink("LtlVentas").Text = "0.00" Then e.Row.FCHyperLink("LtlVentas").Text = "-"
                 If e.Row.FCHyperLink("LtlSaldo1").Text = "0.00" Then e.Row.FCHyperLink("LtlSaldo1").Text = "-"
@@ -541,8 +966,14 @@ Partial Class Compras_RepCxP
                 e.Row.Cells(9).Width = Unit.Pixel(75)
                 e.Row.Cells(10).Width = Unit.Pixel(75)
                 e.Row.Cells(11).Width = Unit.Pixel(75)
+                e.Row.Cells(12).Width = Unit.Pixel(75)
+                e.Row.Cells(13).Width = Unit.Pixel(75)
+                e.Row.Cells(14).Width = Unit.Pixel(75)
+                e.Row.Cells(15).Width = Unit.Pixel(75)
+                e.Row.Cells(16).Width = Unit.Pixel(75)
 
             End If
+        End If
     End Sub
 
 #End Region
@@ -867,8 +1298,8 @@ Partial Class Compras_RepCxP
         UpPersonalizarRangoEditar.Update()
     End Sub
 
-    Protected Sub BtnPersonalizarRango_Click(sender As Object, e As EventArgs)
+    Protected Sub BtnPersonalizarRango_Click(sender As Object, e As EventArgs)
-
+
         If Not DtPersonalizarRango.COUNT("Tipo", "Tipo=1") > 0 Then
             Alert("Tiene que haber por lo menos una columna de tipo vencido.", TipoMensaje.MsgAdvertencia)
             Exit Sub