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

Filtro de impresion en cxp

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2022-11-09 16:30:55 -07:00
parent 6caf851fa0
commit 5bcd52ecad
1 changed files with 39 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

47
Compras/RepCxP.aspx.vb
View File

@@ -1426,7 +1426,24 @@ Partial Class Compras_RepCxP
TCEspecifico = -1 TCEspecifico = -1
End If End If
Dim Sucursal = If(DdlSubProyecto.SelectedValue = "-1", "", $"&emsp;<b>Sucursal:</b> {DdlSubProyecto.SelectedItem.Text}") Dim Proyecto = ""
Dim Sucursal = ""
Select Case UsuarioActual.Empresa.Tipo_CentroCosto
Case 1
Sucursal = If(DdlSubProyecto.SelectedValue = "-1", "", $"&emsp;<b>Centro de costo:</b> {DdlSubProyecto.SelectedItem.Text}")
Case 2
Sucursal = If(DdlSubProyecto.SelectedValue = "-1", "", $"&emsp;<b>Sucursal:</b> {DdlSubProyecto.SelectedItem.Text}")
Case 3
Sucursal = If(DdlSubProyecto.SelectedValue = "-1", "", $"&emsp;<b>Proyecto:</b> {DdlSubProyecto.SelectedItem.Text}")
Case 4
Proyecto = If(DdlProyecto.SelectedValue = "-1", "", $"&emsp;<b>Proyecto:</b> {DdlProyecto.SelectedItem.Text}")
Sucursal = If(DdlSubProyecto.SelectedValue = "-1", "", $"&emsp;<b>Sub Proyecto:</b> {DdlSubProyecto.SelectedItem.Text}")
Case 5
Proyecto = If(DdlProyecto.SelectedValue = "-1", "", $"&emsp;<b>Proyecto:</b> {DdlProyecto.SelectedItem.Text}")
Sucursal = If(DdlSubProyecto.SelectedValue = "-1", "", $"&emsp;<b>Sucursal:</b> {DdlSubProyecto.SelectedItem.Text}")
End Select
Dim Proveedor = If(DdlProveedor.SelectedValue = "-1", "", $"&emsp;<b>Proveedor:</b> {DdlProveedor.SelectedText}") Dim Proveedor = If(DdlProveedor.SelectedValue = "-1", "", $"&emsp;<b>Proveedor:</b> {DdlProveedor.SelectedText}")
Dim Clasificacion = If(DdlProveedoresClasificaciones.SelectedValue = "-1", "", $"&emsp;<b>Clasificación:</b> {DdlProveedoresClasificaciones.SelectedItem.Text}") Dim Clasificacion = If(DdlProveedoresClasificaciones.SelectedValue = "-1", "", $"&emsp;<b>Clasificación:</b> {DdlProveedoresClasificaciones.SelectedItem.Text}")
Dim Grupo = If(DdlGrupo.SelectedValue = "-1", "", $"&emsp;<b>Grupo:</b> {DdlGrupo.SelectedItem.Text}") Dim Grupo = If(DdlGrupo.SelectedValue = "-1", "", $"&emsp;<b>Grupo:</b> {DdlGrupo.SelectedItem.Text}")
@@ -1465,7 +1482,7 @@ Partial Class Compras_RepCxP
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
params.Add(New ReportParameter("Grupo", DdlGrupo.SelectedItem.Text)) params.Add(New ReportParameter("Grupo", DdlGrupo.SelectedItem.Text))
params.Add(New ReportParameter("AgrupadoPor", $"{Grupo}{Proveedor}{Clasificacion}{FechaIn}{FechaFn}{Registro}{Responsable}{Sucursal}{TipoMoneda}{FVI}{FVF}")) params.Add(New ReportParameter("AgrupadoPor", $"{Grupo}{Proveedor}{Clasificacion}{FechaIn}{FechaFn}{Registro}{Responsable}{Proyecto}{Sucursal}{TipoMoneda}{FVI}{FVF}"))
params.Add(New ReportParameter("CantColumnas", CantidadColumnas)) params.Add(New ReportParameter("CantColumnas", CantidadColumnas))
If Imagen.Exists Then If Imagen.Exists Then
@@ -1531,23 +1548,34 @@ Partial Class Compras_RepCxP
UpPersonalizarRango.Update() UpPersonalizarRango.Update()
End Sub End Sub
Protected Sub LnkEliminar_Click(sender As Object, e As EventArgs) Protected Sub LnkEliminar_Click(sender As Object, e As EventArgs)
Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow) Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
DtPersonalizarRango.Rows.RemoveAt(gvRow.RowIndex)
DtPersonalizarRango.AcceptChanges()
CargaGv()
End Sub
DtPersonalizarRango.AcceptChanges() Protected Sub LnkEditar_Click(sender As Object, e As EventArgs)
Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
Index = gvRow.RowIndex Index = gvRow.RowIndex
Modalidad = "U" Modalidad = "U"
DdlTipo.SelectedValueExist(gvRow.DataKey("Tipo"))
TxtRI.Text = gvRow.DataKey("RangoInicial")
TxtRF.Text = gvRow.DataKey("RangoFinal")
If Not TxtRF.Text.ToDouble > 0 Then
ChkMayor.Checked = True ChkMayor.Checked = True
TxtRF.Enabled = False TxtRF.Enabled = False
Else Else
ChkMayor.Checked = False ChkMayor.Checked = False
End If End If
TxtRI.Text = gvRow.DataKey("RangoInicial") RegistraScript("$('#DivPersonalizarRangoEditar').modal()")
UpPersonalizarRangoEditar.Update()
End Sub
Private Sub LimpiaPersonalizarColumna() Private Sub LimpiaPersonalizarColumna()
DdlTipo.SelectedIndex = 0 DdlTipo.SelectedIndex = 0
TxtRF.Enabled = False TxtRI.Text = ""
TxtRF.Text = ""
ChkMayor.Checked = False ChkMayor.Checked = False
SoloNumeros2.Enabled = True SoloNumeros2.Enabled = True
TxtRF.Enabled = True TxtRF.Enabled = True
@@ -1670,7 +1698,8 @@ Partial Class Compras_RepCxP
Protected Sub BtnAgregarRango_Click(sender As Object, e As EventArgs) Protected Sub BtnAgregarRango_Click(sender As Object, e As EventArgs)
Modalidad = "A" Modalidad = "A"
LimpiaPersonalizarColumna() LimpiaPersonalizarColumna()
RegistraScript("$('#DivPersonalizarRangoEditar').modal()")
UpPersonalizarRangoEditar.Update()
End Sub End Sub
Protected Sub BtnPersonalizarRango_Click(sender As Object, e As EventArgs) Protected Sub BtnPersonalizarRango_Click(sender As Object, e As EventArgs)