exg

2026-10-16 10:25:23 +02:00
parent eec4e8e3dd
commit 67f501e6ed
3 changed files with 286 additions and 7 deletions
--- a/DAKOSY_Worker/cImporter_DakosyToVERAG.vb
+++ b/DAKOSY_Worker/cImporter_DakosyToVERAG.vb
@@ -38,7 +38,7 @@ Public Class cImporter_DakosyToVERAG
            If If(eza.eza_MRN, If(eza.eza_ANR, "")) = "" Then
                ZA = New cVERAG_CustomsDeclarations
            Else
-                ZA = cVERAG_CustomsDeclarations.loadByMRN(If(eza.eza_MRN, If(eza.eza_ANR, "")), False)
+                ZA = cVERAG_CustomsDeclarations.loadByMRN(If(String.IsNullOrWhiteSpace(eza.eza_MRN), eza.eza_ANR, eza.eza_MRN), False)
            End If

            ZA.za_System = "DAKOSY"
@@ -52,7 +52,7 @@ Public Class cImporter_DakosyToVERAG
            ZA.za_Niederlassung = eza.eza_niederlassung


-            ZA.za_MRN = If(eza.eza_MRN, eza.eza_ANR)
+            ZA.za_MRN = If(String.IsNullOrWhiteSpace(eza.eza_MRN), eza.eza_ANR, eza.eza_MRN)
            ZA.za_LRN = eza.eza_ObjectName

            VERAG_PROG_ALLGEMEIN.cProgramFunctions.tryGetFirmaNiederlassung(ZA.za_Firma, ZA.za_Niederlassung, "", ZA.za_LRN)
@@ -338,7 +338,7 @@ Public Class cImporter_DakosyToVERAG
            ' SAVE
            Dim saved = ZA.SAVE()
            ' ======KAFKA==========================================================
-            If freshInsert Then cDakosyEZA_Greenpulse.INSERT_KAFKA(ZA)
+            If saved AndAlso freshInsert Then cDakosyEZA_Greenpulse.INSERT_KAFKA(ZA)
            ' ================================================================
            Return saved

@@ -349,6 +349,225 @@ Public Class cImporter_DakosyToVERAG
        End Try
    End Function

