diff --git a/Aviso/frmNorsware.vb b/Aviso/frmNorsware.vb index c71e5bb..facf139 100644 --- a/Aviso/frmNorsware.vb +++ b/Aviso/frmNorsware.vb @@ -34,7 +34,7 @@ Public Class frmNorsware nwapi = New cNorsware() scanSonstiges.INIT(-1, "KUNDENDATEN") initDataTable() - + initDataTablePos() End Sub @@ -50,12 +50,12 @@ Public Class frmNorsware Sub initDataTable() + dataTable.Columns.Add("sira", GetType(Integer)) + dataTable.Columns.Add("secildi", GetType(Boolean)) dataTable.Columns.Add("adi", GetType(String)) dataTable.Columns.Add("id", GetType(String)) dataTable.Columns.Add("ihracatBeyannamesi", 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("kayitTarihi", GetType(String)) dataTable.Columns.Add("dosyaGrupId", GetType(String)) @@ -86,12 +86,16 @@ Public Class frmNorsware If dgvData.Columns.Count > 0 Then With dgvData .RowHeadersWidth = 10 + .Columns("sira").HeaderText = "index" + .Columns("sira").Width = 50 + .Columns("secildi").HeaderText = "selected" + .Columns("secildi").Width = 80 .Columns("adi").HeaderText = "Site" .Columns("id").Visible = False .Columns("ihracatBeyannamesi").HeaderText = "firstPage" + .Columns("ihracatBeyannamesi").Width = 50 .Columns("ekBelge").HeaderText = "followPages" - .Columns("sira").HeaderText = "index" - .Columns("secildi").HeaderText = "selected" + .Columns("ekBelge").Width = 75 .Columns("ogretildi").Visible = False .Columns("dosyaGrupId").Visible = False .Columns("kayitTarihi").Visible = False @@ -112,12 +116,14 @@ Public Class frmNorsware If dgvPositionen.Columns.Count > 0 Then - With dgvData + With dgvPositionen .RowHeadersWidth = 10 .Columns("esyaTanim").HeaderText = "goods" .Columns("gtip").HeaderText = "GTIP" .Columns("kapAdet").HeaderText = "quantity" + .Columns("kapAdet").Width = 50 .Columns("kalemFiyati").HeaderText = "price" + .Columns("kalemFiyati").Width = 50 .Columns("brut").HeaderText = "gross weight" .Columns("net").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) If groupId <> "" Then - 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