dakosy annahme

initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb

@@ -7987,7 +7987,7 @@ Public Class frmDYNachrichtenVerarbeitung
                     End Try
                 End If
 
-                If TXT_Rückweisung <> "" Then
+                If TXT_Rückweisung <> "" OrElse TXT_Annahme <> "" Then
 
                     'Benachrichtigung
                     Try
@@ -8031,7 +8031,12 @@ Public Class frmDYNachrichtenVerarbeitung
                                     'Nicht
                                 Case Else
                                     Dim code = VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungenCodes.ZOLL_Rueckweisung
-                                    Dim BenText = (TXT_Rückweisung & vbNewLine & TXT_Mitteilung).Trim
+                                    Dim BenText = ""
+                                    If TXT_Rückweisung <> "" Then
+                                        BenText = (TXT_Rückweisung & vbNewLine & TXT_Mitteilung).Trim
+                                    Else
+                                        BenText = (TXT_Annahme & vbNewLine & TXT_Mitteilung).Trim
+                                    End If
                                     VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(DY_TMP.dy_AvisoId, DY_TMP.dy_SendungsId, code, art, sendToID, "ZOLL: Rückweisung", 1, , BenText,,, If(EZA_TMP IsNot Nothing, If(EZA_TMP.eza_firma, ""), ""))
                                     VERAG_PROG_ALLGEMEIN.cVermerkeDAL.insertSendungsVermerk(DY_TMP.dy_SendungsId, DY_TMP.dy_AvisoId, BenText, 125,,, True, "ZOLL")
                             End Select