+    ' =====================================================================
+    ' NCTS 004 -> VERAG TRANSIT
+    ' =====================================================================
+    Public Function ImportDakosyNCTS(bezugsNr As String, Optional overwrite As Boolean = True) As Boolean
+        If String.IsNullOrWhiteSpace(bezugsNr) Then Return False
+        Dim ncts = cDakosyNCTSOut004.LOADByBezugsNr(bezugsNr, True)
+        If ncts Is Nothing OrElse ncts.ncts_Id <= 0 Then Return False
+        Return ImportDakosyNCTS(ncts, overwrite)
+    End Function
+
+    Public Function ImportDakosyNCTS(ncts As cDakosyNCTSOut004, Optional overwrite As Boolean = True) As Boolean
+        Try
+            If ncts Is Nothing Then Return False
+            Dim mrn = ToStringSafe(ncts.ncts_MRN)
+            Dim anr = ToStringSafe(ncts.ncts_ANR)
+            Dim ref = If(Not String.IsNullOrWhiteSpace(mrn), mrn, anr)
+            If String.IsNullOrWhiteSpace(ref) Then Return False
+            If Not overwrite AndAlso ExistsNCTSInVERAG(mrn, anr) Then Return False
+
+            Dim ZA = cVERAG_CustomsDeclarations.loadByMRN(ref, False)
+            If ZA Is Nothing Then ZA = New cVERAG_CustomsDeclarations
+            If ZA.za_Id > 0 AndAlso ZA.za_REGIME <> "TRANSIT" Then Throw New InvalidOperationException("MRN gehört zu anderem Verfahren: " & ZA.za_REGIME)
+
+            ZA.za_System = "DAKOSY"
+            ZA.za_CustomsSystem = "ATLAS"
+            ZA.za_CustomsSystemCountry = "DE"
+            ZA.za_REGIME = "TRANSIT"
+            ZA.za_MRN = ref
+            ZA.za_LRN = ToStringSafe(ncts.ncts_ObjectName)
+            ZA.za_DeclarationNo = anr
+            ZA.za_IsExternalSystem = False
+            ZA.za_IsFinalDeclaration = Not String.IsNullOrWhiteSpace(mrn)
+            ZA.za_Firma = ToStringSafe(ncts.ncts_firma)
+            ZA.za_Niederlassung = ToStringSafe(ncts.ncts_niederlassung)
+            ZA.za_Sachbearbeiter = ToStringSafe(ncts.ncts_Bearbeiter)
+            ZA.za_CountryDispatch = ToStringSafe(ncts.ncts_CountryOfDispatch)
+            ZA.za_CountryDestination = ToStringSafe(ncts.ncts_CountryOfDestination)
+            ZA.za_TransitType = ToStringSafe(ncts.ncts_TransitDeclarationType)
+            If String.IsNullOrWhiteSpace(ZA.za_TransitType) Then ZA.za_TransitType = ToStringSafe(ncts.ncts_Declarationtype)
+            ZA.za_TransitStatus = ToStringSafe(ncts.ncts_Status)
+            ZA.za_TransitDepartureOffice = ToStringSafe(ncts.ncts_CustomsOfficeOfDeparture)
+            ZA.za_TransitDestinationOffice = ToStringSafe(ncts.ncts_CustomsOfficeOfDestinationDeclared)
+            ZA.za_TransitLimitDate = ToNullableDate(ncts.ncts_LimitDate)
+            ZA.za_TransitArrivalDate = ToNullableDate(ncts.ncts_Ankunft)
+            ZA.za_TransitCompletionDate = ToNullableDate(ncts.ncts_Erledigung)
+            ZA.za_TransitReducedDataset = ToNullableBool(ncts.ncts_ReductedDatasetIndicator)
+            ZA.za_TransitSecurityCode = ToStringSafe(ncts.ncts_Security)
+            ZA.za_TransitLocationType = ToStringSafe(ncts.ncts_LocationOfGoods_TypeofLocation)
+            ZA.za_TransitLocationQualifier = ToStringSafe(ncts.ncts_LocationOfGoods_QualifierIdenfitication)
+            ZA.za_TransitLocationIdentifier = ToStringSafe(ncts.ncts_LocationOfGoods_AdditionalIdentifier)
+            ZA.za_TransitContainerIndicator = ToNullableBool(ncts.ncts_ContainerIndicator)
+            ZA.za_TransitBorderVehicle = ToStringSafe(ncts.ncts_ActiveBorderTransportMeans_1_IdentificationNumber)
+            ZA.za_TransitBorderVehicleType = ToStringSafe(ncts.ncts_ActiveBorderTransportMeans_1_TypeOfIdentification)
+            ZA.za_TransitBorderVehicleNationality = ToStringSafe(ncts.ncts_ActiveBorderTransportMeans_1_Nationality)
+            ZA.za_TransportModeInland = ToStringSafe(ncts.ncts_InlandModeOfTransport)
+            ZA.za_TransportModeBorder = ToStringSafe(ncts.ncts_ModeOfTransportAtTheBorder)
+            ZA.za_MeansOfTransport_Vehicle = ToStringSafe(ncts.ncts_DepartureTransportMeans_1_IdentificationNumber)
+            ZA.za_MeansOfTransport_Type = ToStringSafe(ncts.ncts_DepartureTransportMeans_1_TypeOfIdentification)
+            ZA.za_MeansOfTransport_Nationality = ToStringSafe(ncts.ncts_DepartureTransportMeans_1_Nationality)
+            ZA.za_TotGrossMass = ToNullableDecimal(ncts.ncts_GrossMass)
+            ZA.za_UCR = ToStringSafe(ncts.ncts_ReferenceNumberUCR)
+            ZA.za_DeclarationDate = ToNullableDate(ncts.ncts_Eroeffnung)
+            VERAG_PROG_ALLGEMEIN.cProgramFunctions.tryGetFirmaNiederlassung(ZA.za_Firma, ZA.za_Niederlassung, "", ZA.za_LRN)
+            VERAG_PROG_ALLGEMEIN.cProgramFunctions.tryGetAvisoId_SndId_ByLRN(ZA.za_LRN, ZA.za_AvisoId, ZA.za_SendungsId)
+
+            ' loadByMRN(..., False) lädt keine Kinddaten; bei Neuimport komplett neu aufbauen.
+            ZA.Parties.Clear()
+            ZA.Items.Clear()
+            ZA.Documents.Clear()
+            ZA.Duties.Clear()
+            ZA.HouseConsignments.Clear()
+            ZA.TransitGuarantees.Clear()
+            ZA.TransitOffices.Clear()
+
+            AddNCTSParty(ZA, "CONSIGNOR", ncts.ncts_Consignor_IdentificationNumber, ncts.ncts_Consignor_Name, ncts.ncts_Consignor_StreetNumber, ncts.ncts_Consignor_Postcode, ncts.ncts_Consignor_City, ncts.ncts_Consignor_Country, ncts.ncts_Consignor_SubsidiaryNumber)
+            AddNCTSParty(ZA, "CONSIGNEE", ncts.ncts_Consignee_IdentificationNumber, ncts.ncts_Consignee_Name, ncts.ncts_Consignee_StreetNumber, ncts.ncts_Consignee_Postcode, ncts.ncts_Consignee_City, ncts.ncts_Consignee_Country, ncts.ncts_Consignee_SubsidiaryNumber)
+            AddNCTSParty(ZA, "HOLDER", ncts.ncts_HolderOfTheTransitProcedure_IdentificationNumber, ncts.ncts_HolderOfTheTransitProcedure_Name, ncts.ncts_HolderOfTheTransitProcedure_StreetNumber, ncts.ncts_HolderOfTheTransitProcedure_Postcode, ncts.ncts_HolderOfTheTransitProcedure_City, ncts.ncts_HolderOfTheTransitProcedure_Country)
+            AddNCTSParty(ZA, "REPRESENTATIVE", ncts.ncts_Representative_IdentificationNumber, Nothing, Nothing, Nothing, Nothing, Nothing)
+            AddNCTSParty(ZA, "CARRIER", ncts.ncts_Carrier_IdentificationNumber, Nothing, Nothing, Nothing, Nothing, Nothing, ncts.ncts_Carrier_SubsidiaryNumber)
+
+            For Each grt In ncts.ncts_GUARANTEE
+                Dim betragFW As Decimal? = ToNullableDecimal(grt.nctsGRT_AmountToBeCovered)
+                Dim waehrungFW As String = ToStringSafe(grt.nctsGRT_Currency)
+                Dim betragEUR As Decimal? = Nothing
+                Dim kurs As Decimal? = Nothing
+
+                If betragFW.HasValue Then
+                    If String.Equals(waehrungFW, "EUR", StringComparison.OrdinalIgnoreCase) Then
+                        betragEUR = betragFW
+                        kurs = 1D
+                    ElseIf Not String.IsNullOrWhiteSpace(waehrungFW) Then
+                        Dim umgerechnet As Decimal = VERAG_PROG_ALLGEMEIN.cEZB_Waehrungskurse.EXCHANGE_CURTOEUR(betragFW.Value, waehrungFW, ncts.ncts_Trans_DatumZeit)
+                        If umgerechnet > 0 Then
+                            betragEUR = umgerechnet
+                            If betragFW.Value <> 0 Then kurs = umgerechnet / betragFW.Value
+                        End If
+                    End If
+                End If
+
+                ZA.TransitGuarantees.Add(New cVERAG_CustomsDeclarations_TransitGuarantee With {
+                    .zaGRT_Type = ToStringSafe(grt.nctsGRT_Type),
+                    .zaGRT_GRN = ToStringSafe(grt.nctsGRT_GRN),
+                    .zaGRT_Reference = ToStringSafe(grt.nctsGRT_OtherGuaranteeReference),
+                    .zaGRT_Amount = betragEUR,
+                    .zaGRT_Currency = "EUR",
+                    .zaGRT_AmountForeign = betragFW,
+                    .zaGRT_CurrencyForeign = waehrungFW,
+                    .zaGRT_ExchangeRateToEUR = kurs
+                })
+            Next
+
+            For i As Integer = 1 To 9
+                Dim office = NCTSProp(ncts, "ncts_CustomsOfficeOfTransitDeclared_" & i & "_RefNumber")
+                If Not String.IsNullOrWhiteSpace(office) Then
+                    ZA.TransitOffices.Add(New cVERAG_CustomsDeclarations_TransitOffice With {
+                        .zaTO_Sequence = i, .zaTO_Office = office,
+                        .zaTO_ExpectedArrival = ToNullableDate(NCTSProp(ncts, "ncts_CustomsOfficeOfTransitDeclared_" & i & "_ArravialDateTime"))
+                    })
+                End If
+            Next
+
+            Dim hcNumber As Integer = 0
+            Dim itemNumber As Integer = 0
+            For Each hc In ncts.ncts_HOUSE_CONSIGNMENT
+                hcNumber += 1
+                ZA.HouseConsignments.Add(New cVERAG_CustomsDeclarations_HouseConsignment With {
+                    .zaHC_Number = hcNumber,
+                    .zaHC_Reference = ToStringSafe(hc.nctsHC_HouseConsignMentReference),
+                    .zaHC_UCR = ToStringSafe(hc.nctsHC_ReferenceNumberUCR),
+                    .zaHC_CountryDispatch = ToStringSafe(hc.nctsHC_CountryOfDispatch),
+                    .zaHC_CountryDestination = ToStringSafe(hc.nctsHC_CountryOfDestination),
+                    .zaHC_GrossMass = ToNullableDecimal(hc.nctsHC_GrossMass)
+                })
+                For Each ci In hc.nctsWP_CONSIGNMENT_ITEM
+                    itemNumber += 1
+                    Dim pos = ToInt(ci.nctsHCCI_DeclarationGoodsItemNumber)
+                    If pos <= 0 Then pos = ToInt(ci.nctsHCCI_GoodsItemNumber)
+                    If pos <= 0 Then pos = itemNumber
+                    Dim it As New cVERAG_CustomsDeclarations_Item With {
+                        .zaItem_PosNo = pos,
+                        .zaItem_HouseConsignmentNumber = hcNumber,
+                        .zaItem_ArticleCode = ToStringSafe(ci.nctsHCCI_ArticleCode),
+                        .zaItem_HSCode = ToStringSafe(ci.nctsHCCI_CommodityCode),
+                        .zaItem_Description = ToStringSafe(ci.nctsHCCI_DescriptionOfGoods),
+                        .zaItem_GrossMass = ToNullableDecimal(ci.nctsHCCI_GrossMass),
+                        .zaItem_NetMass = ToNullableDecimal(ci.nctsHCCI_NetMass),
+                        .zaItem_InvoiceValueForeign = ToNullableDecimal(ci.nctsHCCI_GoodsValue),
+                        .zaItem_InvoiceCurrency = ToStringSafe(ci.nctsHCCI_CurrencyOfGoodsValue)
+                    }
+                    For Each pk In ci.nctsHCCI_PACKAGING
+                        Dim pkg As New cVERAG_CustomsDeclarations_ItemPackage With {
+                            .zaPkg_Type = ToStringSafe(pk.nctsHCCIPK_TypeOfPackages),
+                            .zaPkg_Number = ToNullableInteger(pk.nctsHCCIPK_NumberOfPackages),
+                            .zaPkg_Marks = ToStringSafe(pk.nctsHCCIPK_ShippingMarks)
+                        }
+                        it.Packages.Add(pkg)
+                    Next
+                    If it.Packages.Count > 0 Then
+                        it.zaItem_PackageType = it.Packages(0).zaPkg_Type
+                        it.zaItem_PackageColli = If(it.Packages(0).zaPkg_Number.HasValue, it.Packages(0).zaPkg_Number.Value.ToString(), Nothing)
+                        it.zaItem_PackageMark = it.Packages(0).zaPkg_Marks
+                    End If
+                    AddNCTSDocs(it.Documents, ci, "nctsHCCI_")
+                    ZA.Items.Add(it)
+                Next
+            Next
+            AddNCTSDocs(ZA.Documents, ncts, "ncts_")
+            ' SAVE_TRANSIT ist aktuell separat; bestehende NCTS-Datensätze nur in Test-DB überschreiben.
+            If Not ZA.SAVE() Then Return False
+            ZA.SAVE_TRANSIT()
+            Return True
+        Catch ex As Exception
+            cErrorHandler.ERR(ex.Message, ex.StackTrace, Reflection.MethodInfo.GetCurrentMethod.Name)
+            Return False
+        End Try
+    End Function
+
+    Private Function ExistsNCTSInVERAG(mrn As String, anr As String) As Boolean
+        Dim sqlstr = "SELECT TOP 1 1 FROM tblVERAG_CustomsDeclarations WHERE za_System='DAKOSY' AND za_REGIME='TRANSIT' AND (za_MRN=@mrn OR za_MRN=@anr OR za_DeclarationNo=@anr)"
+        Dim args As New List(Of SQLVariable) From {New SQLVariable("mrn", mrn), New SQLVariable("anr", anr)}
+        Dim dt = New SQL().loadDgvBySql_Param(sqlstr, "VERAG", , args)
+        Return dt IsNot Nothing AndAlso dt.Rows.Count > 0
+    End Function
+
+    Private Sub AddNCTSParty(za As cVERAG_CustomsDeclarations, role As String, eori As Object, name As Object, street As Object, zip As Object, city As Object, country As Object, Optional subsidiary As Object = Nothing)
+        If String.IsNullOrWhiteSpace(ToStringSafe(eori)) AndAlso String.IsNullOrWhiteSpace(ToStringSafe(name)) Then Exit Sub
+        za.Parties.Add(New cVERAG_CustomsDeclarations_Parties With {
+            .zaParty_Role = role, .zaParty_EORI = ToStringSafe(eori), .zaParty_SubsidiaryNumber = ToStringSafe(subsidiary),
+            .zaParty_Name = ToStringSafe(name), .zaParty_Street = ToStringSafe(street),
+            .zaParty_PostalCode = ToStringSafe(zip), .zaParty_City = ToStringSafe(city), .zaParty_Country = ToStringSafe(country)
+        })
+    End Sub
+
+    Private Function NCTSProp(obj As Object, name As String) As Object
+        Dim p = obj.GetType().GetProperty(name)
+        Return If(p Is Nothing, Nothing, p.GetValue(obj, Nothing))
+    End Function
+
+    Private Sub AddNCTSDocs(docs As List(Of cVERAG_CustomsDeclarations_Document), obj As Object, prefix As String)
+        For Each kind In {"SupportingDocument", "PreviousDocument", "TransportDocument"}
+            For i As Integer = 1 To 9
+                Dim baseName = prefix & kind & "_" & i & "_"
+                Dim typ = ToStringSafe(NCTSProp(obj, baseName & "Type"))
+                Dim number = ToStringSafe(NCTSProp(obj, baseName & "ReferenceNumber"))
+                If String.IsNullOrWhiteSpace(typ) AndAlso String.IsNullOrWhiteSpace(number) Then Continue For
+                docs.Add(New cVERAG_CustomsDeclarations_Document With {
+                    .zaDoc_Section = kind, .zaDoc_Code = typ, .zaDoc_Reference = number
+                })
+            Next
+        Next
+    End Sub
+
+    Private Function ToNullableInteger(v As Object) As Integer?
+        If v Is Nothing OrElse v Is DBNull.Value Then Return Nothing
+        Dim i As Integer
+        If Integer.TryParse(ToStringSafe(v), i) Then Return i
+        Return Nothing
+    End Function
+
    ' =====================================================================
    ' DUPLIKATSPRÜFUNG
    ' =====================================================================
