Merge branch 'master' of http://192.168.10.111:8383/SIG

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

App_Code/LogicNominas.vb

@@ -383,7 +383,7 @@ Public Class LogicNominas
         If DtOtrosPagos IsNot Nothing AndAlso DtOtrosPagos.Rows.Count > 0 Then
             For Each Row As DataRow In DtOtrosPagos.Rows
 
-                If (Row("Importe").ToString().ToDecimal() > 0) OrElse
+                If (Row("Importe").ToString().ToDecimal() <> 0) OrElse
                 (Row("SATCveConcepto").ToString().ToEntero() = 2 AndAlso (CveRegimenContratacion.ToEntero() = 2 OrElse Row("Importe").ToString().ToDecimal() <> 0)) OrElse
                 (Row("SATCveConcepto").ToString().ToEntero().Contiene(2, 4) AndAlso Row("Importe").ToString().ToDecimal() < 0) Then
 

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

Empresas/119/Formatos/Traslado.rdlc

@@ -1975,6 +1975,12 @@ Hermosillo, Sonora, Mexico</Value>
           <AllowBlank>true</AllowBlank>
           <Prompt>ReportParameter1</Prompt>
       </ReportParameter>
+      <ReportParameter Name="LogoPath">
+          <DataType>String</DataType>
+          <Nullable>true</Nullable>
+          <AllowBlank>true</AllowBlank>
+          <Prompt>ReportParameter1</Prompt>
+      </ReportParameter>
   </ReportParameters>
   <EmbeddedImages>
     <EmbeddedImage Name="jam3">

Empresas/66/Formatos/Traslado.rdlc

@@ -1302,6 +1302,12 @@
       <AllowBlank>true</AllowBlank>
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
+    <ReportParameter Name="LogoPath">
+        <DataType>String</DataType>
+        <Nullable>true</Nullable>
+        <AllowBlank>true</AllowBlank>
+        <Prompt>ReportParameter1</Prompt>
+      </ReportParameter>
   </ReportParameters>
   <rd:ReportUnitType>Cm</rd:ReportUnitType>
   <rd:ReportID>859971a9-970d-45f5-be4a-0f05a1eb9a33</rd:ReportID>

Metronic/assets/admin/layout/css/custom.css

@@ -1462,22 +1462,25 @@ div.chksino, span.chksino {
     text-overflow: ellipsis;
     font-size: 0px;
     white-space: nowrap;
+    height: 25px;
 }
 
 .chksino input:checked ~ label {
     margin-left: 0px;
+    height: 25px;
 }
 
 .chksino label::before {
     content: 'Si ';
     padding: 3px;
-    padding-left: 15px;
+    padding-left: 15px !important;
-    padding-right: 14px;
+    padding-right: 14px !important;
     font-size: 12px !important;
     font-weight: bold !important;
     display: inline-block;
     background: #428bca;
     color: #FFF;
+    height: 25px;
 }
 
 .chksino label::after {
@@ -1491,6 +1494,7 @@ div.chksino, span.chksino {
     display: inline-block;
     background: #ececec;
     color: #666;
+    height: 25px;
 }
 
 .md-checkbox {

Nomina/Finiquito.aspx.cs

@@ -236,7 +236,10 @@ public partial class Nomina_Finiquito : ClsPaginas
                 if (onom.DeleteNom_NominasDetalles(SRCveConcepto, CvePersonal, CvePeriodoFiniquito))
                 {
                     Alert("el importe sera tomado del calculo y no del valor fijo");
+                    loadsobrerecibo(onom);
+                    UPDatos.Update();
                 }
+
             }
         }
     }
@@ -759,10 +762,10 @@ public partial class Nomina_Finiquito : ClsPaginas
         //parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("", ""));
         //parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("", ""));
         //parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("", ""));
-        string urlfile = System.IO.Path.Combine(ModExtensiones.DirectorioBaseEmpresas, string.Format("Empresas/{0}/Formatos/SobreRecibo.rdlc", UsuarioActual.CveEmpresa));
+        string urlfile = System.IO.Path.Combine(ModExtensiones.DirectorioBaseEmpresas, string.Format("Empresas/{0}/Formatos/SobreReciboFiniquito.rdlc", UsuarioActual.CveEmpresa));
         if (!System.IO.File.Exists(urlfile))
         {
-            urlfile = System.IO.Path.Combine(ModExtensiones.DirectorioBaseEmpresas, "Empresas/Grales/Formatos/SobreRecibo.rdlc");
+            urlfile = System.IO.Path.Combine(ModExtensiones.DirectorioBaseEmpresas, "Empresas/Grales/Formatos/SobreReciboFiniquito.rdlc");
         }
 
         ImprimirPDF(urlfile, lrds, parametros, "SobreRecibo", "PDF", null);

