Merge branch 'ADMIN' of https://verag.visualstudio.com/ADMIN/_git/ADMIN into ADMIN

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>

initATLASAufschubkonten/cWorker_NCTS.vb

@@ -3954,19 +3954,32 @@ Public Class cWorker_NCTS
 
                         Wiedergestellungsdatum = NCTS.EinzelUeberlassungsmeldung.KopfDaten.Wiedergestellungsdatum
                         '      bearbeiter=NCTS.EinzelUeberlassungsmeldung.KopfDaten.
-                        'If NCTS.EinzelUeberlassungsmeldung.TransitOperation IsNot Nothing Then
+                        If NCTS.EinzelUeberlassungsmeldung.TransitOperation IsNot Nothing Then
-                        '    If NCTS.EinzelUeberlassungsmeldung.TransitOperation.LimitDate.ToString <> "" Then 'Sollte mit Version 009 hier enthalten sein!
+                            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)
+                                Try
-                        '        If NCTS.EinzelUeberlassungsmeldung.TransitOperation.AdditionalInformation IsNot Nothing AndAlso NCTS.EinzelUeberlassungsmeldung.TransitOperation.ApplicationInternalData.AdditionalDetails IsNot Nothing Then
+                                    Wiedergestellungsdatum = DateTime.ParseExact(NCTS.EinzelUeberlassungsmeldung.TransitOperation.LimitDate, "dd.MM.yyyy", System.Globalization.CultureInfo.InvariantCulture)
-                        '            For Each a In NCTS.EinzelUeberlassungsmeldung.TransitOperation.ApplicationInternalData.AdditionalDetails
+                                    If NCTS.EinzelUeberlassungsmeldung.TransitOperation.AdditionalInformation IsNot Nothing AndAlso NCTS.EinzelUeberlassungsmeldung.TransitOperation.ApplicationInternalData.AdditionalDetails IsNot Nothing Then
-                        '                If a.Key = "LimitDate" Then
+                                        For Each a In NCTS.EinzelUeberlassungsmeldung.TransitOperation.ApplicationInternalData.AdditionalDetails
-                        '                    Wiedergestellungsdatum = DateTime.ParseExact(a.Value, "yyyy-MM-dd", System.Globalization.CultureInfo.InvariantCulture)
+                                            If a.Key = "LimitDate" Then
+                                                Wiedergestellungsdatum = DateTime.ParseExact(a.Value, "dd.MM.yyyy", System.Globalization.CultureInfo.InvariantCulture)
 
-                        '                End If
+                                            End If
-                        '            Next
+                                        Next
-                        '        End If
+                                    End If
-                        '    End If
+                                Catch ex As Exception
-                    End If
+                                    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
+                        End If
                         'Verschluesse
                         If NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse IsNot Nothing Then
                             If NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Anzahl IsNot Nothing AndAlso NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Anzahl > 0 Then
@@ -3990,93 +4003,93 @@ Public Class cWorker_NCTS
 
                 End If
 
