From ba451852134a81b8287840e994a5ee2ed085af48 Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Fri, 1 Dec 2023 15:34:47 +0100 Subject: [PATCH] ncts --- UID/My Project/AssemblyInfo.vb | 4 ++-- initATLASAufschubkonten/cWorker_NCTS.vb | 31 ++++++++++++++++++++++++- 2 files changed, 32 insertions(+), 3 deletions(-) diff --git a/UID/My Project/AssemblyInfo.vb b/UID/My Project/AssemblyInfo.vb index a4a363b..c7ce139 100644 --- a/UID/My Project/AssemblyInfo.vb +++ b/UID/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/initATLASAufschubkonten/cWorker_NCTS.vb b/initATLASAufschubkonten/cWorker_NCTS.vb index 0d65d64..bb64f8f 100644 --- a/initATLASAufschubkonten/cWorker_NCTS.vb +++ b/initATLASAufschubkonten/cWorker_NCTS.vb @@ -3785,9 +3785,12 @@ Public Class cWorker_NCTS End If - End If + + + End If + End If ' NCTS.LOADByBezugsNr(bezugsNr, False) ' Falls schon ein DS mit dieser Bezugsnummer vorhanden ist. @@ -3808,6 +3811,32 @@ Public Class cWorker_NCTS 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 + '------------------------------------------------------------------------------------------------------------------------------ + 'For Each TE In NCTS_TMP.ncts_TRANSPORTEQUIPMENT ' If TE.nctsTE_NumberOfSeals > 0 Then