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

Ajustes excel Rep Personal DIM

Browse Source
This commit is contained in:
Oscar Irigoyen
2023-06-21 07:54:59 -07:00
parent 94c0c697ac
commit a08bb81b0d
2 changed files with 37 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
Nomina/RepPersonalDIM.aspx.vb
View File

@@ -295,8 +295,8 @@ Partial Class Nomina_RepPersonalDIM
For i = celdasConTexto.FirstColumnIndex To celdasConTexto.LastColumnIndex
worksheet.Rows(TotalRowHeader).Cells(i).Style.Font.Size = 12 * 20
worksheet.Rows(TotalRowHeader).Cells(i).Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Center
worksheet.Rows(TotalRowHeader).Cells(i).Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center
worksheet.Rows(TotalRowHeader).Cells(i).Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Left
worksheet.Rows(TotalRowHeader).Cells(i).Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Bottom
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)
@@ -330,21 +330,34 @@ Partial Class Nomina_RepPersonalDIM
End If
worksheet.Columns(0).Width = 4000
worksheet.Columns(1).Width = 4000
worksheet.Columns(2).Width = 5500
worksheet.Columns(3).Width = 10000
worksheet.Columns(4).Width = 5000
worksheet.Columns(5).Width = 5000
worksheet.Columns(6).Width = 10000
worksheet.Columns(7).Width = 5000
For I = celdasConTexto.FirstColumnIndex To celdasConTexto.LastColumnIndex
If I > 0 Then
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
'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).AutoFit(1)
worksheet.Columns(I).Width = 4500
Catch ex As Exception
End Try
End If
Next