MIC, etc.

initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb

@@ -1,7 +1,6 @@
 Imports System.IO
 Imports System.Xml
 Imports DAKOSY_Worker
-Imports DAKOSY_Worker.SumAVerwahrungsinfo_009
 Imports Renci.SshNet
 
 Public Class frmDYNachrichtenVerarbeitung
@@ -7796,6 +7795,7 @@ Public Class frmDYNachrichtenVerarbeitung
 
             Dim TXT_DokBeschau = ""
             Dim TXT_Rückweisung = ""
+            Dim TXT_Annahme = ""
             Dim TXT_Mitteilung = ""
             Dim TXT_Mitteilung_Zollbeamter = ""
             'Dim annahmeKz As Object = Nothing
@@ -7849,6 +7849,15 @@ Public Class frmDYNachrichtenVerarbeitung
                                         'MitteilungTeilnehmerBeschau
                                 End Select
                             End If
+
+                            'aktuell wird nur eine Rückweisung verarbeitet, allerdings wenn die EZA gar nicht vom ZA angenommen wird, bleibt dieser Wert auf "nein" und wird somit nicht getriggert!
+                            If POS.AnnahmeKz IsNot Nothing Then
+                                If POS.AnnahmeKz = "N" Then
+                                    TXT_Annahme &= POS.Positionsnummer & ": keine Annahme " & If(POS.MitteilungTeilnehmerBeschau IsNot Nothing, " (" & POS.MitteilungTeilnehmerBeschau & ")", "") & vbNewLine
+                                End If
+                            End If
+
+
                             If POS.RueckgabeKz IsNot Nothing Then
                                 If POS.RueckgabeKz = "J" Then
                                     TXT_Rückweisung &= POS.Positionsnummer & ": Rückweisung " & vbNewLine