AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS

Browse Source
This commit is contained in:
SchreiberM
2016-09-27 13:23:30 +02:00
parent 8f3122c24b
commit 51bd2cdb1d
27 changed files with 2750 additions and 1921 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
app/DD-Record-Organiser/ClassFileResult.vb
View File

@@ -33,8 +33,9 @@
End Function
Public Shared Function GET_DATATABLE_INDICES_PMO()
Try
Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBPMO_INDEX_MAN WHERE ENTITY_ID = " & CURRENT_FORM_ID & " AND DOCTYPE_ID = " & CURRENT_DOKARTID)
If LogErrorsOnly = False Then ClassLogger.Add(" >> GET_DATATABLE_INDICES_PMO: SELECT * FROM TBPMO_INDEX_MAN WHERE ENTITY_ID = " & CURRENT_FORM_ID & " AND DOCTYPE_ID = " & CURRENT_DOKARTID, True)
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_FORM_ID, CURRENT_DOKARTID)
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
If LogErrorsOnly = False Then ClassLogger.Add(" >> GET_DATATABLE_INDICES_PMO: " & sql, True)
CURRENT_TBPMO_INDEX_MAN = DT
Return True
Catch ex As Exception