edv/AVISO
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

API Norsware

Browse Source
This commit is contained in:
d.breimaier
2023-06-16 13:09:54 +02:00
parent 5db70b93e5
commit a60eda3e5d
3 changed files with 473 additions and 76 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Aviso/My Project/AssemblyInfo.vb
View File

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

441
Aviso/frmNorsware.Designer.vb generated
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

104
Aviso/frmNorsware.vb
View File

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