AVISO/Aviso/frmNorsware.vb

Imports DocumentFormat.OpenXml.Office2010.ExcelAc
Imports VERAG_PROG_ALLGEMEIN

Public Class frmNorsware

    Dim nwapi As cNorsware
    Dim dataTable As New DataTable()
    Dim dataTablePos 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()
        initDataTablePos()

    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("sira", GetType(Integer))
        dataTable.Columns.Add("secildi", GetType(Boolean))
        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("ogretildi", GetType(Integer))
        dataTable.Columns.Add("kayitTarihi", GetType(String))
        dataTable.Columns.Add("dosyaGrupId", GetType(String))


    End Sub

    Sub initDataTablePos()

        dataTablePos.Columns.Add("esyaTanim", GetType(String))
        dataTablePos.Columns.Add("gtip", GetType(String))
        dataTablePos.Columns.Add("kapAdet", GetType(Integer))
        dataTablePos.Columns.Add("kalemFiyati", GetType(String))
        dataTablePos.Columns.Add("brut", GetType(Integer))
        dataTablePos.Columns.Add("net", GetType(String))
        dataTablePos.Columns.Add("parcalimi", GetType(Boolean))
        dataTablePos.Columns.Add("id", GetType(String))
        dataTablePos.Columns.Add("kayitTarihi", GetType(String))


    End Sub

    Sub initDGV(dt As DataTable)

        dgvData.DataSource = dt


        If dgvData.Columns.Count > 0 Then
            With dgvData
                .RowHeadersWidth = 10
                .Columns("sira").HeaderText = "index"
                .Columns("sira").Width = 50
                .Columns("secildi").HeaderText = "selected"
                .Columns("secildi").Width = 80
                .Columns("adi").HeaderText = "Site"
                .Columns("id").Visible = False
                .Columns("ihracatBeyannamesi").HeaderText = "firstPage"
                .Columns("ihracatBeyannamesi").Width = 50
                .Columns("ekBelge").HeaderText = "followPages"
                .Columns("ekBelge").Width = 75
                .Columns("ogretildi").Visible = False
                .Columns("dosyaGrupId").Visible = False
                .Columns("kayitTarihi").Visible = False

            End With
            Button1.Enabled = True
        Else
            Button1.Enabled = False

        End If


    End Sub

    Sub initDGVPos(dt As DataTable)

        dgvPositionen.DataSource = dt


        If dgvPositionen.Columns.Count > 0 Then
            With dgvPositionen
                .RowHeadersWidth = 10
                .Columns("esyaTanim").HeaderText = "goods"
                .Columns("gtip").HeaderText = "GTIP"
                .Columns("kapAdet").HeaderText = "quantity"
                .Columns("kapAdet").Width = 50
                .Columns("kalemFiyati").HeaderText = "price"
                .Columns("kalemFiyati").Width = 50
                .Columns("brut").HeaderText = "gross weight"
                .Columns("net").HeaderText = "net weigt"
                .Columns("parcalimi").HeaderText = "net weigt"
                .Columns("id").Visible = False
                .Columns("kayitTarihi").Visible = False

            End With

        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

            Dim doc = New digitDocumnent(dataTablePos)

            Dim jsonFile = nwapi.getData(rtfToken.Text, "application/json", groupId, doc)
            rtfDetals.Text = jsonFile

            txtAbsFirma.Text = doc.abs
            txtAbsNr.Text = doc.absNr
            txtAbsAdresse.Text = doc.absAdresse
            txtAbsStadt.Text = doc.absStadt

            txtEmpfFirma.Text = doc.empf
            'txtEmpfNr.Text = doc.empfNr
            txtEmpfAdresse.Text = doc.empfAdresse
            txtEmpfStadt.Text = doc.empfStadt

            txtMRN.Text = doc.MRN
            txtPos.Text = doc.pos
            txtPackst.Text = doc.pkgSum
            txtRohm.Text = doc.mass
            txtRechnugssumme.Text = doc.totalAmount

            initDGVPos(doc.positonTable)

        End If

        Cursor = Cursors.Default

    End Sub
End Class