--- a/initATLASAufschubkonten/cWorker_AES_EXG.vb
+++ b/initATLASAufschubkonten/cWorker_AES_EXG.vb
@@ -99,13 +99,12 @@ Public Class cWorker_AES_EXG
                                        EXG_ITEM.exgPos_GoodsItemNumber = ITEM.GoodsItemNumber


-                                        'Tarifnummer prüfen und zusammenstellen
+                                        'Tarifnummer als 8-stelligen String zusammensetzen
                                        Dim hsCode As String = If(ITEM.HarmonizedSystemSubHeadingCode, "").Trim()
                                        Dim cnCode As String = If(ITEM.CombinedNomenclatureCode, "").Trim()
+                                        If cnCode <> "" Then cnCode = cnCode.PadLeft(2, "0"c)
                                        EXG_ITEM.exgPos_CommodityCode = hsCode & cnCode
-                                        If (hsCode <> "" AndAlso hsCode.Length <> 6) OrElse (cnCode <> "" AndAlso cnCode.Length <> 2) OrElse (hsCode = "" AndAlso cnCode <> "") Then
-                                            Debug.WriteLine("Ungültige Warentarifnummer in Position " & ITEM.GoodsItemNumber & ": " & EXG_ITEM.exgPos_CommodityCode)
-                                        End If
+


                                        EXG_ITEM.exgPos_DescriptionOfGoods = ITEM.DescriptionOfGoods
