edv/ADMIN
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
d.breimaier
2023-12-04 10:55:58 +01:00
parent 5b537e9887 6084028e62
commit 7addd7b133
1 changed files with 30 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
initATLASAufschubkonten/cWorker_NCTS.vb
View File

@@ -3785,9 +3785,12 @@ Public Class cWorker_NCTS
End If End If
End If
End If
End If End If
' NCTS.LOADByBezugsNr(bezugsNr, False) ' Falls schon ein DS mit dieser Bezugsnummer vorhanden ist. ' 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.ncts_Eroeffnung = zp
NCTS_TMP.SAVE() 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 'For Each TE In NCTS_TMP.ncts_TRANSPORTEQUIPMENT
' If TE.nctsTE_NumberOfSeals > 0 Then ' If TE.nctsTE_NumberOfSeals > 0 Then