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-03-19 22:52:06 +01:00
parent 9b001e5803
commit d9204781cf
139 changed files with 19394 additions and 3352 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
VERAG_PROG_ALLGEMEIN/cAllgemein.vb
View File

@@ -32,7 +32,7 @@ Public Class cAllgemein
Public Shared TESTSYSTEM As Boolean = True
Public Shared PROGNAME = ""
Public Shared PROGID As Integer = 16
Public Shared PROGID As Integer = 16 'AVISO
Public Shared PROGVERSION As String = ""
Public Shared USRNAME As String
@@ -388,3 +388,33 @@ Public Class cAllgemein
Return ""
End Function
End Class
Public Class cNCTS_GUARANTEES
Public Shared TOBB() As String = {"17TR0004000032349", "20TR0004000069756", "13TR0004000009323", "21TR0004000097157", "12TR0004000004665", "15TR0004000020917", "17TR0004000029518", "20DE0000000078205", "19IT01TR000003323", "21TR0004000079552", "21TR0004000078157", "21TR0004000090364", "21TR0004000092350"}
'old: {"15TR0004000020917", "12TR0004000004665", "17TR0004000032349", "17TR0004000029518", "21TR0004000079552", "21TR0004000078157", "21TR0004000092350", "20TR0004000069756", "21TR0004000090364", "21TR0004000097157"}
Public Shared OREGON() As String = {"18DE0000000073276", "19DE0000000075520", "18DE0000000075520", "15TR0004000020500", "ITTR0000000000153", "21DE0000000079716"}
Public Shared VERAG() As String = {"17DE0000000071678", "05AT510000G000FP7"}
Public Shared IMEX() As String = {"16AT520000G000VA6"}
Public Shared ATILLA() As String = {"20AT520000G000092"}
Public Shared SGS() As String = {"16DE0000000068410"}
Public Shared MARS() As String = {"15TR0004000020908"}
Public Shared EKOL() As String = {"13TR0004000005094"}
'cboBRG.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TOBB - 15TR0004000020917 / 12TR0004000004665 / 17TR0004000032349 / 17TR0004000029518 / 21TR0004000079552 / 21TR0004000078157 / 21TR0004000092350", " '12TR0004000004665','15TR0004000020917','17TR0004000032349','17TR0004000029518','21TR0004000079552','21TR0004000078157','21TR0004000092350'"))
Public Shared Function getSQLList(arr() As String) As String
getSQLList = ""
For Each i In arr
getSQLList &= "'" & i & "',"
Next
If getSQLList <> "" Then getSQLList = getSQLList.Substring(0, getSQLList.Length - 1)
End Function
Public Shared Function getSlashList(arr) As String
getSlashList = ""
For Each i In arr
getSlashList &= "" & i & " / "
Next
If getSlashList <> "" Then getSlashList = getSlashList.Substring(0, getSlashList.Length - 3)
End Function
End Class