--- a/initATLASAufschubkonten/cWorker_NCTS.vb
+++ b/initATLASAufschubkonten/cWorker_NCTS.vb
@@ -2445,6 +2445,10 @@ Public Class cWorker_NCTS
                If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id
                STATUS.SAVE()

+                ''=====IMPORT IN VERAG DATENMODELL==========
+                'Dim IMP As New DAKOSY_Worker.cImporter_DakosyToVERAG
+                'IMP.ImportDakosyNCTS(NCTS_TMP, False)
+                ''==================================

                '=====ATEZ BEREITSTELLUNG==========
                checkATEZ_Bereitstellung(DY_TMP, d)
@@ -3134,6 +3138,11 @@ Public Class cWorker_NCTS
                cVERAG_out_ncts.copyFileFTP_VERAGncts_DY(NCTS_TMP, DY_TMP)
                '======================================================

+                ''=====IMPORT IN VERAG DATENMODELL==========
+                'Dim IMP As New DAKOSY_Worker.cImporter_DakosyToVERAG
+                'IMP.ImportDakosyNCTS(NCTS_TMP, False)
+                ''==================================
+
                '=====ATEZ BEREITSTELLUNG==========
                checkATEZ_Bereitstellung(DY_TMP, d)
                '==================================
@@ -3207,6 +3216,11 @@ Public Class cWorker_NCTS
                cVERAG_out_ncts.copyFileFTP_VERAGncts_DY(NCTS_TMP, DY_TMP)
                '======================================================

