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

ExportToExcelGembox mod Extenciones, correciones en paginas

Browse Source
This commit is contained in:
rakcsle
2021-12-07 11:25:21 -07:00
parent 36edbd6526
commit f1f1184323
6 changed files with 28 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
CRM/RepAcercamientosProcesos.aspx.cs
View File

@@ -596,7 +596,7 @@ public partial class CRM_RepAcercamientosProcesos : ClsPaginas
protected void LnkExcel_Click(object sender, EventArgs e) protected void LnkExcel_Click(object sender, EventArgs e)
{ {
GVRepAcercamientosEtapas.ExportToExcelGembox("Reporte de Procesos de Acercamiento", UsuarioActual, "", "", "Reporte de Procesos de Acercamiento", "", -1); GVRepAcercamientosEtapas.ExportToExcelGembox("Reporte de Procesos de Acercamiento", UsuarioActual, "", "", "Reporte de Procesos de Acercamiento");
} }
public override void VerifyRenderingInServerForm(Control control) public override void VerifyRenderingInServerForm(Control control)

2
CRM/RepAcercamientosRechazos.aspx.cs
View File

@@ -579,7 +579,7 @@ public partial class CRM_RepAcercamientosRechazos : ClsPaginas
protected void LnkExcel_Click(object sender, EventArgs e) protected void LnkExcel_Click(object sender, EventArgs e)
{ {
GVRepAcercamientosEtapas.ExportToExcelGembox("Reporte de Rechazos de Acercamiento", UsuarioActual, "", "", "Reporte de Rechazos de Acercamiento", "", -1); GVRepAcercamientosEtapas.ExportToExcelGembox("Reporte de Rechazos de Acercamiento", UsuarioActual, "", "", "Reporte de Rechazos de Acercamiento");
} }
public override void VerifyRenderingInServerForm(Control control) public override void VerifyRenderingInServerForm(Control control)

10
Contabilidad2/RepAnexoCatalogoAnual.aspx.vb
View File

@@ -343,7 +343,15 @@ Partial Class Contabilidad2_RepAnexoCatalogoAnual
SubProyecto = DdlSubProyecto.SelectedItem.Text SubProyecto = DdlSubProyecto.SelectedItem.Text
End If End If
GvAnual.ExportToExcelGembox("AnexoCatálogoAnual", UsuarioActual, $"01/01/{DdlEjercicio.SelectedValue}", $"31/12/{DdlEjercicio2.SelectedValue}", "Anexo del Catálogo - Anual", SubProyecto, DdlDivisor.SelectedValue.ToEntero, DatoTituloExtra:=$"Periodo {DdlPeriodo.SelectedItem.Text}") Dim SbFiltros As New StringBuilder()
SbFiltros.AppendFormat("Fecha Inicio: {0} Fecha Fin: {1}|", $"01/01/{DdlEjercicio.SelectedValue}", $"31/12/{DdlEjercicio2.SelectedValue}")
SbFiltros.AppendFormat("SubProyecto: {0}|", SubProyecto)
SbFiltros.AppendFormat("Divisor : {0}|", DdlDivisor.SelectedItem.Text)
GvAnual.ExportToExcelGembox("AnexoCatálogoAnual", UsuarioActual, "Anexo del Catálogo - Anual", DatoTituloExtra:=$"Periodo{DdlPeriodo.SelectedItem.Text}", DatosFiltros:=SbFiltros.ToString())
'GvAnual.ExportToExcelGembox("AnexoCatálogoAnual", UsuarioActual, $"01/01/{DdlEjercicio.SelectedValue}", $"31/12/{DdlEjercicio2.SelectedValue}", "Anexo del Catálogo - Anual", SubProyecto, DdlDivisor.SelectedValue.ToEntero, DatoTituloExtra:=$"Periodo {DdlPeriodo.SelectedItem.Text}")
End Sub End Sub

10
Contabilidad2/RepAnexoCatalogoCC.aspx.vb
View File

