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

MS_21.01.2016

Browse Source
This commit is contained in:
SchreiberM
2016-01-21 17:05:06 +01:00
parent 9df213f39f
commit bed11c3d80
14 changed files with 376 additions and 241 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -80,7 +80,7 @@
' SQL Befehl für CONTROL TABELLE
' SQL_COMMAND_1 auf leeren String setzen
SQL = "INSERT INTO TBPMO_CONTROL (FORM_ID, CONTROL_TYPE_ID, DEFAULT_VALUE, NAME, COL_NAME, PARENT_CONTROL_ID, SQL_COMMAND_1) VALUES (" & CURRENT_FORM_ID & ", " & CONTROL_TYPE_ID & ", '', '" & NAME & "', '" & NAME & "', " & PARENT_CONTROL_ID & ", '')"
SQL = "INSERT INTO TBPMO_CONTROL (CURRENT_FORM_ID, CONTROL_TYPE_ID, DEFAULT_VALUE, NAME, COL_NAME, PARENT_CONTROL_ID, SQL_COMMAND_1) VALUES (" & CURRENT_FORM_ID & ", " & CONTROL_TYPE_ID & ", '', '" & NAME & "', '" & NAME & "', " & PARENT_CONTROL_ID & ", '')"
If ClassDatabase.Execute_non_Query(SQL) = True Then
SQL = "SELECT MAX(GUID) FROM TBPMO_CONTROL"
@@ -92,7 +92,8 @@
End If
Catch ex As Exception
MsgBox("Fehler beim Einfügen des Elements:" + vbNewLine + ex.Message, MsgBoxStyle.Critical)
ClassLogger.Add("Unexpected Error in InsertControl: " & ex.Message, True)
MsgBox("Unexpected Error in InsertControl:" + vbNewLine + ex.Message, MsgBoxStyle.Critical)
Return False
End Try
End Function
@@ -111,7 +112,7 @@
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 & ")"
'SQL = "SELECT MAX(TAB_INDEX) FROM TBPMO_CONTROL_SCREEN WHERE CONTROL_ID IN (SELECT GUID FROM TBPMO_CONTROL WHERE CURRENT_FORM_ID = " & CURRENT_FORM_ID & ")"
'TAB_INDEX = ClassDatabase.Execute_Scalar(SQL)
'If Not TAB_INDEX Is Nothing Then
' If IsDBNull(TAB_INDEX) Then
@@ -133,6 +134,7 @@
End If
Catch ex As Exception
ClassLogger.Add("Unexpected Error in InsertControlScreen: " & ex.Message, True)
MsgBox("Unexpected Error in InsertControlScreen (Adding ViewProperties:" + vbNewLine + ex.Message, MsgBoxStyle.Critical)
Return False
End Try
@@ -157,7 +159,8 @@
Throw New Exception()
End If
Catch ex As Exception
MsgBox("Fehler beim Aktualisieren der Elementposition:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
ClassLogger.Add("Unexpected Error in UpdateControlPosition: " & ex.Message, True)
MsgBox("Unexpected Error in UpdateControlPosition:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Return False
End Try
End Function
@@ -290,7 +293,8 @@
Throw New Exception()
End If
Catch ex As Exception
MsgBox("Fehler beim Aktualisieren des Elements:" + vbNewLine + ex.Message, MsgBoxStyle.Critical)
ClassLogger.Add("Unexpected Error in UpdateControl: " & ex.Message, True)
MsgBox("Unexpected Error in UpdateControl:" + vbNewLine + ex.Message, MsgBoxStyle.Critical)
Return False
End Try
End Function
@@ -433,7 +437,8 @@
End If
Catch ex As Exception
MsgBox("Fehler beim Aktualisieren der Ansichtseigenschaften des Elements:" + vbNewLine + ex.Message, MsgBoxStyle.Critical)
ClassLogger.Add("Unexpected Error in UpdateControlScreen: " & ex.Message, True)
MsgBox("Unexpected Error in UpdateControlScreen:" + vbNewLine + ex.Message, MsgBoxStyle.Critical)
Return False
End Try
End Function
@@ -465,7 +470,8 @@
End If
Catch ex As Exception
MsgBox("Fehler beim Löschen des Elements:" + vbNewLine + ex.Message, MsgBoxStyle.Critical)
ClassLogger.Add("Unexpected Error in Delete Control: " & ex.Message, True)
MsgBox("Unexpected Error in Delete Control:" + vbNewLine + ex.Message, MsgBoxStyle.Critical)
Return False
End Try
End Function
@@ -487,7 +493,8 @@
End If
Catch ex As Exception
MsgBox("Fehler beim Löschen des Elements:" + vbNewLine + ex.Message, MsgBoxStyle.Critical)
ClassLogger.Add("Unexpected Error in Delete Control1: " & ex.Message, True)
MsgBox("Unexpected Error in Delete Control1:" + vbNewLine + ex.Message, MsgBoxStyle.Critical)
Return False
End Try
End Function
@@ -503,7 +510,8 @@
Throw New Exception()
End If
Catch ex As Exception
MsgBox("Fehler beim Löschen der Ansichtseigenschaften des Elements:" + vbNewLine + ex.Message, MsgBoxStyle.Critical)
ClassLogger.Add("Unexpected Error in DeleteControlScreen: " & ex.Message, True)
MsgBox("Unexpected Error in DeleteControlScreen:" + vbNewLine + ex.Message, MsgBoxStyle.Critical)
Return False
End Try
End Function
@@ -518,7 +526,8 @@
Throw New Exception()
End If
Catch ex As Exception
MsgBox("Fehler beim Löschen der Werte des Elements:" + vbNewLine + ex.Message, MsgBoxStyle.Critical)
ClassLogger.Add("Unexpected Error in DeleteControlValues: " & ex.Message, True)
MsgBox("Unexpected Error in DeleteControlValues:" + vbNewLine + ex.Message, MsgBoxStyle.Critical)
Return False
End Try
End Function