client/Reportes/frmReporteJ14.vb

Imports System.Collections.Generic
Imports System.IO

Public Class frmReporteJ14
    Dim comboKey As String
    Dim year As String
    Dim quarter As String
    Dim canExport As Boolean
    Private Sub btnSearch_Click(sender As Object, e As EventArgs) Handles btnSearch.Click
        Dim Classcom As New clsComplejo
        Dim SQL As String = String.Empty
        Dim idInherent As Integer
        Dim idConrolEffect As Integer
        Dim incluyeInvalidos As Integer
        comboKey = DirectCast(cmbQuarter.SelectedItem, KeyValuePair(Of String, String)).Key
        year = comboKey.Substring(0, 4)
        quarter = comboKey.Substring(comboKey.Length - 1)
        canExport = False
        btnExport.Enabled = canExport
        btnExport.Visible = canExport
        dgvResult.DataSource = Nothing
        incluyeInvalidos = 0
        Dim result As DialogResult = MessageBox.Show("¿Incluir registros sin NIC válido?",
                              "Reporte J14",
                              MessageBoxButtons.YesNo)
        If result = DialogResult.Yes Then
            incluyeInvalidos = 1
        End If

        Try

            SQL = "sp_Consulta_ReporteJ14 " + year + ", " + quarter + ", " + incluyeInvalidos.ToString
            Dim dsGral As DataSet = Classcom.fdtDataSet(SQL)
            If dsGral.Tables.Count = 0 Then
                MessageBox.Show("No existen registros para el trimestre seleccionado")
                Exit Sub
            ElseIf dsGral.Tables(0).Rows.Count = 0 Then
                MessageBox.Show("No existen registros para el trimestre seleccionado")
                Exit Sub
            Else
                canExport = True
            End If
            btnExport.Enabled = canExport
            btnExport.Visible = canExport
            dgvResult.DataSource = dsGral.Tables(0)
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

    Private Sub btnExport_Click(sender As Object, e As EventArgs) Handles btnExport.Click
        Dim fileName As String = year.ToString + "_" + quarter.ToString + "_ R03 J-0314.txt"
        Dim repDirectory As String = ""
        Dim fullPath As String = fileName
        Dim sr As StreamWriter
        Dim strDelimiter As String = ";"
        Dim intColumnCount As Integer = dgvResult.Columns.Count - 1
        Dim strRowData As String = ""
        Dim Classcom As New clsComplejo
        Try
            Classcom.fdtDataSet("SELECT * FROM ParamRep")
            If Classcom.ds.Tables(0).Rows.Count <> 0 Then
                repDirectory = Classcom.ds.Tables(0).Rows(0).Item("rutacarteras").ToString()
                If Directory.Exists(repDirectory) = False Then ' si no existe la carpeta se crea
                    Directory.CreateDirectory(repDirectory)
                End If
                fullPath = repDirectory & "\" & fileName
            End If
            sr = File.CreateText(fullPath)
            For intX As Integer = 0 To dgvResult.Rows.Count - 1
                strRowData = ""
                For intRowData As Integer = 0 To intColumnCount
                    strRowData += Replace(dgvResult.Rows(intX).Cells(intRowData).Value, strDelimiter, "") & IIf(intRowData < intColumnCount, strDelimiter, "") '''''''''highlights this row
                Next intRowData
                sr.WriteLine(strRowData)
            Next intX
            MessageBox.Show("Reporte generado correctamente")
        Catch ex As Exception
            MessageBox.Show(ex.Message)

        End Try

        sr.Close()
    End Sub

    Private Sub frmReporteJ14_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim initialYear As Integer
        Dim currentYear As Integer
        Dim comboSource As New Dictionary(Of String, String)()

        initialYear = 2020
        currentYear = Now.Year
        For year As Integer = initialYear To currentYear
            comboSource.Add(year.ToString + "1", year.ToString + " - 1")
            comboSource.Add(year.ToString + "2", year.ToString + " - 2")
            comboSource.Add(year.ToString + "3", year.ToString + " - 3")
            comboSource.Add(year.ToString + "4", year.ToString + " - 4")
        Next
        cmbQuarter.DataSource = New BindingSource(comboSource, Nothing)
        cmbQuarter.DisplayMember = "Value"
        cmbQuarter.ValueMember = "Key"
        canExport = False
        btnExport.Enabled = canExport
        btnExport.Visible = canExport
        Dim ClassAud As New ClassMyUtils
        ClassAud.RT_Auditoria(clsVaribles.varUsuario, 121, 1, "Entrando Reporte J14")
    End Sub

    Private Sub frmReporteJ14_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
        Dim ClassAud As New ClassMyUtils
        ClassAud.RT_Auditoria(clsVaribles.varUsuario, 121, 1, "Cerrando Reporte J14")
    End Sub
End Class