MS11.01(2)

This commit is contained in:
SchreiberM
2017-01-12 11:47:43 +01:00
parent 03ae19ae3e
commit 2af5a0bc0d
18 changed files with 59308 additions and 1606 deletions

View File

@@ -44,8 +44,8 @@
Public Shared Function GET_DATATABLE_INDICES_PMO()
Try
Dim sql = String.Format("SELECT * FROM TBPMO_INDEX_MAN WHERE ENTITY_ID = (SELECT CASE REDUNDANT_ENTITY WHEN 0 THEN GUID ELSE REDUNDANT_ENTITY END AS ENTITY_ID FROM TBPMO_FORM WHERE GUID = {0}) AND DOCTYPE_ID = {1}", CURRENT_ENTITY_ID, CURRENT_DOKARTID)
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
If LogErrorsOnly = False Then ClassLogger.Add(" >> GET_DATATABLE_INDICES_PMO: " & sql, True)
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql, True)
If LogErrorsOnly = False Then ClassLogger.Add(" >> GET_DATATABLE_INDICES_PMO: " & sql, False)
CURRENT_TBPMO_INDEX_MAN = DT
Return True
Catch ex As Exception