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

API Verbesserung

Browse Source
This commit is contained in:
d.breimaier
2023-06-16 14:09:26 +02:00
parent 0810d27921
commit 81dcbb209a
1 changed files with 13 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
Aviso/frmNorsware.vb
View File

@@ -34,7 +34,7 @@ Public Class frmNorsware
nwapi = New cNorsware() nwapi = New cNorsware()
scanSonstiges.INIT(-1, "KUNDENDATEN") scanSonstiges.INIT(-1, "KUNDENDATEN")
initDataTable() initDataTable()
initDataTablePos()
End Sub End Sub
@@ -50,12 +50,12 @@ Public Class frmNorsware
Sub initDataTable() Sub initDataTable()
dataTable.Columns.Add("sira", GetType(Integer))
dataTable.Columns.Add("secildi", GetType(Boolean))
dataTable.Columns.Add("adi", GetType(String)) dataTable.Columns.Add("adi", GetType(String))
dataTable.Columns.Add("id", GetType(String)) dataTable.Columns.Add("id", GetType(String))
dataTable.Columns.Add("ihracatBeyannamesi", GetType(Boolean)) dataTable.Columns.Add("ihracatBeyannamesi", GetType(Boolean))
dataTable.Columns.Add("ekBelge", GetType(Boolean)) dataTable.Columns.Add("ekBelge", GetType(Boolean))
dataTable.Columns.Add("sira", GetType(Integer))
dataTable.Columns.Add("secildi", GetType(Boolean))
dataTable.Columns.Add("ogretildi", GetType(Integer)) dataTable.Columns.Add("ogretildi", GetType(Integer))
dataTable.Columns.Add("kayitTarihi", GetType(String)) dataTable.Columns.Add("kayitTarihi", GetType(String))
dataTable.Columns.Add("dosyaGrupId", GetType(String)) dataTable.Columns.Add("dosyaGrupId", GetType(String))
@@ -86,12 +86,16 @@ Public Class frmNorsware
If dgvData.Columns.Count > 0 Then If dgvData.Columns.Count > 0 Then
With dgvData With dgvData
.RowHeadersWidth = 10 .RowHeadersWidth = 10
.Columns("sira").HeaderText = "index"
.Columns("sira").Width = 50
.Columns("secildi").HeaderText = "selected"
.Columns("secildi").Width = 80
.Columns("adi").HeaderText = "Site" .Columns("adi").HeaderText = "Site"
.Columns("id").Visible = False .Columns("id").Visible = False
.Columns("ihracatBeyannamesi").HeaderText = "firstPage" .Columns("ihracatBeyannamesi").HeaderText = "firstPage"
.Columns("ihracatBeyannamesi").Width = 50
.Columns("ekBelge").HeaderText = "followPages" .Columns("ekBelge").HeaderText = "followPages"
.Columns("sira").HeaderText = "index" .Columns("ekBelge").Width = 75
.Columns("secildi").HeaderText = "selected"
.Columns("ogretildi").Visible = False .Columns("ogretildi").Visible = False
.Columns("dosyaGrupId").Visible = False .Columns("dosyaGrupId").Visible = False
.Columns("kayitTarihi").Visible = False .Columns("kayitTarihi").Visible = False
@@ -112,12 +116,14 @@ Public Class frmNorsware
If dgvPositionen.Columns.Count > 0 Then If dgvPositionen.Columns.Count > 0 Then
With dgvData With dgvPositionen
.RowHeadersWidth = 10 .RowHeadersWidth = 10
.Columns("esyaTanim").HeaderText = "goods" .Columns("esyaTanim").HeaderText = "goods"
.Columns("gtip").HeaderText = "GTIP" .Columns("gtip").HeaderText = "GTIP"
.Columns("kapAdet").HeaderText = "quantity" .Columns("kapAdet").HeaderText = "quantity"
.Columns("kapAdet").Width = 50
.Columns("kalemFiyati").HeaderText = "price" .Columns("kalemFiyati").HeaderText = "price"
.Columns("kalemFiyati").Width = 50
.Columns("brut").HeaderText = "gross weight" .Columns("brut").HeaderText = "gross weight"
.Columns("net").HeaderText = "net weigt" .Columns("net").HeaderText = "net weigt"
.Columns("parcalimi").HeaderText = "net weigt" .Columns("parcalimi").HeaderText = "net weigt"
@@ -142,13 +148,11 @@ Public Class frmNorsware
Label2.Text = "Status: " & nwapi.sendSelection(rtfToken.Text, "application/json", dataTable, groupId) Label2.Text = "Status: " & nwapi.sendSelection(rtfToken.Text, "application/json", dataTable, groupId)
If groupId <> "" Then If groupId <> "" Then
initDataTablePos()
dataTablePos.Clear()
Dim doc = New digitDocumnent(dataTablePos) Dim doc = New digitDocumnent(dataTablePos)
Dim jsonFile = nwapi.getData(rtfToken.Text, "application/json", groupId, doc) Dim jsonFile = nwapi.getData(rtfToken.Text, "application/json", groupId, doc)
rtfDetals.Text = jsonFile rtfDetals.Text = jsonFile
initDGVPos(dataTablePos)
txtAbsFirma.Text = doc.abs txtAbsFirma.Text = doc.abs
txtAbsNr.Text = doc.absNr txtAbsNr.Text = doc.absNr