diff --git a/DAKOSY_Worker/cImporter_DakosyToVERAG.vb b/DAKOSY_Worker/cImporter_DakosyToVERAG.vb index d6f6b0a..0bb86af 100644 --- 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 ' ===================================================================== diff --git a/initATLASAufschubkonten/cWorker_AES_EXG.vb b/initATLASAufschubkonten/cWorker_AES_EXG.vb index 77d8b63..78fc0c4 100644 --- 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 diff --git a/initATLASAufschubkonten/cWorker_NCTS.vb b/initATLASAufschubkonten/cWorker_NCTS.vb index ea17a12..e7f3fb7 100644 --- 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) '==================================