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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2022-09-01 16:11:12 +02:00
parent 7f5057dc3e
commit 4b6d595a89
48 changed files with 1650 additions and 753 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
VERAG_PROG_ALLGEMEIN/cAllgemein.vb
View File

@@ -7,6 +7,8 @@ Public Class cAllgemein
Public Shared NIEDERLASSUNG As String 'SUB, WAI, ...
Public Shared ABTEILUNG As String 'QS ZOLL ...
Public Shared STAMMFILIALE As String 'IMEX,UNISPED;ATILLA...
Public Shared WARENORT_ZUGANG As Boolean = False
Public Shared WARENORT As String
Public Shared CLUSTER As String = "" 'Firmenverbund
' Public Shared SPECIFIC As cSPECIFIC = New cSPECIFIC
@@ -36,6 +38,7 @@ Public Class cAllgemein
Public Shared PROGVERSION As String = ""
Public Shared USRNAME As String
Public Shared ABW_USRNAME As String
'Public Shared USRBER As Integer
Public Shared USRID As Integer
Public Shared USR_VNAME As String
@@ -106,6 +109,7 @@ Public Class cAllgemein
End Select
USRNAME = (MITARBEITER.mit_vname & " " & MITARBEITER.mit_nname)
ABW_USRNAME = MITARBEITER.mit_abweichenderAnzeigename
If NIEDERLASSUNG = "" Then NIEDERLASSUNG = MITARBEITER.mit_niederlassung
If ABTEILUNG = "" Then ABTEILUNG = MITARBEITER.mit_abteilung
Else
@@ -394,9 +398,9 @@ Public Class cNCTS_GUARANTEES
Public Shared TOBB() As String = {"17TR0004000032349", "20TR0004000069756", "13TR0004000009323", "21TR0004000097157", "12TR0004000004665", "15TR0004000020917",
"17TR0004000029518", "20DE0000000078205", "19IT01TR000003323", "21TR0004000079552", "21TR0004000078157", "21TR0004000090364", "21TR0004000092350", "20TR0004000069557",
"21TR0004000097564", "21TR0004000084967", "19TR0004000056358", "19TR0004000053175"}
"21TR0004000097564", "21TR0004000084967", "19TR0004000056358", "19TR0004000053175", "19TR0004000053356"}
'old: {"15TR0004000020917", "12TR0004000004665", "17TR0004000032349", "17TR0004000029518", "21TR0004000079552", "21TR0004000078157", "21TR0004000092350", "20TR0004000069756", "21TR0004000090364", "21TR0004000097157"}
Public Shared OREGON() As String = {"18DE0000000073276", "19DE0000000075520", "18DE0000000075520", "15TR0004000020500", "ITTR0000000000153", "21DE0000000079716"}
Public Shared OREGON() As String = {"18DE0000000073276", "19DE0000000075520", "18DE0000000075520", "15TR0004000020500", "ITTR0000000000153", "21DE0000000079716", "21DE0000000081910"}
Public Shared VERAG() As String = {"17DE0000000071678", "05AT510000G000FP7"}
Public Shared IMEX() As String = {"16AT520000G000VA6"}
Public Shared ATILLA() As String = {"20AT520000G000092"}