API Verbesserung

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