Nomina/MovimientosSUA.aspx

@@ -70,6 +70,10 @@
     </asp:UpdatePanel>
     <asp:UpdatePanel ID="upDatosSUAM" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
+            
+            <ajax:TabContainer ID="Tab" runat="server" Width="100%" AutoPostBack="True"> 
+                <ajax:TabPanel ID="TabAsistencia" runat="server" HeaderText="Asistencia">
+                    <ContentTemplate>
             <div class="portlet light  xspadding bordered " id="pnlDatosAsistencia">
                 <div class="portlet-title">
                     <div class="caption ">
@@ -110,6 +114,10 @@
                 </div>
 
             </div>
+                    </ContentTemplate>
+                </ajax:TabPanel>
+                <ajax:TabPanel ID="TabAltasbajas" runat="server" HeaderText="Altas bajas">
+                    <ContentTemplate>
             <div class="portlet light  xspadding bordered " id="pnlDatosAltasbajas">
                 <div class="portlet-title">
                     <div class="caption ">
@@ -153,6 +161,11 @@
                 </div>
 
             </div>
+                        
+                    </ContentTemplate>
+                </ajax:TabPanel>
+                <ajax:TabPanel ID="TabModsalario" runat="server" HeaderText="Modificación de salario">
+                    <ContentTemplate>
             <div class="portlet light  xspadding bordered " id="pnlDatosModsalario">
                 <div class="portlet-title">
                     <div class="caption ">
@@ -191,6 +204,10 @@
                 </div>
 
             </div>
+                        
+                    </ContentTemplate>
+                </ajax:TabPanel> 
+        </ajax:TabContainer>
         </ContentTemplate>
     </asp:UpdatePanel>
 </asp:Content>

Nomina/Nomina.aspx.cs

@@ -448,10 +448,13 @@ public partial class Nomina_Nomina2 : ClsPaginas
                     CvePeriodoSeleccionado = FiltCvePeriodo;
                     continuar = true;
                 }
+                if (dtempleados != null)
+                {
 
                 LnkTimbrarTodos.Visible = (dtempleados.Rows.Count > 0 &&
                     dtempleados.COUNT("CvePersonal", "SeTimbro=0 AND CvePersonal >0  AND NomAutorizado =1") > 0);
                 }
+            }
 
         }
         #region CargaGrid
@@ -864,8 +867,11 @@ public partial class Nomina_Nomina2 : ClsPaginas
         }
         #endregion
         UpDatos.Update();
+        if (dtempleados != null)
+        {
             LnkAutorizar.Visible = (dtempleados.COUNT("CvePersonal", "  CvePersonal > 0 AND NomAutorizado =0") > 0) || (Estatus < 2);
         }
