div. Änderungen, etc.

Aviso/Classes/cSendungsoptions.vb

@@ -156,12 +156,19 @@ Public Class SendungOptions
         End If
         'Dim DATENSERVER As New VERAG_PROG_ALLGEMEIN.cDATENSERVER
 
+
+
         Dim abfertArt = ""
         If SENDUNG.tblSnd_Abfertigungsart_ID > 0 Then abfertArt = "" & SENDUNG.tblSnd_Abfertigungsart_ID & " - " & ADMIN.getValueTxtBySql("SELECT isnull([Abfertigungsbezeichnung],'') FROM [Abfertigungsarten] WHERE  [Abfertigungsart]=" & SENDUNG.tblSnd_Abfertigungsart_ID, "FMZOLL")
 
         Dim VALUES As New Gemeinsames.rptSendungenValues
         If barcodeLKW IsNot Nothing Then VALUES.barcodeLKW = barcodeLKW
         If barcode IsNot Nothing Then VALUES.barcodeSendung = barcode
+        If AVISO IsNot Nothing AndAlso AVISO.AvisoID >= 0 Then
+            VALUES.LKW_ID = AVISO.AvisoID
+        End If
+
+
 
         Dim imgQR As Image = Nothing
         If SENDUNG.tblSnd_Abfertigungsart_ID.ToString = "44" Then