+                ''=====IMPORT IN VERAG DATENMODELL==========
+                'Dim IMP As New DAKOSY_Worker.cImporter_DakosyToVERAG
+                'IMP.ImportDakosyNCTS(NCTS_TMP, False)
+                ''==================================
+
                '=====ATEZ BEREITSTELLUNG==========
                checkATEZ_Bereitstellung(DY_TMP, d)
                '====================================================
@@ -3276,6 +3290,11 @@ Public Class cWorker_NCTS
                If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id
                STATUS.SAVE()

+                '=====IMPORT IN VERAG DATENMODELL==========
+                Dim IMP As New DAKOSY_Worker.cImporter_DakosyToVERAG
+                IMP.ImportDakosyNCTS(NCTS_TMP, True)
+                '==================================
+
                '=======BEREITSTELLUNG DER DATEN AN FREMDSYSTEME=======
                cVERAG_out_ncts.copyFileFTP_VERAGncts004_DY(NCTS_TMP, DY_TMP)
                '======================================================
@@ -3352,6 +3371,11 @@ Public Class cWorker_NCTS
                If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id
                STATUS.SAVE()

+                '=====IMPORT IN VERAG DATENMODELL==========
+                Dim IMP As New DAKOSY_Worker.cImporter_DakosyToVERAG
+                IMP.ImportDakosyNCTS(NCTS_TMP, True)
+                '==================================
+
                '=======BEREITSTELLUNG DER DATEN AN FREMDSYSTEME=======
                cVERAG_out_ncts.copyFileFTP_VERAGncts004_DY(NCTS_TMP, DY_TMP)
                '======================================================