@@ -339,7 +339,15 @@ Partial Class Contabilidad2_RepAnexoCatalogoCC
SubProyecto = DdlSubProyecto.SelectedItem.Text SubProyecto = DdlSubProyecto.SelectedItem.Text
End If End If
GvCC.ExportToExcelGembox("AnexoCatálogoMensual", UsuarioActual, $"01/01/{DdlEjercicio.SelectedValue}", $"31/12/{DdlEjercicio.SelectedValue}", $"Estado de Resultados Horizontal por {LblSubProyecto.Text}", SubProyecto, DdlDivisor.SelectedValue.ToEntero, DatoTituloExtra:=$"Periodo {DdlPeriodo.SelectedItem.Text}")
Dim SbFiltros As New StringBuilder()
SbFiltros.AppendFormat("Fecha Inicio: {0} Fecha Fin: {1}|", $"01/01/{DdlEjercicio.SelectedValue}", $"31/12/{DdlEjercicio.SelectedValue}")
SbFiltros.AppendFormat("Estado de Resultados Horizontal por : {0}|", SubProyecto)
SbFiltros.AppendFormat("Divisor : {0}|", DdlDivisor.SelectedItem.Text)
GvCC.ExportToExcelGembox("AnexoCatálogoMensual", UsuarioActual, $"Estado de Resultados Horizontal por {LblSubProyecto.Text}", DatoTituloExtra:=$"Periodo {DdlPeriodo.SelectedItem.Text}", DatosFiltros:=SbFiltros.ToString())
'GvCC.ExportToExcelGembox("AnexoCatálogoMensual", UsuarioActual, $"01/01/{DdlEjercicio.SelectedValue}", $"31/12/{DdlEjercicio.SelectedValue}", $"Estado de Resultados Horizontal por {LblSubProyecto.Text}", SubProyecto, DdlDivisor.SelectedValue.ToEntero, DatoTituloExtra:=$"Periodo {DdlPeriodo.SelectedItem.Text}")
End Sub End Sub

8
Contabilidad2/RepAnexoCatalogoMensual.aspx.vb
View File

@@ -334,7 +334,13 @@ Partial Class Contabilidad2_RepAnexoCatalogoMensual
SubProyecto = DdlSubProyecto.SelectedItem.Text SubProyecto = DdlSubProyecto.SelectedItem.Text
End If End If
GvMensual2.ExportToExcelGembox("AnexoCatálogoMensual", UsuarioActual, $"01/01/{DdlEjercicio.SelectedValue}", $"31/12/{DdlEjercicio.SelectedValue}", "Anexo del Catálogo - Mensual", SubProyecto, DdlDivisor.SelectedValue.ToEntero, DatoTituloExtra:=$"Periodo {DdlPeriodo.SelectedItem.Text}") Dim SbFiltros As New StringBuilder()
SbFiltros.AppendFormat("Fecha Inicio: {0} Fecha Fin: {1}|", $"01/01/{DdlEjercicio.SelectedValue}", $"31/12/{DdlEjercicio.SelectedValue}")
SbFiltros.AppendFormat("Divisor : {0}|", DdlDivisor.SelectedItem.Text)
GvMensual2.ExportToExcelGembox("AnexoCatálogoMensual", UsuarioActual, "Anexo del Catálogo - Mensual", DatoTituloExtra:=$"Periodo {DdlPeriodo.SelectedItem.Text}", DatosFiltros:=SbFiltros.ToString())
'GvMensual2.ExportToExcelGembox("AnexoCatálogoMensual", UsuarioActual, $"01/01/{DdlEjercicio.SelectedValue}", $"31/12/{DdlEjercicio.SelectedValue}", "Anexo del Catálogo - Mensual", SubProyecto, DdlDivisor.SelectedValue.ToEntero, DatoTituloExtra:=$"Periodo {DdlPeriodo.SelectedItem.Text}")
End Sub End Sub

2
RH/RepCursos.aspx.vb
View File

@@ -86,7 +86,7 @@ Partial Class RH_RepCursos
End Sub End Sub
Protected Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click Protected Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click
Gv.ExportToExcelGembox("ReporteCapacitacion", UsuarioActual, "", "", "Report eCapacitación", "", 1) Gv.ExportToExcelGembox("ReporteCapacitacion", UsuarioActual, "", "", "Report eCapacitación")
End Sub End Sub
Protected Sub Gv_RowDataBound(sender As Object, e As GridViewRowEventArgs) Protected Sub Gv_RowDataBound(sender As Object, e As GridViewRowEventArgs)