This commit is contained in:
SchreiberM
2017-01-04 17:09:26 +01:00
128 changed files with 17813 additions and 20419 deletions

View File

@@ -3,7 +3,7 @@
Public Shared Function LoadForm(guid) As DataTable
Try
Dim SQL As String = "SELECT NAME, LEVEL FROM TBPMO_FORM WHERE GUID = " & guid
Dim DT As DataTable = ClassDatabase.Return_Datatable(SQL)
Dim DT As DataTable = ClassDatabase.Return_Datatable(SQL, True)
If DT.Rows.Count = 1 Then
Return DT
@@ -19,7 +19,7 @@
Public Shared Function LoadFormView(guid) As DataTable
Try
Dim SQL As String = "SELECT FORM_TITLE FROM TBPMO_FORM_VIEW WHERE FORM_ID = " & guid
Dim DT As DataTable = ClassDatabase.Return_Datatable(SQL)
Dim DT As DataTable = ClassDatabase.Return_Datatable(SQL, True)
If DT.Rows.Count = 1 Then
Return DT