122 lines
4.1 KiB
VB.net
122 lines
4.1 KiB
VB.net
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 |