MS Emailtemplate

This commit is contained in:
2019-11-21 16:30:21 +01:00
parent 65f0763208
commit 7e541a8013
30 changed files with 3539 additions and 1075 deletions

View File

@@ -31,8 +31,10 @@
LOGCONFIG.Debug = True
ElseIf oMode = "PM.IDBWITHWMFS" Then
IDB_USES_WMFILESTORE = True
ElseIf oMode.StartsWith("PM.IDBCS!") Then
CONNECTION_STRING_IDB = oMode.Replace("PM.IDBCS!", "")
ElseIf oMode.StartsWith("PM.IDB_CONID!") Then
Dim CON_ID = oMode.Replace("PM.IDB_CONID!", "")
Dim oConString = ClassDatabase.Get_ConnectionString(CON_ID)
CONNECTION_STRING_IDB = oConString
Dim oSQL = $"SELECT * FROM TBIDB_ATTRIBUTE"
Dim oDT As DataTable = ClassDatabase.Return_Datatable_ConStr(oSQL, CONNECTION_STRING_IDB)
If Not IsNothing(oDT) Then