neu

initATLASAufschubkonten/frmTRNCTS_NachrichtenVerarbeitung.vb

@@ -79,7 +79,9 @@ Public Class frmTRNCTS_NachrichtenVerarbeitung
         Me.Enabled = False
         Try
             Label5.Visible = True
-            DatenEinlesen()
+
+            DatenEinlesen() '<<<<------------
+
             If dsNichtErkannt > 0 Then
 
                 Label6.Text = dsNichtErkannt & " Datensätze nicht " & vbNewLine & "erkannt."
@@ -294,12 +296,39 @@ Public Class frmTRNCTS_NachrichtenVerarbeitung
                             MsgBox("CC015B")
                             If cMAVIWorker.readNCTS_VersandanmeldungXML_CC015B(Me, doc) <> "" Then found = True
                         End If
+
+                        'NCTS: Versandanmeldung - Ergänzung GUID
+                        If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_VersandanmeldungXML_CC015B_RES(doc) Then
+                            MsgBox("CC015B_RES")
+                            If cMAVIWorker.readNCTS_VersandanmeldungXML_CC015B_RES(Me, doc) <> "" Then found = True
+                        End If
+
+
+
                         'NCTS: BestätigungZoll
                         If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_BestaetigungZollXML_CC029B(doc) Then
                             MsgBox("CC029B")
                             If cMAVIWorker.readNCTS_BestaetigungZollXML_CC029B(Me, doc) <> "" Then found = True
                         End If
 
+                        ''NCTS: Guarantee
+                        'If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_BestaetigungZollXML_GUA_INF(doc) Then
+                        '    MsgBox("GUA_INF")
+                        '    If cMAVIWorker.readNCTS_BestaetigungZollXML_GUA_INF(Me, doc) <> "" Then found = True
+                        'End If
+
+                        'NCTS: Ankunftsanzeige
+                        If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_BestaetigungZollXML_ARR_INF(doc) Then
+                            MsgBox("ARR_INF")
+                            If cMAVIWorker.readNCTS_BestaetigungZollXML_ARR_INF(Me, doc) <> "" Then found = True
+                        End If
+
+
+                        'NCTS: Erledigungsmitteilung
+                        If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_ErledigungsmitteilungXML_CC045A(doc) Then
+                            MsgBox("CC045A")
+                            If cMAVIWorker.readNCTS_ErledigungsmitteilungXML_CC045A(Me, doc) <> "" Then found = True
+                        End If
                     End If