API Norsware

Aviso/My Project/AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("3.8.9.2")>
+<Assembly: AssemblyVersion("3.8.9.3")>
-<Assembly: AssemblyFileVersion("3.8.9.2")>
+<Assembly: AssemblyFileVersion("3.8.9.3")>

Aviso/frmNorsware.Designer.vb

@@ -29,11 +29,41 @@ Partial Class frmNorsware
         Me.rtfToken = New System.Windows.Forms.RichTextBox()
         Me.Label1 = New System.Windows.Forms.Label()
         Me.btnCreateToken = New System.Windows.Forms.Button()
-        Me.scanSonstiges = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
-        Me.dgvData = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
         Me.Label3 = New System.Windows.Forms.Label()
         Me.Button1 = New System.Windows.Forms.Button()
         Me.Button2 = New System.Windows.Forms.Button()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.txtAbsNr = New System.Windows.Forms.TextBox()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.txtAbsAdresse = New System.Windows.Forms.TextBox()
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.txtAbsFirma = New System.Windows.Forms.TextBox()
+        Me.Label10 = New System.Windows.Forms.Label()
+        Me.txtAbsStadt = New System.Windows.Forms.TextBox()
+        Me.Label11 = New System.Windows.Forms.Label()
+        Me.txtEmpfStadt = New System.Windows.Forms.TextBox()
+        Me.Label12 = New System.Windows.Forms.Label()
+        Me.txtEmpfFirma = New System.Windows.Forms.TextBox()
+        Me.Label13 = New System.Windows.Forms.Label()
+        Me.txtEmpfAdresse = New System.Windows.Forms.TextBox()
+        Me.Label15 = New System.Windows.Forms.Label()
+        Me.txtRohm = New System.Windows.Forms.TextBox()
+        Me.Label16 = New System.Windows.Forms.Label()
+        Me.txtPos = New System.Windows.Forms.TextBox()
+        Me.Label17 = New System.Windows.Forms.Label()
+        Me.txtPackst = New System.Windows.Forms.TextBox()
+        Me.Label18 = New System.Windows.Forms.Label()
+        Me.txtMRN = New System.Windows.Forms.TextBox()
+        Me.Label19 = New System.Windows.Forms.Label()
+        Me.txtRechnugssumme = New System.Windows.Forms.TextBox()
+        Me.Label20 = New System.Windows.Forms.Label()
+        Me.dgvPositionen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        Me.dgvData = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        Me.scanSonstiges = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
+        CType(Me.dgvPositionen, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.dgvData, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
@@ -41,7 +71,7 @@ Partial Class frmNorsware
         '
         Me.btnUpload.Enabled = False
         Me.btnUpload.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnUpload.Location = New System.Drawing.Point(170, 179)
+        Me.btnUpload.Location = New System.Drawing.Point(253, 181)
         Me.btnUpload.Name = "btnUpload"
         Me.btnUpload.Size = New System.Drawing.Size(78, 25)
         Me.btnUpload.TabIndex = 104
@@ -50,9 +80,9 @@ Partial Class frmNorsware
         '
         'rtfDetals
         '
-        Me.rtfDetals.Location = New System.Drawing.Point(286, 30)
+        Me.rtfDetals.Location = New System.Drawing.Point(12, 531)
         Me.rtfDetals.Name = "rtfDetals"
-        Me.rtfDetals.Size = New System.Drawing.Size(277, 484)
+        Me.rtfDetals.Size = New System.Drawing.Size(319, 61)
         Me.rtfDetals.TabIndex = 108
         Me.rtfDetals.Text = ""
         '
@@ -70,7 +100,7 @@ Partial Class frmNorsware
         '
         Me.rtfToken.Location = New System.Drawing.Point(12, 30)
         Me.rtfToken.Name = "rtfToken"
-        Me.rtfToken.Size = New System.Drawing.Size(236, 42)
+        Me.rtfToken.Size = New System.Drawing.Size(319, 42)
         Me.rtfToken.TabIndex = 109
         Me.rtfToken.Text = ""
         '
@@ -88,13 +118,307 @@ Partial Class frmNorsware
         'btnCreateToken
         '
         Me.btnCreateToken.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnCreateToken.Location = New System.Drawing.Point(133, 78)
+        Me.btnCreateToken.Location = New System.Drawing.Point(216, 78)
         Me.btnCreateToken.Name = "btnCreateToken"
         Me.btnCreateToken.Size = New System.Drawing.Size(115, 25)
         Me.btnCreateToken.TabIndex = 111
         Me.btnCreateToken.Text = "Create Token"
         Me.btnCreateToken.UseVisualStyleBackColor = True
         '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
+        Me.Label3.Location = New System.Drawing.Point(12, 486)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(0, 13)
+        Me.Label3.TabIndex = 114
+        '
+        'Button1
+        '
+        Me.Button1.Enabled = False
+        Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button1.Location = New System.Drawing.Point(236, 489)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(95, 25)
+        Me.Button1.TabIndex = 115
+        Me.Button1.Text = "Send Selection"
+        Me.Button1.UseVisualStyleBackColor = True
+        '
+        'Button2
+        '
+        Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button2.Location = New System.Drawing.Point(12, 78)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(115, 25)
+        Me.Button2.TabIndex = 116
+        Me.Button2.Text = "Clear Token"
+        Me.Button2.UseVisualStyleBackColor = True
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
+        Me.Label4.Location = New System.Drawing.Point(359, 380)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(56, 13)
+        Me.Label4.TabIndex = 118
+        Me.Label4.Text = "Positionen"
+        '
+        'Label5
+        '
+        Me.Label5.AutoSize = True
+        Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
+        Me.Label5.Location = New System.Drawing.Point(357, 30)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(55, 13)
+        Me.Label5.TabIndex = 119
+        Me.Label5.Text = "Versender"
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
+        Me.Label6.Location = New System.Drawing.Point(357, 163)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(58, 13)
+        Me.Label6.TabIndex = 120
+        Me.Label6.Text = "Empfänger"
+        '
+        'txtAbsNr
+        '
+        Me.txtAbsNr.Location = New System.Drawing.Point(360, 68)
+        Me.txtAbsNr.Name = "txtAbsNr"
+        Me.txtAbsNr.Size = New System.Drawing.Size(170, 20)
+        Me.txtAbsNr.TabIndex = 121
+        '
+        'Label7
+        '
+        Me.Label7.AutoSize = True
+        Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
+        Me.Label7.Location = New System.Drawing.Point(357, 52)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(18, 13)
+        Me.Label7.TabIndex = 122
+        Me.Label7.Text = "Nr"
+        '
+        'Label8
+        '
+        Me.Label8.AutoSize = True
+        Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
+        Me.Label8.Location = New System.Drawing.Point(357, 91)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(45, 13)
+        Me.Label8.TabIndex = 124
+        Me.Label8.Text = "Adresse"
+        '
+        'txtAbsAdresse
+        '
+        Me.txtAbsAdresse.Location = New System.Drawing.Point(360, 107)
+        Me.txtAbsAdresse.Name = "txtAbsAdresse"
+        Me.txtAbsAdresse.Size = New System.Drawing.Size(170, 20)
+        Me.txtAbsAdresse.TabIndex = 123
+        '
+        'Label9
+        '
+        Me.Label9.AutoSize = True
+        Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
+        Me.Label9.Location = New System.Drawing.Point(547, 52)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(32, 13)
+        Me.Label9.TabIndex = 126
+        Me.Label9.Text = "Firma"
+        '
+        'txtAbsFirma
+        '
+        Me.txtAbsFirma.Location = New System.Drawing.Point(550, 68)
+        Me.txtAbsFirma.Name = "txtAbsFirma"
+        Me.txtAbsFirma.Size = New System.Drawing.Size(185, 20)
+        Me.txtAbsFirma.TabIndex = 125
+        '
+        'Label10
+        '
+        Me.Label10.AutoSize = True
+        Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
+        Me.Label10.Location = New System.Drawing.Point(547, 91)
+        Me.Label10.Name = "Label10"
+        Me.Label10.Size = New System.Drawing.Size(32, 13)
+        Me.Label10.TabIndex = 128
+        Me.Label10.Text = "Stadt"
+        '
+        'txtAbsStadt
+        '
+        Me.txtAbsStadt.Location = New System.Drawing.Point(550, 107)
+        Me.txtAbsStadt.Name = "txtAbsStadt"
+        Me.txtAbsStadt.Size = New System.Drawing.Size(185, 20)
+        Me.txtAbsStadt.TabIndex = 127
+        '
+        'Label11
+        '
+        Me.Label11.AutoSize = True
+        Me.Label11.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
+        Me.Label11.Location = New System.Drawing.Point(547, 220)
+        Me.Label11.Name = "Label11"
+        Me.Label11.Size = New System.Drawing.Size(32, 13)
+        Me.Label11.TabIndex = 136
+        Me.Label11.Text = "Stadt"
+        '
+        'txtEmpfStadt
+        '
+        Me.txtEmpfStadt.Location = New System.Drawing.Point(550, 236)
+        Me.txtEmpfStadt.Name = "txtEmpfStadt"
+        Me.txtEmpfStadt.Size = New System.Drawing.Size(185, 20)
+        Me.txtEmpfStadt.TabIndex = 135
+        '
+        'Label12
+        '
+        Me.Label12.AutoSize = True
+        Me.Label12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
+        Me.Label12.Location = New System.Drawing.Point(357, 181)
+        Me.Label12.Name = "Label12"
+        Me.Label12.Size = New System.Drawing.Size(32, 13)
+        Me.Label12.TabIndex = 134
+        Me.Label12.Text = "Firma"
+        '
+        'txtEmpfFirma
+        '
+        Me.txtEmpfFirma.Location = New System.Drawing.Point(360, 197)
+        Me.txtEmpfFirma.Name = "txtEmpfFirma"
+        Me.txtEmpfFirma.Size = New System.Drawing.Size(375, 20)
+        Me.txtEmpfFirma.TabIndex = 133
+        '
+        'Label13
+        '
+        Me.Label13.AutoSize = True
+        Me.Label13.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
+        Me.Label13.Location = New System.Drawing.Point(357, 220)
+        Me.Label13.Name = "Label13"
+        Me.Label13.Size = New System.Drawing.Size(45, 13)
+        Me.Label13.TabIndex = 132
+        Me.Label13.Text = "Adresse"
+        '
+        'txtEmpfAdresse
+        '
+        Me.txtEmpfAdresse.Location = New System.Drawing.Point(360, 236)
+        Me.txtEmpfAdresse.Name = "txtEmpfAdresse"
+        Me.txtEmpfAdresse.Size = New System.Drawing.Size(170, 20)
+        Me.txtEmpfAdresse.TabIndex = 131
+        '
+        'Label15
+        '
+        Me.Label15.AutoSize = True
+        Me.Label15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
+        Me.Label15.Location = New System.Drawing.Point(357, 332)
+        Me.Label15.Name = "Label15"
+        Me.Label15.Size = New System.Drawing.Size(57, 13)
+        Me.Label15.TabIndex = 144
+        Me.Label15.Text = "Rohmasse"
+        '
+        'txtRohm
+        '
+        Me.txtRohm.Location = New System.Drawing.Point(360, 348)
+        Me.txtRohm.Name = "txtRohm"
+        Me.txtRohm.Size = New System.Drawing.Size(170, 20)
+        Me.txtRohm.TabIndex = 143
+        '
+        'Label16
+        '
+        Me.Label16.AutoSize = True
+        Me.Label16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
+        Me.Label16.Location = New System.Drawing.Point(547, 292)
+        Me.Label16.Name = "Label16"
+        Me.Label16.Size = New System.Drawing.Size(56, 13)
+        Me.Label16.TabIndex = 142
+        Me.Label16.Text = "Positionen"
+        '
+        'txtPos
+        '
+        Me.txtPos.Location = New System.Drawing.Point(550, 309)
+        Me.txtPos.Name = "txtPos"
+        Me.txtPos.Size = New System.Drawing.Size(74, 20)
+        Me.txtPos.TabIndex = 141
+        '
+        'Label17
+        '
+        Me.Label17.AutoSize = True
+        Me.Label17.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
+        Me.Label17.Location = New System.Drawing.Point(631, 292)
+        Me.Label17.Name = "Label17"
+        Me.Label17.Size = New System.Drawing.Size(76, 13)
+        Me.Label17.TabIndex = 140
+        Me.Label17.Text = "Pkg-insgesamt"
+        '
+        'txtPackst
+        '
+        Me.txtPackst.Location = New System.Drawing.Point(630, 309)
+        Me.txtPackst.Name = "txtPackst"
+        Me.txtPackst.Size = New System.Drawing.Size(105, 20)
+        Me.txtPackst.TabIndex = 139
+        '
+        'Label18
+        '
+        Me.Label18.AutoSize = True
+        Me.Label18.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
+        Me.Label18.Location = New System.Drawing.Point(357, 292)
+        Me.Label18.Name = "Label18"
+        Me.Label18.Size = New System.Drawing.Size(32, 13)
+        Me.Label18.TabIndex = 138
+        Me.Label18.Text = "MRN"
+        '
+        'txtMRN
+        '
+        Me.txtMRN.Location = New System.Drawing.Point(360, 308)
+        Me.txtMRN.Name = "txtMRN"
+        Me.txtMRN.Size = New System.Drawing.Size(170, 20)
+        Me.txtMRN.TabIndex = 137
+        '
+        'Label19
+        '
+        Me.Label19.AutoSize = True
+        Me.Label19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
+        Me.Label19.Location = New System.Drawing.Point(547, 332)
+        Me.Label19.Name = "Label19"
+        Me.Label19.Size = New System.Drawing.Size(95, 13)
+        Me.Label19.TabIndex = 146
+        Me.Label19.Text = "Summe Rechnung"
+        '
+        'txtRechnugssumme
+        '
+        Me.txtRechnugssumme.Location = New System.Drawing.Point(550, 348)
+        Me.txtRechnugssumme.Name = "txtRechnugssumme"
+        Me.txtRechnugssumme.Size = New System.Drawing.Size(185, 20)
+        Me.txtRechnugssumme.TabIndex = 145
+        '
+        'Label20
+        '
+        Me.Label20.AutoSize = True
+        Me.Label20.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
+        Me.Label20.Location = New System.Drawing.Point(12, 515)
+        Me.Label20.Name = "Label20"
+        Me.Label20.Size = New System.Drawing.Size(86, 13)
+        Me.Label20.TabIndex = 147
+        Me.Label20.Text = "JSON Response"
+        '
+        'dgvPositionen
+        '
+        Me.dgvPositionen.AKTUALISIERUNGS_INTERVALL = -1
+        Me.dgvPositionen.BackgroundColor = System.Drawing.Color.White
+        Me.dgvPositionen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.dgvPositionen.Location = New System.Drawing.Point(360, 396)
+        Me.dgvPositionen.Name = "dgvPositionen"
+        Me.dgvPositionen.Size = New System.Drawing.Size(375, 196)
+        Me.dgvPositionen.TabIndex = 117
+        '
+        'dgvData
+        '
+        Me.dgvData.AKTUALISIERUNGS_INTERVALL = -1
+        Me.dgvData.BackgroundColor = System.Drawing.Color.White
+        Me.dgvData.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.dgvData.Location = New System.Drawing.Point(15, 231)
+        Me.dgvData.Name = "dgvData"
+        Me.dgvData.Size = New System.Drawing.Size(316, 252)
+        Me.dgvData.TabIndex = 113
+        '
         'scanSonstiges
         '
         Me.scanSonstiges._DATENSERVER_KATEGORIE = "DOKUMENTE"
@@ -111,54 +435,43 @@ Partial Class frmNorsware
         Me.scanSonstiges.Location = New System.Drawing.Point(15, 106)
         Me.scanSonstiges.Margin = New System.Windows.Forms.Padding(0)
         Me.scanSonstiges.Name = "scanSonstiges"
-        Me.scanSonstiges.Size = New System.Drawing.Size(233, 70)
+        Me.scanSonstiges.Size = New System.Drawing.Size(316, 70)
         Me.scanSonstiges.TabIndex = 112
         '
-        'dgvData
-        '
-        Me.dgvData.AKTUALISIERUNGS_INTERVALL = -1
-        Me.dgvData.BackgroundColor = System.Drawing.Color.White
-        Me.dgvData.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.dgvData.Location = New System.Drawing.Point(15, 231)
-        Me.dgvData.Name = "dgvData"
-        Me.dgvData.Size = New System.Drawing.Size(233, 252)
-        Me.dgvData.TabIndex = 113
-        '
-        'Label3
-        '
-        Me.Label3.AutoSize = True
-        Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
-        Me.Label3.Location = New System.Drawing.Point(12, 486)
-        Me.Label3.Name = "Label3"
-        Me.Label3.Size = New System.Drawing.Size(0, 13)
-        Me.Label3.TabIndex = 114
-        '
-        'Button1
-        '
-        Me.Button1.Enabled = False
-        Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button1.Location = New System.Drawing.Point(153, 489)
-        Me.Button1.Name = "Button1"
-        Me.Button1.Size = New System.Drawing.Size(95, 25)
-        Me.Button1.TabIndex = 115
-        Me.Button1.Text = "Send Selection"
-        Me.Button1.UseVisualStyleBackColor = True
-        '
-        'Button2
-        '
-        Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button2.Location = New System.Drawing.Point(12, 78)
-        Me.Button2.Name = "Button2"
-        Me.Button2.Size = New System.Drawing.Size(115, 25)
-        Me.Button2.TabIndex = 116
-        Me.Button2.Text = "Clear Token"
-        Me.Button2.UseVisualStyleBackColor = True
-        '
         'frmNorsware
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(600, 558)
+        Me.ClientSize = New System.Drawing.Size(747, 620)
+        Me.Controls.Add(Me.Label20)
+        Me.Controls.Add(Me.Label19)
+        Me.Controls.Add(Me.txtRechnugssumme)
+        Me.Controls.Add(Me.Label15)
+        Me.Controls.Add(Me.txtRohm)
+        Me.Controls.Add(Me.Label16)
+        Me.Controls.Add(Me.txtPos)
+        Me.Controls.Add(Me.Label17)
+        Me.Controls.Add(Me.txtPackst)
+        Me.Controls.Add(Me.Label18)
+        Me.Controls.Add(Me.txtMRN)
+        Me.Controls.Add(Me.Label11)
+        Me.Controls.Add(Me.txtEmpfStadt)
+        Me.Controls.Add(Me.Label12)
+        Me.Controls.Add(Me.txtEmpfFirma)
+        Me.Controls.Add(Me.Label13)
+        Me.Controls.Add(Me.txtEmpfAdresse)
+        Me.Controls.Add(Me.Label10)
+        Me.Controls.Add(Me.txtAbsStadt)
+        Me.Controls.Add(Me.Label9)
+        Me.Controls.Add(Me.txtAbsFirma)
+        Me.Controls.Add(Me.Label8)
+        Me.Controls.Add(Me.txtAbsAdresse)
+        Me.Controls.Add(Me.Label7)
+        Me.Controls.Add(Me.txtAbsNr)
+        Me.Controls.Add(Me.Label6)
+        Me.Controls.Add(Me.Label5)
+        Me.Controls.Add(Me.Label4)
+        Me.Controls.Add(Me.dgvPositionen)
         Me.Controls.Add(Me.Button2)
         Me.Controls.Add(Me.Button1)
         Me.Controls.Add(Me.Label3)
@@ -173,6 +486,7 @@ Partial Class frmNorsware
         Me.Name = "frmNorsware"
         Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
         Me.Text = "frmNorsware"
+        CType(Me.dgvPositionen, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.dgvData, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
@@ -189,4 +503,33 @@ Partial Class frmNorsware
     Friend WithEvents Label3 As Label
     Friend WithEvents Button1 As Button
     Friend WithEvents Button2 As Button
+    Friend WithEvents dgvPositionen As VERAG_PROG_ALLGEMEIN.MyDatagridview
+    Friend WithEvents Label4 As Label
+    Friend WithEvents Label5 As Label
+    Friend WithEvents Label6 As Label
+    Friend WithEvents txtAbsNr As TextBox
+    Friend WithEvents Label7 As Label
+    Friend WithEvents Label8 As Label
+    Friend WithEvents txtAbsAdresse As TextBox
+    Friend WithEvents Label9 As Label
+    Friend WithEvents txtAbsFirma As TextBox
+    Friend WithEvents Label10 As Label
+    Friend WithEvents txtAbsStadt As TextBox
+    Friend WithEvents Label11 As Label
+    Friend WithEvents txtEmpfStadt As TextBox
+    Friend WithEvents Label12 As Label
+    Friend WithEvents txtEmpfFirma As TextBox
+    Friend WithEvents Label13 As Label
+    Friend WithEvents txtEmpfAdresse As TextBox
+    Friend WithEvents Label15 As Label
+    Friend WithEvents txtRohm As TextBox
+    Friend WithEvents Label16 As Label
+    Friend WithEvents txtPos As TextBox
+    Friend WithEvents Label17 As Label
+    Friend WithEvents txtPackst As TextBox
+    Friend WithEvents Label18 As Label
+    Friend WithEvents txtMRN As TextBox
+    Friend WithEvents Label19 As Label
+    Friend WithEvents txtRechnugssumme As TextBox
+    Friend WithEvents Label20 As Label
 End Class

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
+                .RowHeadersWidth = 10
-                '.Columns("id").Visible = False
+                .Columns("adi").HeaderText = "Site"
-                '.Columns("country").Visible = False
+                .Columns("id").Visible = False
-                '.Columns("name").HeaderText = "Name"
+                .Columns("ihracatBeyannamesi").HeaderText = "firstPage"
-                '.Columns("name").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+                .Columns("ekBelge").HeaderText = "followPages"
-                '.Columns("safeNo").Width = 100
+                .Columns("sira").HeaderText = "index"
-                '.Columns("safeNo").HeaderText = "Nr"
+                .Columns("secildi").HeaderText = "selected"
-                '.Columns("safeNo").Visible = False
+                .Columns("ogretildi").Visible = False
-                '.Columns("vatNo").Width = 100
+                .Columns("dosyaGrupId").Visible = False
-                '.Columns("vatNo").HeaderText = "UID"
+                .Columns("kayitTarihi").Visible = False
-                '.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
@@ -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