AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
rrene
2021-07-07 06:00:54 -07:00
parent 74774ffd37 4e936a0d29
commit 4d6aceeab3
16 changed files with 1020 additions and 463 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
App_Code/ClsMovimientos.vb
View File

@@ -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

2
App_Code/LogicNominas.vb
View File

@@ -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

43
Compras/RepCxP.aspx
View File

@@ -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

469
Compras/RepCxP.aspx.vb
View File

@@ -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(3, "Por Vencer,5,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,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=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 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 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
e.Row.FCHyperLink("LtlVentas").NavigateUrl = Liga9
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
@@ -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

6
Empresas/119/Formatos/Traslado.rdlc
View File

@@ -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">

6
Empresas/66/Formatos/Traslado.rdlc
View File

@@ -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>

8
Metronic/assets/admin/layout/css/custom.css
View File

@@ -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-right: 14px;
padding-left: 15px !important;
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 {

7
Nomina/Finiquito.aspx.cs
View File

@@ -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);

17
Nomina/MovimientosSUA.aspx
View File

@@ -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>

13
Nomina/Nomina.aspx.cs
View File

@@ -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();

18
Nomina/ReportedeAcumulados.aspx
View File

@@ -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" />

8
Nomina/ReportedeAcumulados.aspx.cs
View File

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

25
RH/CalculoSBC.aspx.cs
View File

@@ -9,16 +9,15 @@ using Extensiones;
public partial class RH_CalculoSBC : ClsPaginas
{
//private DataTable dtPeriodos
//{
// get
// {
// if (ViewState["dtPeriodos"] == null) { return null; }
// else { return (DataTable)ViewState["dtPeriodos"]; }
// }
// set { ViewState["dtPeriodos"] = value; }
//}
private DataTable dtDetalleParteVariable
{
get
{
if (ViewState["dtDetalleParteVariable"] == null) { return null; }
else { return (DataTable)ViewState["dtDetalleParteVariable"]; }
}
set { ViewState["dtDetalleParteVariable"] = 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);

10
RH/Personal.aspx
View File

@@ -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" />

9
RH/Personal.aspx.vb
View File

@@ -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

4
vwd.webinfo
View File

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