150 lines
4.1 KiB
VB.net
150 lines
4.1 KiB
VB.net
Option Explicit On
|
|
Option Strict On
|
|
|
|
Imports System.Data
|
|
Imports System.Drawing
|
|
Imports System.IO
|
|
Imports Extensiones
|
|
Imports GemBox.Spreadsheet
|
|
Imports Microsoft.Reporting.WebForms
|
|
|
|
Partial Class Nomina_RepPersonalDIM
|
|
Inherits ClsPaginas
|
|
|
|
Public Property Dt_Datos As DataTable
|
|
Get
|
|
If ViewState("Dt_Datos") Is Nothing Then
|
|
ViewState("Dt_Datos") = New DataTable
|
|
End If
|
|
Return DirectCast(ViewState("Dt_Datos"), DataTable)
|
|
End Get
|
|
Set(value As DataTable)
|
|
ViewState("Dt_Datos") = value
|
|
End Set
|
|
|
|
End Property
|
|
|
|
Protected Sub Nomina_RepPersonalDIM(sender As Object, e As EventArgs) Handles Me.Load
|
|
If Not Page.IsPostBack Then
|
|
|
|
CargaEjercicios()
|
|
DdlEjercicio.SelectedValueExist(UsuarioActual.Empresa.EjercicioActual)
|
|
|
|
End If
|
|
End Sub
|
|
|
|
|
|
Private Sub CargaEjercicios()
|
|
'Dim ClsConta As New ClsContPAQi(UsuarioActual.Empresa)
|
|
Dim ClsConta As New ClsContabilidad
|
|
If ClsConta.GetEjercicios(UsuarioActual.CveEmpresa) Then
|
|
DdlEjercicio.DataSource = ClsConta.DtResultados
|
|
Else
|
|
DdlEjercicio.DataSource = Nothing
|
|
End If
|
|
ClsConta.Dispose()
|
|
DdlEjercicio.DataBind()
|
|
|
|
DdlEjercicio.SelectedValueExist(UsuarioActual.Empresa.EjercicioActual.ToString)
|
|
|
|
If DdlEjercicio.Items.Count = 0 Then
|
|
DdlEjercicio.Items.Add(New ListItem(Now.Year.ToString, Now.Year.ToString))
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
|
|
CargaDatos()
|
|
End Sub
|
|
|
|
|
|
Private Sub CargaDatos()
|
|
|
|
Dt_Datos = New DataTable
|
|
LnkDescargaArchivo.Visible = False
|
|
LnkExportar.Visible = False
|
|
|
|
Dim ObjNom As New ClsNominas
|
|
|
|
|
|
If ObjNom.GetRepPersonalDIM(Ejercicio:=DdlEjercicio.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa) Then
|
|
GvDatos.DataSource = ObjNom.DtResultados
|
|
Dt_Datos = ObjNom.DtResultados
|
|
|
|
If Dt_Datos.Rows.Count > 0 Then
|
|
LnkDescargaArchivo.Visible = True
|
|
LnkExportar.Visible = True
|
|
End If
|
|
|
|
|
|
Else
|
|
GvDatos.DataSource = Nothing
|
|
End If
|
|
|
|
ObjNom.Dispose()
|
|
|
|
GvDatos.DataBind()
|
|
|
|
|
|
|
|
End Sub
|
|
|
|
|
|
#Region "DESCARGA EXCEL"
|
|
|
|
Private Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click
|
|
Imprimir("Excel")
|
|
End Sub
|
|
|
|
Private Sub Imprimir(Optional reporte As String = "PDF")
|
|
GvDatos.ExportToExcelGembox("RepPersonalDIM", UsuarioActual, "Reporte Personal ", "", DatosFiltros:=$"Ejercicio {DdlEjercicio.SelectedItem.Text}")
|
|
|
|
End Sub
|
|
|
|
Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)
|
|
End Sub
|
|
|
|
Protected Sub LnkDescargaArchivo_Click(ByVal sender As Object, ByVal e As EventArgs) Handles LnkDescargaArchivo.Click
|
|
Dim tabla As DataTable = Dt_Datos ' Reemplaza esto con tu método para obtener la tabla
|
|
|
|
Dim contenido As String = ConvertirTablaATexto(tabla)
|
|
|
|
' Guardar el archivo en el servidor
|
|
Dim nombreArchivo As String = "tabla.txt"
|
|
Dim rutaArchivo As String = Server.MapPath("~/Descargas/" & nombreArchivo)
|
|
File.WriteAllText(rutaArchivo, contenido)
|
|
|
|
' Descargar el archivo
|
|
Response.ContentType = "text/plain"
|
|
Response.AppendHeader("Content-Disposition", "attachment; filename=" & nombreArchivo)
|
|
Response.TransmitFile(rutaArchivo)
|
|
Response.End()
|
|
End Sub
|
|
|
|
Public Function ConvertirTablaATexto(ByVal tabla As DataTable) As String
|
|
Dim sb As New StringBuilder()
|
|
|
|
For Each fila As DataRow In tabla.Rows
|
|
For i As Integer = 0 To tabla.Columns.Count - 1
|
|
sb.Append(fila(i).ToString())
|
|
|
|
If i < tabla.Columns.Count - 1 Then
|
|
sb.Append("|") ' Agrega el separador de pipes
|
|
End If
|
|
Next
|
|
|
|
sb.AppendLine() ' Agrega un salto de línea al final de cada fila
|
|
Next
|
|
|
|
Return sb.ToString()
|
|
End Function
|
|
|
|
#End Region
|
|
|
|
|
|
|
|
|
|
|
|
End Class
|
|
|