diff --git a/Aviso/Classes/cSendungsoptions.vb b/Aviso/Classes/cSendungsoptions.vb
index d9b1203..28ec3eb 100644
--- a/Aviso/Classes/cSendungsoptions.vb
+++ b/Aviso/Classes/cSendungsoptions.vb
@@ -285,7 +285,7 @@ Public Class SendungOptions
                 VALUES.Frachtfuehrer_Bar_Betrag3 = CDbl(dt.Rows(2)("rksv_umsatz")).ToString("C2")
             End If
         Catch ex As Exception
-            MsgBox("BAR-Err: Beträge konnten nicht geladen werden!" & vbNewLine & ex.Message & ex.StackTrace)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("BAR-Err: Beträge konnten nicht geladen werden!" & vbNewLine & ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
         End Try
 
         'If SENDUNG.tblSnd_bar IsNot Nothing AndAlso CBool(SENDUNG.tblSnd_bar) Then
@@ -468,7 +468,7 @@ Public Class SendungOptions
             End If
 
         Catch ex As Exception
-            MsgBox(ex.Message & ex.StackTrace)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
         End Try
         ' If art = "PRINT" Then
         'fm.fillPDF(name, list, listTowrite, , True, Printername, barcode, barcodeLKW)
@@ -658,7 +658,7 @@ Public Class SendungOptions
             End If
 
         Catch ex As Exception
-            MsgBox(ex.Message & ex.StackTrace)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
         End Try
         ' If art = "PRINT" Then
         'fm.fillPDF(name, list, listTowrite, , True, Printername, barcode, barcodeLKW)
diff --git a/Aviso/frmSendungsdetailsNEU.vb b/Aviso/frmSendungsdetailsNEU.vb
index 3a57f73..c49a5c7 100644
--- a/Aviso/frmSendungsdetailsNEU.vb
+++ b/Aviso/frmSendungsdetailsNEU.vb
@@ -5397,10 +5397,15 @@ Public Class frmSendungsdetailsNEU
         'Handelsrechnungen
         Dim ANH_LIST_SND As New List(Of VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge)
         VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge.LOAD_LIST_BySendung(ANH_LIST_SND, SENDUNG.tblSnd_SendungID) 'LÄDT alle Aviso-Anhänge
+        Dim invoicePrinted As Boolean = False
         For Each l In ANH_LIST_SND
             Select Case l.anh_Art.ToString.ToUpper
-                Case "RECHNUNG", "HANDELSRECHNUNG", "EFATURA", "EUR1"
+                Case "RECHNUNG", "HANDELSRECHNUNG"
                     VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(l.anh_docId)})
+                    invoicePrinted = True
+                Case "EFATURA", "EUR1"
+                    If Not invoicePrinted Then VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(l.anh_docId)})
+
             End Select
         Next
         For Each l In ANH_LIST_SND