API-Test eingebaut

2023-06-14 17:51:44 +02:00
parent 4eb01c30dc
commit 5db70b93e5
7 changed files with 528 additions and 75 deletions
--- a/Aviso/frmNorsware.vb
+++ b/Aviso/frmNorsware.vb
@@ -0,0 +1,122 @@
+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