@@ -3660,6 +3684,11 @@ Public Class cWorker_NCTS

                NCTS_TMP.insertIntoSpedBuch(DY_TMP)

+                ''=====IMPORT IN VERAG DATENMODELL==========
+                'Dim IMP As New DAKOSY_Worker.cImporter_DakosyToVERAG
+                'IMP.ImportDakosyNCTS(NCTS_TMP, False)
+                ''==================================
+

                '=====ATEZ BEREITSTELLUNG==========
                checkATEZ_Bereitstellung(DY_TMP, d)
@@ -3780,6 +3809,11 @@ Public Class cWorker_NCTS

                NCTS_TMP.insertIntoSpedBuch(DY_TMP)

+                ''=====IMPORT IN VERAG DATENMODELL==========
+                'Dim IMP As New DAKOSY_Worker.cImporter_DakosyToVERAG
+                'IMP.ImportDakosyNCTS(NCTS_TMP, True)
+                ''==================================
+

                '=====ATEZ BEREITSTELLUNG==========
                checkATEZ_Bereitstellung(DY_TMP, d)
@@ -3950,6 +3984,13 @@ Public Class cWorker_NCTS
                NCTS_TMP.insertIntoSpedBuch(DY_TMP)


+                '=====IMPORT IN VERAG DATENMODELL==========
+                Dim IMP As New DAKOSY_Worker.cImporter_DakosyToVERAG
+                IMP.ImportDakosyNCTS(NCTS_TMP, True)
+                '==================================
+
+
+
                '=====ATEZ BEREITSTELLUNG==========
                checkATEZ_Bereitstellung(DY_TMP, d)
                '==================================
