API Norsware

Aviso/frmNorsware.vb

@@ -5,6 +5,7 @@ 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
 
@@ -14,6 +15,7 @@ Public Class frmNorsware
         dataTable.Clear()
         Label1.Text = nwapi.UploadPDFWithAuthHeader(path, "", "POST", rtfToken.Text, dataTable)
         initDGV(dataTable)
+
         'End if
 
     End Sub
@@ -59,6 +61,21 @@ Public Class frmNorsware
         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)
@@ -68,30 +85,17 @@ Public Class frmNorsware
 
         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"
+                .RowHeadersWidth = 10
+                .Columns("adi").HeaderText = "Site"
+                .Columns("id").Visible = False
+                .Columns("ihracatBeyannamesi").HeaderText = "firstPage"
+                .Columns("ekBelge").HeaderText = "followPages"
+                .Columns("sira").HeaderText = "index"
+                .Columns("secildi").HeaderText = "selected"
+                .Columns("ogretildi").Visible = False
+                .Columns("dosyaGrupId").Visible = False
+                .Columns("kayitTarihi").Visible = False
+
             End With
             Button1.Enabled = True
         Else
@@ -100,6 +104,31 @@ Public Class frmNorsware
         End If
 
 
+    End Sub
+
+    Sub initDGVPos(dt As DataTable)
+
+        dgvPositionen.DataSource = dt
+
+
+        If dgvPositionen.Columns.Count > 0 Then
+            With dgvData
+                .RowHeadersWidth = 10
+                .Columns("esyaTanim").HeaderText = "goods"
+                .Columns("gtip").HeaderText = "GTIP"
+                .Columns("kapAdet").HeaderText = "quantity"
+                .Columns("kalemFiyati").HeaderText = "price"
+                .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
@@ -113,7 +142,32 @@ Public Class frmNorsware
         Label2.Text = "Status: " & nwapi.sendSelection(rtfToken.Text, "application/json", dataTable, groupId)
 
         If groupId <> "" Then
-            rtfDetals.Text = nwapi.getData(rtfToken.Text, "application/json", groupId)
+            initDataTablePos()
+            dataTablePos.Clear()
+            Dim doc = New digitDocumnent(dataTablePos)
+
+            Dim jsonFile = nwapi.getData(rtfToken.Text, "application/json", groupId, doc)
+            rtfDetals.Text = jsonFile
+            initDGVPos(dataTablePos)
+
+            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