Bugfix Sendungdetails, autom Ermittlung von Anzahl der ATA/ATC/CRN/MRN Rows

Aviso/frmNorsware.vb

@@ -145,6 +145,22 @@ Public Class frmNorsware
 
         Cursor = Cursors.WaitCursor
 
+        Dim selectedDocuments As Boolean = False
+
+        For Each Row In dgvData.Rows
+
+            selectedDocuments = Row.Cells("secildi").Value
+            If selectedDocuments Then Exit For
+        Next
+
+        If Not selectedDocuments Then
+            rtfDetals.Text = "keine Seite selektiert"
+            Cursor = Cursors.Default
+            Exit Sub
+        Else
+            rtfDetals.Text = ""
+        End If
+
         Label2.Text = "Status: " & nwapi.sendSelection(rtfToken.Text, "application/json", dataTable, groupId)
 
         If groupId <> "" Then
@@ -154,23 +170,25 @@ Public Class frmNorsware
             Dim jsonFile = nwapi.getData(rtfToken.Text, "application/json", groupId, doc)
             rtfDetals.Text = jsonFile
 
+
+
             txtAbsFirma.Text = doc.abs
-            txtAbsNr.Text = doc.absNr
-            txtAbsAdresse.Text = doc.absAdresse
-            txtAbsStadt.Text = doc.absStadt
+                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
+                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
+                txtMRN.Text = doc.MRN
+                txtPos.Text = doc.pos
+                txtPackst.Text = doc.pkgSum
+                txtRohm.Text = doc.mass
+                txtRechnugssumme.Text = doc.totalAmount
 
-            initDGVPos(doc.positonTable)
+                initDGVPos(doc.positonTable)
 
         End If