+    }
     private void setGVNominas()
     {
         string filtrogrupo = "";
@@ -1966,9 +1972,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
         LblSRSbc.Text = SalarioDiarioIMSS;
 
         #endregion
-        #region "Sobre Recibo"
         cargasobrericiboconceptos(); 
-        #endregion
         #region "Infonavit"
         {
             using (ClsRH objper = new ClsRH())
@@ -2026,7 +2030,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
 
         {
             DataTable dtper = dtConceptos.FiltraParametros("Tipo IN ('P') AND EsPadre = 1 ");
-            DataTable dtded = dtConceptos.FiltraParametros("Tipo IN ('D') AND EsPadre = 1 ");
+            DataTable dtded = dtConceptos.FiltraParametros("Tipo IN ('D') AND EsPadre = 1  AND CveSistema NOT IN(101)");
             dtper.Columns.Add("BorradoLogico", typeof(int));
             dtded.Columns.Add("BorradoLogico", typeof(int));
 
@@ -2050,9 +2054,12 @@ public partial class Nomina_Nomina2 : ClsPaginas
                 if (!(dtempleados.SUM(string.Format("[V_{0}]", CveConcepto), string.Format("CvePersonal = {0}", SRCvePersonal)) != 0)
                     && (dtempleadosConceptos.COUNT("CveConcepto", string.Format("CveConcepto={0} AND CvePersonal ={1} AND Estatus =2", CveConcepto, SRCvePersonal)) == 0)
                     )
+                {
+                    if(!row["CveSistema"].ToString().ToEntero().Contiene(new int[] { 20,21,112,202, 203 }))
                     {
                         BorradoLogico = 1;
                     }
+                }
                 row["BorradoLogico"] = BorradoLogico;
             }
             dtded.AcceptChanges();

Nomina/ReportedeAcumulados.aspx

@@ -167,11 +167,25 @@
 
                             <label class="col-md-1 mediocol">del:</label>
                             <div class="col-md-1">
-                                <asp:TextBox ID="TxtPeriodoInicio" Text="0" CssClass="form-control" runat="server"></asp:TextBox>
+                                <%--<asp:TextBox ID="TxtPeriodoInicio" Text="0" CssClass="form-control" runat="server"></asp:TextBox>--%>
+                                <div class="form-group input-iconright">
+                                    <asp:TextBox ID="TxtRpdFechaInicio" CssClass="form-control input-sm ADSMaskDate" Style="width: 118px" runat="server"></asp:TextBox>
+                                    <ajax:MaskedEditExtender ID="MaskedEditExtender3" runat="server" TargetControlID="TxtRpdFechaInicio" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                    <ajax:CalendarExtender runat="server" ID="CalendarExtender3" TargetControlID="TxtRpdFechaInicio" PopupPosition="BottomRight" Enabled="True" Format="dd/MM/yyyy"></ajax:CalendarExtender>
+                                    <asp:RequiredFieldValidator ID="rfvRpdFechaInicio" runat="server" ControlToValidate="TxtRpdFechaInicio" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha Inicio''</b> es necesario, por favor ingréselo." ValidationGroup="VGReporterepperde"></asp:RequiredFieldValidator>
+                                    <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender1" runat="server" HighlightCssClass="vco" TargetControlID="rfvRpdFechaInicio"></ajax:ValidatorCalloutExtender>
+                                </div>
                             </div>
                             <label class="col-md-1 mediocol">al:</label>
                             <div class="col-md-1">
-                                <asp:TextBox ID="TxtPeriodoFin" Text="99" CssClass="form-control" runat="server"></asp:TextBox>
+                                <%--<asp:TextBox ID="TxtPeriodoFin" Text="99" CssClass="form-control" runat="server"></asp:TextBox>--%>
+                                <div class="form-group input-iconright">
+                                    <asp:TextBox ID="TxtRpdFechaFin" CssClass="form-control input-sm ADSMaskDate" Style="width: 118px" runat="server"></asp:TextBox>
+                                    <ajax:MaskedEditExtender ID="MaskedEditExtender5" runat="server" TargetControlID="TxtRpdFechaFin" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                    <ajax:CalendarExtender runat="server" ID="CalendarExtender4" TargetControlID="TxtRpdFechaFin" PopupPosition="BottomRight" Enabled="True" Format="dd/MM/yyyy"></ajax:CalendarExtender>
+                                    <asp:RequiredFieldValidator ID="rfvRpdFechaFin" runat="server" ControlToValidate="TxtRpdFechaFin" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha Fin''</b> es necesario, por favor ingréselo." ValidationGroup="VGReporterepperde"></asp:RequiredFieldValidator>
+                                    <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender2" runat="server" HighlightCssClass="vco" TargetControlID="rfvRpdFechaFin"></ajax:ValidatorCalloutExtender>
+                                </div>
                             </div>
                             <div class="col-md-3">
                                 <asp:LinkButton ID="LnkConsultar" OnClick="LnkConsultar_Click" runat="server" Text="Consultar" Visible="true" class="btn btn-primary" />

Nomina/ReportedeAcumulados.aspx.cs

@@ -105,8 +105,8 @@ public partial class Nomina_ReportedeAcumulados : ClsPaginas
         FiltCveProyecto = DdlProyecto.SelectedValue.ToEntero();
         FiltCveSubProyecto = -1;
         FiltCveTurno = DdlTurno.SelectedValue.ToEntero();
-        FiltCvePeriodoI = TxtPeriodoInicio.Text.ToEntero();
+        FiltCvePeriodoI = TxtRpdFechaInicio.Text.ToDateTime().ToString("yyyyMMdd").ToEntero();
-        FiltCvePeriodoF = TxtPeriodoFin.Text.ToEntero();
+        FiltCvePeriodoF = TxtRpdFechaFin.Text.ToDateTime().ToString("yyyyMMdd").ToEntero();
         cargaDatos();
     }
 
@@ -393,8 +393,8 @@ public partial class Nomina_ReportedeAcumulados : ClsPaginas
         FiltCveProyecto = DdlProyecto.SelectedValue.ToEntero();
         FiltCveSubProyecto = -1;
         FiltCveTurno = DdlTurno.SelectedValue.ToEntero();
-        FiltCvePeriodoI = TxtPeriodoInicio.Text.ToEntero();
+        FiltCvePeriodoI = TxtRpdFechaInicio.Text.ToDateTime().ToString("yyyyMMdd").ToEntero();
-        FiltCvePeriodoF = TxtPeriodoFin.Text.ToEntero();
+        FiltCvePeriodoF = TxtRpdFechaFin.Text.ToDateTime().ToString("yyyyMMdd").ToEntero();
         cargaDatos();
         if (dtempleados.Rows.Count > 0)
         {

RH/CalculoSBC.aspx.cs

@@ -9,16 +9,15 @@ using Extensiones;
 public partial class RH_CalculoSBC : ClsPaginas
 {
 
-    //private DataTable dtPeriodos
+    private DataTable dtDetalleParteVariable
-    //{
+    {
-    //    get
+        get
-    //    {
+        {
-    //        if (ViewState["dtPeriodos"] == null) { return null; }
+            if (ViewState["dtDetalleParteVariable"] == null) { return null; }
-    //        else { return (DataTable)ViewState["dtPeriodos"]; }
+            else { return (DataTable)ViewState["dtDetalleParteVariable"]; }
-    //    }
+        }
-
+        set { ViewState["dtDetalleParteVariable"] = value; }
-    //    set { ViewState["dtPeriodos"] = value; }
+    }
-    //}
     protected void Page_Load(object sender, EventArgs e)
     {
         if (!IsPostBack)
@@ -44,7 +43,8 @@ public partial class RH_CalculoSBC : ClsPaginas
                 GVPV.DataSource = objnom.DTSetResultados.Tables[0];
                 if (objnom.DTSetResultados.Tables.Count >1)
                 {
-                    GVDetalleParteVariable.DataSource = objnom.DTSetResultados.Tables[1];
+                    dtDetalleParteVariable=objnom.DTSetResultados.Tables[1];
+                    GVDetalleParteVariable.DataSource = dtDetalleParteVariable;
                     GVDetalleParteVariable.DataBind();
                 }
             }
@@ -154,7 +154,8 @@ public partial class RH_CalculoSBC : ClsPaginas
         DataTable dt = GVToDT(GVCalculosSBC,"Salario");
         DataTable dtPF = GVToDT(GVCFija, "Parte fija");
         DataTable dtPV = GVToDT(GVPV, "Parte variable");
-        DataTable dtPVD = GVToDT(GVDetalleParteVariable, "Detalle parte variable");
+        dtDetalleParteVariable.TableName = "Detalle parte variable";
+        DataTable dtPVD = dtDetalleParteVariable;//GVToDT(GVDetalleParteVariable, "Detalle parte variable");
 
         ClosedXML.Excel.XLWorkbook wb = new ClosedXML.Excel.XLWorkbook();
         var libro = wb.AddWorksheet(dt);

RH/Personal.aspx

@@ -727,6 +727,16 @@
                                                                 <asp:BoundField HeaderText="Fecha Fin" DataField="FechaFin" DataFormatString="{0:d}">
                                                                     <ItemStyle Width="150px" />
                                                                 </asp:BoundField>
+                                                                <asp:TemplateField HeaderText="Editar">
+                                                                    <ItemTemplate>
+                                                                        <asp:LinkButton ID="LnkUpAltass" OnClick="LnkUpAltass_Click" runat="server" AlternateText="Editar" CausesValidation="False" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
+                                                                    </ItemTemplate>
+                                                                </asp:TemplateField>
+                                                                <asp:TemplateField HeaderText="Eliminar">
+                                                                    <ItemTemplate>
+                                                                        <asp:LinkButton ID="LnkDAltas" OnClick="LnkDAltas_Click" runat="server" AlternateText="Eliminar" CausesValidation="False" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />
+                                                                    </ItemTemplate>
+                                                                </asp:TemplateField>
                                                             </Columns>
                                                             <RowStyle CssClass="Texto" />
                                                             <AlternatingRowStyle CssClass="TextoAlterno" />

RH/Personal.aspx.vb

@@ -6506,4 +6506,13 @@ Partial Class RH_Personal
     End Sub
 
 
+
+
+    Protected Sub LnkUpAltass_Click(sender As Object, e As EventArgs)
+
+    End Sub
+
+    Protected Sub LnkDAltas_Click(sender As Object, e As EventArgs)
+
+    End Sub
 End Class

vwd.webinfo

@@ -264,6 +264,10 @@
     
   
     
+  
+    
+  
+