-            'End If
-            ' NCTS.LOADByBezugsNr(bezugsNr, False) ' Falls schon ein DS mit dieser Bezugsnummer vorhanden ist.
-
-            If readNCTS_Ueberlassungsmeldung009 <> "" And MRN <> "" Then 'BEZUGSNR vorhanden
-                Dim STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen = FORM.getStatusCheckTransID(NCTS.Transaktion.IOReferenz, NCTS.Transaktion.IODatumZeit)
-                STATUS.dySt_BezugsNr = readNCTS_Ueberlassungsmeldung009
-                STATUS.dySt_artMitteilung = "UEM"
-                STATUS.dySt_dyArt = "" '"NCTS" 'T1/T2
-
-                STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_50
-                STATUS.dySt_ergCode = "MRN"
-                STATUS.dySt_ergMitteilung = MRN
-                STATUS.dySt_ergZeitpunkt = zp
-                'EINTRAG IN tblDakosy_Zollanmeldungen
-                Dim DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen = FORM.saveDY_ZA(STATUS, NCTS.Transaktion.IOReferenz, If(zp, NCTS.Transaktion.IODatumZeit), "NCTS")
-                Dim NCTS_TMP As DAKOSY_Worker.cDakosyNCTSOut004 = saveDY_NCTS004(STATUS, DY_TMP, NCTS.Transaktion.IOReferenz, If(zp, NCTS.Transaktion.IODatumZeit), , MRN, True)
-
-
-                NCTS_TMP.ncts_Eroeffnung = zp
-                NCTS_TMP.SAVE()
-
-                '------------------------------------------------------------------------------------------------------------------------------
-                'GARANTIE ÜBERSCHREIBEN:
-                'If NCTS.EinzelUeberlassungsmeldung.TransitOperation IsNot Nothing AndAlso NCTS.EinzelUeberlassungsmeldung.TransitOperation.Guarantee IsNot Nothing AndAlso NCTS.EinzelUeberlassungsmeldung.TransitOperation.Guarantee.Count > 0 Then
-                '    NCTS_TMP.ncts_GUARANTEE.Clear()
-
-                '    For Each GRT_M In NCTS.EinzelUeberlassungsmeldung.TransitOperation.Guarantee
-
-                '        For Each GRT In GRT_M.GuaranteeReference
-                '            Dim NCTS_GRT As New DAKOSY_Worker.cDakosy_NCTSOut004_Guarantee
-
-
-                '            NCTS_GRT.nctsGRT_Type = GRT_M.GuaranteeType
-                '            NCTS_GRT.nctsGRT_OtherGuaranteeReference = GRT_M.OtherGuaranteeReference
-                '            NCTS_GRT.nctsGRT_AmountToBeCovered = GRT.AmountToBeCovered
-                '            'NCTS_GRT.nctsGRT_AccessCode = GRT.accessCode
-                '            NCTS_GRT.nctsGRT_GRN = GRT.GRN
-                '            NCTS_GRT.nctsGRT_Currency = GRT.Currency
-                '            NCTS_TMP.ncts_GUARANTEE.Add(NCTS_GRT)
-
-                '        Next
-                '    Next
-                '    NCTS_TMP.SAVE_Guarantee()
                 'End If
-                '------------------------------------------------------------------------------------------------------------------------------
+                ' NCTS.LOADByBezugsNr(bezugsNr, False) ' Falls schon ein DS mit dieser Bezugsnummer vorhanden ist.
 
-                'For Each TE In NCTS_TMP.ncts_TRANSPORTEQUIPMENT
+                If readNCTS_Ueberlassungsmeldung009 <> "" And MRN <> "" Then 'BEZUGSNR vorhanden
-                '    If TE.nctsTE_NumberOfSeals > 0 Then
+                    Dim STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen = FORM.getStatusCheckTransID(NCTS.Transaktion.IOReferenz, NCTS.Transaktion.IODatumZeit)
+                    STATUS.dySt_BezugsNr = readNCTS_Ueberlassungsmeldung009
+                    STATUS.dySt_artMitteilung = "UEM"
+                    STATUS.dySt_dyArt = "" '"NCTS" 'T1/T2
 
