From a60eda3e5dd157f6ff9439d70ba9e8ea7c025661 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Fri, 16 Jun 2023 13:09:54 +0200 Subject: [PATCH] API Norsware --- Aviso/My Project/AssemblyInfo.vb | 4 +- Aviso/frmNorsware.Designer.vb | 441 +++++++++++++++++++++++++++---- Aviso/frmNorsware.vb | 104 ++++++-- 3 files changed, 473 insertions(+), 76 deletions(-) diff --git a/Aviso/My Project/AssemblyInfo.vb b/Aviso/My Project/AssemblyInfo.vb index a0fa726..2bb48a6 100644 --- a/Aviso/My Project/AssemblyInfo.vb +++ b/Aviso/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/Aviso/frmNorsware.Designer.vb b/Aviso/frmNorsware.Designer.vb index 9a443d5..d4fe419 100644 --- a/Aviso/frmNorsware.Designer.vb +++ b/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 diff --git a/Aviso/frmNorsware.vb b/Aviso/frmNorsware.vb index 9278811..c71e5bb 100644 --- a/Aviso/frmNorsware.vb +++ b/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