Imports DocumentFormat.OpenXml.Office2010.ExcelAc
Imports VERAG_PROG_ALLGEMEIN

Public Class frmNorsware

    Dim nwapi As cNorsware
    Dim dataTable As New DataTable()
    Dim groupId As String
    Private Sub btnUpload_Click(sender As Object, e As EventArgs) Handles btnUpload.Click

        'If nwapi.authenticate("nwtest", "test35*") = "200" Then

        Dim path = scanSonstiges.DS.GET_TOP1_PATH
        dataTable.Clear()
        Label1.Text = nwapi.UploadPDFWithAuthHeader(path, "", "POST", rtfToken.Text, dataTable)
        initDGV(dataTable)
        'End if

    End Sub

    Private Sub btnCreateToken_Click(sender As Object, e As EventArgs) Handles btnCreateToken.Click
        Label2.Text = "Status: " & nwapi.authenticate("nwtest", "test35*", rtfToken.Text)
        If rtfToken.Text <> "" Then
            Label1.Text = "Token (valid 24hrs) until: " & Now().AddHours(24)
        Else
            Label1.Text = "Token (valid 24hrs)"
        End If

    End Sub

    Private Sub frmNorsware_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        nwapi = New cNorsware()
        scanSonstiges.INIT(-1, "KUNDENDATEN")
        initDataTable()


    End Sub

    Private Sub rtfToken_TextChanged(sender As Object, e As EventArgs) Handles rtfToken.TextChanged
        If rtfToken.Text <> "" Then
            btnUpload.Enabled = True
            btnCreateToken.Enabled = False
        Else
            btnUpload.Enabled = False
            btnCreateToken.Enabled = True
        End If
    End Sub

    Sub initDataTable()

        dataTable.Columns.Add("adi", GetType(String))
        dataTable.Columns.Add("id", GetType(String))
        dataTable.Columns.Add("ihracatBeyannamesi", GetType(Boolean))
        dataTable.Columns.Add("ekBelge", GetType(Boolean))
        dataTable.Columns.Add("sira", GetType(Integer))
        dataTable.Columns.Add("secildi", GetType(Boolean))
        dataTable.Columns.Add("ogretildi", GetType(Integer))
        dataTable.Columns.Add("kayitTarihi", GetType(String))
        dataTable.Columns.Add("dosyaGrupId", GetType(String))


    End Sub

    Sub initDGV(dt As DataTable)

        dgvData.DataSource = dt


        If dgvData.Columns.Count > 0 Then
            With dgvData
                '.RowHeadersWidth = 10
                '.Columns("id").Visible = False
                '.Columns("country").Visible = False
                '.Columns("name").HeaderText = "Name"
                '.Columns("name").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
                '.Columns("safeNo").Width = 100
                '.Columns("safeNo").HeaderText = "Nr"
                '.Columns("safeNo").Visible = False
                '.Columns("vatNo").Width = 100
                '.Columns("vatNo").HeaderText = "UID"
                '.Columns("regNo").Width = 100
                '.Columns("regNo").HeaderText = "FB-Nr."
                '.Columns("street").Width = 100
                '.Columns("street").HeaderText = "Strasse"
                '.Columns("city").Width = 100
                '.Columns("city").HeaderText = "Ort"
                '.Columns("postCode").Width = 75
                '.Columns("postCode").HeaderText = "PLZ"
                '.Columns("phoneNo").Width = 100
                '.Columns("phoneNo").HeaderText = "Tel-Nr"
                '.Columns("status").Width = 100
                '.Columns("status").HeaderText = "Status"
                '.Columns("dateOfLatestChange").Width = 100
                '.Columns("dateOfLatestChange").HeaderText = "letzte Änderung"
            End With
            Button1.Enabled = True
        Else
            Button1.Enabled = False

        End If


    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        rtfToken.Text = ""
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Cursor = Cursors.WaitCursor

        Label2.Text = "Status: " & nwapi.sendSelection(rtfToken.Text, "application/json", dataTable, groupId)

        If groupId <> "" Then
            rtfDetals.Text = nwapi.getData(rtfToken.Text, "application/json", groupId)
        End If

        Cursor = Cursors.Default

    End Sub
End Class