-                '    End If
+                    STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_50
-                'Next
+                    STATUS.dySt_ergCode = "MRN"
-
+                    STATUS.dySt_ergMitteilung = MRN
-                'If Verschluss_Anzahl > 0 Then
+                    STATUS.dySt_ergZeitpunkt = zp
-                '    NCTS_TMP.ncts_Verschluss_Anzahl = Verschluss_Anzahl
+                    'EINTRAG IN tblDakosy_Zollanmeldungen
-                '    NCTS_TMP.ncts_Verschluss_ArtCode = Verschluss_Art
+                    Dim DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen = FORM.saveDY_ZA(STATUS, NCTS.Transaktion.IOReferenz, If(zp, NCTS.Transaktion.IODatumZeit), "NCTS")
-                '    NCTS_TMP.ncts_Verschluss_Zeichen1 = If(Verschluss_Zeichen.Count > 0, Verschluss_Zeichen(0), Nothing)
+                    Dim NCTS_TMP As DAKOSY_Worker.cDakosyNCTSOut004 = saveDY_NCTS004(STATUS, DY_TMP, NCTS.Transaktion.IOReferenz, If(zp, NCTS.Transaktion.IODatumZeit), , MRN, True)
-                '    NCTS_TMP.ncts_Verschluss_Zeichen2 = If(Verschluss_Zeichen.Count > 1, Verschluss_Zeichen(1), Nothing)
-                '    NCTS_TMP.ncts_Verschluss_Zeichen3 = If(Verschluss_Zeichen.Count > 2, Verschluss_Zeichen(2), Nothing)
-                '    NCTS_TMP.ncts_Verschluss_Zeichen4 = If(Verschluss_Zeichen.Count > 3, Verschluss_Zeichen(3), Nothing)
-                '    NCTS_TMP.ncts_Verschluss_Zeichen5 = If(Verschluss_Zeichen.Count > 4, Verschluss_Zeichen(4), Nothing)
-                '    NCTS_TMP.ncts_Verschluss_Zeichen6 = If(Verschluss_Zeichen.Count > 5, Verschluss_Zeichen(5), Nothing)
-                '    NCTS_TMP.ncts_Verschluss_Zeichen7 = If(Verschluss_Zeichen.Count > 6, Verschluss_Zeichen(6), Nothing)
-                '    NCTS_TMP.ncts_Verschluss_Zeichen8 = If(Verschluss_Zeichen.Count > 7, Verschluss_Zeichen(7), Nothing)
-                '    NCTS_TMP.ncts_Verschluss_Zeichen9 = If(Verschluss_Zeichen.Count > 8, Verschluss_Zeichen(8), Nothing)
-                '    NCTS_TMP.ncts_Verschluss_Zeichen10 = If(Verschluss_Zeichen.Count > 9, Verschluss_Zeichen(9), Nothing)
-                '    NCTS_TMP.SAVE()
-                'End If
 
 
-                SaveNCTS004_FirmaNL(NCTS_TMP, DY_TMP, division)
+                    NCTS_TMP.ncts_Eroeffnung = zp
-                SaveNCTS004_WGDAT(NCTS_TMP, Wiedergestellungsdatum)
+                    NCTS_TMP.SAVE()
 
-                If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id
+                    '------------------------------------------------------------------------------------------------------------------------------
-                STATUS.SAVE()
+                    'GARANTIE ÜBERSCHREIBEN:
-                statusTMP = STATUS
+                    'If NCTS.EinzelUeberlassungsmeldung.TransitOperation IsNot Nothing AndAlso NCTS.EinzelUeberlassungsmeldung.TransitOperation.Guarantee IsNot Nothing AndAlso NCTS.EinzelUeberlassungsmeldung.TransitOperation.Guarantee.Count > 0 Then
-                cVERAG_out_ncts.copyFileFTP_VERAGncts004_DY(NCTS_TMP, DY_TMP) 'VERAG SCHNITTSTELLE
+                    '    NCTS_TMP.ncts_GUARANTEE.Clear()
-                ' If If(NCTS_TMP.ncts_firma, "") = "IMEX" Then
 
-                NCTS_TMP.insertIntoSpedBuch(DY_TMP)
+                    '    For Each GRT_M In NCTS.EinzelUeberlassungsmeldung.TransitOperation.Guarantee
+
+                    '        For Each GRT In GRT_M.GuaranteeReference
+                    '            Dim NCTS_GRT As New DAKOSY_Worker.cDakosy_NCTSOut004_Guarantee
 
 
-                '=====ATEZ BEREITSTELLUNG==========
+                    '            NCTS_GRT.nctsGRT_Type = GRT_M.GuaranteeType
-                checkATEZ_Bereitstellung(DY_TMP, d)
+                    '            NCTS_GRT.nctsGRT_OtherGuaranteeReference = GRT_M.OtherGuaranteeReference
-                '==================================
+                    '            NCTS_GRT.nctsGRT_AmountToBeCovered = GRT.AmountToBeCovered
+                    '            'NCTS_GRT.nctsGRT_AccessCode = GRT.accessCode
+                    '            NCTS_GRT.nctsGRT_GRN = GRT.GRN
+                    '            NCTS_GRT.nctsGRT_Currency = GRT.Currency
+                    '            NCTS_TMP.ncts_GUARANTEE.Add(NCTS_GRT)
 
