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

EXG, DY Atilla

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-02-12 12:42:28 +01:00
parent 1270932d29
commit cb798cd22b
8 changed files with 247 additions and 150 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
DAKOSY_Worker/cDakosyFunftions.vb
View File

@@ -62,15 +62,18 @@ Public Class cDakosyFunftions
Case "AMBAR"
Return "AMBWO"
Case "VERAG"
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_niederlassung
Case "SUB" : Return "SUB"
Case "SBG" : Return "SBG"
Case "NKD" : Return "NKD"
Case "NEU" : Return "NEU"
Case "WAI" : Return "WAI"
Case Else : Return "SUB"
End Select
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER IsNot Nothing Then
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_niederlassung
Case "SUB" : Return "SUB"
Case "SBG" : Return "SBG"
Case "NKD" : Return "NKD"
Case "NEU" : Return "NEU"
Case "WAI" : Return "WAI"
Case Else : Return "SUB"
End Select
Else
Return "SUB"
End If
Case "UNISPED"
Return ""'"ATSP"
Case "IMEX"