Imports System.Collections.Generic
Imports System.IO

Public Class frmReporteJ13
    Dim comboKey As String
    Dim year As String
    Dim semester As String
    Dim canExport As Boolean
    Private Sub frmReporteJ13_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")
        Next
        cmbSemester.DataSource = New BindingSource(comboSource, Nothing)
        cmbSemester.DisplayMember = "Value"
        cmbSemester.ValueMember = "Key"
        canExport = False
        btnExport.Enabled = canExport
        btnExport.Visible = canExport
        Dim ClassAud As New ClassMyUtils
        ClassAud.RT_Auditoria(clsVaribles.varUsuario, 121, 1, "Entrando Reporte J13")
    End Sub

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

    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
        comboKey = DirectCast(cmbSemester.SelectedItem, KeyValuePair(Of String, String)).Key
        year = comboKey.Substring(0, 4)
        semester = comboKey.Substring(comboKey.Length - 1)
        canExport = False
        Try

            SQL = "sp_Consulta_ReporteJ13 " + year + ", " + semester
            Dim dsGral As DataSet = Classcom.fdtDataSet(SQL)
            If dsGral.Tables.Count = 0 Then
                MessageBox.Show("No existen registros para el semestre seleccionado")
            ElseIf dsGral.Tables(0).Rows.Count = 0 Then
                MessageBox.Show("No existen registros para el semestre seleccionado")
            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 + "_" + semester.ToString + "_ R03 J-0313.txt"
        Dim sr As StreamWriter
        Dim strDelimiter As String = ";"
        Dim intColumnCount As Integer = dgvResult.Columns.Count - 1
        Dim strRowData As String = ""
        Try
            sr = File.CreateText(fileName)
            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
End Class