Test ATEZ, Plose Curr, SpedBuch Pkst

DAKOSY_Worker/cZOLL_IMPORT.vb

@@ -1,4 +1,5 @@
-Imports VERAG_PROG_ALLGEMEIN
+Imports com.sun.tools.corba.se
+Imports VERAG_PROG_ALLGEMEIN
 Public Class cZOLL_IMPORT
     Public Aviso As cAviso
     'Public SendungId As Integer = -1
@@ -611,7 +612,7 @@ Public Class cZOLL_IMPORT
 
         If SENDUNG IsNot Nothing Then
             ' Dim r As DataRow = dt.Rows(0)
-            If SENDUNG.tblSnd_Warenbezeichnung <> "" Then
+            If SENDUNG.tblSnd_Warenbezeichnung <> "" Or SENDUNG.tblSnd_Abfertigungsart_ID = 23 Then
                 packstueckeAVISO_TMP = IIf(SENDUNG.tblSnd_Colli <> "", SENDUNG.tblSnd_Colli & " Pk. ", "")
                 packstueckeAVISO_TMP &= IIf(SENDUNG.tblSnd_Warenbezeichnung <> "", SENDUNG.tblSnd_Warenbezeichnung, "")
                 packstueckeAVISO_TMP &= IIf(SENDUNG.tblSnd_Gewicht <> "", ", " & SENDUNG.tblSnd_Gewicht & " kg ", "")
@@ -786,6 +787,16 @@ Public Class cZOLL_IMPORT
                     SPEDITIONSBUCH.Abfertigungsanzahl = 0
                 End If
 
+
+                SENDUNG.LOAD_HANDLING()
+                Dim ataStr = ""
+                'For Each HDL In SENDUNG.HANDLING
+                '    ataStr &= HDL.sndhdg_nr & ";"
+                'Next
+                If SENDUNG.HANDLING.Count > 0 Then ataStr &= SENDUNG.HANDLING(0).sndhdg_nr
+                If SENDUNG.HANDLING.Count > 1 Then ataStr &= ",etc."
+                SPEDITIONSBUCH.BelegNr = ataStr
+                If SPEDITIONSBUCH.BelegNr.Length > 27 Then SPEDITIONSBUCH.BelegNr = SPEDITIONSBUCH.BelegNr.Substring(0, 27)
             End If
 
             If SENDUNG.tblSnd_Abfertigungsart_ID = 67 Or SENDUNG.tblSnd_Abfertigungsart_ID = 68 Then