neu

Aviso/Classes/cSendungsoptions.vb

@@ -408,8 +408,13 @@ Public Class SendungOptions
 
                 End Select
             End If
-            'MsgBox(imgpath)
-            Dim rpt As New Gemeinsames.rptSendungen(VALUES, imgpath)
+
+            Dim ZOLLANMELDUNG As New DAKOSY_Worker.cZollsysteme_Aktenbeschriftung
+            If Not ZOLLANMELDUNG.getDataByBezugsnummer(SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr, SENDUNG.tblSnd_Abfertigungsart_ID.ToString) Then
+                ZOLLANMELDUNG = Nothing
+            End If
+
+            Dim rpt As New Gemeinsames.rptSendungen(VALUES, imgpath, ZOLLANMELDUNG)
             rpt.Document.CacheToDisk = False
 
             'rpt.Document.CacheToDisk = True