diff --git a/App_Code/ClsMovimientos.vb b/App_Code/ClsMovimientos.vb index 74e9f319d..0193ebf94 100644 --- a/App_Code/ClsMovimientos.vb +++ b/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 diff --git a/Compras/RepCxP.aspx b/Compras/RepCxP.aspx index b6fa8a533..274250559 100644 --- a/Compras/RepCxP.aspx +++ b/Compras/RepCxP.aspx @@ -253,6 +253,12 @@ +
+
Agrupar por meses:
+
+ +
+
@@ -341,6 +347,43 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Total diff --git a/Compras/RepCxP.aspx.vb b/Compras/RepCxP.aspx.vb index c3a54da1d..e5a2d5bf9 100644 --- a/Compras/RepCxP.aspx.vb +++ b/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,113 +188,286 @@ Partial Class Compras_RepCxP Mov.Dispose() Dim NumCol As Integer - If DtDatos.Rows.Count > 0 Then - GvCxP.Columns(2).Visible = False - GvCxP.Columns(3).Visible = False - GvCxP.Columns(4).Visible = False - GvCxP.Columns(5).Visible = False - GvCxP.Columns(6).Visible = False - GvCxP.Columns(7).Visible = False - GvCxP.Columns(8).Visible = False - GvCxP.Columns(9).Visible = False - GvCxP.Columns(10).Visible = False - Dim Contador As Integer = 2 - Dim CargaColumnaVencido As Boolean = False + 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) - If Dr("NomC1").ToString <> "" Then - GvCxP.Columns(Contador).Visible = True - GvCxP.Columns(Contador).HeaderText = Dr("NomC1").ToString - Contador += 1 - End If - If Dr("TC2").ToString.ToEntero = 2 And Not CargaColumnaVencido Then - GvCxP.Columns(Contador).Visible = True - GvCxP.Columns(Contador).HeaderText = "Total" - Contador += 1 - CargaColumnaVencido = True - NumCol = 2 - End If - If Dr("NomC2").ToString <> "" Then - GvCxP.Columns(Contador).Visible = True - GvCxP.Columns(Contador).HeaderText = Dr("NomC2").ToString - Contador += 1 - End If - If Dr("TC3").ToString.ToEntero = 2 And Not CargaColumnaVencido Then - GvCxP.Columns(Contador).Visible = True - GvCxP.Columns(Contador).HeaderText = "Total" - Contador += 1 - CargaColumnaVencido = True - NumCol = 3 - End If - If Dr("NomC3").ToString <> "" Then - GvCxP.Columns(Contador).Visible = True - GvCxP.Columns(Contador).HeaderText = Dr("NomC3").ToString - Contador += 1 - End If - If Dr("TC4").ToString.ToEntero = 2 And Not CargaColumnaVencido Then - GvCxP.Columns(Contador).Visible = True - GvCxP.Columns(Contador).HeaderText = "Total" - Contador += 1 - CargaColumnaVencido = True - NumCol = 4 - End If - If Dr("NomC4").ToString <> "" Then - GvCxP.Columns(Contador).Visible = True - GvCxP.Columns(Contador).HeaderText = Dr("NomC4").ToString - Contador += 1 - End If - If Dr("TC5").ToString.ToEntero = 2 And Not CargaColumnaVencido Then - GvCxP.Columns(Contador).Visible = True - GvCxP.Columns(Contador).HeaderText = "Total" - Contador += 1 - CargaColumnaVencido = True - NumCol = 5 - End If - If Dr("NomC5").ToString <> "" Then - GvCxP.Columns(Contador).Visible = True - GvCxP.Columns(Contador).HeaderText = Dr("NomC5").ToString - Contador += 1 - End If - If Dr("TC6").ToString.ToEntero = 2 And Not CargaColumnaVencido Then - GvCxP.Columns(Contador).Visible = True - GvCxP.Columns(Contador).HeaderText = "Total" - Contador += 1 - CargaColumnaVencido = True - NumCol = 6 - End If - If Dr("NomC6").ToString <> "" Then - GvCxP.Columns(Contador).Visible = True - GvCxP.Columns(Contador).HeaderText = Dr("NomC6").ToString - Contador += 1 - End If - If Dr("TC7").ToString.ToEntero = 2 And Not CargaColumnaVencido Then - GvCxP.Columns(Contador).Visible = True - GvCxP.Columns(Contador).HeaderText = "Total" - Contador += 1 - CargaColumnaVencido = True - NumCol = 7 - End If - If Dr("NomC7").ToString <> "" Then - GvCxP.Columns(Contador).Visible = True - GvCxP.Columns(Contador).HeaderText = Dr("NomC7").ToString - Contador += 1 - End If - If Dr("TC8").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("NomC8").ToString <> "" Then - GvCxP.Columns(Contador).Visible = True - GvCxP.Columns(Contador).HeaderText = Dr("NomC8").ToString - Contador += 1 + 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 + GvCxP.Columns(4).Visible = False + GvCxP.Columns(5).Visible = False + GvCxP.Columns(6).Visible = False + GvCxP.Columns(7).Visible = False + 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 + GvCxP.Columns(Contador).HeaderText = "Total" + Contador += 1 + CargaColumnaVencido = True + NumCol = 2 + End If + If Dr("NomC2").ToString <> "" Then + 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 + GvCxP.Columns(Contador).HeaderText = "Total" + Contador += 1 + CargaColumnaVencido = True + NumCol = 3 + End If + If Dr("NomC3").ToString <> "" Then + 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 + GvCxP.Columns(Contador).HeaderText = "Total" + Contador += 1 + CargaColumnaVencido = True + NumCol = 4 + End If + If Dr("NomC4").ToString <> "" Then + 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 + GvCxP.Columns(Contador).HeaderText = "Total" + Contador += 1 + CargaColumnaVencido = True + NumCol = 5 + End If + If Dr("NomC5").ToString <> "" Then + 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 + GvCxP.Columns(Contador).HeaderText = "Total" + Contador += 1 + CargaColumnaVencido = True + NumCol = 6 + End If + If Dr("NomC6").ToString <> "" Then + 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 + GvCxP.Columns(Contador).HeaderText = "Total" + Contador += 1 + CargaColumnaVencido = True + NumCol = 7 + End If + If Dr("NomC7").ToString <> "" Then + 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 + GvCxP.Columns(Contador).HeaderText = "Total" + Contador += 1 + CargaColumnaVencido = True + NumCol = 8 + End If + If Dr("NomC8").ToString <> "" Then + 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 - GvCxP.DataBind() - UPPDatos.Update() - ActualizarDatatable(NumCol) 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 - FC.Add(0, " ,2,1,Titulos") - FC.Add(2, "Vencido,4,1,Titulos") - FC.Add(3, "Por Vencer,5,1,Titulos") + If chkAgruparMes.Checked Then + FC.Add(0, " ,2,1,Titulos") + FC.Add(2, "Vencido,2,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,253 +497,482 @@ 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) - 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" + 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 e.Row.DBCampo("Orden") = "" Then - e.Row.CssClass = "Totales" + 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 - End If - If e.Row.DBCampo("Orden") <> "" Then - e.Row.Cells(1).BackColor = Drawing.Color.LightGray - e.Row.Cells(11).BackColor = Drawing.Color.LightGray - End If + If e.Row.DBCampo("Orden") <> "" Then + e.Row.Cells(1).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 + If DdlGrupo.SelectedValue = "10" AndAlso e.Row.RowIndex.Contiene(1, 3) Then + e.Row.Visible = False + End If - 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 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(), "-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(), "-1") - '/Bancos/RepProgramarRecursos.aspx --> Compras/RepCxPDetalle.aspx + '/Bancos/RepProgramarRecursos.aspx --> Compras/RepCxPDetalle.aspx - Dim LigaTot 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}", + Dim LigaTot 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 Liga1 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C1&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 Liga1 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C1&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 Liga2 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C2&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 Liga2 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C2&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 Liga3 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C3&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 Liga3 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C3&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 Liga4 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C4&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 Liga4 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C4&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 Liga5 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C5&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 Liga5 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C5&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 Liga6 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C6&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 Liga6 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C6&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 Liga7 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C7&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 Liga7 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C7&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 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}", + 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}", + 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 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}", + 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 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 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 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 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")) - Dim Contador As Integer = 1 - Dim ContadorColumna As Integer = 2 - Dim CargaColumnaVencido As Boolean = False - If e.Row.DBCampo("NomC1").ToString <> "" Then - e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("Columna1").ToString.FormatoNumero - e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga1 - Contador += 1 - ContadorColumna += 1 - End If - - If e.Row.DBCampo("TC2").ToString.ToEntero = 2 And Not CargaColumnaVencido Then - If Not e.Row.DBCampo("Orden") = "" Then - e.Row.Cells(ContadorColumna).BackColor = Drawing.Color.LightGray + Dim Contador As Integer = 1 + Dim ContadorColumna As Integer = 2 + Dim CargaColumnaVencido As Boolean = False + If e.Row.DBCampo("NomC1").ToString <> "" Then + e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("Columna1").ToString.FormatoNumero + e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga1 + Contador += 1 + ContadorColumna += 1 End If - e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("vencido").ToString.FormatoNumero - e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga10 - Contador += 1 - CargaColumnaVencido = True - ContadorColumna += 1 - End If - If e.Row.DBCampo("NomC2").ToString <> "" Then - e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("Columna2").ToString.FormatoNumero - e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga2 - Contador += 1 - ContadorColumna += 1 - End If - - If e.Row.DBCampo("TC3").ToString.ToEntero = 2 And Not CargaColumnaVencido Then - If Not e.Row.DBCampo("Orden") = "" Then - e.Row.Cells(ContadorColumna).BackColor = Drawing.Color.LightGray + If e.Row.DBCampo("TC2").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($"HplColumna{Contador}").Text = e.Row.DBCampo("vencido").ToString.FormatoNumero - e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga10 - Contador += 1 - CargaColumnaVencido = True - ContadorColumna += 1 - End If - If e.Row.DBCampo("NomC3").ToString <> "" Then - e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("Columna3").ToString.FormatoNumero - e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga3 - Contador += 1 - ContadorColumna += 1 - End If - - If e.Row.DBCampo("TC4").ToString.ToEntero = 2 And Not CargaColumnaVencido Then - If Not e.Row.DBCampo("Orden") = "" Then - e.Row.Cells(ContadorColumna).BackColor = Drawing.Color.LightGray + If e.Row.DBCampo("NomC2").ToString <> "" Then + e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("Columna2").ToString.FormatoNumero + e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga2 + Contador += 1 + ContadorColumna += 1 End If - e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("vencido").ToString.FormatoNumero - e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga10 - Contador += 1 - CargaColumnaVencido = True - ContadorColumna += 1 - End If - If e.Row.DBCampo("NomC4").ToString <> "" Then - e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("Columna4").ToString.FormatoNumero - e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga4 - Contador += 1 - ContadorColumna += 1 - End If - - If e.Row.DBCampo("TC5").ToString.ToEntero = 2 And Not CargaColumnaVencido Then - If Not e.Row.DBCampo("Orden") = "" Then - e.Row.Cells(ContadorColumna).BackColor = Drawing.Color.LightGray + If e.Row.DBCampo("TC3").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($"HplColumna{Contador}").Text = e.Row.DBCampo("vencido").ToString.FormatoNumero - e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga10 - Contador += 1 - CargaColumnaVencido = True - ContadorColumna += 1 - End If - If e.Row.DBCampo("NomC5").ToString <> "" Then - e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("Columna5").ToString.FormatoNumero - e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga5 - Contador += 1 - ContadorColumna += 1 - End If - - If e.Row.DBCampo("TC6").ToString.ToEntero = 2 And Not CargaColumnaVencido Then - If Not e.Row.DBCampo("Orden") = "" Then - e.Row.Cells(ContadorColumna).BackColor = Drawing.Color.LightGray + If e.Row.DBCampo("NomC3").ToString <> "" Then + e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("Columna3").ToString.FormatoNumero + e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga3 + Contador += 1 + ContadorColumna += 1 End If - e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("vencido").ToString.FormatoNumero - e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga10 - Contador += 1 - CargaColumnaVencido = True - ContadorColumna += 1 - End If - If e.Row.DBCampo("NomC6").ToString <> "" Then - e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("Columna6").ToString.FormatoNumero - e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga6 - Contador += 1 - ContadorColumna += 1 - End If - - If e.Row.DBCampo("TC7").ToString.ToEntero = 2 And Not CargaColumnaVencido Then - If Not e.Row.DBCampo("Orden") = "" Then - e.Row.Cells(ContadorColumna).BackColor = Drawing.Color.LightGray + If e.Row.DBCampo("TC4").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($"HplColumna{Contador}").Text = e.Row.DBCampo("vencido").ToString.FormatoNumero - e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga10 - Contador += 1 - CargaColumnaVencido = True - ContadorColumna += 1 - End If - If e.Row.DBCampo("NomC7").ToString <> "" Then - e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("Columna7").ToString.FormatoNumero - e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga7 - Contador += 1 - ContadorColumna += 1 - End If - - If e.Row.DBCampo("TC8").ToString.ToEntero = 2 And Not CargaColumnaVencido Then - If Not e.Row.DBCampo("Orden") = "" Then - e.Row.Cells(ContadorColumna).BackColor = Drawing.Color.LightGray + If e.Row.DBCampo("NomC4").ToString <> "" Then + e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("Columna4").ToString.FormatoNumero + e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga4 + Contador += 1 + ContadorColumna += 1 End If - e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("vencido").ToString.FormatoNumero - e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga10 - Contador += 1 - CargaColumnaVencido = True - ContadorColumna += 1 + + If e.Row.DBCampo("TC5").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("NomC5").ToString <> "" Then + e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("Columna5").ToString.FormatoNumero + e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga5 + Contador += 1 + ContadorColumna += 1 + End If + + If e.Row.DBCampo("TC6").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("NomC6").ToString <> "" Then + e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("Columna6").ToString.FormatoNumero + e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga6 + Contador += 1 + ContadorColumna += 1 + End If + + If e.Row.DBCampo("TC7").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("NomC7").ToString <> "" Then + e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("Columna7").ToString.FormatoNumero + e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga7 + Contador += 1 + ContadorColumna += 1 + End If + + If e.Row.DBCampo("TC8").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("NomC8").ToString <> "" Then + e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("Columna8").ToString.FormatoNumero + e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga8 + Contador += 1 + 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 + + If e.Row.DBCampo("NomC9").ToString <> "" Then + 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 + + 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("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 = "-" + + e.Row.Cells(2).Width = Unit.Pixel(75) + e.Row.Cells(3).Width = Unit.Pixel(75) + e.Row.Cells(4).Width = Unit.Pixel(75) + e.Row.Cells(5).Width = Unit.Pixel(75) + e.Row.Cells(6).Width = Unit.Pixel(75) + e.Row.Cells(7).Width = Unit.Pixel(75) + e.Row.Cells(8).Width = Unit.Pixel(75) + 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 - - If e.Row.DBCampo("NomC8").ToString <> "" Then - e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("Columna8").ToString.FormatoNumero - e.Row.FCHyperLink($"HplColumna{Contador}").NavigateUrl = Liga8 - Contador += 1 - ContadorColumna += 1 - End If - - - e.Row.FCHyperLink("LtlPorVencer").NavigateUrl = Liga11 - e.Row.FCHyperLink("LtlVentas").NavigateUrl = Liga9 - e.Row.FCHyperLink("LtlSaldo1").NavigateUrl = LigaTot - e.Row.FCHyperLink("HplSaldo").NavigateUrl = LigaTot - - 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("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 = "-" - - e.Row.Cells(2).Width = Unit.Pixel(75) - e.Row.Cells(3).Width = Unit.Pixel(75) - e.Row.Cells(4).Width = Unit.Pixel(75) - e.Row.Cells(5).Width = Unit.Pixel(75) - e.Row.Cells(6).Width = Unit.Pixel(75) - e.Row.Cells(7).Width = Unit.Pixel(75) - e.Row.Cells(8).Width = Unit.Pixel(75) - e.Row.Cells(9).Width = Unit.Pixel(75) - e.Row.Cells(10).Width = Unit.Pixel(75) - e.Row.Cells(11).Width = Unit.Pixel(75) - End If End Sub @@ -867,8 +1298,8 @@ Partial Class Compras_RepCxP Exit Sub End If - If DtPersonalizarRango.Rows.Count > 8 Then - Alert("Tiene que haber un maximo de 8 columnas.", TipoMensaje.MsgAdvertencia) + If DtPersonalizarRango.Rows.Count > 13 Then + Alert("Tiene que haber un maximo de 13 columnas.", TipoMensaje.MsgAdvertencia) Exit Sub End If