diff --git a/SDL/Fakturierung/cAutomailversand.vb b/SDL/Fakturierung/cAutomailversand.vb
index 35589472..c55d8d9b 100644
--- a/SDL/Fakturierung/cAutomailversand.vb
+++ b/SDL/Fakturierung/cAutomailversand.vb
@@ -678,6 +678,9 @@ Public Class cAutomailversand
                 For Each r In SR_DT.Rows
                     Dim SPEDBUCH_TEMP As New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch(r("FilialenNr"), r("AbfertigungsNr"), r("SpeditionsbuchUnterNr"))
 
+                    Dim FilialenNr = IIf(Not IsDBNull(r.Item("FilialenNr")) AndAlso IsNumeric(r.Item("FilialenNr")), CInt(r.Item("FilialenNr")), 0)
+                    Dim FIRMA_ID = IIf(Not IsDBNull(r.Item("Firma_ID")) AndAlso IsNumeric(r.Item("Firma_ID")), CInt(r.Item("Firma_ID")), 0)
+
                     If SPEDBUCH_TEMP IsNot Nothing Then
 
                         Dim ZOLL = IIf(SPEDBUCH_TEMP.DokumentId_Mitteilung IsNot Nothing, "AT", "DE")
@@ -686,7 +689,7 @@ Public Class cAutomailversand
                             Case "DE"
                                 If SPEDBUCH_TEMP.DokumentId_Steuerbeleg IsNot Nothing Then
                                     Dim path = VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(SPEDBUCH_TEMP.DokumentId_Steuerbeleg)
-                                    pdfAnhang_merge = PDFS_zusammenfassen(path, RECHNUNG.FilialenNr, RECHNUNG.Firma_ID, False)
+                                    pdfAnhang_merge = PDFS_zusammenfassen(path, FilialenNr, FIRMA_ID, False)
                                     If pdfAnhang_merge Then
                                         zsmf_SR.Add(path)
                                     Else
@@ -696,7 +699,7 @@ Public Class cAutomailversand
                                 End If
                                 If SPEDBUCH_TEMP.DokumentId_VBD IsNot Nothing Then
                                     Dim path = VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(SPEDBUCH_TEMP.DokumentId_VBD)
-                                    pdfAnhang_merge = PDFS_zusammenfassen(path, RECHNUNG.FilialenNr, RECHNUNG.Firma_ID, False)
+                                    pdfAnhang_merge = PDFS_zusammenfassen(path, FilialenNr, FIRMA_ID, False)
                                     If pdfAnhang_merge Then
                                         zsmf_SR.Add(path)
                                     Else
@@ -710,7 +713,7 @@ Public Class cAutomailversand
                                 If SPEDBUCH_TEMP.DokumentId_Steuerbeleg IsNot Nothing Then
 
                                     Dim path = VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(SPEDBUCH_TEMP.DokumentId_Steuerbeleg)
-                                    pdfAnhang_merge = PDFS_zusammenfassen(path, RECHNUNG.FilialenNr, RECHNUNG.Firma_ID, False)
+                                    pdfAnhang_merge = PDFS_zusammenfassen(path, FilialenNr, FIRMA_ID, False)
                                     If pdfAnhang_merge Then
                                         zsmf_SR.Add(path)
                                     Else
@@ -722,7 +725,7 @@ Public Class cAutomailversand
 
 
                                     Dim path = VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(SPEDBUCH_TEMP.DokumentId_Mitteilung)
-                                    pdfAnhang_merge = PDFS_zusammenfassen(path, RECHNUNG.FilialenNr, RECHNUNG.Firma_ID, False)
+                                    pdfAnhang_merge = PDFS_zusammenfassen(path, FilialenNr, FIRMA_ID, False)
                                     If pdfAnhang_merge Then
                                         zsmf_SR.Add(path)
                                     Else