@@ -4178,6 +4219,11 @@ Public Class cWorker_NCTS
                    NCTS_TMP.insertIntoSpedBuch(DY_TMP)


+                    '=====IMPORT IN VERAG DATENMODELL==========
+                    Dim IMP As New DAKOSY_Worker.cImporter_DakosyToVERAG
+                    IMP.ImportDakosyNCTS(NCTS_TMP, True)
+                    '==================================
+
                    '=====ATEZ BEREITSTELLUNG==========
                    checkATEZ_Bereitstellung(DY_TMP, d)
                    '==================================
@@ -4469,6 +4515,11 @@ Public Class cWorker_NCTS
                If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id
                STATUS.SAVE()

+                ''''=====IMPORT IN VERAG DATENMODELL==========
+                '''Dim IMP As New DAKOSY_Worker.cImporter_DakosyToVERAG
+                '''IMP.ImportDakosyNCTS(NCTS_TMP, True)
+                ''''==================================
+
                '=====ATEZ BEREITSTELLUNG==========
                checkATEZ_Bereitstellung(DY_TMP, d)
                '==================================
@@ -4546,6 +4597,11 @@ Public Class cWorker_NCTS
                If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id
                STATUS.SAVE()

+                '''=====IMPORT IN VERAG DATENMODELL==========
+                ''Dim IMP As New DAKOSY_Worker.cImporter_DakosyToVERAG
+                ''IMP.ImportDakosyNCTS(NCTS_TMP, False)
+
+                '==================================
                '=====ATEZ BEREITSTELLUNG==========
                checkATEZ_Bereitstellung(DY_TMP, d)
                '==================================
@@ -4622,6 +4678,11 @@ Public Class cWorker_NCTS
                If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id
                STATUS.SAVE()

+                '=====IMPORT IN VERAG DATENMODELL==========
+                Dim IMP As New DAKOSY_Worker.cImporter_DakosyToVERAG
+                IMP.ImportDakosyNCTS(NCTS_TMP, True)
+                '==================================
+
                '=====ATEZ BEREITSTELLUNG==========
                checkATEZ_Bereitstellung(DY_TMP, d)
                '==================================