diff --git a/Nomina/RepPersonalDIM.aspx b/Nomina/RepPersonalDIM.aspx index 9260aaf08..182031f62 100644 --- a/Nomina/RepPersonalDIM.aspx +++ b/Nomina/RepPersonalDIM.aspx @@ -506,7 +506,7 @@ Impuesto
- correspondiente(mes) + correspondiente
(mes)
@@ -574,7 +574,7 @@
- Gratificación anual (Gravado) + Gratificación
anual (Gravado)
@@ -593,7 +593,7 @@ Viáticos y
gastos de
- viaje (Gravado) + viaje
(Gravado)
@@ -603,7 +603,7 @@ Viáticos y
gastos de
- viaje (Exento) + viaje
(Exento)
@@ -855,7 +855,7 @@ Seguro de
gastos médicos
- mayores (Gravado) + mayores
(Gravado)
@@ -865,7 +865,7 @@ Seguro de
gastos médicos
- mayores (Exento) + mayores
(Exento)
@@ -963,7 +963,7 @@ Ayuda para
artículos
- escolares (Exento) + escolares
(Exento)
@@ -973,7 +973,7 @@ Dotación o
ayuda para
- anteojos (Gravado) + anteojos
(Gravado)
@@ -983,7 +983,7 @@ Dotación o
ayuda para
- anteojos (Exento) + anteojos
(Exento)
@@ -992,7 +992,7 @@ Ayuda para
- transporte (Gravado) + transporte
(Gravado)
@@ -1001,7 +1001,7 @@ Ayuda par
- a transporte (Exento) + a transporte
(Exento)
@@ -1010,7 +1010,7 @@ Cuotas sindicales
- pagadas patron(Gravado) + pagadas patron
(Gravado)
@@ -1019,7 +1019,7 @@ Cuotas sindicales
- pagadas patron(Exento) + pagadas patron
(Exento)
@@ -1028,7 +1028,7 @@ Subsidios por
- incapacidad (Gravado) + incapacidad
(Gravado)
@@ -1037,7 +1037,7 @@ Subsidios por
- incapacidad (Exento) + incapacidad
(Exento)
diff --git a/Nomina/RepPersonalDIM.aspx.vb b/Nomina/RepPersonalDIM.aspx.vb index d264bf3ac..6d39fa266 100644 --- a/Nomina/RepPersonalDIM.aspx.vb +++ b/Nomina/RepPersonalDIM.aspx.vb @@ -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