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

Rep Personal Dim, ajuste columnas y descarga txt

Browse Source
This commit is contained in:
Oscar Irigoyen
2023-06-20 15:28:17 -07:00
parent 08b8d3de9e
commit c2347ce2c0
2 changed files with 48 additions and 33 deletions
Download Patch File Download Diff File Expand all files Collapse all files

35
Nomina/RepPersonalDIM.aspx
View File

@@ -1030,6 +1030,24 @@
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderStyle-HorizontalAlign="Left">
<HeaderTemplate>
Becas para<br /> trabajadores<br />(Gravado)
</HeaderTemplate>
<ItemTemplate>
<asp:Label ID="LblP046G" runat="server" Text='<%# Eval("P046G") %>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderStyle-HorizontalAlign="Left">
<HeaderTemplate>
Becas para<br /> trabajadores<br />(Exento)
</HeaderTemplate>
<ItemTemplate>
<asp:Label ID="LblP046E" runat="server" Text='<%# Eval("P046E") %>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderStyle-HorizontalAlign="Left"> <asp:TemplateField HeaderStyle-HorizontalAlign="Left">
<HeaderTemplate> <HeaderTemplate>
@@ -1096,22 +1114,7 @@
<ItemTemplate> <ItemTemplate>
<asp:Label ID="LblSumaIngresoE" runat="server" Text='<%# Eval("SumaIngresoE") %>'></asp:Label> <asp:Label ID="LblSumaIngresoE" runat="server" Text='<%# Eval("SumaIngresoE") %>'></asp:Label>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderStyle-HorizontalAlign="Left">
<HeaderTemplate>P046G</HeaderTemplate>
<ItemTemplate>
<asp:Label ID="LblP046G" runat="server" Text='<%# Eval("P046G") %>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderStyle-HorizontalAlign="Left">
<HeaderTemplate>P046E</HeaderTemplate>
<ItemTemplate>
<asp:Label ID="LblP046E" runat="server" Text='<%# Eval("P046E") %>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>

46
Nomina/RepPersonalDIM.aspx.vb
View File

@@ -4,6 +4,7 @@ Option Strict On
Imports System.Data Imports System.Data
Imports System.Drawing Imports System.Drawing
Imports System.IO Imports System.IO
Imports CrystalDecisions.CrystalReports.Engine
Imports Extensiones Imports Extensiones
Imports GemBox.Spreadsheet Imports GemBox.Spreadsheet
Imports Microsoft.Reporting.WebForms Imports Microsoft.Reporting.WebForms
@@ -122,28 +123,39 @@ Partial Class Nomina_RepPersonalDIM
End Sub End Sub
Public Function ConvertirTablaATexto(ByVal tabla As DataTable) As String Public Function ConvertirTablaATexto(ByVal DT As DataTable) As String
'Dim sb As New StringBuilder() Dim DTDatos As DataTable = DT.Copy()
'For Each GvRow As GridViewRow In GvDatos.Rows
' For Each GvCell As TableCell In GvRow.Cells
' sb.Append(GvCell.ID & "|")
' Next
' sb.AppendLine()
'Next
'Return sb.ToString()
Dim sb As New StringBuilder() Dim columnasARemover As New List(Of DataColumn)()
For Each gvRow As GridViewRow In GvDatos.Rows
For Each gvCell As TableCell In gvRow.Cells
Dim columnIndex As Integer = gvRow.Cells.GetCellIndex(gvCell) For Each columna As DataColumn In DTDatos.Columns
Dim rowIndex As Integer = gvRow.RowIndex If columna.ColumnName.Contains("CvePersonal") Then
Dim cellID As String = "cell_" & rowIndex.ToString() & "_" & columnIndex.ToString() columnasARemover.Add(columna)
sb.Append(gvRow.Cells(columnIndex).Controls(0).ClientID & "|") End If
Next
For Each columna As DataColumn In columnasARemover
DTDatos.Columns.Remove(columna)
Next
DTDatos.AcceptChanges()
Dim sb As New StringBuilder
For Each fila As DataRow In DTDatos.Rows
For i As Integer = 0 To DTDatos.Columns.Count - 1
sb.Append(fila(i).ToString())
If i < DTDatos.Columns.Count - 1 Then
sb.Append("|")
End If
Next Next
sb.AppendLine() sb.AppendLine()
Next Next
Return sb.ToString()
Return sb.tostring
End Function End Function