-                FORM.addDGVEinarbeitung("NCTS: Überlassungsmeldung", STATUS.dySt_BezugsNr)
+                    '        Next
-            End If
+                    '    Next
+                    '    NCTS_TMP.SAVE_Guarantee()
+                    'End If
+                    '------------------------------------------------------------------------------------------------------------------------------
+
+                    'For Each TE In NCTS_TMP.ncts_TRANSPORTEQUIPMENT
+                    '    If TE.nctsTE_NumberOfSeals > 0 Then
+
+                    '    End If
+                    'Next
+
+                    'If Verschluss_Anzahl > 0 Then
+                    '    NCTS_TMP.ncts_Verschluss_Anzahl = Verschluss_Anzahl
+                    '    NCTS_TMP.ncts_Verschluss_ArtCode = Verschluss_Art
+                    '    NCTS_TMP.ncts_Verschluss_Zeichen1 = If(Verschluss_Zeichen.Count > 0, Verschluss_Zeichen(0), Nothing)
+                    '    NCTS_TMP.ncts_Verschluss_Zeichen2 = If(Verschluss_Zeichen.Count > 1, Verschluss_Zeichen(1), Nothing)
+                    '    NCTS_TMP.ncts_Verschluss_Zeichen3 = If(Verschluss_Zeichen.Count > 2, Verschluss_Zeichen(2), Nothing)
+                    '    NCTS_TMP.ncts_Verschluss_Zeichen4 = If(Verschluss_Zeichen.Count > 3, Verschluss_Zeichen(3), Nothing)
+                    '    NCTS_TMP.ncts_Verschluss_Zeichen5 = If(Verschluss_Zeichen.Count > 4, Verschluss_Zeichen(4), Nothing)
+                    '    NCTS_TMP.ncts_Verschluss_Zeichen6 = If(Verschluss_Zeichen.Count > 5, Verschluss_Zeichen(5), Nothing)
+                    '    NCTS_TMP.ncts_Verschluss_Zeichen7 = If(Verschluss_Zeichen.Count > 6, Verschluss_Zeichen(6), Nothing)
+                    '    NCTS_TMP.ncts_Verschluss_Zeichen8 = If(Verschluss_Zeichen.Count > 7, Verschluss_Zeichen(7), Nothing)
+                    '    NCTS_TMP.ncts_Verschluss_Zeichen9 = If(Verschluss_Zeichen.Count > 8, Verschluss_Zeichen(8), Nothing)
+                    '    NCTS_TMP.ncts_Verschluss_Zeichen10 = If(Verschluss_Zeichen.Count > 9, Verschluss_Zeichen(9), Nothing)
+                    '    NCTS_TMP.SAVE()
+                    'End If
+
+
+                    SaveNCTS004_FirmaNL(NCTS_TMP, DY_TMP, division)
+                    SaveNCTS004_WGDAT(NCTS_TMP, Wiedergestellungsdatum)
+
+                    If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id
+                    STATUS.SAVE()
+                    statusTMP = STATUS
+                    cVERAG_out_ncts.copyFileFTP_VERAGncts004_DY(NCTS_TMP, DY_TMP) 'VERAG SCHNITTSTELLE
+                    ' If If(NCTS_TMP.ncts_firma, "") = "IMEX" Then
+
+                    NCTS_TMP.insertIntoSpedBuch(DY_TMP)
+
+
+                    '=====ATEZ BEREITSTELLUNG==========
+                    checkATEZ_Bereitstellung(DY_TMP, d)
+                    '==================================
+
+                    FORM.addDGVEinarbeitung("NCTS: Überlassungsmeldung", STATUS.dySt_BezugsNr)
+                End If
         Catch ex As Exception
             VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
             readNCTS_Ueberlassungsmeldung009 = ""

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