API Norsware

This commit is contained in:
2023-06-16 13:09:54 +02:00
parent 5db70b93e5
commit a60eda3e5d
3 changed files with 473 additions and 76 deletions

View File

@@ -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