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

uid

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-07-07 14:21:35 +02:00
parent e6fb40254a
commit bb3ea4424e
4 changed files with 183 additions and 159 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
DAKOSY_Worker/cZollsysteme_Aktenbeschriftung.vb
View File

@@ -105,12 +105,24 @@ Public Class cZollsysteme_Aktenbeschriftung
Case Else
Select Case Abfertigungsart
Case 38, 26 'AT
' getADFrom_EZOLL
getDataByBezugsnummer = load_NCTS004_FromDAKOSY(BezugsNr, True, PosNrAngeben) 'Neues NCTS Format!
If Not getDataByBezugsnummer Then 'Falls doch nicht
getDataByBezugsnummer = load_NCTS_FromDAKOSY(BezugsNr, True, PosNrAngeben)
isUeT1 = (getDataByBezugsnummer)
Sachbearbeiter = "" ' Bei Ü-T1 soll der SB leer sein, sonst wird dieser evtl. beim Austragen herangezogen...
Select Case Zollsystem_Land
Case "AT"
'eZoll
getDataByBezugsnummer = load_EZA_FromEZOLL(BezugsNr, True)
Case Else
getDataByBezugsnummer = load_EZA_FromDAKOSY(BezugsNr, True)
End Select
If getDataByBezugsnummer = "" Then
' getADFrom_EZOLL
getDataByBezugsnummer = load_NCTS004_FromDAKOSY(BezugsNr, True, PosNrAngeben) 'Neues NCTS Format!
If Not getDataByBezugsnummer Then 'Falls doch nicht
getDataByBezugsnummer = load_NCTS_FromDAKOSY(BezugsNr, True, PosNrAngeben)
isUeT1 = (getDataByBezugsnummer)
Sachbearbeiter = "" ' Bei Ü-T1 soll der SB leer sein, sonst wird dieser evtl. beim Austragen herangezogen...
End If
End If
Case 1, 2, 3, 28, 39
'... and Systeme