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