From 7169794f6a10b7fd04a67acbe22fe9562af85fb6 Mon Sep 17 00:00:00 2001
From: Andreas Luxbauer <al@verag.ag>
Date: Mon, 21 Oct 2024 07:54:56 +0200
Subject: [PATCH] DAKOSY Worker

---
 DAKOSY_Worker/DAKOSY_Worker_lib.vbproj        |  4 +++
 initATLASAufschubkonten/cWorker_NCTS.vb       | 29 ++++++++++++++-----
 .../frmDYNachrichtenVerarbeitung.vb           |  7 +++--
 3 files changed, 30 insertions(+), 10 deletions(-)

diff --git a/DAKOSY_Worker/DAKOSY_Worker_lib.vbproj b/DAKOSY_Worker/DAKOSY_Worker_lib.vbproj
index f1dc90b..e905477 100644
--- a/DAKOSY_Worker/DAKOSY_Worker_lib.vbproj
+++ b/DAKOSY_Worker/DAKOSY_Worker_lib.vbproj
@@ -146,6 +146,7 @@
     <Compile Include="DAKOSY\ATLAS\NCTS\Ueberlassungsmeldung\UeberlassungsmeldungNCTSDE_006.Designer.vb" />
     <Compile Include="DAKOSY\ATLAS\NCTS\Ueberlassungsmeldung\UeberlassungsmeldungNCTSDE_007.Designer.vb" />
     <Compile Include="DAKOSY\ATLAS\NCTS\Ueberlassungsmeldung\UeberlassungsmeldungNCTSDE_008.Designer.vb" />
+    <Compile Include="DAKOSY\ATLAS\NCTS\Ueberlassungsmeldung\UeberlassungsmeldungNCTSDE_009.Designer.vb" />
     <Compile Include="DAKOSY\ATLAS\NCTS\UngueltigkeitSicherheit\UngueltigkeitSicherheitenNCTSDE_002.Designer.vb" />
     <Compile Include="DAKOSY\ATLAS\NCTS\UngueltigkeitSicherheit\UngueltigkeitSicherheitenNCTSDE_003.Designer.vb" />
     <Compile Include="DAKOSY\ATLAS\NCTS\UngueltigkeitSicherheit\UngueltigkeitSicherheitenNCTSDE_004.Designer.vb" />
@@ -416,6 +417,9 @@
     <None Include="DAKOSY\ATLAS\NCTS\Ueberlassungsmeldung\UeberlassungsmeldungNCTSDE_008.xsd">
       <SubType>Designer</SubType>
     </None>
+    <None Include="DAKOSY\ATLAS\NCTS\Ueberlassungsmeldung\UeberlassungsmeldungNCTSDE_009.xsd">
+      <SubType>Designer</SubType>
+    </None>
     <None Include="DAKOSY\ATLAS\NCTS\Ueberlassungsmeldung\xsd2code.config" />
     <None Include="DAKOSY\ATLAS\NCTS\UngueltigkeitSicherheit\UngueltigkeitSicherheitenNCTSDE_002.xsd">
       <SubType>Designer</SubType>
diff --git a/initATLASAufschubkonten/cWorker_NCTS.vb b/initATLASAufschubkonten/cWorker_NCTS.vb
index 8e75150..e5499c1 100644
--- a/initATLASAufschubkonten/cWorker_NCTS.vb
+++ b/initATLASAufschubkonten/cWorker_NCTS.vb
@@ -3956,15 +3956,28 @@ Public Class cWorker_NCTS
                         '      bearbeiter=NCTS.EinzelUeberlassungsmeldung.KopfDaten.
                         If NCTS.EinzelUeberlassungsmeldung.TransitOperation IsNot Nothing Then
                             If NCTS.EinzelUeberlassungsmeldung.TransitOperation.LimitDate.ToString <> "" Then 'Sollte mit Version 009 hier enthalten sein!
