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

Rep persoanl DIM Ajustes excel

Browse Source
This commit is contained in:
Oscar Irigoyen
2023-06-21 09:03:07 -07:00
parent 9bbb1c5527
commit 240a0f5576
1 changed files with 47 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

64
Nomina/RepPersonalDIM.aspx.vb
View File

@@ -100,6 +100,44 @@ Partial Class Nomina_RepPersonalDIM
End Sub
Private Sub Imprimir(Optional reporte As String = "PDF")
Dim row As New GridViewRow(0, 0, DataControlRowType.Header, DataControlRowState.Normal)
Dim cell As New TableHeaderCell()
cell.Text = "ANEXO 1 INFORMACION DEL EMPLEADO ->"
cell.ColumnSpan = 28
cell.HorizontalAlign = HorizontalAlign.Left
row.Controls.Add(cell)
cell = New TableHeaderCell()
cell.ColumnSpan = 18
cell.Text = "ANEXO 1 PAGOS POR SEPARACION ->"
cell.HorizontalAlign = HorizontalAlign.Left
row.Controls.Add(cell)
cell = New TableHeaderCell()
cell.ColumnSpan = 2
cell.Text = " ANEXO 1 ASIM SAL-> "
cell.HorizontalAlign = HorizontalAlign.Left
row.Controls.Add(cell)
cell = New TableHeaderCell()
cell.ColumnSpan = 58
cell.Text = "ANEXO 1 PAGOS DEL PATRÓN EFECTUADOS A SUS TRABAJADORES ->"
cell.HorizontalAlign = HorizontalAlign.Left
row.Controls.Add(cell)
cell = New TableHeaderCell()
cell.ColumnSpan = 19
cell.Text = "ANEXO 1 IMPUESTO SOBRE LA RENTA (RESUMEN) ->"
cell.HorizontalAlign = HorizontalAlign.Left
row.Controls.Add(cell)
'row.BackColor = ColorTranslator.FromHtml("#3AC0F2")
GvDatos.HeaderRow.Parent.Controls.AddAt(0, row)
ExportToExcelGembox(GvDatos, "RepPersonalDIM", UsuarioActual, "Reporte Personal DIM", "", DatosFiltros:=$"Ejercicio {DdlEjercicio.SelectedItem.Text}")
End Sub
Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)
@@ -301,6 +339,14 @@ Partial Class Nomina_RepPersonalDIM
worksheet.Rows(TotalRowHeader).Cells(i).Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(75, 119, 190), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255))
worksheet.Rows(TotalRowHeader).Cells(i).Style.Font.Color = GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255)
worksheet.Rows(TotalRowHeader + 1).Cells(i).Style.Font.Size = 12 * 20
worksheet.Rows(TotalRowHeader + 1).Cells(i).Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Left
worksheet.Rows(TotalRowHeader + 1).Cells(i).Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Bottom
worksheet.Rows(TotalRowHeader + 1).Cells(i).Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(75, 119, 190), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255))
worksheet.Rows(TotalRowHeader + 1).Cells(i).Style.Font.Color = GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255)
If i > 0 Then
Try
worksheet.Columns(i).AutoFit(1)
@@ -340,24 +386,8 @@ Partial Class Nomina_RepPersonalDIM
worksheet.Columns(7).Width = 5000
For I = celdasConTexto.FirstColumnIndex To celdasConTexto.LastColumnIndex
If I > 7 Then
'If 1 = 1 Then
' worksheet.Columns(I + 1).Style.NumberFormat = "#,##0.00"
'Else
' worksheet.Columns(I + 1).Style.NumberFormat = "#,##"
'End If
Try
' worksheet.Columns(I).AutoFit(1)
worksheet.Columns(I).Width = 4500
Catch ex As Exception
End Try
worksheet.Columns(I).Width = 4500
End If
Next