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

MS_07122015

Browse Source
This commit is contained in:
SchreiberM
2015-12-08 11:12:10 +01:00
parent 161f8c9c2e
commit 6b33117590
14 changed files with 821 additions and 522 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
app/DD-Record-Organiser/ClassControlCommands.vb
View File

@@ -105,30 +105,30 @@
HEIGHT = control.Height
CONTROL_TEXT = control.Text
Dim TAB_INDEX
SQL = "SELECT MAX(TAB_INDEX) FROM TBPMO_CONTROL_SCREEN WHERE CONTROL_ID IN (SELECT GUID FROM TBPMO_CONTROL WHERE FORM_ID = " & CURRENT_FORM_ID & ")"
TAB_INDEX = ClassDatabase.Execute_Scalar(SQL)
If Not TAB_INDEX Is Nothing Then
If IsDBNull(TAB_INDEX) Then
TAB_INDEX = 1
Else
TAB_INDEX = CInt(TAB_INDEX) + 1
End If
'Dim TAB_INDEX
'SQL = "SELECT MAX(TAB_INDEX) FROM TBPMO_CONTROL_SCREEN WHERE CONTROL_ID IN (SELECT GUID FROM TBPMO_CONTROL WHERE FORM_ID = " & CURRENT_FORM_ID & ")"
'TAB_INDEX = ClassDatabase.Execute_Scalar(SQL)
'If Not TAB_INDEX Is Nothing Then
' If IsDBNull(TAB_INDEX) Then
' TAB_INDEX = 1
' Else
' TAB_INDEX = CInt(TAB_INDEX) + 1
' End If
Else
TAB_INDEX = 1
End If
'Else
' TAB_INDEX = 1
'End If
SQL = "INSERT TBPMO_CONTROL_SCREEN (CONTROL_ID, SCREEN_ID, CONTROL_TEXT, X_LOC, Y_LOC, HEIGHT, WIDTH, TAB_INDEX) VALUES (" & guid & ", 1, '" & CONTROL_TEXT & "', " & X_LOC & ", " & Y_LOC & ", " & HEIGHT & ", " & WIDTH & ", " & TAB_INDEX & ")"
SQL = "INSERT TBPMO_CONTROL_SCREEN (CONTROL_ID, SCREEN_ID, CONTROL_TEXT, X_LOC, Y_LOC, HEIGHT, WIDTH) VALUES (" & guid & ", 1, '" & CONTROL_TEXT & "', " & X_LOC & ", " & Y_LOC & ", " & HEIGHT & ", " & WIDTH & ")"
If ClassDatabase.Execute_non_Query(SQL) Then
If ClassDatabase.Execute_non_Query(SQL, True) Then
Return True
Else
Throw New Exception()
End If
Catch ex As Exception
MsgBox("Fehler beim Einfügen der Ansichtseigenschaften des Elements:" + vbNewLine + ex.Message, MsgBoxStyle.Critical)
MsgBox("Unexpected Error in InsertControlScreen (Adding ViewProperties:" + vbNewLine + ex.Message, MsgBoxStyle.Critical)
Return False
End Try
End Function