-                                Wiedergestellungsdatum = DateTime.ParseExact(NCTS.EinzelUeberlassungsmeldung.TransitOperation.LimitDate, "yyyy-MM-dd", System.Globalization.CultureInfo.InvariantCulture)
-                                If NCTS.EinzelUeberlassungsmeldung.TransitOperation.AdditionalInformation IsNot Nothing AndAlso NCTS.EinzelUeberlassungsmeldung.TransitOperation.ApplicationInternalData.AdditionalDetails IsNot Nothing Then
-                                    For Each a In NCTS.EinzelUeberlassungsmeldung.TransitOperation.ApplicationInternalData.AdditionalDetails
-                                        If a.Key = "LimitDate" Then
-                                            Wiedergestellungsdatum = DateTime.ParseExact(a.Value, "yyyy-MM-dd", System.Globalization.CultureInfo.InvariantCulture)
+                                Try
+                                    Wiedergestellungsdatum = DateTime.ParseExact(NCTS.EinzelUeberlassungsmeldung.TransitOperation.LimitDate, "dd.MM.yyyy", System.Globalization.CultureInfo.InvariantCulture)
+                                    If NCTS.EinzelUeberlassungsmeldung.TransitOperation.AdditionalInformation IsNot Nothing AndAlso NCTS.EinzelUeberlassungsmeldung.TransitOperation.ApplicationInternalData.AdditionalDetails IsNot Nothing Then
+                                        For Each a In NCTS.EinzelUeberlassungsmeldung.TransitOperation.ApplicationInternalData.AdditionalDetails
+                                            If a.Key = "LimitDate" Then
+                                                Wiedergestellungsdatum = DateTime.ParseExact(a.Value, "dd.MM.yyyy", System.Globalization.CultureInfo.InvariantCulture)
+
+                                            End If
+                                        Next
+                                    End If
+                                Catch ex As Exception
+                                    Wiedergestellungsdatum = DateTime.ParseExact(NCTS.EinzelUeberlassungsmeldung.TransitOperation.LimitDate, "yyyy-MM-dd", System.Globalization.CultureInfo.InvariantCulture)
+                                    If NCTS.EinzelUeberlassungsmeldung.TransitOperation.AdditionalInformation IsNot Nothing AndAlso NCTS.EinzelUeberlassungsmeldung.TransitOperation.ApplicationInternalData.AdditionalDetails IsNot Nothing Then
+                                        For Each a In NCTS.EinzelUeberlassungsmeldung.TransitOperation.ApplicationInternalData.AdditionalDetails
+                                            If a.Key = "LimitDate" Then
+                                                Wiedergestellungsdatum = DateTime.ParseExact(a.Value, "yyyy-MM-dd", System.Globalization.CultureInfo.InvariantCulture)
+
+                                            End If
+                                        Next
+                                    End If
+                                End Try
 
-                                        End If
-                                    Next
-                                End If
                             End If
                         End If
                         'Verschluesse
diff --git a/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb b/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
index ab497e6..ec0b1b1 100644
--- a/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
+++ b/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
@@ -1351,7 +1351,7 @@ Public Class frmDYNachrichtenVerarbeitung
                 If NCTS.EinzelQuittung IsNot Nothing Then
                     For Each ge In NCTS.EinzelQuittung
                         If ge.Quittungsobjekt IsNot Nothing Then
-                            If ge.Quittungsobjekt.QuittungTech IsNot Nothing Then
+                            If ge.Quittungsobjekt.QuittungTech IsNot Nothing AndAlso ge.Quittungsobjekt.QuittungTech.Count > 0 Then
 
                                 If ge.Quittungsobjekt.QuittungTech(0).BezugsObjekt IsNot Nothing Then
                                     ' ListBox4.Items.Add(ge.ObjektIdentifizierung.ObjektName)
@@ -1496,7 +1496,9 @@ Public Class frmDYNachrichtenVerarbeitung
         Else
 
             'Update     
-            EZA_TMP.UPDATE_Status(DY_TMP.dy_Status) 'weil der Status bereit überprüft wurde --> neuste TransaktionsID
+            If DAKOSY_Worker.cDakosy_Statusmeldungen.isNewestTransaktion(STATUS.dySt_BezugsNr, transID, transDate) Then
+                EZA_TMP.UPDATE_Status(STATUS.dySt_status)
+            End If
 
             If ANR <> "" Then EZA_TMP.eza_ANR = ANR : EZA_TMP.SAVE()
             If MRN <> "" Then EZA_TMP.eza_MRN = MRN : EZA_TMP.SAVE()
@@ -10058,6 +10060,7 @@ Public Class frmDYNachrichtenVerarbeitung
                         STATUS.dySt_BezugsNr = readEZA_Abgabenbescheid012
                         STATUS.dySt_artMitteilung = "AB"
                         STATUS.dySt_dyArt = "EZA" '"EZA" 'T1/T2
+                        '  MsgBox(erledigung)
 
                         Select Case erledigung
                             Case "0" : STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_69 'ungültig