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

ATLAS 9.1 AES 3.0; NCTS div.

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-09-26 09:01:14 +02:00
parent 04664a652b
commit 39295b2800
21 changed files with 81549 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
DAKOSY_Worker/cZollsysteme_Aktenbeschriftung.vb
View File

@@ -59,7 +59,10 @@ Public Class cZollsysteme_Aktenbeschriftung
Select Case Abfertigungsart
Case 38, 26 'AT
' getADFrom_EZOLL
getATAMRNBezugsnummer = load_NCTS_MRN_FromDAKOSY(BezugsNr, True) 'Ü-T1
getATAMRNBezugsnummer = load_NCTS004_MRN_FromDAKOSY(BezugsNr, True) 'Neues NCTS Format!
If getATAMRNBezugsnummer = "" Then 'Falls doch nicht
getATAMRNBezugsnummer = load_NCTS_MRN_FromDAKOSY(BezugsNr, True) 'Ü-T1
End If
isUeT1 = (getATAMRNBezugsnummer <> "")
Sachbearbeiter = "" ' Bei Ü-T1 soll der SB leer sein, sonst wird dieser evtl. beim Austragen herangezogen...
Case 1, 2, 3, 28, 39
@@ -67,7 +70,10 @@ Public Class cZollsysteme_Aktenbeschriftung
'... and Systeme
Case Else
getATAMRNBezugsnummer = load_NCTS_MRN_FromDAKOSY(BezugsNr, True)
getATAMRNBezugsnummer = load_NCTS004_MRN_FromDAKOSY(BezugsNr, True) 'Neues NCTS Format!
If getATAMRNBezugsnummer = "" Then 'Falls doch nicht
getATAMRNBezugsnummer = load_NCTS_MRN_FromDAKOSY(BezugsNr, True) 'Ü-T1
End If
If getATAMRNBezugsnummer = "" Then 'Falls doch nicht
getATAMRNBezugsnummer = load_EZA_ATA_FromDAKOSY(BezugsNr, True)
End If
@@ -156,6 +162,14 @@ Public Class cZollsysteme_Aktenbeschriftung
Return If(NCTS.ncts_MRN, If(NCTS.ncts_ANR, ""))
End Function
Function load_NCTS004_MRN_FromDAKOSY(BezugsNr, Optional checkValidStatus = False) As String
Dim NCTS = DAKOSY_Worker.cDakosyNCTSOut004.LOADByBezugsNr(BezugsNr, True, checkValidStatus)
If NCTS Is Nothing Then Return ""
load_NCTS004_MRN_FromDAKOSY = If(NCTS.ncts_MRN, If(NCTS.ncts_ANR, ""))
If load_NCTS004_MRN_FromDAKOSY = "" Then load_NCTS004_MRN_FromDAKOSY = NCTS.ncts_ObjectName
End Function
Function load_EZA_FromDAKOSY(BezugsNr As String, Optional checkValidStatus As Boolean = False) As Boolean
@@ -404,6 +418,7 @@ Public Class cZollsysteme_Aktenbeschriftung
Function load_NCTS004_FromDAKOSY(NCTS As DAKOSY_Worker.cDakosyNCTSOut004, PosNrAngeben As Boolean) As Boolean
Try
' VERAG_PROG_ALLGEMEIN.cErrorHandler.sendERRORperMail("004", "004", "", "al@verag.ag", "", "")
If NCTS Is Nothing Then Return Nothing
NCTS.LOAD_HouseConsignment()
@@ -471,6 +486,7 @@ Public Class cZollsysteme_Aktenbeschriftung
ATCMRN = If(If(NCTS.ncts_MRN, "") = "", If(NCTS.ncts_ANR, ""), If(NCTS.ncts_MRN, ""))
If ATCMRN = "" Then ATCMRN = If(NCTS.ncts_ObjectName, "")
VerBestLandZst = If(NCTS.ncts_CountryOfDispatch, "") & " --> "
If VerBestLandZst.Trim.StartsWith("-->") Then VerBestLandZst = VerBestLandZst.Replace("-->", "")