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

MS_04.01

Browse Source
This commit is contained in:
SchreiberM 2017-01-04 17:09:26 +01:00
commit 26812ffeb7
128 changed files with 17813 additions and 20419 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
app/DD-Record-Organiser/ClassAsyncReturnDT.vb
View File

@ -10,6 +10,6 @@ Public Class ClassAsyncReturnDT
Me.sql = sqlCommand Me.sql = sqlCommand
End Sub End Sub
Private Sub bw_DoWork(ByVal sender As Object, ByVal e As DoWorkEventArgs) Handles bw.DoWork Private Sub bw_DoWork(ByVal sender As Object, ByVal e As DoWorkEventArgs) Handles bw.DoWork
Me.dt = ClassDatabase.Return_Datatable(Me.sql, comment) Me.dt = ClassDatabase.Return_Datatable(Me.sql)
End Sub End Sub
End Class End Class

2
app/DD-Record-Organiser/ClassAsyncSQL.vb
View File

@ -13,6 +13,6 @@ Public Class ClassAsyncSQL
End Sub End Sub
Private Sub bw_DoWork(ByVal sender As Object, ByVal e As DoWorkEventArgs) Handles bw.DoWork Private Sub bw_DoWork(ByVal sender As Object, ByVal e As DoWorkEventArgs) Handles bw.DoWork
Me.dt = ClassDatabase.Return_Datatable(Me.sql, "LoadEntityData - Get DTEntity") Me.dt = ClassDatabase.Return_Datatable(Me.sql, True)
End Sub End Sub
End Class End Class

89
app/DD-Record-Organiser/ClassControlBuilder.vb
View File

@ -355,7 +355,7 @@ Public Class ClassControlBuilder
Dim match As System.Text.RegularExpressions.Match = regex.Match(sqlcommand) Dim match As System.Text.RegularExpressions.Match = regex.Match(sqlcommand)
If match.Success Then If match.Success Then
Dim sqlguid = String.Format("SELECT GUID FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = {0} AND RECORD_ID = {1}", CONTROL_ID, CURRENT_RECORD_ID) Dim sqlguid = String.Format("SELECT GUID FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = {0} AND RECORD_ID = {1}", CONTROL_ID, CURRENT_RECORD_ID)
Dim ctrlvalID = ClassDatabase.Execute_Scalar(sqlguid) Dim ctrlvalID = ClassDatabase.Execute_Scalar(sqlguid, True)
Select Case row.Item("FORMAT_TYPE") Select Case row.Item("FORMAT_TYPE")
Case "Currency" Case "Currency"
value = Decimal.Parse(value, Globalization.NumberStyles.Currency).ToString value = Decimal.Parse(value, Globalization.NumberStyles.Currency).ToString
@ -374,15 +374,24 @@ Public Class ClassControlBuilder
' nicht überschrieben werden. Diese Werte werden bereits mit UpdateMultipleValues gespeichert ' nicht überschrieben werden. Diese Werte werden bereits mit UpdateMultipleValues gespeichert
If (Not value.Contains(";")) Then If (Not value.Contains(";")) Then
If Not IsNothing(ctrlvalID) Then If Not IsNothing(ctrlvalID) Then
Dim upd1 = String.Format("UPDATE TBPMO_CONTROL_VALUE SET VALUE = '{0}',CHANGE_STEP = {1},CHANGED_WHO = '{2}' WHERE CONTROL_ID = {3} AND RECORD_ID = {4}", _
value.ToString, CURRENT_CHANGE_STEP, USER_USERNAME, CONTROL_ID, CURRENT_RECORD_ID)
If ClassDatabase.Execute_non_Query(upd1, True) = False Then
If ClassControlCommandsUI.UpdateControlValue(CONTROL_ID, CURRENT_RECORD_ID, value.ToString) = False Then
ClassLogger.Add(" >> Check Update depending control (XX) value as Update was not successful'", False)
Else
' & upd & "'")
End If End If
'Dim upd1 = String.Format("UPDATE TBPMO_CONTROL_VALUE SET VALUE = '{0}',CHANGE_STEP = {1},CHANGED_WHO = '{2}' WHERE CONTROL_ID = {3} AND RECORD_ID = {4}", _
' value.ToString, CURRENT_CHANGE_STEP, USER_USERNAME, CONTROL_ID, CURRENT_RECORD_ID)
'If ClassDatabase.Execute_non_Query(upd1) = False Then
'End If
Else Else
If CURRENT_RECORD_ID <> 0 Then If CURRENT_RECORD_ID <> 0 Then
Dim ins = String.Format("INSERT INTO TBPMO_CONTROL_VALUE (CONTROL_ID,RECORD_ID,VALUE,ADDED_WHO) VALUES ({0},{1},'{2}','{3}')", CONTROL_ID, CURRENT_RECORD_ID, value, USER_USERNAME) If ClassControlCommandsUI.InsertControlValue(CONTROL_ID, CURRENT_RECORD_ID, value) = False Then
ClassDatabase.Execute_non_Query(ins) ClassLogger.Add(" >> Check Insert depending control (XXX) value as it was nothing and Insert was not successful", False)
Else
ClassProxy.Refresh_Control_Data()
End If
End If End If
' If LogErrorsOnly = False Then ClassLogger.Add(" >> Value was nothing - Inserted the ControlValue '" & ins & "'") ' If LogErrorsOnly = False Then ClassLogger.Add(" >> Value was nothing - Inserted the ControlValue '" & ins & "'")
@ -400,9 +409,9 @@ Public Class ClassControlBuilder
End Function).SingleOrDefault() End Function).SingleOrDefault()
sqlcommand = sqlcommand.Replace(match.Groups(1).Value, value) sqlcommand = sqlcommand.Replace(match.Groups(1).Value, value)
If LogErrorsOnly = False Then ClassLogger.Add(" >> " & String.Format("Executing SQL_COMMAND: '{0}' for controlID '{1}'", sqlcommand, dependingControlId)) If LogErrorsOnly = False Then ClassLogger.Add(" >> " & String.Format("Executing SQL_COMMAND: '{0}' for controlID '{1}'", sqlcommand, dependingControlId), False)
Dim dt As DataTable = ClassDatabase.Return_Datatable(sqlcommand) Dim dt As DataTable = ClassDatabase.Return_Datatable(sqlcommand, True)
Dim type = dependingControl.GetType().Name Dim type = dependingControl.GetType().Name
Select Case type Select Case type
@ -422,27 +431,32 @@ Public Class ClassControlBuilder
ControlLoader.DateTimePicker.LoadValue(dependingControl, dateValue) ControlLoader.DateTimePicker.LoadValue(dependingControl, dateValue)
Dim sql1 = String.Format("SELECT GUID FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = {0} AND RECORD_ID = {1}", dependingControlId, CURRENT_RECORD_ID) Dim sql1 = String.Format("SELECT GUID FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = {0} AND RECORD_ID = {1}", dependingControlId, CURRENT_RECORD_ID)
Dim id = ClassDatabase.Execute_Scalar(sql1) Dim id = ClassDatabase.Execute_Scalar(sql1, True)
If Not IsNothing(id) Then If Not IsNothing(id) Then
Dim upd = String.Format("UPDATE TBPMO_CONTROL_VALUE SET VALUE = '{0}', CHANGED_WHO = '{1}' WHERE GUID = {2}", dateValue, USER_USERNAME, id) 'Dim upd = String.Format("UPDATE TBPMO_CONTROL_VALUE SET VALUE = '{0}', CHANGED_WHO = '{1}' WHERE GUID = {2}", dateValue, USER_USERNAME, id)
If ClassDatabase.Execute_non_Query(upd, True) = True Then If ClassControlCommandsUI.UpdateControlValue(dependingControlId, CURRENT_RECORD_ID, dateValue) = True Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> Value was not nothing - Updated the ControlValue '" & upd) If LogErrorsOnly = False Then ClassLogger.Add(" >> Value was not nothing - Updated the ControlValue'", False) '" & upd)
Else Else
ClassLogger.Add(" >> Check Update depending control value as it was nothing and Update was not successful - Update-Command '" & upd & "'") ClassLogger.Add(" >> Check Update depending control (DateEdit) value as it was nothing and Update was not successful - Update-Command '", False) ' & upd & "'")
End If End If
Else Else
Dim ins = String.Format("INSERT INTO TBPMO_CONTROL_VALUE (CONTROL_ID,RECORD_ID,VALUE,ADDED_WHO) VALUES ({0},{1},'{2}','{3}')", dependingControlId, CURRENT_RECORD_ID, dateValue, USER_USERNAME) If ClassControlCommandsUI.InsertControlValue(dependingControlId, CURRENT_RECORD_ID, dateValue) = True Then
If ClassDatabase.Execute_non_Query(ins) = True Then If LogErrorsOnly = False Then ClassLogger.Add(" >> Value was nothing - Inserted the ControlValue (DateEdit)!", False)
If LogErrorsOnly = False Then ClassLogger.Add(" >> Value was nothing - Inserted the ControlValue '" & ins & "'")
Else Else
ClassLogger.Add(" >> Check Insert depending control value as it was nothing and Insert was not successful- Insert-Command '" & ins & "'") ClassLogger.Add(" >> Check Insert depending control (DateEdit)value as it was nothing and Insert was not successful", False)
End If End If
'Dim ins = String.Format("INSERT INTO TBPMO_CONTROL_VALUE (CONTROL_ID,RECORD_ID,VALUE,ADDED_WHO) VALUES ({0},{1},'{2}','{3}')", dependingControlId, CURRENT_RECORD_ID, dateValue, USER_USERNAME)
'If ClassDatabase.Execute_non_Query(ins) = True Then
' If LogErrorsOnly = False Then ClassLogger.Add(" >> Value was nothing - Inserted the ControlValue '" & ins & "'")
'Else
' ClassLogger.Add(" >> Check Insert depending control value as it was nothing and Insert was not successful- Insert-Command '" & ins & "'")
'End If
End If End If
Catch ex As Exception Catch ex As Exception
ClassLogger.Add("Unexpectet Error in OnComboBoxValueChanged - TextBox: " & ex.Message, True) ClassLogger.Add("Unexpected Error in OnComboBoxValueChanged - TextBox: " & ex.Message, True)
End Try End Try
Else Else
ClassLogger.Add(" >> Attention: RowCount for depending control was '" & dt.Rows.Count.ToString & "' and not 1 as expected - Check SQL: '" & sqlcommand & "'") ClassLogger.Add(" >> Attention: RowCount for depending control was '" & dt.Rows.Count.ToString & "' and not 1 as expected - Check SQL: '" & sqlcommand & "'")
@ -461,7 +475,7 @@ Public Class ClassControlBuilder
'ClassControlValues.LoadControlValue(CURRENT_RECORD_ID, CURRENT_PARENT_RECORD_ID, dependingControlId, dependingControl, values, CURRENT_ENTITY_ID) 'ClassControlValues.LoadControlValue(CURRENT_RECORD_ID, CURRENT_PARENT_RECORD_ID, dependingControlId, dependingControl, values, CURRENT_ENTITY_ID)
ControlLoader.CheckedListBox.LoadValue(checkedlistbox, values) ControlLoader.CheckedListBox.LoadValue(checkedlistbox, values)
If IsEdit Or IsInsert Then If IsEdit Or IsInsert Then
CURRENT_RECORD_ENABLED = True CURRENT_RECORD_ENABLED = True
@ -481,23 +495,33 @@ Public Class ClassControlBuilder
Dim value1 As String = dt.Rows(0).Item(0) Dim value1 As String = dt.Rows(0).Item(0)
ControlLoader.TextBox.LoadValue(DirectCast(dependingControl, TextBox), 9999, 9999, value1, 999, True) ControlLoader.TextBox.LoadValue(DirectCast(dependingControl, TextBox), 9999, 9999, value1, 999, True)
Dim sqltextbox = String.Format("SELECT GUID FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = {0} AND RECORD_ID = {1}", dependingControlId, CURRENT_RECORD_ID) Dim sqltextbox = String.Format("SELECT GUID FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = {0} AND RECORD_ID = {1}", dependingControlId, CURRENT_RECORD_ID)
Dim id = ClassDatabase.Execute_Scalar(sqltextbox) Dim id = ClassDatabase.Execute_Scalar(sqltextbox, True)
If Not IsNothing(id) Then If Not IsNothing(id) Then
Dim upd = String.Format("UPDATE TBPMO_CONTROL_VALUE SET VALUE = '{0}', CHANGED_WHO = '{1}' WHERE GUID = {2}", value1, USER_USERNAME, id) If ClassControlCommandsUI.UpdateControlValue(dependingControlId, CURRENT_RECORD_ID, value1) = True Then
If ClassDatabase.Execute_non_Query(upd, True) = True Then If LogErrorsOnly = False Then ClassLogger.Add(" >> Value was not nothing - Updated the ControlValue'", False) '" & upd)
If LogErrorsOnly = False Then ClassLogger.Add(" >> Value was not nothing - Updated the ControlValue '" & upd)
Else Else
ClassLogger.Add(" >> Check Update depending control value as it was nothing and Update was not successful - Update-Command '" & upd & "'") ClassLogger.Add(" >> Check Update depending control (TextBox) value as it was nothing and Update was not successful - Update-Command '", False) ' & upd & "'")
End If End If
'Dim upd = String.Format("UPDATE TBPMO_CONTROL_VALUE SET VALUE = '{0}', CHANGED_WHO = '{1}' WHERE GUID = {2}", value1, USER_USERNAME, id)
'If ClassDatabase.Execute_non_Query(upd) = True Then
' If LogErrorsOnly = False Then ClassLogger.Add(" >> Value was not nothing - Updated the ControlValue '" & upd)
'Else
' ClassLogger.Add(" >> Check Update depending control value as it was nothing and Update was not successful - Update-Command '" & upd & "'")
'End If
Else Else
Dim ins = String.Format("INSERT INTO TBPMO_CONTROL_VALUE (CONTROL_ID,RECORD_ID,VALUE,ADDED_WHO) VALUES ({0},{1},'{2}','{3}')", dependingControlId, CURRENT_RECORD_ID, value1, USER_USERNAME) If ClassControlCommandsUI.InsertControlValue(dependingControlId, CURRENT_RECORD_ID, value1) = True Then
If ClassDatabase.Execute_non_Query(ins) = True Then If LogErrorsOnly = False Then ClassLogger.Add(" >> Value was nothing - Inserted the ControlValue (TextBox)!", False)
If LogErrorsOnly = False Then ClassLogger.Add(" >> Value was nothing - Inserted the ControlValue '" & ins & "'")
Else Else
ClassLogger.Add(" >> Check Insert depending control value as it was nothing and Insert was not successful- Insert-Command '" & ins & "'") ClassLogger.Add(" >> Check Insert depending control (TextBox) value as it was nothing and Insert was not successful", False)
End If End If
'Dim ins = String.Format("INSERT INTO TBPMO_CONTROL_VALUE (CONTROL_ID,RECORD_ID,VALUE,ADDED_WHO) VALUES ({0},{1},'{2}','{3}')", dependingControlId, CURRENT_RECORD_ID, value1, USER_USERNAME)
'If ClassDatabase.Execute_non_Query(ins) = True Then
' If LogErrorsOnly = False Then ClassLogger.Add(" >> Value was nothing - Inserted the ControlValue '" & ins & "'")
'Else
' ClassLogger.Add(" >> Check Insert depending control value as it was nothing and Insert was not successful- Insert-Command '" & ins & "'")
'End If
End If End If
Catch ex As Exception Catch ex As Exception
@ -520,6 +544,7 @@ Public Class ClassControlBuilder
End If End If
Next Next
ClassProxy.Refresh_Control_Data()
Catch ex As Exception Catch ex As Exception
MsgBox("Unexpected error in DependingControls - " & CONTROL_ID.ToString & ": " & ex.Message, MsgBoxStyle.Critical) MsgBox("Unexpected error in DependingControls - " & CONTROL_ID.ToString & ": " & ex.Message, MsgBoxStyle.Critical)
End Try End Try
@ -735,11 +760,11 @@ Public Class ClassControlBuilder
'End If 'End If
Dim SQL1 As String = String.Format("SELECT * FROM VWPMO_VALUES WHERE RECORD_ID = {0}", CURRENT_RECORD_ID) Dim SQL1 As String = String.Format("SELECT * FROM VWPMO_VALUES WHERE RECORD_ID = {0}", CURRENT_RECORD_ID)
Dim DT_ControlValues As DataTable = ClassDatabase.Return_Datatable(SQL1, "LoadControlValues") Dim DT_ControlValues As DataTable = ClassDatabase.Return_Datatable(SQL1, True)
CURRENT_CONTROL_VALUES = DT_ControlValues CURRENT_CONTROL_VALUES = DT_ControlValues
Dim datatable As DataTable = ClassDatabase.Return_Datatable(SQL) Dim datatable As DataTable = ClassDatabase.Return_Datatable(SQL, True)
Dim datatable1 As DataTable = ClassDatabase.Return_Datatable(SQLenable) Dim datatable1 As DataTable = ClassDatabase.Return_Datatable(SQLenable, True)
Depending_Controls(control, datatable, CONTROL_VALUE) Depending_Controls(control, datatable, CONTROL_VALUE)
If IsNothing(CONTROL_VALUE) Then If IsNothing(CONTROL_VALUE) Then
Exit Sub Exit Sub
@ -790,7 +815,7 @@ Public Class ClassControlBuilder
'End If 'End If
Dim SQL1 As String = String.Format("SELECT * FROM VWPMO_VALUES WHERE RECORD_ID = {0}", CURRENT_RECORD_ID) Dim SQL1 As String = String.Format("SELECT * FROM VWPMO_VALUES WHERE RECORD_ID = {0}", CURRENT_RECORD_ID)
Dim DT_ControlValues As DataTable = ClassDatabase.Return_Datatable(SQL1, "LoadControlValues") Dim DT_ControlValues As DataTable = ClassDatabase.Return_Datatable(SQL1, True)
CURRENT_CONTROL_VALUES = DT_ControlValues CURRENT_CONTROL_VALUES = DT_ControlValues
Dim datatable As DataTable = ClassDatabase.Return_Datatable(SQL) Dim datatable As DataTable = ClassDatabase.Return_Datatable(SQL)

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

@ -51,7 +51,7 @@
Public Shared Function GetParentRecordId(RecordId As Integer) As Integer Public Shared Function GetParentRecordId(RecordId As Integer) As Integer
Try Try
Dim parentId = ClassDatabase.Execute_Scalar("SELECT RECORD1_ID FROM TBPMO_RECORD_CONNECT WHERE RECORD2_ID = " & RecordId) Dim parentId = ClassDatabase.Execute_Scalar("SELECT RECORD1_ID FROM TBPMO_RECORD_CONNECT WHERE RECORD2_ID = " & RecordId, True)
If IsNothing(parentId) Then If IsNothing(parentId) Then
Return 0 Return 0
Else Else
@ -64,7 +64,7 @@
Public Shared Function GetFormId(RecordId As Integer) As Integer Public Shared Function GetFormId(RecordId As Integer) As Integer
Try Try
Dim FormId = ClassDatabase.Execute_Scalar("SELECT FORM_ID FROM VWPMO_VALUES WHERE RECORD_ID = " & RecordId) Dim FormId = ClassDatabase.Execute_Scalar("SELECT FORM_ID FROM VWPMO_VALUES WHERE RECORD_ID = " & RecordId, True)
Return FormId Return FormId
Catch ex As Exception Catch ex As Exception
MsgBox("Error in GetFormId:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("Error in GetFormId:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
@ -74,7 +74,7 @@
Public Shared Function GetControlGuid(name As String) Public Shared Function GetControlGuid(name As String)
Try Try
Dim sql = "SELECT GUID FROM TBPMO_CONTROL WHERE UPPER(NAME) = UPPER('" & name & "')" Dim sql = "SELECT GUID FROM TBPMO_CONTROL WHERE UPPER(NAME) = UPPER('" & name & "')"
Return ClassDatabase.Execute_Scalar(sql) Return ClassDatabase.Execute_Scalar(sql, True)
Catch ex As Exception Catch ex As Exception
Return -1 Return -1
End Try End Try
@ -148,16 +148,16 @@
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 & ")" 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, True) Then If ClassDatabase.Execute_non_Query(SQL) Then
' Die Guid in die Metadaten des Controls zurückschreiben ' Die Guid in die Metadaten des Controls zurückschreiben
Dim metadata = DirectCast(control.Tag, ClassControlMetadata) Dim metadata = DirectCast(control.Tag, ClassControlMetadata)
metadata.Id = guid metadata.Id = guid
control.Tag = metadata control.Tag = metadata
SQL = "SELECT MAX(GUID) FROM TBPMO_CONTROL_SCREEN WHERE CONTROL_ID = " & guid & " AND SCREEN_ID = " & CURRENT_SCREEN_ID SQL = "SELECT MAX(GUID) FROM TBPMO_CONTROL_SCREEN WHERE CONTROL_ID = " & guid & " AND SCREEN_ID = " & CURRENT_SCREEN_ID
Dim ctrl_screen_Id = ClassDatabase.Execute_Scalar(SQL, True) Dim ctrl_screen_Id = ClassDatabase.Execute_Scalar(SQL)
SQL = String.Format("INSERT INTO TBPMO_CONTROL_LANGUAGE (LANGUAGE_TYPE,CONTROL_SCREEN_ID,CAPTION,ADDED_WHO) VALUES ('{0}',{1},'{2}','{3}')", USER_LANGUAGE, ctrl_screen_Id, CONTROL_TEXT, USER_USERNAME) SQL = String.Format("INSERT INTO TBPMO_CONTROL_LANGUAGE (LANGUAGE_TYPE,CONTROL_SCREEN_ID,CAPTION,ADDED_WHO) VALUES ('{0}',{1},'{2}','{3}')", USER_LANGUAGE, ctrl_screen_Id, CONTROL_TEXT, USER_USERNAME)
ClassDatabase.Execute_non_Query(SQL, True) ClassDatabase.Execute_non_Query(SQL)
Return True Return True
Else Else
Throw New Exception() Throw New Exception()
@ -426,7 +426,7 @@
Dim upd = String.Format("UPDATE TBPMO_CONTROL_LANGUAGE SET CAPTION = '{0}', HINT = '{1}' WHERE LANGUAGE_TYPE = '{2}' AND " & _ Dim upd = String.Format("UPDATE TBPMO_CONTROL_LANGUAGE SET CAPTION = '{0}', HINT = '{1}' WHERE LANGUAGE_TYPE = '{2}' AND " & _
"CONTROL_SCREEN_ID = (SELECT GUID FROM TBPMO_CONTROL_SCREEN WHERE CONTROL_ID = " & _ "CONTROL_SCREEN_ID = (SELECT GUID FROM TBPMO_CONTROL_SCREEN WHERE CONTROL_ID = " & _
CURRENT_CONTROL_ID & " AND SCREEN_ID = " & CURRENT_SCREEN_ID & ")", CONTROL_TEXT, HINT, USER_LANGUAGE) CURRENT_CONTROL_ID & " AND SCREEN_ID = " & CURRENT_SCREEN_ID & ")", CONTROL_TEXT, HINT, USER_LANGUAGE)
ClassDatabase.Execute_non_Query(upd, True) ClassDatabase.Execute_non_Query(upd)
If CurrentType.Contains("Button") Then If CurrentType.Contains("Button") Then
'If control.Tag = "ADDAPPOINTMENT" Then 'If control.Tag = "ADDAPPOINTMENT" Then
If control.Name.Contains("f_addappointment") Then If control.Name.Contains("f_addappointment") Then
@ -516,60 +516,12 @@
Else Else
Return False Return False
End If End If
'If DeleteControlValues(CURRENT_CONTROL_ID) = True Then
' If DeleteControlScreen(CURRENT_CONTROL_ID) = True Then
' If ClassFunctionCommands.DeleteFunction(CURRENT_CONTROL_ID) = True Then
' ss()
' Dim SQL = "DELETE FROM TBPMO_CONTROL_IMAGE WHERE CONTROL_ID = " & CURRENT_CONTROL_ID
' If ClassDatabase.Execute_non_Query(SQL) = True Then
' SQL = "DELETE FROM TBPMO_CONTROL WHERE GUID = " & CURRENT_CONTROL_ID
' If ClassDatabase.Execute_non_Query(SQL) = True Then
' Return True
' End If
' Else
' Return False
' End If
' End If
' Else
' Return False
' End If
'Else
' Return False
'End If
Catch ex As Exception Catch ex As Exception
ClassLogger.Add("Unexpected Error in Delete Control: " & ex.Message, True) ClassLogger.Add("Unexpected Error in Delete Control: " & ex.Message, True)
MsgBox("Unexpected Error in Delete Control:" + vbNewLine + ex.Message, MsgBoxStyle.Critical) MsgBox("Unexpected Error in Delete Control:" + vbNewLine + ex.Message, MsgBoxStyle.Critical)
Return False Return False
End Try End Try
End Function End Function
'Public Shared Function DeleteControl(id As Integer)
' Try
' If DeleteControlValues(id) = True Then
' If DeleteControlScreen(id) = True Then
' If ClassFunctionCommands.DeleteFunction(id) = True Then
' Dim SQL = "DELETE FROM TBPMO_CONTROL WHERE GUID = " & id
' If ClassDatabase.Execute_non_Query(SQL) = True Then
' Return True
' Else
' Throw New Exception()
' End If
' End If
' End If
' End If
' Catch ex As Exception
' 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
Public Shared Function DeleteControlScreen(id As Integer) Public Shared Function DeleteControlScreen(id As Integer)
Try Try
Dim SQL = "DELETE FROM TBPMO_CONTROL_LANGUAGE WHERE CONTROL_SCREEN_ID IN (SELECT GUID FROM TBPMO_CONTROL_SCREEN WHERE CONTROL_ID = " & id & ")" Dim SQL = "DELETE FROM TBPMO_CONTROL_LANGUAGE WHERE CONTROL_SCREEN_ID IN (SELECT GUID FROM TBPMO_CONTROL_SCREEN WHERE CONTROL_ID = " & id & ")"

243
app/DD-Record-Organiser/ClassControlCommandsUI.vb
View File

@ -50,9 +50,9 @@ Public Class ClassControlCommandsUI
Dim sw As New SW("LoadControls") Dim sw As New SW("LoadControls")
Dim SQL As String = String.Format("SELECT T.*, dbo.FNPMO_GET_CONTROL_CAPTION ('{2}', {3},T.CONTROL_ID) AS 'CAPTION' FROM VWPMO_CONTROL_SCREEN T WHERE SCREEN_ID = {0} AND FORM_ID = {1} AND CONTROL_VISIBLE = 1", CURRENT_SCREEN_ID, FormId, USER_LANGUAGE, CURRENT_SCREEN_ID) Dim SQL As String = String.Format("SELECT T.*, dbo.FNPMO_GET_CONTROL_CAPTION ('{2}', {3},T.CONTROL_ID) AS 'CAPTION' FROM VWPMO_CONTROL_SCREEN T WHERE T.SCREEN_ID = {0} AND T.FORM_ID = {1} AND T.CONTROL_VISIBLE = 1", CURRENT_SCREEN_ID, FormId, USER_LANGUAGE, CURRENT_SCREEN_ID)
Dim DT As DataTable = ClassDatabase.Return_Datatable(SQL) Dim DT As DataTable = ClassDatabase.Return_Datatable(SQL, True)
For Each dr As DataRow In DT.Rows For Each dr As DataRow In DT.Rows
Dim parent As GroupBox = Nothing Dim parent As GroupBox = Nothing
@ -330,39 +330,9 @@ Public Class ClassControlCommandsUI
Function SaveRecord(RecordID As Integer, FormID As Integer, Optional foreignRecordID As Integer = 0) As String Function SaveRecord(RecordID As Integer, FormID As Integer, Optional foreignRecordID As Integer = 0) As String
Try Try
Dim ADDED_WHO As String = USER_USERNAME Dim ADDED_WHO As String = USER_USERNAME
'Dim RECORD_ID As Integer
'If IsInsert Then
' If LogErrorsOnly = False Then ClassLogger.Add(" >> (SaveRecord) Insert", False)
' ' Den Record erstellen
' If CreateRecord(FormID) = False Then
' IsInsert = False
' Return "ERROR - INSERT RECORD NOT SUCCESSFUL"
' End If
' ' Die eben erstellte RecordID holen
' RECORD_ID = GetLastRecord()
' CURRENT_RECORD_ID = RECORD_ID
' ' Wenn gegeben, foreignrecordID mit Record verknüpfen
' If foreignRecordID > 0 Then
' If LogErrorsOnly = False Then ClassLogger.Add(" >> foreignRecordID: " & foreignRecordID & "; Record-ID: " & RECORD_ID, False)
' ConnectRecord(foreignRecordID, RECORD_ID)
' End If
' ' Für angegebene Control Typen den Wert speichern
' InsertAllControls(FormID, RECORD_ID, _CtrlBuilder.AllControls)
' ' Status zurücksetzen
' IsInsert = False
' NEW_RECORD_ID = RECORD_ID
' Return "Neuer Datensatz eingefügt - " & Now
'ElseIf IsInsert = False Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> (SaveRecord) Update RecordID: " & RecordID, False) If LogErrorsOnly = False Then ClassLogger.Add(" >> (SaveRecord) Update RecordID: " & RecordID, False)
UpdateAllControls(FormID, RecordID, _CtrlBuilder.AllControls) UpdateAllControls(FormID, RecordID, _CtrlBuilder.AllControls)
ClassProxy.Refresh_Control_Data()
Return "Datensatz aktualisiert - " & Now Return "Datensatz aktualisiert - " & Now
'End If 'End If
Catch ex As Exception Catch ex As Exception
@ -459,8 +429,8 @@ Public Class ClassControlCommandsUI
Else Else
SQL = String.Format("INSERT INTO TBPMO_CONTROL_VALUE (RECORD_ID, CONTROL_ID, VALUE, ADDED_WHO) VALUES ({0}, {1}, '{2}', '{3}')", RecordID, ControlID, VALUE, USER_USERNAME) SQL = String.Format("INSERT INTO TBPMO_CONTROL_VALUE (RECORD_ID, CONTROL_ID, VALUE, ADDED_WHO) VALUES ({0}, {1}, '{2}', '{3}')", RecordID, ControlID, VALUE, USER_USERNAME)
End If End If
ClassProxy.Refresh_Control_Data()
ClassDatabase.Execute_non_Query(SQL, True) ClassDatabase.Execute_non_Query(SQL)
Catch ex As Exception Catch ex As Exception
MsgBox("Error in LinkImage: " & vbNewLine & ex.Message) MsgBox("Error in LinkImage: " & vbNewLine & ex.Message)
End Try End Try
@ -517,7 +487,8 @@ Public Class ClassControlCommandsUI
Dim del = String.Format("DELETE FROM TBPMO_CONTROL_VALUE_CHANGE_HISTORY WHERE UPPER(ADDED_WHO) = '{0}'", USER_USERNAME.ToUpper) Dim del = String.Format("DELETE FROM TBPMO_CONTROL_VALUE_CHANGE_HISTORY WHERE UPPER(ADDED_WHO) = '{0}'", USER_USERNAME.ToUpper)
ClassDatabase.Execute_non_Query(del) ClassDatabase.Execute_non_Query(del)
CURRENT_CHANGE_STEP += 1 CURRENT_CHANGE_STEP += 1
Dim VALUE_EXISTS_DT As DataTable = ClassDatabase.Return_Datatable(String.Format("SELECT RECORD_ID, CONTROL_ID FROM VWPMO_VALUES WHERE RECORD_ID = {0}", RecordID)) Dim sel = String.Format("SELECT RECORD_ID, CONTROL_ID FROM VWPMO_VALUES WHERE RECORD_ID = {0}", RecordID)
Dim VALUE_EXISTS_DT As DataTable = ClassDatabase.Return_Datatable(sel, True)
For Each ctrl As Control In controls For Each ctrl As Control In controls
Console.WriteLine("Updating Control " + ctrl.Name) Console.WriteLine("Updating Control " + ctrl.Name)
@ -587,8 +558,8 @@ Public Class ClassControlCommandsUI
Public Shared Sub UpdateMultipleValues(ControlId As Integer, RecordId As Integer, value As String) Public Shared Sub UpdateMultipleValues(ControlId As Integer, RecordId As Integer, value As String)
Try Try
Dim val = String.Format("SELECT VALUE FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = {0} AND RECORD_ID = {1}", ControlId, RecordId)
Dim dt As DataTable = ClassDatabase.Return_Datatable(String.Format("SELECT VALUE FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = {0} AND RECORD_ID = {1}", ControlId, RecordId)) Dim dt As DataTable = ClassDatabase.Return_Datatable(val, True)
If IsNothing(dt) Then If IsNothing(dt) Then
Exit Sub Exit Sub
End If End If
@ -609,7 +580,7 @@ Public Class ClassControlCommandsUI
'Dim values As New List(Of String)(value.Split(";")) 'Dim values As New List(Of String)(value.Split(";"))
Dim AddValues = values.Except(oldValues) Dim AddValues = values.Except(oldValues)
Dim RemoveValues = oldValues.Except(values) Dim RemoveValues = oldValues.Except(values)
Dim FORMAT_TYPE As String = ClassDatabase.Execute_Scalar("SELECT FORMAT_TYPE FROM TBPMO_CONTROL WHERE GUID = " & ControlId) Dim FORMAT_TYPE As String = ClassDatabase.Execute_Scalar("SELECT FORMAT_TYPE FROM TBPMO_CONTROL WHERE GUID = " & ControlId, True)
For Each _addValue As String In AddValues For Each _addValue As String In AddValues
If Not _addValue = "" Then If Not _addValue = "" Then
@ -626,7 +597,7 @@ Public Class ClassControlCommandsUI
For Each v As String In RemoveValues For Each v As String In RemoveValues
ClassDatabase.Execute_non_Query(String.Format("DELETE FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = {0} AND RECORD_ID = {1} AND VALUE = '{2}'", ControlId, RecordId, v)) ClassDatabase.Execute_non_Query(String.Format("DELETE FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = {0} AND RECORD_ID = {1} AND VALUE = '{2}'", ControlId, RecordId, v))
Next Next
ClassProxy.Refresh_Control_Data()
Catch ex As Exception Catch ex As Exception
MsgBox("Error in UpdateMultipleValues:" & vbNewLine & ex.Message) MsgBox("Error in UpdateMultipleValues:" & vbNewLine & ex.Message)
End Try End Try
@ -662,7 +633,7 @@ Public Class ClassControlCommandsUI
Case "CheckedListBoxControl" Case "CheckedListBoxControl"
Dim chklbx As DevExpress.XtraEditors.CheckedListBoxControl Dim chklbx As DevExpress.XtraEditors.CheckedListBoxControl
chklbx = DirectCast(ctrl, DevExpress.XtraEditors.CheckedListBoxControl) chklbx = DirectCast(ctrl, DevExpress.XtraEditors.CheckedListBoxControl)
Dim SQL_COMAMND = ClassDatabase.Execute_Scalar("SELECT UPPER(SQL_COMMAND_1) FROM TBPMO_CONTROL WHERE GUID = " & CONTROL_ID) Dim SQL_COMAMND = ClassDatabase.Execute_Scalar("SELECT UPPER(SQL_COMMAND_1) FROM TBPMO_CONTROL WHERE GUID = " & CONTROL_ID, True)
'TODO: Wenn keine Datasource vorhanden, angecheckte einträge als string speichern 'TODO: Wenn keine Datasource vorhanden, angecheckte einträge als string speichern
If IsNothing(chklbx.DataSource) Then If IsNothing(chklbx.DataSource) Then
@ -691,7 +662,7 @@ Public Class ClassControlCommandsUI
If CInt(row(0)) > 0 Then If CInt(row(0)) > 0 Then
'Überprüfen ob es den Record gibt 'Überprüfen ob es den Record gibt
Dim SQL = "SELECT COUNT(*) FROM TBPMO_RECORD_CONNECT WHERE RECORD1_ID = " & CURRENT_RECORD_ID & " AND RECORD2_ID = " & CInt(row(0)) Dim SQL = "SELECT COUNT(*) FROM TBPMO_RECORD_CONNECT WHERE RECORD1_ID = " & CURRENT_RECORD_ID & " AND RECORD2_ID = " & CInt(row(0))
If ClassDatabase.Execute_Scalar(SQL) = 1 Then If ClassDatabase.Execute_Scalar(SQL, True) = 1 Then
SQL = "DELETE FROM TBPMO_RECORD_CONNECT WHERE RECORD1_ID = " & CURRENT_RECORD_ID & " AND RECORD2_ID = " & CInt(row(0)) SQL = "DELETE FROM TBPMO_RECORD_CONNECT WHERE RECORD1_ID = " & CURRENT_RECORD_ID & " AND RECORD2_ID = " & CInt(row(0))
If ClassDatabase.Execute_non_Query(SQL) = True Then If ClassDatabase.Execute_non_Query(SQL) = True Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> TBPMO_RECORD_CONNECT-Entry after 'deselect CheckedListBox' deleted", False) If LogErrorsOnly = False Then ClassLogger.Add(" >> TBPMO_RECORD_CONNECT-Entry after 'deselect CheckedListBox' deleted", False)
@ -717,11 +688,11 @@ Public Class ClassControlCommandsUI
checked_result.Add(checked_value) checked_result.Add(checked_value)
checked_result_string = String.Join(";", checked_result) checked_result_string = String.Join(";", checked_result)
Dim SQL = "SELECT COUNT(*) FROM TBPMO_RECORD_CONNECT WHERE RECORD1_ID = " & CURRENT_RECORD_ID & " AND RECORD2_ID = " & CInt(row(0)) Dim SQL = "SELECT COUNT(*) FROM TBPMO_RECORD_CONNECT WHERE RECORD1_ID = " & CURRENT_RECORD_ID & " AND RECORD2_ID = " & CInt(row(0))
If ClassDatabase.Execute_Scalar(SQL) = 0 Then If ClassDatabase.Execute_Scalar(SQL, True) = 0 Then
If CURRENT_RECORD_ID = 0 Then If CURRENT_RECORD_ID = 0 Then
MsgBox("Attention: no current record Selected!", MsgBoxStyle.Exclamation) MsgBox("Attention: no current record Selected!", MsgBoxStyle.Exclamation)
Else Else
If ConnectRecord(CURRENT_RECORD_ID, CInt(row(0)), "CheckedListBox;" & ctrl.Name) = True Then If ClassRecordCommands.ConnectRecord(CURRENT_RECORD_ID, CInt(row(0)), "CheckedListBox;" & ctrl.Name) = True Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> Checked ListBox record '" & rid.ToString & "' was linked successfully.", False) If LogErrorsOnly = False Then ClassLogger.Add(" >> Checked ListBox record '" & rid.ToString & "' was linked successfully.", False)
End If End If
End If End If
@ -769,7 +740,7 @@ Public Class ClassControlCommandsUI
Dim chk_grid As DevExpress.XtraGrid.GridControl Dim chk_grid As DevExpress.XtraGrid.GridControl
chk_grid = DirectCast(ctrl, DevExpress.XtraGrid.GridControl) chk_grid = DirectCast(ctrl, DevExpress.XtraGrid.GridControl)
Dim gridview As DevExpress.XtraGrid.Views.Grid.GridView = chk_grid.MainView Dim gridview As DevExpress.XtraGrid.Views.Grid.GridView = chk_grid.MainView
Dim SQL_COMAMND = ClassDatabase.Execute_Scalar("SELECT UPPER(SQL_COMMAND_1) FROM TBPMO_CONTROL WHERE GUID = " & CONTROL_ID) Dim SQL_COMAMND = ClassDatabase.Execute_Scalar("SELECT UPPER(SQL_COMMAND_1) FROM TBPMO_CONTROL WHERE GUID = " & CONTROL_ID, True)
Dim result As New List(Of String) Dim result As New List(Of String)
Dim result_string As String Dim result_string As String
@ -788,131 +759,6 @@ Public Class ClassControlCommandsUI
Return Nothing Return Nothing
End If End If
''TODO: Wenn keine Datasource vorhanden, angecheckte einträge als string speichern
'If IsNothing(chk_grid.DataSource) Then
' Dim result As New List(Of String)
' Dim result_string As String
' For i As Integer = 0 To gridview.DataRowCount
' Dim res = gridview.GetRowCellValue(i, 0)
' If CBool(gridview.GetRowCellValue(i, "CHECKED")) = True Then
' Dim value = gridview.GetRowCellValue(i, 1).ToString.Trim
' result.Add(value)
' End If
' Next
' ' Hier wird ein String zurückgegeben, der als VALUE gespeichert werden soll
' ' Überspringt den Rest der funktion
' result_string = String.Join(";", result)
' If Not IsNothing(result_string) Then
' Return result_string
' Else
' Return Nothing
' End If
'Else
' Dim result As New List(Of String)
' Dim result_string As String
' Dim DT As DataTable = chk_grid.DataSource
' For Each row As DataRow In DT.Rows
' If CBool(row.Item(0)) = True Then
' Dim value = row.Item(1).ToString.Trim
' result.Add(value)
' End If
' Next
' ' Hier wird ein String zurückgegeben, der als VALUE gespeichert werden soll
' ' Überspringt den Rest der funktion
' result_string = String.Join(";", result)
' If Not IsNothing(result_string) Then
' Return result_string
' Else
' Return Nothing
' End If
'End If
'If SQL_COMAMND.ToString.StartsWith("SELECT [RECORD_ID]") Or SQL_COMAMND.ToString.StartsWith("SELECT [RECORD-ID]") Then
' 'Alle Recorddatensätze durchlaufen und überprüfen ob nicht angehakt
' 'Wenn nicht angehakt dann Record löschen
' Dim index As Integer = 0
' For i As Integer = 0 To gridview.DataRowCount
' ' Dim item = chklbx.GetItem(i)
' ' Dim row As DataRowView = CType(item, DataRowView)
' If CBool(gridview.GetRowCellValue(i, "CHECKED")) = False Then
' ' If CInt(row(0)) > 0 Then
' ' 'Überprüfen ob es den Record gibt
' ' Dim SQL = "SELECT COUNT(*) FROM TBPMO_RECORD_CONNECT WHERE RECORD1_ID = " & CURRENT_RECORD_ID & " AND RECORD2_ID = " & CInt(row(0))
' ' If ClassDatabase.Execute_Scalar(SQL) = 1 Then
' ' SQL = "DELETE FROM TBPMO_RECORD_CONNECT WHERE RECORD1_ID = " & CURRENT_RECORD_ID & " AND RECORD2_ID = " & CInt(row(0))
' ' If ClassDatabase.Execute_non_Query(SQL) = True Then
' ' If LogErrorsOnly = False Then ClassLogger.Add(" >> TBPMO_RECORD_CONNECT-Entry after 'deselect CheckedListBox' deleted", False)
' ' End If
' ' End If
' ' End If
' End If
' Next
'End If
''Für jeden gecheckten Eintrag den Record der Stammentität mit dem selektierten linken
'Dim checked_result As New List(Of String)
'Dim checked_result_string As String
'If SQL_COMAMND.ToString.StartsWith("SELECT [RECORD_ID]") Or SQL_COMAMND.ToString.StartsWith("SELECT [RECORD-ID]") Then
' For Each item As Object In DirectCast(ctrl, DevExpress.XtraEditors.CheckedListBoxControl).CheckedItems
' Dim row As DataRowView = CType(item, DataRowView)
' Try
' If CInt(row(0)) > 0 Then
' Dim rid = CInt(row(0))
' Dim checked_value = row(1)
' checked_result.Add(checked_value)
' checked_result_string = String.Join(";", checked_result)
' Dim SQL = "SELECT COUNT(*) FROM TBPMO_RECORD_CONNECT WHERE RECORD1_ID = " & CURRENT_RECORD_ID & " AND RECORD2_ID = " & CInt(row(0))
' If ClassDatabase.Execute_Scalar(SQL) = 0 Then
' If CURRENT_RECORD_ID = 0 Then
' MsgBox("Attention: no current record Selected!", MsgBoxStyle.Exclamation)
' Else
' If ConnectRecord(CURRENT_RECORD_ID, CInt(row(0)), "CheckedListBox;" & ctrl.Name) = True Then
' If LogErrorsOnly = False Then ClassLogger.Add(" >> Checked ListBox record '" & rid.ToString & "' was linked successfully.", False)
' End If
' End If
' End If
' End If
' Catch ex As Exception
' ClassLogger.Add("Error in CheckedListBoxGetControlValue: " & ex.Message, True)
' End Try
' Next
'Else
' For Each item As Object In DirectCast(ctrl, DevExpress.XtraEditors.CheckedListBoxControl).CheckedItems
' Dim row As DataRowView = CType(item, DataRowView)
' If row.DataView.Table.Columns.Count = 1 Then
' Dim checked_value = row(0)
' checked_result.Add(checked_value)
' ElseIf row.DataView.Table.Columns.Count = 2 Then
' Dim checked_value = row(1)
' checked_result.Add(checked_value)
' End If
' checked_result_string = String.Join(";", checked_result)
' Next
'End If
'' Hier wird ein String zurückgegeben, der als VALUE gespeichert werden soll
'' Überspringt den Rest der funktion
'If Not IsNothing(checked_result_string) Then
' 'Dim sql = String.Format("select count(*) from TBPMO_CONTROL_VALUE where CONTROL_ID = {0} and RECORD_ID = {1}", CONTROL_ID, CURRENT_RECORD_ID)
' 'If ClassDatabase.Execute_Scalar(sql) = 0 Then
' ' InsertControlValue(CONTROL_ID, CURRENT_RECORD_ID, "")
' 'End If
' Return checked_result_string
'Else
' 'In jedem Fall Nothing zurückgeben
' Return Nothing
'End If
Case "ListBoxControl" Case "ListBoxControl"
Dim listbox As DevExpress.XtraEditors.ListBoxControl = DirectCast(ctrl, DevExpress.XtraEditors.ListBoxControl) Dim listbox As DevExpress.XtraEditors.ListBoxControl = DirectCast(ctrl, DevExpress.XtraEditors.ListBoxControl)
@ -939,7 +785,7 @@ Public Class ClassControlCommandsUI
Public Shared Function InsertControlValue(ControlID As Integer, RecordID As Integer, Value As String) Public Shared Function InsertControlValue(ControlID As Integer, RecordID As Integer, Value As String)
Try Try
Dim AddedWho = USER_USERNAME Dim AddedWho = USER_USERNAME
Dim FORMAT_TYPE As String = ClassDatabase.Execute_Scalar("SELECT FORMAT_TYPE FROM TBPMO_CONTROL WHERE GUID = " & ControlID) Dim FORMAT_TYPE As String = ClassDatabase.Execute_Scalar("SELECT FORMAT_TYPE FROM TBPMO_CONTROL WHERE GUID = " & ControlID, True)
Select Case FORMAT_TYPE Select Case FORMAT_TYPE
Case "Currency" Case "Currency"
@ -953,24 +799,9 @@ Public Class ClassControlCommandsUI
End If End If
End Select End Select
Dim ins As String = String.Format("INSERT INTO TBPMO_CONTROL_VALUE (CONTROL_ID, RECORD_ID, VALUE, ADDED_WHO) VALUES ({0}, {1}, '{2}', '{3}')", ControlID, RecordID, Value, AddedWho) Dim ins As String = String.Format("INSERT INTO TBPMO_CONTROL_VALUE (CONTROL_ID, RECORD_ID, VALUE, ADDED_WHO) VALUES ({0}, {1}, '{2}', '{3}')", ControlID, RecordID, Value, AddedWho)
ClassProxy.Refresh_Control_Data()
Return ClassDatabase.Execute_non_Query(ins) Return ClassDatabase.Execute_non_Query(ins)
'Using conn As New SqlClient.SqlConnection(MyConnectionString)
' Dim cmd As New SqlClient.SqlCommand("INSERT INTO TBPMO_CONTROL_VALUE (CONTROL_ID, RECORD_ID, VALUE, ADDED_WHO) VALUES (@CONTROL_ID, @RECORD_ID, @VALUE, @ADDED_WHO)", conn)
' cmd.Parameters.Add("@VALUE", SqlDbType.NVarChar).Value = Value
' cmd.Parameters.Add("@ADDED_WHO", SqlDbType.VarChar).Value = AddedWho
' cmd.Parameters.Add("@CONTROL_ID", SqlDbType.Int).Value = ControlID
' cmd.Parameters.Add("@RECORD_ID", SqlDbType.Int).Value = RecordID
' conn.Open()
' cmd.ExecuteNonQuery()
' Return True
'End Using
'Dim SQL = "INSERT INTO TBPMO_CONTROL_VALUE (CONTROL_ID, RECORD_ID, VALUE, ADDED_WHO) VALUES (" & ControlID & ", " & RecordID & ", '" & Value & "', '" & AddedWho & "')"
'Return ClassDatabase.Execute_non_Query(SQL, True)
Catch ex As Exception Catch ex As Exception
ClassLogger.Add("Unerwarteter Fehler in InsertControlValue: " & ex.Message, True) ClassLogger.Add("Unerwarteter Fehler in InsertControlValue: " & ex.Message, True)
Return False Return False
@ -980,8 +811,9 @@ Public Class ClassControlCommandsUI
Public Shared Function UpdateControlValue(ControlID As Integer, RecordID As Integer, Value As String) Public Shared Function UpdateControlValue(ControlID As Integer, RecordID As Integer, Value As String)
Try Try
Dim CHANGED_WHO = USER_USERNAME Dim CHANGED_WHO = USER_USERNAME
Dim DT_FORMAT_TYPE As DataTable = ClassDatabase.Return_Datatable("SELECT FORMAT_TYPE,CONTROL_TYPE_ID FROM TBPMO_CONTROL WHERE GUID = " & ControlID) Dim def = "SELECT FORMAT_TYPE,CONTROL_TYPE_ID FROM TBPMO_CONTROL WHERE GUID = " & ControlID
Dim FORMAT_TYPE As String = ClassDatabase.Execute_Scalar("SELECT FORMAT_TYPE,CONTROL_TYPE_ID FROM TBPMO_CONTROL WHERE GUID = " & ControlID) Dim DT_FORMAT_TYPE As DataTable = ClassDatabase.Return_Datatable(def, True)
Dim FORMAT_TYPE As String = ClassDatabase.Execute_Scalar("SELECT FORMAT_TYPE,CONTROL_TYPE_ID FROM TBPMO_CONTROL WHERE GUID = " & ControlID, True)
If Not Value = String.Empty Then If Not Value = String.Empty Then
Select Case DT_FORMAT_TYPE.Rows(0).Item(0).ToString ' FORMAT_TYPE Select Case DT_FORMAT_TYPE.Rows(0).Item(0).ToString ' FORMAT_TYPE
@ -999,41 +831,12 @@ Public Class ClassControlCommandsUI
Dim upd = String.Format("UPDATE TBPMO_CONTROL_VALUE SET VALUE = '{0}', CHANGED_WHO = '{1}', CHANGE_STEP = {2} WHERE CONTROL_ID = {3} AND RECORD_ID = {4}", _ Dim upd = String.Format("UPDATE TBPMO_CONTROL_VALUE SET VALUE = '{0}', CHANGED_WHO = '{1}', CHANGE_STEP = {2} WHERE CONTROL_ID = {3} AND RECORD_ID = {4}", _
Value, CHANGED_WHO, CURRENT_CHANGE_STEP, ControlID, RecordID) Value, CHANGED_WHO, CURRENT_CHANGE_STEP, ControlID, RecordID)
Return ClassDatabase.Execute_non_Query(upd, True) ClassProxy.Refresh_Control_Data()
'Using conn As New SqlClient.SqlConnection(MyConnectionString) Return ClassDatabase.Execute_non_Query(upd)
' Dim cmd As New SqlClient.SqlCommand("UPDATE TBPMO_CONTROL_VALUE SET VALUE = @VALUE, CHANGED_WHO = @CHANGED_WHO, CHANGE_STEP = @CHANGE_STEP WHERE CONTROL_ID = @CONTROL_ID AND RECORD_ID = @RECORD_ID", conn)
' cmd.Parameters.Add("@VALUE", SqlDbType.NVarChar).Value = Value
' cmd.Parameters.Add("@CHANGED_WHO", SqlDbType.VarChar).Value = CHANGED_WHO
' cmd.Parameters.Add("@CONTROL_ID", SqlDbType.Int).Value = ControlID
' cmd.Parameters.Add("@RECORD_ID", SqlDbType.Int).Value = RecordID
' cmd.Parameters.Add("CHANGE_STEP", SqlDbType.Int).Value = CURRENT_CHANGE_STEP
' conn.Open()
' cmd.ExecuteNonQuery()
' Return True
'End Using
Catch ex As Exception Catch ex As Exception
ClassLogger.Add("Unerwarteter Fehler in UpdateControlValue: " & ex.Message, True) ClassLogger.Add("Unerwarteter Fehler in UpdateControlValue: " & ex.Message, True)
Return False Return False
End Try End Try
End Function End Function
Public Shared Function CreateRecord(FormID)
Dim ADDED_WHO As String = USER_USERNAME
Dim SQL = "INSERT INTO TBPMO_RECORD(ADDED_WHO, FORM_ID,RECORD_ENTITY_ID) VALUES ('" & ADDED_WHO & "', " & FormID & ",4711)"
Return ClassDatabase.Execute_non_Query(SQL, True)
End Function
Public Shared Function GetLastRecord()
Dim ADDED_WHO As String = USER_USERNAME
Dim SQL = "SELECT (MAX(GUID)) FROM TBPMO_RECORD where PARENT_RECORD = 0 AND ADDED_WHO = '" & ADDED_WHO & "'"
Return ClassDatabase.Execute_Scalar(SQL, True)
End Function
Public Shared Function ConnectRecord(PARENT_RECORD As Integer, LINK_RECORD As Integer, Optional Comment As String = "")
Dim ADDED_WHO As String = USER_USERNAME
Dim SQL = "INSERT INTO TBPMO_RECORD_CONNECT(RECORD1_ID,RECORD2_ID,COMMENT,ADDED_WHO) VALUES (" & PARENT_RECORD & "," & LINK_RECORD & ",'" & Comment & "','" & ADDED_WHO & "')"
If LogErrorsOnly = False Then ClassLogger.Add(" >> ConnectRecord SQL: " & SQL, False)
Return ClassDatabase.Execute_non_Query(SQL, True)
End Function
End Class End Class

4
app/DD-Record-Organiser/ClassControlLoader.vb
View File

@ -64,7 +64,7 @@
' Der alte SQL Befehl hat nicht wirklich nach der StaticList geschaut o_O ' Der alte SQL Befehl hat nicht wirklich nach der StaticList geschaut o_O
' Dim SQL As String = String.Format("SELECT VALUE FROM VWPMO_VALUES WHERE CONTROL_ID = {0} AND RECORD_ID = {1}", controlId, recordId) ' Dim SQL As String = String.Format("SELECT VALUE FROM VWPMO_VALUES WHERE CONTROL_ID = {0} AND RECORD_ID = {1}", controlId, recordId)
Dim SQL As String = String.Format("SELECT STATIC_LIST FROM TBPMO_CONTROL WHERE GUID = {0}", controlId) Dim SQL As String = String.Format("SELECT STATIC_LIST FROM TBPMO_CONTROL WHERE GUID = {0}", controlId)
Dim staticList As String = ClassDatabase.Execute_Scalar(SQL) Dim staticList As String = ClassDatabase.Execute_Scalar(SQL, True)
If IsNothing(staticList) Or String.IsNullOrWhiteSpace(staticList) Then If IsNothing(staticList) Or String.IsNullOrWhiteSpace(staticList) Then
Return Nothing Return Nothing
@ -123,7 +123,7 @@
'Jetzt noch den Columnname ändern 'Jetzt noch den Columnname ändern
Dim gridview = DirectCast(control.MainView, DevExpress.XtraGrid.Views.Grid.GridView) Dim gridview = DirectCast(control.MainView, DevExpress.XtraGrid.Views.Grid.GridView)
Dim caption As String = ClassDatabase.Execute_Scalar(String.Format("SELECT COL_NAME FROM TBPMO_CONTROL WHERE GUID = {0}", DirectCast(control.Tag, ClassControlMetadata).Id)) Dim caption As String = ClassDatabase.Execute_Scalar(String.Format("SELECT COL_NAME FROM TBPMO_CONTROL WHERE GUID = {0}", DirectCast(control.Tag, ClassControlMetadata).Id), True)
gridview.Columns(0).Caption = caption gridview.Columns(0).Caption = caption
Catch ex As Exception Catch ex As Exception
MsgBox("Error in SetDataSource - GridControl: " & ex.Message, MsgBoxStyle.Critical) MsgBox("Error in SetDataSource - GridControl: " & ex.Message, MsgBoxStyle.Critical)

14
app/DD-Record-Organiser/ClassControlValues.vb
View File

@ -149,7 +149,7 @@ Public Class ClassControlValues
'Dim SQL As String = String.Format("SELECT * FROM VWPMO_VALUES WHERE VALUE <> '' AND RECORD_ID = {0}", RecordId) 'Dim SQL As String = String.Format("SELECT * FROM VWPMO_VALUES WHERE VALUE <> '' AND RECORD_ID = {0}", RecordId)
Dim SQL As String = String.Format("SELECT * FROM VWPMO_VALUES WHERE RECORD_ID = {0}", RecordId) Dim SQL As String = String.Format("SELECT * FROM VWPMO_VALUES WHERE RECORD_ID = {0}", RecordId)
Dim DT_ControlValues As DataTable = ClassDatabase.Return_Datatable(SQL, "LoadControlValues") Dim DT_ControlValues As DataTable = ClassDatabase.Return_Datatable(SQL, True)
CURRENT_CONTROL_VALUES = DT_ControlValues CURRENT_CONTROL_VALUES = DT_ControlValues
Dim elapsed As Double Dim elapsed As Double
elapsed = sw.Elapsed.TotalSeconds elapsed = sw.Elapsed.TotalSeconds
@ -169,7 +169,7 @@ Public Class ClassControlValues
sw.Start() sw.Start()
' Load all Hints for controls ' Load all Hints for controls
Dim SQLHint = "SELECT * FROM VWPMO_CONTROL_HINT WHERE FORM_ID = " & FormId Dim SQLHint = "SELECT * FROM VWPMO_CONTROL_HINT WHERE FORM_ID = " & FormId
Dim DT_Hints As DataTable = ClassDatabase.Return_Datatable(SQLHint, "LoadControlHints") Dim DT_Hints As DataTable = ClassDatabase.Return_Datatable(SQLHint, True)
' ' Hint in DT_Hints suchen der zur aktuellen controlId passt ' ' Hint in DT_Hints suchen der zur aktuellen controlId passt
For Each row As DataRow In DT_Hints.Rows For Each row As DataRow In DT_Hints.Rows
ClassControlValueCache.SaveHint(row.Item(1), row.Item(2)) ClassControlValueCache.SaveHint(row.Item(1), row.Item(2))
@ -210,7 +210,7 @@ Public Class ClassControlValues
Try Try
'Dim SQL As String = String.Format("SELECT * FROM VWPMO_VALUES WHERE VALUE <> '' AND RECORD_ID = {0}", RecordId) 'Dim SQL As String = String.Format("SELECT * FROM VWPMO_VALUES WHERE VALUE <> '' AND RECORD_ID = {0}", RecordId)
Dim SQL As String = String.Format("SELECT VALUE FROM VWPMO_VALUES WHERE RECORD_ID = {0} AND CONTROL_ID = {1}", RecordId, CONTROL_ID) Dim SQL As String = String.Format("SELECT VALUE FROM VWPMO_VALUES WHERE RECORD_ID = {0} AND CONTROL_ID = {1}", RecordId, CONTROL_ID)
Dim RESULT = ClassDatabase.Execute_Scalar(SQL) Dim RESULT = ClassDatabase.Execute_Scalar(SQL, True)
If IsNothing(RESULT) Then If IsNothing(RESULT) Then
Return Nothing Return Nothing
ElseIf RESULT = "" Then ElseIf RESULT = "" Then
@ -327,7 +327,7 @@ Public Class ClassControlValues
' Zuerst alle SQL Commands für FormID finden ' Zuerst alle SQL Commands für FormID finden
' CONTROL_SQLCOMMAND_1 wird als SQL gealiast ' CONTROL_SQLCOMMAND_1 wird als SQL gealiast
Dim SQL As String = String.Format("SELECT CONTROL_ID, CONTROL_CONNID_1,CONTROL_SQLCOMMAND_1 AS SQL FROM VWPMO_CONTROL_SCREEN WHERE FORM_ID = {0} AND CONTROL_SQLCOMMAND_1 NOT LIKE '%@%'", FormID) Dim SQL As String = String.Format("SELECT CONTROL_ID, CONTROL_CONNID_1,CONTROL_SQLCOMMAND_1 AS SQL FROM VWPMO_CONTROL_SCREEN WHERE FORM_ID = {0} AND CONTROL_SQLCOMMAND_1 NOT LIKE '%@%'", FormID)
Dim dt As DataTable = ClassDatabase.Return_Datatable(SQL) Dim dt As DataTable = ClassDatabase.Return_Datatable(SQL, True)
Dim elapsed As Double Dim elapsed As Double
elapsed = swsql.Elapsed.TotalSeconds elapsed = swsql.Elapsed.TotalSeconds
swsql.Stop() swsql.Stop()
@ -399,7 +399,7 @@ Public Class ClassControlValues
Dim SQL As String = String.Format("SELECT CONTROL_ID, CONTROL_CONNID_1, CONTROL_SQLCOMMAND_1 AS SQL FROM VWPMO_CONTROL_SCREEN WHERE FORM_ID = {0} AND CONTROL_SQLCOMMAND_1 <> '' AND CONTROL_SQLCOMMAND_1 LIKE '%@%'", FormId) Dim SQL As String = String.Format("SELECT CONTROL_ID, CONTROL_CONNID_1, CONTROL_SQLCOMMAND_1 AS SQL FROM VWPMO_CONTROL_SCREEN WHERE FORM_ID = {0} AND CONTROL_SQLCOMMAND_1 <> '' AND CONTROL_SQLCOMMAND_1 LIKE '%@%'", FormId)
Dim SW As Stopwatch = Stopwatch.StartNew() Dim SW As Stopwatch = Stopwatch.StartNew()
Dim commands As New List(Of String) Dim commands As New List(Of String)
Dim dt As DataTable = ClassDatabase.Return_Datatable(SQL) Dim dt As DataTable = ClassDatabase.Return_Datatable(SQL, True)
If dt.Rows.Count = 0 Then If dt.Rows.Count = 0 Then
Exit Sub Exit Sub
@ -681,7 +681,7 @@ Public Class ClassControlValues
' Alle Controls laden, die einen Default Value haben ' Alle Controls laden, die einen Default Value haben
Dim SQL As String = String.Format("SELECT CONTROL_ID, CONTROL_DEF_VALUE, CONTROL_NAME FROM VWPMO_CONTROL_SCREEN WHERE FORM_ID = {0} AND CONTROL_DEF_VALUE <> '' " & _ Dim SQL As String = String.Format("SELECT CONTROL_ID, CONTROL_DEF_VALUE, CONTROL_NAME FROM VWPMO_CONTROL_SCREEN WHERE FORM_ID = {0} AND CONTROL_DEF_VALUE <> '' " & _
"UNION SELECT CONTROL_ID, CONTROL_SQLCOMMAND_1 AS CONTROL_DEF_VALUE, CONTROL_NAME FROM VWPMO_CONTROL_SCREEN where FORM_ID = {0} and CONTROL_SQLCOMMAND_1 <> '' AND CONTROL_SQLCOMMAND_1 NOT LIKE '%@%@%' AND CONTROL_SQLCOMMAND_1 LIKE '%@RECORD_ID%'", FormID) "UNION SELECT CONTROL_ID, CONTROL_SQLCOMMAND_1 AS CONTROL_DEF_VALUE, CONTROL_NAME FROM VWPMO_CONTROL_SCREEN where FORM_ID = {0} and CONTROL_SQLCOMMAND_1 <> '' AND CONTROL_SQLCOMMAND_1 NOT LIKE '%@%@%' AND CONTROL_SQLCOMMAND_1 LIKE '%@RECORD_ID%'", FormID)
Dim DEFAULT_VALUE_DT As DataTable = ClassDatabase.Return_Datatable(SQL) Dim DEFAULT_VALUE_DT As DataTable = ClassDatabase.Return_Datatable(SQL, True)
For Each row As DataRow In DEFAULT_VALUE_DT.Rows For Each row As DataRow In DEFAULT_VALUE_DT.Rows
@ -849,7 +849,7 @@ Public Class ClassControlValues
Try Try
Dim sql = "SELECT VALUE FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = " & Control_ID & " AND RECORD_ID = " & Record_ID Dim sql = "SELECT VALUE FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = " & Control_ID & " AND RECORD_ID = " & Record_ID
CURRENT_LAST_SQL = sql CURRENT_LAST_SQL = sql
Return ClassDatabase.Execute_Scalar(sql, True) Return ClassDatabase.Execute_Scalar(sql)
Catch ex As Exception Catch ex As Exception
ClassLogger.Add("Unexpected Error in GetControlValueForControlID: " & ex.Message, True) ClassLogger.Add("Unexpected Error in GetControlValueForControlID: " & ex.Message, True)
MsgBox("Error in GetControlValueForControlID:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("Error in GetControlValueForControlID:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)

163
app/DD-Record-Organiser/ClassDOC_SEARCH.vb
View File

@ -6,7 +6,7 @@ Public Class ClassDOC_SEARCH
Private Shared ENTITY_ID As Integer Private Shared ENTITY_ID As Integer
Private Shared RECORD_ID As Integer Private Shared RECORD_ID As Integer
Private Shared AsyncRunning As Boolean = False Private Shared AsyncRunning As Boolean = False
Private Shared Function GET_DOCSEARCH_DATATABLE(Type As String, Optional fulltext_String As String = "", Optional BG As Boolean = False) Private Shared Function GET_DOCSEARCH_DATATABLE(Optional BG As Boolean = False)
Try Try
Dim OPTION1 Dim OPTION1
Dim OPTION2 Dim OPTION2
@ -58,7 +58,7 @@ Public Class ClassDOC_SEARCH
End If End If
Dim SQL_DOC_SEARCH Dim SQL_DOC_SEARCH
If Type = "ENTITY" Then If CURRENT_SEARCH_TYPE = "ENTITY" Then
SQL_DOC_SEARCH = String.Format("SELECT T.*," & vbNewLine & _ SQL_DOC_SEARCH = String.Format("SELECT T.*," & vbNewLine & _
"[dbo].[FNPMO_GET_CONTROL_VALUES_DOC_ENTITY] ({3},T.DocID,{0}) AS OPTION1," & vbNewLine & _ "[dbo].[FNPMO_GET_CONTROL_VALUES_DOC_ENTITY] ({3},T.DocID,{0}) AS OPTION1," & vbNewLine & _
"[dbo].[FNPMO_GET_CONTROL_VALUES_DOC_ENTITY] ({4},T.DocID,{0}) AS OPTION2," & vbNewLine & _ "[dbo].[FNPMO_GET_CONTROL_VALUES_DOC_ENTITY] ({4},T.DocID,{0}) AS OPTION2," & vbNewLine & _
@ -96,7 +96,7 @@ Public Class ClassDOC_SEARCH
End If End If
ElseIf Type = "RECORD" Then ElseIf CURRENT_SEARCH_TYPE = "RECORD" Then
SQL_DOC_SEARCH = String.Format("SELECT T.* ," & vbNewLine & _ SQL_DOC_SEARCH = String.Format("SELECT T.* ," & vbNewLine & _
"ISNULL(T1.VALUE,'') AS OPTION1," & vbNewLine & _ "ISNULL(T1.VALUE,'') AS OPTION1," & vbNewLine & _
"ISNULL(T2.VALUE,'') AS OPTION2," & vbNewLine & _ "ISNULL(T2.VALUE,'') AS OPTION2," & vbNewLine & _
@ -118,6 +118,7 @@ Public Class ClassDOC_SEARCH
"VWPMO_DOC_SEARCH T " & vbNewLine & _ "VWPMO_DOC_SEARCH T " & vbNewLine & _
"INNER JOIN TBPMO_DOC_RECORD_LINK TRL ON T.DocID = TRL.DOC_ID" & vbNewLine & _ "INNER JOIN TBPMO_DOC_RECORD_LINK TRL ON T.DocID = TRL.DOC_ID" & vbNewLine & _
"INNER JOIN TBPMO_RECORD TR ON TRL.RECORD_ID = TR.GUID" & vbNewLine & _ "INNER JOIN TBPMO_RECORD TR ON TRL.RECORD_ID = TR.GUID" & vbNewLine & _
"INNER JOIN VWPMO_WD_OBJECT_RIGHTS TRIGHTS ON T.DocID = TRIGHTS.dwObjectID" & vbNewLine & _
"LEFT JOIN TBPMO_DOCSEARCH_RESULTLIST_CONFIG TRC ON TR.FORM_ID = TRC.ENTITY_ID AND TRC.LANGUAGE = '{7}' AND TRC.GUID = {8}" & vbNewLine & _ "LEFT JOIN TBPMO_DOCSEARCH_RESULTLIST_CONFIG TRC ON TR.FORM_ID = TRC.ENTITY_ID AND TRC.LANGUAGE = '{7}' AND TRC.GUID = {8}" & vbNewLine & _
"LEFT JOIN TBPMO_DOCSEARCH_RESULTLIST_CONFIG TRC1 ON TR.FORM_ID = TRC1.ENTITY_ID AND TRC1.LANGUAGE = '{7}' AND TRC1.GUID = {9}" & vbNewLine & _ "LEFT JOIN TBPMO_DOCSEARCH_RESULTLIST_CONFIG TRC1 ON TR.FORM_ID = TRC1.ENTITY_ID AND TRC1.LANGUAGE = '{7}' AND TRC1.GUID = {9}" & vbNewLine & _
"LEFT JOIN TBPMO_DOCSEARCH_RESULTLIST_CONFIG TRC2 ON TR.FORM_ID = TRC2.ENTITY_ID AND TRC2.LANGUAGE = '{7}' AND TRC2.GUID = {10}" & vbNewLine & _ "LEFT JOIN TBPMO_DOCSEARCH_RESULTLIST_CONFIG TRC2 ON TR.FORM_ID = TRC2.ENTITY_ID AND TRC2.LANGUAGE = '{7}' AND TRC2.GUID = {10}" & vbNewLine & _
@ -126,36 +127,96 @@ Public Class ClassDOC_SEARCH
"LEFT JOIN TBPMO_CONTROL_VALUE T2 ON TRL.RECORD_ID = T2.RECORD_ID AND T2.CONTROL_ID = {3} " & vbNewLine & _ "LEFT JOIN TBPMO_CONTROL_VALUE T2 ON TRL.RECORD_ID = T2.RECORD_ID AND T2.CONTROL_ID = {3} " & vbNewLine & _
"LEFT JOIN TBPMO_CONTROL_VALUE T3 ON TRL.RECORD_ID = T3.RECORD_ID AND T3.CONTROL_ID = {4} " & vbNewLine & _ "LEFT JOIN TBPMO_CONTROL_VALUE T3 ON TRL.RECORD_ID = T3.RECORD_ID AND T3.CONTROL_ID = {4} " & vbNewLine & _
"LEFT JOIN TBPMO_CONTROL_VALUE T4 ON TRL.RECORD_ID = T4.RECORD_ID AND T4.CONTROL_ID = {5} " & vbNewLine & _ "LEFT JOIN TBPMO_CONTROL_VALUE T4 ON TRL.RECORD_ID = T4.RECORD_ID AND T4.CONTROL_ID = {5} " & vbNewLine & _
"WHERE TRL.RECORD_ID = {0} AND TR.FORM_ID = {1} AND T.DocID = (SELECT dwObjectID FROM VWPMO_WD_OBJECT_RIGHTS WHERE dwUserOrGroupID = {6} AND dwObjectID = T.DocID)", RECORD_ID, ENTITY_ID, OPTION1, OPTION2, OPTION3, OPTION4, USERID_FK_INT_ECM, USER_LANGUAGE, VALUE_CONF1, VALUE_CONF2, VALUE_CONF3, VALUE_CONF4) "WHERE TRL.RECORD_ID = {0} AND TR.FORM_ID = {1} AND TRIGHTS.dwUserOrGroupID = {6}", RECORD_ID, ENTITY_ID, OPTION1, OPTION2, OPTION3, OPTION4, USERID_FK_INT_ECM, USER_LANGUAGE, VALUE_CONF1, VALUE_CONF2, VALUE_CONF3, VALUE_CONF4)
ElseIf Type = "FULLTEXT" Then Return ClassDatabase.Return_Datatable(SQL_DOC_SEARCH, True)
ElseIf CURRENT_SEARCH_TYPE = "FULLTEXT" Then
Dim sqlft = SQL_FULLTEXT Dim sqlft = SQL_FULLTEXT
sqlft = sqlft.Replace("@FULLTEXT", fulltext_String) sqlft = sqlft.Replace("@FULLTEXT", CURRENT_FULLTEXT_PATTERN)
SQL_DOC_SEARCH = String.Format("SELECT T.*," & vbNewLine & _ SQL_DOC_SEARCH = String.Format("SELECT DISTINCT T.*," & vbNewLine & _
"[dbo].[FNPMO_GET_CONTROL_VALUES_DOC_ENTITY] ({3},T.DocID,{0}) AS OPTION1," & vbNewLine & _ "[dbo].[FNPMO_GET_CONTROL_VALUES_DOC_ENTITY] ({3},T.DocID,{0}) AS OPTION1," & vbNewLine & _
"[dbo].[FNPMO_GET_CONTROL_VALUES_DOC_ENTITY] ({4},T.DocID,{0}) AS OPTION2," & vbNewLine & _ "[dbo].[FNPMO_GET_CONTROL_VALUES_DOC_ENTITY] ({4},T.DocID,{0}) AS OPTION2," & vbNewLine & _
"[dbo].[FNPMO_DOC_GET_IDX] (T.DocID,{0},'DOCIDX1') AS DOCIDX1," & vbNewLine & _ "[dbo].[FNPMO_DOC_GET_IDX] (T.DocID,{0},'DOCIDX1') AS DOCIDX1," & vbNewLine & _
"[dbo].[FNPMO_DOC_GET_IDX] (T.DocID,{0},'DOCIDX2') AS DOCIDX2," & vbNewLine & _ "[dbo].[FNPMO_DOC_GET_IDX] (T.DocID,{0},'DOCIDX2') AS DOCIDX2," & vbNewLine & _
"[dbo].[FNPMO_DOC_GET_IDX] (T.DocID,{0},'DOCIDX3') AS DOCIDX3," & vbNewLine & _ "[dbo].[FNPMO_DOC_GET_IDX] (T.DocID,{0},'DOCIDX3') AS DOCIDX3," & vbNewLine & _
"[dbo].[FNPMO_DOC_GET_IDX] (T.DocID,{0},'DOCIDX4') AS DOCIDX4," & vbNewLine & _ "[dbo].[FNPMO_DOC_GET_IDX] (T.DocID,{0},'DOCIDX4') AS DOCIDX4," & vbNewLine & _
"[dbo].[FNPMO_DOC_GET_DROPDOWN] (T.DocID,{0},'DROPDOWN1','{1}') AS DROPDOWN1," & vbNewLine & _ "[dbo].[FNPMO_DOC_GET_DROPDOWN] (T.DocID,{0},'DROPDOWN1','{1}') AS DROPDOWN1," & vbNewLine & _
"[dbo].[FNPMO_DOC_GET_DROPDOWN] (T.DocID,{0},'DROPDOWN2','{1}') AS DROPDOWN2," & vbNewLine & _ "[dbo].[FNPMO_DOC_GET_DROPDOWN] (T.DocID,{0},'DROPDOWN2','{1}') AS DROPDOWN2," & vbNewLine & _
"[dbo].[FNPMO_DOC_GET_DROPDOWN] (T.DocID,{0},'DROPDOWN3','{1}') AS DROPDOWN3," & vbNewLine & _ "[dbo].[FNPMO_DOC_GET_DROPDOWN] (T.DocID,{0},'DROPDOWN3','{1}') AS DROPDOWN3," & vbNewLine & _
"[dbo].[FNPMO_DOC_GET_DROPDOWN] (T.DocID,{0},'DROPDOWN4','{1}') AS DROPDOWN4" & vbNewLine & _ "[dbo].[FNPMO_DOC_GET_DROPDOWN] (T.DocID,{0},'DROPDOWN4','{1}') AS DROPDOWN4" & vbNewLine & _
"FROM " & vbNewLine & _
"VWPMO_DOC_SEARCH T" & vbNewLine & _
"INNER JOIN TBPMO_DOC_RECORD_LINK TRL ON T.DocID = TRL.DOC_ID" & vbNewLine & _
"INNER JOIN TBPMO_RECORD TR ON TRL.RECORD_ID = TR.GUID" & vbNewLine & _
"INNER JOIN VWPMO_WD_OBJECT_RIGHTS TRIGHTS ON T.DocID = TRIGHTS.dwObjectID" & vbNewLine & _
"LEFT OUTER JOIN TBPMO_CONTROL_VALUE TCTRL ON TR.GUID = TCTRL.RECORD_ID" & vbNewLine & _
"WHERE TR.FORM_ID = {0} AND TRIGHTS.dwUserOrGroupID = {2} AND (" & vbNewLine & _
"TCTRL.VALUE LIKE '%{6}%' OR" & vbNewLine & _
"T.DocID IN ({5}" & vbNewLine & _
"))", ENTITY_ID, USER_LANGUAGE, USERID_FK_INT_ECM, OPTION1, OPTION2, sqlft, CURRENT_FULLTEXT_PATTERN)
ElseIf CURRENT_SEARCH_TYPE = "NODE_DOWN" Then
SQL_DOC_SEARCH = String.Format("SELECT T.* ," & vbNewLine & _
"ISNULL(T1.VALUE,'') AS OPTION1," & vbNewLine & _
"ISNULL(T2.VALUE,'') AS OPTION2," & vbNewLine & _
"ISNULL(T3.VALUE,'') AS OPTION3," & vbNewLine & _
"ISNULL(T4.VALUE,'') AS OPTION4," & vbNewLine & _
"[dbo].[FNPMO_DOC_GET_IDX] (T.DocID,{1},'DOCIDX1') AS DOCIDX1," & vbNewLine & _
"[dbo].[FNPMO_DOC_GET_IDX] (T.DocID,{1},'DOCIDX2') AS DOCIDX2," & vbNewLine & _
"[dbo].[FNPMO_DOC_GET_IDX] (T.DocID,{1},'DOCIDX3') AS DOCIDX3," & vbNewLine & _
"[dbo].[FNPMO_DOC_GET_IDX] (T.DocID,{1},'DOCIDX4') AS DOCIDX4," & vbNewLine & _
"[dbo].[FNPMO_DOC_GET_DROPDOWN] (T.DocID,{1},'DROPDOWN1','{7}') AS DROPDOWN1," & vbNewLine & _
"[dbo].[FNPMO_DOC_GET_DROPDOWN] (T.DocID,{1},'DROPDOWN2','{7}') AS DROPDOWN2," & vbNewLine & _
"[dbo].[FNPMO_DOC_GET_DROPDOWN] (T.DocID,{1},'DROPDOWN3','{7}') AS DROPDOWN3," & vbNewLine & _
"[dbo].[FNPMO_DOC_GET_DROPDOWN] (T.DocID,{1},'DROPDOWN4','{7}') AS DROPDOWN4," & vbNewLine & _
"(SELECT VALUE FROM TBPMO_DOC_VALUES WHERE DocID = T.DocID AND CONFIG_ID = TRC.GUID) AS VALUE1," & vbNewLine & _
"(SELECT VALUE FROM TBPMO_DOC_VALUES WHERE DocID = T.DocID AND CONFIG_ID = TRC1.GUID) AS VALUE2," & vbNewLine & _
"(SELECT VALUE FROM TBPMO_DOC_VALUES WHERE DocID = T.DocID AND CONFIG_ID = TRC2.GUID) AS VALUE3," & vbNewLine & _
"(SELECT VALUE FROM TBPMO_DOC_VALUES WHERE DocID = T.DocID AND CONFIG_ID = TRC3.GUID) AS VALUE4" & vbNewLine & _
"FROM " & vbNewLine & _
"VWPMO_DOC_SEARCH T " & vbNewLine & _
"INNER JOIN TBPMO_DOC_RECORD_LINK TRL ON T.DocID = TRL.DOC_ID" & vbNewLine & _
"INNER JOIN TBPMO_RECORD TR ON TRL.RECORD_ID = TR.GUID" & vbNewLine & _
"INNER JOIN TBPMO_STRUCTURE_NODES_USER_TEMP TTEMP ON TR.GUID = TTEMP.RECORD_ID" & vbNewLine & _
"INNER JOIN VWPMO_WD_OBJECT_RIGHTS TRIGHTS ON T.DocID = TRIGHTS.dwObjectID" & vbNewLine & _
"LEFT JOIN TBPMO_DOCSEARCH_RESULTLIST_CONFIG TRC ON TR.FORM_ID = TRC.ENTITY_ID AND TRC.LANGUAGE = '{7}' AND TRC.GUID = {8}" & vbNewLine & _
"LEFT JOIN TBPMO_DOCSEARCH_RESULTLIST_CONFIG TRC1 ON TR.FORM_ID = TRC1.ENTITY_ID AND TRC1.LANGUAGE = '{7}' AND TRC1.GUID = {9}" & vbNewLine & _
"LEFT JOIN TBPMO_DOCSEARCH_RESULTLIST_CONFIG TRC2 ON TR.FORM_ID = TRC2.ENTITY_ID AND TRC2.LANGUAGE = '{7}' AND TRC2.GUID = {10}" & vbNewLine & _
"LEFT JOIN TBPMO_DOCSEARCH_RESULTLIST_CONFIG TRC3 ON TR.FORM_ID = TRC3.ENTITY_ID AND TRC3.LANGUAGE = '{7}' AND TRC3.GUID = {11}" & vbNewLine & _
"LEFT JOIN TBPMO_CONTROL_VALUE T1 ON TRL.RECORD_ID = T1.RECORD_ID AND T1.CONTROL_ID = {2} " & vbNewLine & _
"LEFT JOIN TBPMO_CONTROL_VALUE T2 ON TRL.RECORD_ID = T2.RECORD_ID AND T2.CONTROL_ID = {3} " & vbNewLine & _
"LEFT JOIN TBPMO_CONTROL_VALUE T3 ON TRL.RECORD_ID = T3.RECORD_ID AND T3.CONTROL_ID = {4} " & vbNewLine & _
"LEFT JOIN TBPMO_CONTROL_VALUE T4 ON TRL.RECORD_ID = T4.RECORD_ID AND T4.CONTROL_ID = {5} " & vbNewLine & _
"WHERE TR.FORM_ID = {1} AND TTEMP.USER_ID = {0} AND TRIGHTS.dwUserOrGroupID = {6}", USER_GUID, ENTITY_ID, OPTION1, OPTION2, OPTION3, OPTION4, USERID_FK_INT_ECM, USER_LANGUAGE, VALUE_CONF1, VALUE_CONF2, VALUE_CONF3, VALUE_CONF4)
ElseIf CURRENT_SEARCH_TYPE = "FULLTEXT_SUBNODES" Then
Dim sqlft = SQL_FULLTEXT
sqlft = sqlft.Replace("@FULLTEXT", CURRENT_FULLTEXT_PATTERN)
SQL_DOC_SEARCH = String.Format("SELECT DISTINCT T.*," & vbNewLine & _
"[dbo].[FNPMO_GET_CONTROL_VALUES_DOC_ENTITY] ({4},T.DocID,{1}) AS OPTION1," & vbNewLine & _
"[dbo].[FNPMO_GET_CONTROL_VALUES_DOC_ENTITY] ({5},T.DocID,{1}) AS OPTION2," & vbNewLine & _
"[dbo].[FNPMO_DOC_GET_IDX] (T.DocID,{1},'DOCIDX1') AS DOCIDX1," & vbNewLine & _
"[dbo].[FNPMO_DOC_GET_IDX] (T.DocID,{1},'DOCIDX2') AS DOCIDX2," & vbNewLine & _
"[dbo].[FNPMO_DOC_GET_IDX] (T.DocID,{1},'DOCIDX3') AS DOCIDX3," & vbNewLine & _
"[dbo].[FNPMO_DOC_GET_IDX] (T.DocID,{1},'DOCIDX4') AS DOCIDX4," & vbNewLine & _
"[dbo].[FNPMO_DOC_GET_DROPDOWN] (T.DocID,{1},'DROPDOWN1','{0}') AS DROPDOWN1," & vbNewLine & _
"[dbo].[FNPMO_DOC_GET_DROPDOWN] (T.DocID,{1},'DROPDOWN2','{0}') AS DROPDOWN2," & vbNewLine & _
"[dbo].[FNPMO_DOC_GET_DROPDOWN] (T.DocID,{1},'DROPDOWN3','{0}') AS DROPDOWN3," & vbNewLine & _
"[dbo].[FNPMO_DOC_GET_DROPDOWN] (T.DocID,{1},'DROPDOWN4','{0}') AS DROPDOWN4" & vbNewLine & _
"FROM " & vbNewLine & _ "FROM " & vbNewLine & _
"VWPMO_DOC_SEARCH T" & vbNewLine & _ "VWPMO_DOC_SEARCH T" & vbNewLine & _
"WHERE T.DocID IN (select DISTINCT DOC_ID from TBPMO_DOC_RECORD_LINK T, TBPMO_RECORD T1 WHERE T.RECORD_ID = T1.GUID AND T1.FORM_ID = {0}) " & vbNewLine & _ "INNER JOIN TBPMO_DOC_RECORD_LINK TRL ON T.DocID = TRL.DOC_ID" & vbNewLine & _
"AND T.DocID IN (SELECT dwObjectID FROM VWPMO_WD_OBJECT_RIGHTS WHERE dwUserOrGroupID = {2} AND dwObjectID = T.DocID) AND " & vbNewLine & _ "INNER JOIN TBPMO_RECORD TR ON TRL.RECORD_ID = TR.GUID" & vbNewLine & _
"T.DocID IN ({5})", ENTITY_ID, USER_LANGUAGE, USERID_FK_INT_ECM, OPTION1, OPTION2, sqlft) "INNER JOIN TBPMO_STRUCTURE_NODES_USER_TEMP TTEMP ON TR.GUID = TTEMP.RECORD_ID" & vbNewLine & _
"INNER JOIN VWPMO_WD_OBJECT_RIGHTS TRIGHTS ON T.DocID = TRIGHTS.dwObjectID" & vbNewLine & _
"WHERE TR.FORM_ID = {1} AND TTEMP.USER_ID = {2} AND TRIGHTS.dwUserOrGroupID = {3}" & vbNewLine & _
"AND T.DocID IN ({6})", USER_LANGUAGE, ENTITY_ID, USER_GUID, USERID_FK_INT_ECM, OPTION1, OPTION2, sqlft)
End If End If
If LogErrorsOnly = False Then ClassLogger.Add(" >> SQL_DOC_SEARCH: " & SQL_DOC_SEARCH, False) If LogErrorsOnly = False Then ClassLogger.Add(" >> SQL_DOC_SEARCH: " & SQL_DOC_SEARCH, False)
If BG = True And Type = "ENTITY" Then If BG = True And CURRENT_SEARCH_TYPE = "ENTITY" Then
If Not IsNothing(CURRENT_DT_DOC_ENTITY_SEARCH) Then If Not IsNothing(CURRENT_DT_DOC_ENTITY_SEARCH) Then
Return CURRENT_DT_DOC_ENTITY_SEARCH Return CURRENT_DT_DOC_ENTITY_SEARCH
End If End If
End If End If
Return ClassDatabase.Return_Datatable_Connection(SQL_DOC_SEARCH, 1) Return ClassDatabase.Return_Datatable(SQL_DOC_SEARCH, True)
Catch ex As Exception Catch ex As Exception
ClassLogger.Add("Unexpected Error in GET_DOCSEARCH_DATATABLE: " & ex.Message, True) ClassLogger.Add("Unexpected Error in GET_DOCSEARCH_DATATABLE: " & ex.Message, True)
Return Nothing Return Nothing
@ -165,9 +226,9 @@ Public Class ClassDOC_SEARCH
ENTITY_ID = ENT_ID ENTITY_ID = ENT_ID
DT_RESULTLIST_OPTIONS = vDT_RESULTLIST_OPTIONS DT_RESULTLIST_OPTIONS = vDT_RESULTLIST_OPTIONS
DT_RESULTLIST_SEL_VALUES = vDT_RESULTLIST_SELVALUES DT_RESULTLIST_SEL_VALUES = vDT_RESULTLIST_SELVALUES
Return GET_DOCSEARCH_DATATABLE(vType, ftString, BG) Return GET_DOCSEARCH_DATATABLE(BG)
End Function End Function
Public Shared Function Get_DOC_RESULTTABLE(vDT_RESULTLIST_OPTIONS As DataTable, vDT_RESULTLIST_SELVALUES As DataTable, DT_WINDREAM_RESULTLIST As DataTable, ENT_ID As Integer, REC_ID As Integer, vType As String, Optional ftString As String = "", Optional BG As Boolean = False, Optional Preload As Boolean = False) Public Shared Function Get_DOC_RESULTTABLE(vDT_RESULTLIST_OPTIONS As DataTable, vDT_RESULTLIST_SELVALUES As DataTable, DT_WINDREAM_RESULTLIST As DataTable, ENT_ID As Integer, REC_ID As Integer, Optional BG As Boolean = False, Optional Preload As Boolean = False)
Dim COL_ARRAY_RESULTLIST As List(Of String) Dim COL_ARRAY_RESULTLIST As List(Of String)
ENTITY_ID = ENT_ID ENTITY_ID = ENT_ID
DT_RESULTLIST_OPTIONS = vDT_RESULTLIST_OPTIONS DT_RESULTLIST_OPTIONS = vDT_RESULTLIST_OPTIONS
@ -177,7 +238,7 @@ Public Class ClassDOC_SEARCH
Dim sw As New Stopwatch Dim sw As New Stopwatch
sw.Start() sw.Start()
Dim elapsed As Double Dim elapsed As Double
Dim DT_FILE_RESULT As DataTable = GET_DOCSEARCH_DATATABLE(vType, ftString, BG) Dim DT_FILE_RESULT As DataTable = GET_DOCSEARCH_DATATABLE(BG)
CURRENT_DOC_RESULTS = DT_FILE_RESULT CURRENT_DOC_RESULTS = DT_FILE_RESULT
If IsNothing(DT_FILE_RESULT) Then If IsNothing(DT_FILE_RESULT) Then
ClassLogger.Add(">> ATTENTION: GET_DOCSEARCH_DATATABLE IS NOTHING!!", False) ClassLogger.Add(">> ATTENTION: GET_DOCSEARCH_DATATABLE IS NOTHING!!", False)
@ -323,11 +384,11 @@ Public Class ClassDOC_SEARCH
rowvalue = FILE_ROW.Item(Colname) rowvalue = FILE_ROW.Item(Colname)
'If LogErrorsOnly = False Then ClassLogger.Add(" >> rowvalue for Colname '" & Colname & "': '" & rowvalue.ToString & "'", False) 'If LogErrorsOnly = False Then ClassLogger.Add(" >> rowvalue for Colname '" & Colname & "': '" & rowvalue.ToString & "'", False)
Catch ex As Exception Catch ex As Exception
If vType = "RECORD" Then ClassLogger.Add("Unexpected Error in GetVariableValue for Column '" & Colname & "'- Error: " & ex.Message) If CURRENT_SEARCH_TYPE = "RECORD" Then ClassLogger.Add("Unexpected Error in GetVariableValue for Column '" & Colname & "'- Error: " & ex.Message)
If Colname.ToString.StartsWith("doct") Or Colname.ToString.StartsWith("Dokum") Then If Colname.ToString.StartsWith("doct") Or Colname.ToString.StartsWith("Dokum") Then
rowvalue = "" rowvalue = ""
Else Else
If vType <> "RECORD" Then If CURRENT_SEARCH_TYPE <> "RECORD" Then
rowvalue = "Not displayable in Group-Search" rowvalue = "Not displayable in Group-Search"
Else Else
rowvalue = "Error getting rowvalue" rowvalue = "Error getting rowvalue"
@ -386,52 +447,6 @@ Public Class ClassDOC_SEARCH
If DD_Rights.clsDatabase.Init(MyConnectionString) = True Then If DD_Rights.clsDatabase.Init(MyConnectionString) = True Then
If DD_Rights.ClassRights.Init(ENTITY_ID, LogErrorsOnly) = True Then If DD_Rights.ClassRights.Init(ENTITY_ID, LogErrorsOnly) = True Then
If DD_Rights.ClassRights.Collect_Users(CURRENT_RECORD_ID, ENTITY_ID) = True Then If DD_Rights.ClassRights.Collect_Users(CURRENT_RECORD_ID, ENTITY_ID) = True Then
'If DD_Rights.ClassRights.TransferRights2Service(RESULT_DOCID, RESULT_DOC_PATH, False) Then
' Dim sql_select = String.Format("SELECT * FROM VWPMO_RIGHTS_2B_WORKED WHERE DOC_ID = {0}", RESULT_DOCID)
' Dim DT_RIGHTS2B_CHANGED As DataTable = ClassDatabase.Return_Datatable(sql_select)
' If Not IsNothing(DT_RIGHTS2B_CHANGED) Then
' If DT_RIGHTS2B_CHANGED.Rows.Count > 0 Then
' Try
' For Each rightRow As DataRow In DT_RIGHTS2B_CHANGED.Rows
' Dim GUID = rightRow.Item("GUID")
' Dim USER_ID = rightRow.Item("USER_ID")
' Dim USERNAME = rightRow.Item("USERNAME").ToString.ToUpper
' Dim TYPE = rightRow.Item("RIGHT_MODIFY")
' Dim FILE_RIGHT = rightRow.Item("FILE_RIGHT_ID")
' Dim upd
' Dim Result As Boolean
' Select Case TYPE
' Case "ADD RIGHT"
' Result = DD_Rights.ClassRights.SetRightExplicit(RESULT_DOCID, RESULT_DOC_PATH, USERNAME, FILE_RIGHT, ClassWindream.oSession)
' End Select
' 'upd = String.Format("UPDATE TBPMO_RIGHTS_WORK_SERVICE SET WORKING = 0 WHERE GUID = {0}", GUID)
' 'If clsDatabase.Execute_non_Query(upd) = True Then
' If Result = True Then
' upd = String.Format("UPDATE TBPMO_RIGHTS_WORK_SERVICE SET WORKED = 1 WHERE GUID = {0}", GUID)
' ClassDatabase.Execute_non_Query(upd)
' Dim msg = DD_Rights.ClassRights.MSG_RESULT
' ClassLogger.Add(msg, False)
' If DD_Rights.ClassRights.DeleteRightExplicit(RESULT_DOCID, RESULT_DOC_PATH, WD_GROUP1, ClassWindream.oSession) = False Then
' msg = DD_Rights.ClassRights.MSG_RESULT
' ClassLogger.Add(msg, False)
' Else
' Return True
' End If
' Else
' Dim msg = String.Format("ERROR: {0} ", DD_Rights.ClassRights.MSG_RESULT)
' ClassLogger.Add(msg, True)
' End If
' 'End If
' Next
' Catch ex As Exception
' ClassLogger.Add("Unexpected Error : " & ex.Message, True)
' End Try
' End If
' End If
'End If
If DD_Rights.ClassRights.File_DeleteAndSetRight(RESULT_DOCID, RESULT_DOC_PATH, True) Then If DD_Rights.ClassRights.File_DeleteAndSetRight(RESULT_DOCID, RESULT_DOC_PATH, True) Then
If DD_Rights.ClassRights.MSG_RESULT <> "" Then If DD_Rights.ClassRights.MSG_RESULT <> "" Then
Dim msg = "Achtung: einige Rechte konnten nicht gesetzt werden: " & vbNewLine & DD_Rights.ClassRights.MSG_RESULT Dim msg = "Achtung: einige Rechte konnten nicht gesetzt werden: " & vbNewLine & DD_Rights.ClassRights.MSG_RESULT

50
app/DD-Record-Organiser/ClassDatabase.vb
View File

@ -20,7 +20,7 @@ Public Class ClassDatabase
Dim connectionString As String = "" Dim connectionString As String = ""
Try Try
'Me.TBCONNECTIONTableAdapter.FillByID(Me.DD_DMSLiteDataSet.TBCONNECTION, id) 'Me.TBCONNECTIONTableAdapter.FillByID(Me.DD_DMSLiteDataSet.TBCONNECTION, id)
Dim DTConnection As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBDD_CONNECTION WHERE GUID = " & id) Dim DTConnection As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBDD_CONNECTION WHERE GUID = " & id, True)
If DTConnection.Rows.Count = 1 Then If DTConnection.Rows.Count = 1 Then
Select Case DTConnection.Rows(0).Item("SQL_PROVIDER") Select Case DTConnection.Rows(0).Item("SQL_PROVIDER")
Case "MS-SQLServer" Case "MS-SQLServer"
@ -54,13 +54,21 @@ Public Class ClassDatabase
End Try End Try
Return connectionString Return connectionString
End Function End Function
Public Shared Function Return_Datatable(Select_anweisung As String, Optional CallMethod As String = "") Public Shared Function Return_Datatable(Select_anweisung As String, Optional USE_PROXY As Boolean = False)
Try Try
Dim sw As New SW("Return_Datatable: " & Select_anweisung) Dim sw As New SW("Return_Datatable: " & Select_anweisung)
Dim SQLconnect As New SqlClient.SqlConnection Dim SQLconnect As New SqlClient.SqlConnection
Dim SQLcommand As SqlClient.SqlCommand Dim SQLcommand As SqlClient.SqlCommand
SQLconnect.ConnectionString = connectionString If USE_PROXY = True And ClassProxy.MyPROXYConnectionString <> String.Empty Then
SQLconnect.ConnectionString = ClassProxy.MyPROXYConnectionString
Else
SQLconnect.ConnectionString = connectionString
End If
If USE_PROXY = False Then
Console.WriteLine(Select_anweisung)
End If
SQLconnect.Open() SQLconnect.Open()
SQLcommand = SQLconnect.CreateCommand SQLcommand = SQLconnect.CreateCommand
SQLcommand.CommandText = Select_anweisung SQLcommand.CommandText = Select_anweisung
@ -74,9 +82,8 @@ Public Class ClassDatabase
Return dt Return dt
Catch ex As Exception Catch ex As Exception
MsgBox("Error in Return_Datatable: " & ex.Message & vbNewLine & vbNewLine & Select_anweisung & vbNewLine & vbNewLine & "Call-Method: " & CallMethod, MsgBoxStyle.Critical) MsgBox("Error in Return_Datatable: " & ex.Message & vbNewLine & vbNewLine & Select_anweisung, MsgBoxStyle.Critical)
ClassLogger.Add("Error in Return_Datatable: " & ex.Message & "Call-Method: " & CallMethod, True) ClassLogger.Add("Error in Return_Datatable: " & ex.Message, True)
If CallMethod <> "" Then ClassLogger.Add(">> Call-Method: " & CallMethod, False)
ClassLogger.Add(">> SQL: " & Select_anweisung, False) ClassLogger.Add(">> SQL: " & Select_anweisung, False)
Return Nothing Return Nothing
End Try End Try
@ -180,13 +187,17 @@ Public Class ClassDatabase
Return Nothing Return Nothing
End Try End Try
End Function End Function
Public Shared Function Execute_non_Query(ExecuteCMD As String, Optional Userinput As Boolean = False) Public Shared Function Execute_non_Query(ExecuteCMD As String, Optional USE_PROXY As Boolean = False)
Try Try
Dim sw As New SW("Execute_non_Query: " & ExecuteCMD) Dim sw As New SW("Execute_non_Query: " & ExecuteCMD)
Dim SQLconnect As New SqlClient.SqlConnection Dim SQLconnect As New SqlClient.SqlConnection
Dim SQLcommand As SqlClient.SqlCommand Dim SQLcommand As SqlClient.SqlCommand
SQLconnect.ConnectionString = MyConnectionString If USE_PROXY = True And ClassProxy.MyPROXYConnectionString <> String.Empty Then
SQLconnect.ConnectionString = ClassProxy.MyPROXYConnectionString
Else
SQLconnect.ConnectionString = connectionString
End If
SQLconnect.Open() SQLconnect.Open()
SQLcommand = SQLconnect.CreateCommand SQLcommand = SQLconnect.CreateCommand
'Update Last Created Record in Foo 'Update Last Created Record in Foo
@ -200,9 +211,9 @@ Public Class ClassDatabase
Return True Return True
Catch ex As Exception Catch ex As Exception
If Userinput = True Then 'If Userinput = True Then
MsgBox("Error in Execute_non_Query: " & ex.Message & vbNewLine & vbNewLine & ExecuteCMD, MsgBoxStyle.Critical) ' MsgBox("Error in Execute_non_Query: " & ex.Message & vbNewLine & vbNewLine & ExecuteCMD, MsgBoxStyle.Critical)
End If 'End If
ClassLogger.Add("Error in Execute_non_Query: " & ex.Message, True) ClassLogger.Add("Error in Execute_non_Query: " & ex.Message, True)
ClassLogger.Add("SQL: " & ExecuteCMD, False) ClassLogger.Add("SQL: " & ExecuteCMD, False)
Return False Return False
@ -274,14 +285,21 @@ Public Class ClassDatabase
ClassLogger.Add(String.Format("Finished executing Async database operation: {0}", command.CommandText), False) ClassLogger.Add(String.Format("Finished executing Async database operation: {0}", command.CommandText), False)
End Sub End Sub
Public Shared Function Execute_Scalar(cmdscalar As String, Optional Userinput As Boolean = False) Public Shared Function Execute_Scalar(cmdscalar As String, Optional USE_PROXY As Boolean = False)
Dim result Dim result
Try Try
Dim sw As New SW("Execute_Scalar: " & cmdscalar) Dim sw As New SW("Execute_Scalar: " & cmdscalar)
Dim SQLconnect As New SqlClient.SqlConnection Dim SQLconnect As New SqlClient.SqlConnection
Dim SQLcommand As SqlClient.SqlCommand Dim SQLcommand As SqlClient.SqlCommand
SQLconnect.ConnectionString = connectionString If USE_PROXY = True And ClassProxy.MyPROXYConnectionString <> String.Empty Then
SQLconnect.ConnectionString = ClassProxy.MyPROXYConnectionString
Else
SQLconnect.ConnectionString = connectionString
End If
If USE_PROXY = False Then
Console.WriteLine(cmdscalar)
End If
SQLconnect.Open() SQLconnect.Open()
SQLcommand = SQLconnect.CreateCommand SQLcommand = SQLconnect.CreateCommand
'Update Last Created Record in Foo 'Update Last Created Record in Foo
@ -294,9 +312,9 @@ Public Class ClassDatabase
Return result Return result
Catch ex As Exception Catch ex As Exception
If Userinput = True Then 'If Userinput = True Then
MsgBox("Error in Execute_Scalar: " & ex.Message & vbNewLine & vbNewLine & cmdscalar, MsgBoxStyle.Critical) ' MsgBox("Error in Execute_Scalar: " & ex.Message & vbNewLine & vbNewLine & cmdscalar, MsgBoxStyle.Critical)
End If 'End If
ClassLogger.Add("Error in Execute_Scalar: " & ex.Message, True) ClassLogger.Add("Error in Execute_Scalar: " & ex.Message, True)
ClassLogger.Add("SQL: " & cmdscalar, False) ClassLogger.Add("SQL: " & cmdscalar, False)
Return Nothing Return Nothing

3
app/DD-Record-Organiser/ClassDragDrop.vb
View File

@ -9,7 +9,7 @@ Public Class ClassDragDrop
files_dropped = Nothing files_dropped = Nothing
Dim sql As String = "DELETE FROM TBPMO_FILES_USER WHERE HANDLE_TYPE <> 'SCAN' AND UPPER(USER_WORK) = UPPER('" & USER_USERNAME & "')" Dim sql As String = "DELETE FROM TBPMO_FILES_USER WHERE HANDLE_TYPE <> 'SCAN' AND UPPER(USER_WORK) = UPPER('" & USER_USERNAME & "')"
ClassDatabase.Execute_non_Query(sql) ClassDatabase.Execute_non_Query(sql, True)
If e.Data.GetDataPresent(DataFormats.FileDrop) Then If e.Data.GetDataPresent(DataFormats.FileDrop) Then
@ -129,7 +129,6 @@ Public Class ClassDragDrop
Return True Return True
'Drop eines Outlook Attachments 'Drop eines Outlook Attachments
End If End If
Catch ex As Exception Catch ex As Exception
MsgBox("Unexpected Error in Drop_File: " & ex.Message, MsgBoxStyle.Critical) MsgBox("Unexpected Error in Drop_File: " & ex.Message, MsgBoxStyle.Critical)
End Try End Try

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

@ -48,8 +48,12 @@
Dim DT As DataTable = CURRENT_TBPMO_INDEX_MAN Dim DT As DataTable = CURRENT_TBPMO_INDEX_MAN
If DT.Rows.Count > 0 Then If DT.Rows.Count > 0 Then
For Each row As DataRow In DT.Rows For Each row As DataRow In DT.Rows
Dim insert As String = String.Format("INSERT INTO TBPMO_DOC_INDICES (DocID,INDEX_ID,VALUE,ADDED_WHO) VALUES ({0},{1},'{2}','{3}')", DocID, row.Item("GUID"), row.Item("MAN_VALUE"), USER_USERNAME) If row.Item("MAN_VALUE") <> String.Empty Then
ClassDatabase.Execute_non_Query(insert) Dim MAN_INDEX_ID = row.Item("GUID")
Dim insert As String = String.Format("INSERT INTO TBPMO_DOC_INDICES (DocID,INDEX_ID,VALUE,ADDED_WHO) VALUES ({0},{1},'{2}','{3}')", DocID, MAN_INDEX_ID, row.Item("MAN_VALUE"), USER_USERNAME)
ClassDatabase.Execute_non_Query(insert)
End If
Next Next
End If End If
Return True Return True
@ -58,6 +62,15 @@
Return False Return False
End Try End Try
End Function End Function
Public Shared Function Delete_Doc_Indices()
Try
Dim delete As String = String.Format("DELETE FROM TBPMO_DOC_INDICES WHERE DocID = {0}", DocID)
Return ClassDatabase.Execute_non_Query(delete)
Catch ex As Exception
ClassLogger.Add("Unexpected Error in Update_Doc_Indices: " & ex.Message, True)
Return False
End Try
End Function
Public Shared Function Delete_ResultFile(RESULT_DOC_ID, RECORD_ID, DELETE_FILE) Public Shared Function Delete_ResultFile(RESULT_DOC_ID, RECORD_ID, DELETE_FILE)
Try Try
Dim proc = String.Format("EXEC PRPMO_DELETE_RESULTFILE {0},{1},{2}", RESULT_DOC_ID, RECORD_ID, DELETE_FILE) Dim proc = String.Format("EXEC PRPMO_DELETE_RESULTFILE {0},{1},{2}", RESULT_DOC_ID, RECORD_ID, DELETE_FILE)
@ -72,5 +85,104 @@
Return False Return False
End Try End Try
End Function End Function
Public Shared Function CheckWrite_IndexeMan(grbxControls As GroupBox)
'#### Zuerst manuelle Werte indexieren ####
Try
If LogErrorsOnly = False Then ClassLogger.Add(" >>In CheckWrite_IndexeMan", False)
Dim result As Boolean = False
For Each ctrl As Control In grbxControls.Controls
' ' MsgBox(ctrl.Name)
If ctrl.Name.StartsWith("txt") Then
Dim box As TextBox = ctrl
If box.Text = "" Then
Dim optional_index = ClassMoreMetadata.Return_CURRENT_TBPMO_INDEX_MAN_VALUE(box.Tag, "OPTIONAL") 'ClassDatabase.Execute_Scalar("SELECT OPTIONAL FROM TBPMO_INDEX_MAN WHERE GUID = " & box.Tag, True)
If Not IsNothing(optional_index) Then
If CBool(optional_index) = False Then
MsgBox("Please insert a value!", MsgBoxStyle.Exclamation, "Missing input:")
box.Focus()
Return False
Else
SET_CURRENT_TBPMO_INDEX_MAN_VALUE(box.Tag, "")
'Indexwert_Postprocessing(Replace(box.Name, "txt", ""), "")
result = True
End If
Else
Return False
End If
Else
'If Indexwert_checkValueDB(Replace(box.Name, "txt", ""), box.Text) = False Then
' ClassLogger.Add(" - Der eingegebene Wert wurde nicht in der Datenbank gefunden", False)
' MsgBox("Der eingegebene Wert wurde nicht in der Datenbank gefunden!", MsgBoxStyle.Exclamation, "Fehlerhafte Indexierung:")
' box.Focus()
' Return False
'Else
' 'Indexwert_Postprocessing(Replace(box.Name, "txt", ""), box.Text)
SET_CURRENT_TBPMO_INDEX_MAN_VALUE(box.Tag, "")
result = True
'End If
End If
End If
If ctrl.Name.StartsWith("cmb") Then
Dim cmb As ComboBox = ctrl
If cmb.Text = "" Then
Dim optional_index = ClassMoreMetadata.Return_CURRENT_TBPMO_INDEX_MAN_VALUE(cmb.Tag, "OPTIONAL") 'ClassDatabase.Execute_Scalar("SELECT OPTIONAL FROM TBPMO_INDEX_MAN WHERE GUID = " & box.Tag, True)
If Not IsNothing(optional_index) Then
If CBool(optional_index) = False Then
MsgBox("Please choose a value!", MsgBoxStyle.Exclamation, "Missing input:")
cmb.Focus()
Return False
Else
SET_CURRENT_TBPMO_INDEX_MAN_VALUE(cmb.Tag, "")
'Indexwert_Postprocessing(Replace(box.Name, "txt", ""), "")
result = True
End If
End If
Else
SET_CURRENT_TBPMO_INDEX_MAN_VALUE(cmb.Tag, cmb.Text)
' Indexwert_Postprocessing(Replace(cmb.Name, "cmb", ""), cmb.Text)
result = True
End If
End If
If ctrl.Name.StartsWith("dtp") Then
Dim dtp As DateTimePicker = ctrl
SET_CURRENT_TBPMO_INDEX_MAN_VALUE(dtp.Tag, dtp.Value)
'Indexwert_Postprocessing(Replace(dtp.Name, "dtp", ""), dtp.Text)
result = True
End If
If ctrl.Name.StartsWith("chk") Then
Dim chk As CheckBox = ctrl
SET_CURRENT_TBPMO_INDEX_MAN_VALUE(chk.Tag, chk.Checked)
'Indexwert_Postprocessing(Replace(chk.Name, "chk", ""), chk.Checked)
result = True
End If
If ctrl.Name.StartsWith("lbl") = False And result = False Then
ClassLogger.Add("Die Überprüfung der manuellen Indices ist fehlerhaft. Bitte informieren Sie den Systembetreuer", True)
Return False
End If
Next
Return True
Catch ex As Exception
ClassLogger.Add(" - Unvorhergesehener Fehler in CheckWrite_IndexeMan - Fehler: " & vbNewLine & ex.Message)
MsgBox(ex.Message, MsgBoxStyle.Critical, "Unerwarteter Unexpected error in CheckWrite_IndexeMan:")
Return False
End Try
End Function
Private Shared Function SET_CURRENT_TBPMO_INDEX_MAN_VALUE(CONTROL_GUID As Integer, VALUE As String)
Try
For Each row As DataRow In CURRENT_TBPMO_INDEX_MAN.Rows
If row.Item("GUID") = CONTROL_GUID Then
row.Item("MAN_VALUE") = VALUE
Return True
End If
Next
Catch ex As Exception
ClassLogger.Add(" - Unvorhergesehener Fehler in SET_CURRENT_TBPMO_INDEX_MAN_VALUE - Fehler: " & vbNewLine & ex.Message)
Return Nothing
End Try
End Function
End Class End Class

45
app/DD-Record-Organiser/ClassFolderWatcher.vb
View File

@ -84,16 +84,24 @@ Public Class ClassFolderWatcher
'Die Datei übergeben 'Die Datei übergeben
If LogErrorsOnly = False Then ClassLogger.Add(" >> OnCreated-File:" & e.FullPath, False) If LogErrorsOnly = False Then ClassLogger.Add(" >> OnCreated-File:" & e.FullPath, False)
If FileExistsinDropTable(CURRENT_FILENAME) = False Then If FileExistsinDropTable(CURRENT_FILENAME) = False Then
Insert_SCAN_File(e.FullPath, handleType) Insert_USER_File(e.FullPath, handleType)
Else Else
Console.WriteLine("File existiert bereits") Console.WriteLine("File existiert bereits")
End If End If
Create_USER_FILE_TABLE()
Catch ex As Exception Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei folder_watch_Created") MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei folder_watch_Created")
End Try End Try
End Sub End Sub
Public Shared Sub Create_USER_FILE_TABLE()
Try
Dim sql = String.Format("SELECT * FROM TBPMO_FILES_USER WHERE (UPPER(USER_WORK) = UPPER('{0}')) AND WORKED = 0", USER_USERNAME)
Dim CURRENT_TBPMO_FILES_USER As DataTable = ClassDatabase.Return_Datatable(sql, True)
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error while creating User_File_Table")
End Try
End Sub
Public Shared Function FileExistsinDropTable(Filename As String) Public Shared Function FileExistsinDropTable(Filename As String)
Dim check As String Dim check As String
Try Try
@ -106,7 +114,7 @@ Public Class ClassFolderWatcher
End Try End Try
End Function End Function
Private Shared Function Insert_SCAN_File(filename As String, handleType As String) Public Shared Function Insert_USER_File(filename As String, handleType As String)
Try Try
Dim filename_only As String = Path.GetFileName(filename) Dim filename_only As String = Path.GetFileName(filename)
@ -117,5 +125,34 @@ Public Class ClassFolderWatcher
Return False Return False
End Try End Try
End Function End Function
Public Shared Function DELETE_SCAN_File(filename As String)
Try
Dim filename_only As String = Path.GetFileName(filename)
Dim del As String = String.Format("DELETE FROM TBPMO_FILES_USER WHERE UPPER(FILENAME2WORK) = UPPER('{0}')", filename)
Return ClassDatabase.Execute_non_Query(del, True)
Catch ex As Exception
MsgBox("Unexpected Error in DELETE_SCAN_File: " & ex.Message, MsgBoxStyle.Critical)
Return False
End Try
End Function
Public Shared Function DELETE_SCAN_File_User()
Try
Dim del As String = String.Format("DELETE FROM TBPMO_FILES_USER WHERE UPPER(USER_WORK) = UPPER('{0}') AND HANDLE_TYPE = 'SCAN'", USER_USERNAME)
Return ClassDatabase.Execute_non_Query(del, True)
Catch ex As Exception
MsgBox("Unexpected Error in DELETE_SCAN_File_User: " & ex.Message, MsgBoxStyle.Critical)
Return False
End Try
End Function
Public Shared Function Check_Scan_Files()
Try
Dim sql1 As String = String.Format("select * from TBPMO_FILES_USER where HANDLE_TYPE = 'SCAN' and WORKED = 0 AND UPPER(USER_WORK) = '{0}'", USER_USERNAME)
Return ClassDatabase.Return_Datatable(sql1, True)
Catch ex As Exception
MsgBox("Unexpected Error in DELETE_SCAN_File_User: " & ex.Message, MsgBoxStyle.Critical)
Return Nothing
End Try
End Function
End Class End Class

4
app/DD-Record-Organiser/ClassFormCommands.vb
View File

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

14
app/DD-Record-Organiser/ClassFunctionCommands.vb
View File

@ -20,18 +20,6 @@
Return False Return False
End Try End Try
End Function End Function
'Public Shared Function UpdateFunction(ControlId As Integer, FromDateId As Integer, ToDateId As Integer, SubjectId As Integer)
' Try
' Dim SQL As String = "UPDATE TBPMO_FUNCTION_ADD_APPOINTMENT SET FROM_DATE = " & FromDateId & ", TO_DATE = " & ToDateId & ", SUBJECT = " & SubjectId & " WHERE CONTROL_ID = " & ControlId
' ClassDatabase.Execute_non_Query(SQL)
' Return True
' Catch ex As Exception
' MsgBox("Fehler beim Aktalisieren der KalenderFunktion:" & vbNewLine & ex.Message)
' Return False
' End Try
'End Function
Public Shared Function UpdateAddAppointmentFunction(ControlId As Integer, FromDateId As Integer, ToDateId As Integer, SubjectString As String, Subject2String As String, PlaceString As String, DescriptionString As String) Public Shared Function UpdateAddAppointmentFunction(ControlId As Integer, FromDateId As Integer, ToDateId As Integer, SubjectString As String, Subject2String As String, PlaceString As String, DescriptionString As String)
Try Try
Dim SQL As String = "UPDATE TBPMO_FUNCTION_GENERAL SET INTEGER1 = " & FromDateId & ", INTEGER2 = " & ToDateId & ", STRING1 = '" & SubjectString & "', STRING2 = '" & Subject2String & "', STRING3 = '" & PlaceString & "', STRING4 = '" & DescriptionString & "' WHERE CONTROL_ID = " & ControlId Dim SQL As String = "UPDATE TBPMO_FUNCTION_GENERAL SET INTEGER1 = " & FromDateId & ", INTEGER2 = " & ToDateId & ", STRING1 = '" & SubjectString & "', STRING2 = '" & Subject2String & "', STRING3 = '" & PlaceString & "', STRING4 = '" & DescriptionString & "' WHERE CONTROL_ID = " & ControlId
@ -106,7 +94,7 @@
Return InsertValue(ControlID, RecordID, Value) Return InsertValue(ControlID, RecordID, Value)
Else Else
SQL = String.Format("UPDATE TBPMO_CONTROL_VALUE SET VALUE = '{0}',CHANGED_WHO = '{1}' WHERE CONTROL_ID = {2} AND RECORD_ID = {3}", Value, USER_USERNAME, ControlID, RecordID) SQL = String.Format("UPDATE TBPMO_CONTROL_VALUE SET VALUE = '{0}',CHANGED_WHO = '{1}' WHERE CONTROL_ID = {2} AND RECORD_ID = {3}", Value, USER_USERNAME, ControlID, RecordID)
If ClassDatabase.Execute_non_Query(SQL, True) = True Then If ClassDatabase.Execute_non_Query(SQL) = True Then
Return True Return True
Else : Return False Else : Return False
End If End If

4
app/DD-Record-Organiser/ClassFunctionCommandsUI.vb
View File

@ -9,7 +9,7 @@ Public Class ClassFunctionCommandsUI
reminder.AlertTime = DueDateTime reminder.AlertTime = DueDateTime
apt.Reminders.Add(reminder) apt.Reminders.Add(reminder)
Dim Value = ClassDatabase.Execute_Scalar(SQL) Dim Value = ClassDatabase.Execute_Scalar(SQL, True)
If Value Is Nothing Then If Value Is Nothing Then
apt.Subject = Subject & " - " & Value.ToString() apt.Subject = Subject & " - " & Value.ToString()
Else Else
@ -37,7 +37,7 @@ Public Class ClassFunctionCommandsUI
reminder.AlertTime = DueDateTime reminder.AlertTime = DueDateTime
apt.Reminders.Add(reminder) apt.Reminders.Add(reminder)
Dim Value = ClassDatabase.Execute_Scalar(SQL) Dim Value = ClassDatabase.Execute_Scalar(SQL, True)
apt.Subject = Subject & " - " & Value.ToString() apt.Subject = Subject & " - " & Value.ToString()
apt.Description = Description apt.Description = Description

215
app/DD-Record-Organiser/ClassGridFormatter.vb Normal file
View File

@ -0,0 +1,215 @@
Imports DevExpress.Utils
Imports DevExpress.XtraGrid
Imports DevExpress.XtraGrid.Columns
Imports DevExpress.XtraGrid.Views.Grid
Imports DevExpress.XtraEditors
Imports DevExpress.XtraEditors.Repository
Public Class ClassGridFormatter
Private Shared tDate As Type = GetType(Date)
Private Shared tBool As Type = GetType(Boolean)
Public Enum DataTableType
CONSTRUCTOR_VIEW
WINDREAM_RESULT
End Enum
''' <summary>
''' Die Formatierungsfunktionen für die ConstruktorView Tabellen
''' </summary>
Public Class ConstructorView
Private EntityId As Integer
Private DT As DataTable
Private dateEdit As New RepositoryItemTimeEdit()
Private checkboxEdit = New RepositoryItemCheckEdit()
Public checkboxColumns As New List(Of String)
Public dateColumns As New List(Of String)
Public Sub New(DT As DataTable, EntityId As Integer)
Me.EntityId = EntityId
Me.DT = DT
' dateEdit vor-formatieren
dateEdit.DisplayFormat.FormatType = FormatType.DateTime
dateEdit.DisplayFormat.FormatString = CURRENT_DATE_FORMAT
dateEdit.Mask.MaskType = Mask.MaskType.DateTime
dateEdit.Mask.EditMask = CURRENT_DATE_FORMAT
dateEdit.Mask.UseMaskAsDisplayFormat = True
' checkboxEdit vor-formatieren
checkboxEdit.ValueChecked = True
checkboxEdit.ValueUnchecked = False
End Sub
Public Function FormatDatatable() As DataTable
Try
' Datatable klonen, um Spalten zu formatieren
Dim clonedDT As DataTable = Me.DT.Clone()
' Checkbox Spalten bestimmen
Me.checkboxColumns = GetCheckboxColumns()
' Checkbox Spalten formatieren
For Each columnName As String In Me.checkboxColumns
Dim column As DataColumn = clonedDT.Columns(columnName)
If Not IsNothing(column) Then
column.DataType = tBool
End If
Next
' Datums Spalten bestimmen
Me.dateColumns = GetDateColumns()
' Datums Spalten Formatieren
For Each columnName As String In Me.dateColumns
Dim column As DataColumn = clonedDT.Columns(columnName)
If Not IsNothing(column) Then
column.DataType = tDate
End If
Next
' Daten aus DT in formatierte DataTable clonedDT laden
clonedDT.Load(DT.CreateDataReader)
Return clonedDT
Catch ex As Exception
ClassLogger.Add("Unexpected Error in FormatDatatable: " & ex.Message, True)
Return DT
End Try
End Function
Public Sub FormatGridView(gridView As GridView)
If IsNothing(gridView.GridControl.DataSource) Then
Throw New Exception("Error in FormatGridView: DataSource is Empty!")
End If
' Editoren zum Grid hinzufügen
gridView.GridControl.RepositoryItems.AddRange({checkboxEdit, dateEdit})
For Each columnName As String In Me.dateColumns
Dim column As GridColumn = gridView.Columns(columnName)
If Not IsNothing(column) Then
column.DisplayFormat.FormatType = FormatType.DateTime
column.DisplayFormat.FormatString = CURRENT_DATE_FORMAT
column.OptionsFilter.FilterPopupMode = FilterPopupMode.Date
column.FilterMode = ColumnFilterMode.Value ' was DisplayText
column.ColumnEdit = dateEdit
End If
Next
For Each columnName As String In Me.checkboxColumns
Dim column As GridColumn = gridView.Columns(columnName)
If Not IsNothing(column) Then
column.ColumnEdit = checkboxEdit
End If
Next
End Sub
Private Function GetCheckboxColumns()
Try
Dim listcheck As New List(Of String)
' Alle Checkboxen für aktuelle Ansicht heraussuchen
Dim sqlcheck As String = "SELECT COL_NAME FROM TBPMO_CONTROL WHERE CONTROL_TYPE_ID in (10,11) AND SHOW_COLUMN = 1 AND FORM_ID = " & Me.EntityId
Dim dtcheck As DataTable = ClassDatabase.Return_Datatable(sqlcheck, True)
'Liste von allen Spaltentiteln mit Checkbox erstellen
If dtcheck.Rows.Count > 0 Then
For Each row As DataRow In dtcheck.Rows
listcheck.Add(row.Item(0))
Next
End If
listcheck.Add("files?")
Return listcheck
Catch ex As Exception
ClassLogger.Add("Unexpected Error in GetCheckboxColumns: " & ex.Message, True)
Return Nothing
End Try
End Function
Private Function GetDateColumns()
Try
Dim listdate As New List(Of String)
' Alle Checkboxen für aktuelle Ansicht heraussuchen
Dim sqlcheck As String = "SELECT COL_NAME FROM TBPMO_CONTROL WHERE CONTROL_TYPE_ID = 4 AND SHOW_COLUMN = 1 AND FORM_ID = " & Me.EntityId
Dim dtdate As DataTable = ClassDatabase.Return_Datatable(sqlcheck, True)
'Liste von allen Spaltentiteln mit Checkbox erstellen
If dtdate.Rows.Count > 0 Then
For Each row As DataRow In dtdate.Rows
listdate.Add(row.Item(0))
Next
End If
Return listdate
Catch ex As Exception
ClassLogger.Add("Unexpected Error in GetCheckboxColumns: " & ex.Message, True)
Return Nothing
End Try
End Function
End Class
''' <summary>
''' Die Formatierungsfunktionen für die WindreamResult Tabellen
''' </summary>
Public Class WindreamResult
End Class
End Class
' FOR REFERENCE IN CASE SOMETHING BREAKS :)
'Public Shared Function Format_GridColumns(Primary_DT As DataTable, _ENTITYSQL As String, listcheck As List(Of String), listdate As List(Of String))
' Try
' Dim tbltemp As DataTable = Primary_DT.Clone()
' ' Nicht benötigt? Datumsspalten werden im Grid formatiert
' For Each col As String In listdate
' Dim colDate As DataColumn = tbltemp.Columns(col)
' If Not IsNothing(colDate) Then
' Try
' colDate.DataType = GetType(Date)
' Catch ex As Exception
' MsgBox("Error in Format_GridColumns:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
' End Try
' End If
' Next
' For Each col1 As String In listcheck
' Dim collist As DataColumn = tbltemp.Columns(col1)
' If Not IsNothing(collist) Then
' collist.DataType = GetType(Boolean)
' End If
' Next
' Try
' Dim collist As DataColumn = tbltemp.Columns("files?")
' If Not IsNothing(collist) Then
' collist.DataType = GetType(Boolean)
' End If
' Catch ex As Exception
' End Try
' Try
' tbltemp.Load(Primary_DT.CreateDataReader)
' Return tbltemp
' Catch ex As Exception
' ClassLogger.Add(">> Attention: Format_GridColumns - Could not load converted datatable: " & ex.Message, False)
' 'Tabelle wird ohne Datekonvertierung geladen
' Dim DTEntity As DataTable = ClassDatabase.Return_Datatable(_ENTITYSQL, "Load_Entity_Data_Only")
' Dim primaryKey(1) As DataColumn
' primaryKey(0) = DTEntity.Columns("Record-ID")
' DTEntity.PrimaryKey = primaryKey
' Return DTEntity
' End Try
' Catch ex As Exception
' MsgBox("Unexpected Error in Format_GridColumns:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
' ClassLogger.Add("Error in Format_GridColumns: " & ex.Message, True)
' Return Nothing
' End Try
'End Function

119
app/DD-Record-Organiser/ClassHelper.vb
View File

@ -135,6 +135,19 @@ Public Class ClassHelper
ClassLogger.Add("Error in File_open: " & ex.Message & vbNewLine & " - Path: " & RESULT_DOC_PATH & " - DocID: " & DocID, True) ClassLogger.Add("Error in File_open: " & ex.Message & vbNewLine & " - Path: " & RESULT_DOC_PATH & " - DocID: " & DocID, True)
End Try End Try
End Sub End Sub
Public Shared Sub Open_Folder(RESULT_DOC_PATH As Object, DocID As String)
Try
If RESULT_DOC_PATH <> Nothing Then
Dim _path = Path.GetDirectoryName(RESULT_DOC_PATH)
FOLDER_OPEN(_path, DocID)
Else
If LogErrorsOnly = False Then ClassLogger.Add(" >> RESULT_DOC_PATH IS NOTHING")
End If
Catch ex As Exception
MsgBox("Unexpected Error in Open_Folder:" & vbNewLine & ex.Message & vbNewLine & RESULT_DOC_PATH & vbNewLine & "DocID: " & DocID, MsgBoxStyle.Critical)
ClassLogger.Add("Error in Open_Folder: " & ex.Message & vbNewLine & " - Path: " & RESULT_DOC_PATH & " - DocID: " & DocID, True)
End Try
End Sub
Public Shared Sub OPEN_DOCVIEW(Doc_Path As String, DocID As Integer) Public Shared Sub OPEN_DOCVIEW(Doc_Path As String, DocID As Integer)
Try Try
Dim DocView Dim DocView
@ -158,7 +171,7 @@ Public Class ClassHelper
If System.IO.File.Exists(RESULT_DOC_PATH) = True Then If System.IO.File.Exists(RESULT_DOC_PATH) = True Then
Process.Start(RESULT_DOC_PATH) Process.Start(RESULT_DOC_PATH)
Else Else
MsgBox("File Does Not Exist!", MsgBoxStyle.Exclamation) MsgBox("File '" & RESULT_DOC_PATH & "' not existing or accessible!", MsgBoxStyle.Exclamation)
End If End If
@ -168,98 +181,32 @@ Public Class ClassHelper
ClassLogger.Add("Error in File_SYSOPEN: " & ex.Message & vbNewLine & " - Path: " & RESULT_DOC_PATH & " - DocID: " & DocID, True) ClassLogger.Add("Error in File_SYSOPEN: " & ex.Message & vbNewLine & " - Path: " & RESULT_DOC_PATH & " - DocID: " & DocID, True)
End Try End Try
End Sub
Private Shared Sub FOLDER_OPEN(PATH As Object, DocID As String)
Try
If PATH <> Nothing Then
If System.IO.Directory.Exists(PATH) = True Then
Process.Start(PATH)
Else
MsgBox("Folder '" & PATH & "' not existing or accessible!", MsgBoxStyle.Exclamation)
End If
End If
Catch ex As Exception
MsgBox("Unexpected Error in FOLDER_OPEN:" & vbNewLine & ex.Message & vbNewLine & PATH & vbNewLine & "DocID: " & DocID, MsgBoxStyle.Critical)
ClassLogger.Add("Error in FOLDER_OPEN: " & ex.Message & vbNewLine & " - Path: " & PATH & " - DocID: " & DocID, True)
End Try
End Sub End Sub
Shared Function Convert_Date_2_Form_Format(p1 As Date) As Date Shared Function Convert_Date_2_Form_Format(p1 As Date) As Date
Throw New NotImplementedException Throw New NotImplementedException
End Function End Function
Public Shared Function Return_listcheck(ENTITY_ID As Integer)
Try
Dim listcheck As New List(Of String)
' Alle Checkboxen für aktuelle Ansicht heraussuchen
Dim sqlcheck As String = "SELECT COL_NAME FROM TBPMO_CONTROL WHERE CONTROL_TYPE_ID in (10,11) AND SHOW_COLUMN = 1 AND FORM_ID = " & ENTITY_ID
Dim dtcheck As DataTable = ClassDatabase.Return_Datatable(sqlcheck)
'Liste von allen Spaltentiteln mit Checkbox erstellen
If dtcheck.Rows.Count > 0 Then
For Each row As DataRow In dtcheck.Rows
listcheck.Add(row.Item(0))
Next
End If
Return listcheck
Catch ex As Exception
ClassLogger.Add("Unexpected Error in Return_listcheck: " & ex.Message, True)
Return Nothing
End Try
End Function
Public Shared Function Return_listdate(ENTITY_ID As Integer)
Try
Dim listdate As New List(Of String)
' Alle Checkboxen für aktuelle Ansicht heraussuchen
Dim sqlcheck As String = "SELECT COL_NAME FROM TBPMO_CONTROL WHERE CONTROL_TYPE_ID = 4 AND SHOW_COLUMN = 1 AND FORM_ID = " & ENTITY_ID
Dim dtdate As DataTable = ClassDatabase.Return_Datatable(sqlcheck)
'Liste von allen Spaltentiteln mit Checkbox erstellen
If dtdate.Rows.Count > 0 Then
For Each row As DataRow In dtdate.Rows
listdate.Add(row.Item(0))
Next
End If
Return listdate
Catch ex As Exception
ClassLogger.Add("Unexpected Error in Return_listdate: " & ex.Message, True)
Return Nothing
End Try
End Function
Public Shared Function Format_GridColumns(Primary_DT As DataTable, _ENTITYSQL As String, listcheck As List(Of String), listdate As List(Of String))
Try
Dim tbltemp As DataTable = Primary_DT.Clone()
' Nicht benötigt? Datumsspalten werden im Grid formatiert
For Each col As String In listdate
Dim colDate As DataColumn = tbltemp.Columns(col)
If Not IsNothing(colDate) Then
Try
colDate.DataType = GetType(Date)
Catch ex As Exception
MsgBox("Error in Format_GridColumns:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End If
Next
For Each col1 As String In listcheck
Dim collist As DataColumn = tbltemp.Columns(col1)
If Not IsNothing(collist) Then
collist.DataType = GetType(Boolean)
End If
Next
Try
Dim collist As DataColumn = tbltemp.Columns("files?")
If Not IsNothing(collist) Then
collist.DataType = GetType(Boolean)
End If
Catch ex As Exception
End Try
Try
tbltemp.Load(Primary_DT.CreateDataReader)
Return tbltemp
Catch ex As Exception
ClassLogger.Add(">> Attention: Format_GridColumns - Could not load converted datatable: " & ex.Message, False)
'Tabelle wird ohne Datekonvertierung geladen
Dim DTEntity As DataTable = ClassDatabase.Return_Datatable(_ENTITYSQL, "Load_Entity_Data_Only")
Dim primaryKey(1) As DataColumn
primaryKey(0) = DTEntity.Columns("Record-ID")
DTEntity.PrimaryKey = primaryKey
Return DTEntity
End Try
Catch ex As Exception
MsgBox("Unexpected Error in Format_GridColumns:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
ClassLogger.Add("Error in Format_GridColumns: " & ex.Message, True)
Return Nothing
End Try
End Function
Public Shared Function InsertEssential_Log(REFERENCE_KEY As Integer, REFERENCE_STRING As String, COMMENT As String) Public Shared Function InsertEssential_Log(REFERENCE_KEY As Integer, REFERENCE_STRING As String, COMMENT As String)
Try Try
Dim insert = String.Format("INSERT INTO TBPMO_LOG_ESSENTIALS (REFERENCE_KEY,REFERENCE_STRING,COMMENT,ADDED_WHO) VALUES ({0},'{1}','{2}','{3}')", REFERENCE_KEY, REFERENCE_STRING, COMMENT, USER_USERNAME) Dim insert = String.Format("INSERT INTO TBPMO_LOG_ESSENTIALS (REFERENCE_KEY,REFERENCE_STRING,COMMENT,ADDED_WHO) VALUES ({0},'{1}','{2}','{3}')", REFERENCE_KEY, REFERENCE_STRING, COMMENT, USER_USERNAME)
Return ClassDatabase.Execute_non_Query(insert) Return ClassDatabase.Execute_non_Query(insert, False)
Catch ex As Exception Catch ex As Exception
ClassLogger.Add("Unexpected Error in InsertEssential_Log: " & ex.Message, True) ClassLogger.Add("Unexpected Error in InsertEssential_Log: " & ex.Message, True)
Return False Return False

12
app/DD-Record-Organiser/ClassImport_Windream.vb
View File

@ -7,7 +7,7 @@ Public Class ClassImport_Windream
Try Try
Dim err As Boolean = False Dim err As Boolean = False
CURRENT_FILENAME = QuellDatei_Path CURRENT_FILENAME = QuellDatei_Path
Dim DT_DOCTYPE As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBDD_DOKUMENTART WHERE GUID = " & DOCTYPE_ID) Dim DT_DOCTYPE As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBDD_DOKUMENTART WHERE GUID = " & DOCTYPE_ID, True)
If Not IsNothing(DT_DOCTYPE) Then If Not IsNothing(DT_DOCTYPE) Then
Dim Targetpath As String = DT_DOCTYPE.Rows(0).Item("ZIEL_PFAD") Dim Targetpath As String = DT_DOCTYPE.Rows(0).Item("ZIEL_PFAD")
Dim Dokart As String = DT_DOCTYPE.Rows(0).Item("BEZEICHNUNG") Dim Dokart As String = DT_DOCTYPE.Rows(0).Item("BEZEICHNUNG")
@ -56,7 +56,7 @@ Public Class ClassImport_Windream
End If End If
'den Entity-Key auslesen 'den Entity-Key auslesen
sql = "Select Top 1 * from TBPMO_WD_OBJECTTYPE where Upper(object_type) = Upper('" & ClassWindream._WDObjekttyp & "')" sql = "Select Top 1 * from TBPMO_WD_OBJECTTYPE where Upper(object_type) = Upper('" & ClassWindream._WDObjekttyp & "')"
dt = ClassDatabase.Return_Datatable(sql) dt = ClassDatabase.Return_Datatable(sql, True)
If Not dt Is Nothing Then If Not dt Is Nothing Then
If dt.Rows.Count = 1 Then If dt.Rows.Count = 1 Then
Dim indexname = dt.Rows(0).Item("IDXNAME_ENTITYID").ToString Dim indexname = dt.Rows(0).Item("IDXNAME_ENTITYID").ToString
@ -138,7 +138,7 @@ Public Class ClassImport_Windream
Dim err As Boolean = False Dim err As Boolean = False
Dim Zielordner As String Dim Zielordner As String
Dim extension As String = Path.GetExtension(CURRENT_FILENAME) Dim extension As String = Path.GetExtension(CURRENT_FILENAME)
Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBDD_DOKUMENTART WHERE GUID = " & DocTypeID) Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBDD_DOKUMENTART WHERE GUID = " & DocTypeID, True)
'sql_history_INSERT_INTO = "INSERT INTO TBGI_HISTORY (FILENAME_ORIGINAL,FILENAME_NEW" 'sql_history_INSERT_INTO = "INSERT INTO TBGI_HISTORY (FILENAME_ORIGINAL,FILENAME_NEW"
'sql_history_Index_Values = "" 'sql_history_Index_Values = ""
Dim AnzahlIndexe As Integer = 1 Dim AnzahlIndexe As Integer = 1
@ -313,7 +313,7 @@ Public Class ClassImport_Windream
value = "" value = ""
Else Else
Dim sql1 = "SELECT * FROM TBPMO_WD_NAMECONVENTION_FORMAT WHERE ID = (SELECT TOP 1 GUID FROM TBPMO_WD_FORMVIEW_DOKTYPES WHERE DOCTYPE_ID = " & DocTypeID & " AND FORMVIEW_ID = " & CURRENT_FORMVIEW_ID & ")" Dim sql1 = "SELECT * FROM TBPMO_WD_NAMECONVENTION_FORMAT WHERE ID = (SELECT TOP 1 GUID FROM TBPMO_WD_FORMVIEW_DOKTYPES WHERE DOCTYPE_ID = " & DocTypeID & " AND FORMVIEW_ID = " & CURRENT_FORMVIEW_ID & ")"
Dim DT_FORMAT As DataTable = ClassDatabase.Return_Datatable(sql1) Dim DT_FORMAT As DataTable = ClassDatabase.Return_Datatable(sql1, True)
If Not IsNothing(DT_FORMAT) Then If Not IsNothing(DT_FORMAT) Then
If DT_FORMAT.Rows.Count > 0 Then If DT_FORMAT.Rows.Count > 0 Then
Dim result Dim result
@ -556,7 +556,7 @@ Public Class ClassImport_Windream
Dim INDEX_ID = split(1) Dim INDEX_ID = split(1)
If IsNumeric(INDEX_ID) Then If IsNumeric(INDEX_ID) Then
Dim sql = "SELECT SQL_RESULT FROM TBDD_INDEX_AUTOM WHERE GUID = " & INDEX_ID Dim sql = "SELECT SQL_RESULT FROM TBDD_INDEX_AUTOM WHERE GUID = " & INDEX_ID
Dim sql_command = ClassDatabase.Execute_Scalar(sql, True) Dim sql_command = ClassDatabase.Execute_Scalar(sql)
If IsNothing(sql_command) Then If IsNothing(sql_command) Then
ClassLogger.Add(" >> unexpected: SQL_RESULT is nothing!!", False) ClassLogger.Add(" >> unexpected: SQL_RESULT is nothing!!", False)
ClassLogger.Add(" >> " & sql, False) ClassLogger.Add(" >> " & sql, False)
@ -679,7 +679,7 @@ Public Class ClassImport_Windream
ClassLogger.Add(">> SQL-Command: " & CURRENT_LAST_SQL) ClassLogger.Add(">> SQL-Command: " & CURRENT_LAST_SQL)
Else Else
Dim sql1 = "SELECT * FROM TBPMO_WD_NAMECONVENTION_FORMAT WHERE ID = (SELECT TOP 1 GUID FROM TBPMO_WD_FORMVIEW_DOKTYPES WHERE DOCTYPE_ID = " & DocTypeID & " AND FORMVIEW_ID = " & CURRENT_FORMVIEW_ID & ")" Dim sql1 = "SELECT * FROM TBPMO_WD_NAMECONVENTION_FORMAT WHERE ID = (SELECT TOP 1 GUID FROM TBPMO_WD_FORMVIEW_DOKTYPES WHERE DOCTYPE_ID = " & DocTypeID & " AND FORMVIEW_ID = " & CURRENT_FORMVIEW_ID & ")"
Dim DT_FORMAT As DataTable = ClassDatabase.Return_Datatable(sql1) Dim DT_FORMAT As DataTable = ClassDatabase.Return_Datatable(sql1, True)
If Not IsNothing(DT_FORMAT) Then If Not IsNothing(DT_FORMAT) Then
If DT_FORMAT.Rows.Count > 0 Then If DT_FORMAT.Rows.Count > 0 Then
Dim result Dim result

17
app/DD-Record-Organiser/ClassInit.vb
View File

@ -19,9 +19,8 @@ Public Class ClassInit
If LoadFileExclusion() = False Then If LoadFileExclusion() = False Then
MsgBox("The Exclude File Structure for files in Folderwatch could not be initialized!", MsgBoxStyle.Information) MsgBox("The Exclude File Structure for files in Folderwatch could not be initialized!", MsgBoxStyle.Information)
End If End If
clsDatabase.GUI = True
If MyConnectionString <> String.Empty Then If MyConnectionString <> String.Empty Then
dbResult = clsDatabase.Init(MyConnectionString) dbResult = clsDatabase.Init(MyConnectionString)
Else Else
frmConfig_Basic.ShowDialog() frmConfig_Basic.ShowDialog()
@ -93,7 +92,7 @@ Public Class ClassInit
Throw New Exception("Find more information in the logfile.") Throw New Exception("Find more information in the logfile.")
End If End If
Dim sql = String.Format("SELECT * FROM TBPMO_KONFIGURATION WHERE GUID = 1") Dim sql = String.Format("SELECT * FROM TBPMO_KONFIGURATION WHERE GUID = 1")
Dim KONFIG_DT As DataTable = ClassDatabase.Return_Datatable(sql) Dim KONFIG_DT As DataTable = ClassDatabase.Return_Datatable(sql, False)
If KONFIG_DT.Rows.Count = 1 Then If KONFIG_DT.Rows.Count = 1 Then
Try Try
MY_WIKISTRING = KONFIG_DT.Rows(0).Item("WIKI_STRING") MY_WIKISTRING = KONFIG_DT.Rows(0).Item("WIKI_STRING")
@ -120,7 +119,7 @@ Public Class ClassInit
Dim sql = String.Format("SELECT * FROM TBDD_USER WHERE (LOWER(USERNAME) = LOWER('{0}'))", USER_USERNAME) Dim sql = String.Format("SELECT * FROM TBDD_USER WHERE (LOWER(USERNAME) = LOWER('{0}'))", USER_USERNAME)
ClassLogger.Add(">> Login at: " & Now.ToString, False) ClassLogger.Add(">> Login at: " & Now.ToString, False)
ClassLogger.Add(">> Username: " & USER_USERNAME, False) ClassLogger.Add(">> Username: " & USER_USERNAME, False)
Dim USER_DT As DataTable = ClassDatabase.Return_Datatable(sql) Dim USER_DT As DataTable = ClassDatabase.Return_Datatable(sql, False)
If USER_DT.Rows.Count = 0 Then If USER_DT.Rows.Count = 0 Then
ClassLogger.Add(" - User '" & USER_USERNAME & "' not listed in Useradminsitration!", False) ClassLogger.Add(" - User '" & USER_USERNAME & "' not listed in Useradminsitration!", False)
'MsgBox("Achtung: Sie sind nicht in der Userverwaltung hinterlegt." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:") 'MsgBox("Achtung: Sie sind nicht in der Userverwaltung hinterlegt." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
@ -137,7 +136,7 @@ Public Class ClassInit
USER_DATE_FORMAT = USER_DT.Rows(0).Item("DATE_FORMAT") USER_DATE_FORMAT = USER_DT.Rows(0).Item("DATE_FORMAT")
USER_GENERAL_VIEWER = USER_DT.Rows(0).Item("GENERAL_VIEWER") USER_GENERAL_VIEWER = USER_DT.Rows(0).Item("GENERAL_VIEWER")
'USER_LANGUAGE = ClassDatabase.Execute_Scalar("SELECT LANGUAGE FROM TBDD_USER WHERE GUID = " & USER_GUID, False) 'USER_LANGUAGE = ClassDatabase.Execute_Scalar("SELECT LANGUAGE FROM TBDD_USER WHERE GUID = " & USER_GUID, False)
DT_CLIENT_USER = ClassDatabase.Return_Datatable("SELECT T.*, T1.LICENSE_PMO, T1.CLIENT_NAME FROM TBDD_CLIENT_USER T,TBDD_CLIENT T1 WHERE T.CLIENT_ID = T1.GUID AND T.USER_ID = " & USER_GUID) DT_CLIENT_USER = ClassDatabase.Return_Datatable("SELECT T.*, T1.LICENSE_PMO, T1.CLIENT_NAME FROM TBDD_CLIENT_USER T,TBDD_CLIENT T1 WHERE T.CLIENT_ID = T1.GUID AND T.USER_ID = " & USER_GUID, False)
If DT_CLIENT_USER.Rows.Count > 1 Then If DT_CLIENT_USER.Rows.Count > 1 Then
frmClientLogin.ShowDialog() frmClientLogin.ShowDialog()
ElseIf DT_CLIENT_USER.Rows.Count = 1 Then ElseIf DT_CLIENT_USER.Rows.Count = 1 Then
@ -171,7 +170,7 @@ Public Class ClassInit
sql = String.Format("UPDATE TBDD_USER SET LOGGED_IN = 1, LOGGED_WHERE = '{0}' WHERE GUID = {1}", Environment.MachineName, USER_GUID) sql = String.Format("UPDATE TBDD_USER SET LOGGED_IN = 1, LOGGED_WHERE = '{0}' WHERE GUID = {1}", Environment.MachineName, USER_GUID)
ClassDatabase.Execute_non_Query(sql) ClassDatabase.Execute_non_Query(sql)
sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_GUID & " AND MODULE= 'RECORD_ORGANIZER'" sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_GUID & " AND MODULE= 'RECORD_ORGANIZER'"
If ClassDatabase.Execute_non_Query(sql, True) = True Then If ClassDatabase.Execute_non_Query(sql) = True Then
End If End If
@ -193,7 +192,7 @@ Public Class ClassInit
End If End If
sql = String.Format("SELECT COUNT(*) AS Expr1 FROM TBDD_USER_MODULE_LOG_IN WHERE UPPER(MODULE) = UPPER('RECORD_ORGANIZER') AND CLIENT_ID = {0}", CLIENT_SELECTED) sql = String.Format("SELECT COUNT(*) AS Expr1 FROM TBDD_USER_MODULE_LOG_IN WHERE UPPER(MODULE) = UPPER('RECORD_ORGANIZER') AND CLIENT_ID = {0}", CLIENT_SELECTED)
Dim anzahl = ClassDatabase.Execute_Scalar(sql) Dim anzahl = ClassDatabase.Execute_Scalar(sql, False)
USERS_LOGGED_IN = CInt(anzahl) USERS_LOGGED_IN = CInt(anzahl)
If LogErrorsOnly = False Then ClassLogger.Add(" >> User# logged in: " & anzahl.ToString, False) If LogErrorsOnly = False Then ClassLogger.Add(" >> User# logged in: " & anzahl.ToString, False)
'#### '####
@ -210,7 +209,7 @@ Public Class ClassInit
If USER_IS_ADMIN = False Then If USER_IS_ADMIN = False Then
'Anmeldung wieder herausnehmen 'Anmeldung wieder herausnehmen
sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_GUID & " AND MODULE= 'RECORD_ORGANIZER'" sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_GUID & " AND MODULE= 'RECORD_ORGANIZER'"
ClassDatabase.Execute_non_Query(sql, True) ClassDatabase.Execute_non_Query(sql)
ClassLogger.Add(" - logged out the user", False) ClassLogger.Add(" - logged out the user", False)
Return False Return False
End If End If
@ -218,7 +217,7 @@ Public Class ClassInit
Try Try
'Die FolderWatch starten 'Die FolderWatch starten
Dim sql1 = "SELECT FOLDER_PATH FROM TBPMO_FOLDERWATCH_USER WHERE FOLDER_TYPE = 'SCAN' AND USER_ID = " & USER_GUID Dim sql1 = "SELECT FOLDER_PATH FROM TBPMO_FOLDERWATCH_USER WHERE FOLDER_TYPE = 'SCAN' AND USER_ID = " & USER_GUID
Dim folderwatch_SCAN = ClassDatabase.Execute_Scalar(sql1, True) Dim folderwatch_SCAN = ClassDatabase.Execute_Scalar(sql1, False)
If Not folderwatch_SCAN Is Nothing Then If Not folderwatch_SCAN Is Nothing Then
CURRENT_SCAN_FOLDERWATCH = folderwatch_SCAN CURRENT_SCAN_FOLDERWATCH = folderwatch_SCAN

2
app/DD-Record-Organiser/ClassJumpRecord.vb
View File

@ -46,7 +46,7 @@ Public Class ClassJumpRecord
Public Shared Sub JumpToRecord(STATE_ID As Integer, recordId As Integer) Public Shared Sub JumpToRecord(STATE_ID As Integer, recordId As Integer)
Try Try
'Dim constructorIdExists As Boolean = ClassDatabase.Execute_Scalar(String.Format("SELECT CONSTRUCT_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = {0}", constructorId)) 'Dim constructorIdExists As Boolean = ClassDatabase.Execute_Scalar(String.Format("SELECT CONSTRUCT_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = {0}", constructorId))
Dim recordIdExists As Boolean = ClassDatabase.Execute_Scalar(String.Format("SELECT GUID FROM TBPMO_RECORD WHERE GUID = {0}", recordId)) Dim recordIdExists As Boolean = ClassDatabase.Execute_Scalar(String.Format("SELECT GUID FROM TBPMO_RECORD WHERE GUID = {0}", recordId), True)
'If constructorIdExists = False Or recordIdExists = False Then 'If constructorIdExists = False Or recordIdExists = False Then
' MsgBox("Das angegebene Formular konnte nicht geöffnet werden. Grund: Die ConstructorID oder die RecordID wurde nicht gefunden." & vbNewLine & "constructorId: " & constructorId & ", recordId: " & recordId, MsgBoxStyle.Exclamation, "URL Handler") ' MsgBox("Das angegebene Formular konnte nicht geöffnet werden. Grund: Die ConstructorID oder die RecordID wurde nicht gefunden." & vbNewLine & "constructorId: " & constructorId & ", recordId: " & recordId, MsgBoxStyle.Exclamation, "URL Handler")

8
app/DD-Record-Organiser/ClassLicence.vb
View File

@ -7,7 +7,7 @@ Public Class ClassLicence
_lizenzManager = New ClassLicenseManager("#DigitalData35452!#", "") _lizenzManager = New ClassLicenseManager("#DigitalData35452!#", "")
Dim sql As String = String.Format("SELECT LICENSE_PMO FROM TBDD_CLIENT WHERE GUID = {0}", CLIENT_ID) Dim sql As String = String.Format("SELECT LICENSE_PMO FROM TBDD_CLIENT WHERE GUID = {0}", CLIENT_ID)
Dim lic As String = ClassDatabase.Execute_Scalar(sql, True) Dim lic As String = ClassDatabase.Execute_Scalar(sql, False)
If lic = "" Then If lic = "" Then
LICENSE_COUNT = 0 LICENSE_COUNT = 0
LICENSE_DATE = "1900-01-01" LICENSE_DATE = "1900-01-01"
@ -45,10 +45,10 @@ Public Class ClassLicence
LICENSE_SAP_Connect = False LICENSE_SAP_Connect = False
End Try End Try
Try Try
LICENSE_SITE = CBool(split(4)) LICENSE_SITE_PROXY = CBool(split(4))
Catch ex As Exception Catch ex As Exception
ClassLogger.Add(">> Could not read License for LICENSE_SAP_Connect: " & ex.Message, False) ClassLogger.Add(">> Could not read License for LICENSE_SITE_Proxy: " & ex.Message, False)
LICENSE_SITE = False LICENSE_SITE_PROXY = False
End Try End Try
Catch ex As Exception Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in licensemanager:") MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in licensemanager:")

20
app/DD-Record-Organiser/ClassMoreMetadata.vb Normal file
View File

@ -0,0 +1,20 @@
Public Class ClassMoreMetadata
Public Shared Function Return_CURRENT_TBPMO_INDEX_MAN_VALUE(CONTROL_GUID As Integer, COL_NAME As String)
Try
' Presuming the DataTable has a column named ENTITY_ID and TYPE_NODE.
Dim expression As String
expression = "GUID = " & CONTROL_GUID
Dim foundRowsLevel0() As DataRow
' Use the Select method to find all rows matching the filter.
foundRowsLevel0 = CURRENT_TBPMO_INDEX_MAN.Select(expression)
Dim i As Integer
' For each row create a Node
For i = 0 To foundRowsLevel0.GetUpperBound(0)
Return foundRowsLevel0(i)(COL_NAME)
Next
Catch ex As Exception
ClassLogger.Add(" - Unvorhergesehener Fehler in Return_CURRENT_TBPMO_INDEX_MAN_VALUE - Fehler: " & vbNewLine & ex.Message)
Return Nothing
End Try
End Function
End Class

321
app/DD-Record-Organiser/ClassNodeNavigation.vb
View File

@ -1,6 +1,195 @@
Public Class ClassNodeNavigation Public Class ClassNodeNavigation
Public Shared NODE_CONFIGURABLE_ID As Integer
Public Shared Sub Check_NODE_CONFIG_ID(ENTITY_ID As Integer)
Try
If CURRENT_DT_NODE_CONFIGURABLE_NODES.Rows.Count > 0 Then
'Prüfen ob es für dieses Level einen konfigurierbaren Knoten gibt
Dim result = (From form In CURRENT_DT_NODE_CONFIGURABLE_NODES.AsEnumerable()
Select form
Where form.Item("ENTITY_ID") = ENTITY_ID).Single()
Dim ID = result.Item("GUID")
If Not IsNothing(ID) Then
ClassNodeNavigation.NODE_CONFIGURABLE_ID = ID
CURRENT_NODE_CONFIGURABLE_ID = ID
End If
End If
Catch ex As Exception
ClassNodeNavigation.NODE_CONFIGURABLE_ID = 0
CURRENT_NODE_CONFIGURABLE_ID = 0
End Try
End Sub
Public Shared Function CreateNODE_TAG(Entity As Integer, IDNode As String, Record As Object, NODE_CONFIG_ID As Integer)
Dim vType, TagString As String
Try
If NODE_CONFIGURABLE_ID = NODE_CONFIG_ID Then
vType = "CONFIG_NODE-" & NODE_CONFIG_ID.ToString
Else
vType = "NODE-TYPE-" & NODE_CONFIG_ID.ToString
End If
If Not IsDBNull(Record) Then
TagString = vType & "#" & Entity & "#NODE_ID-" & IDNode & "#RECORD-ID" & Record.ToString
Else
TagString = vType & "#" & Entity & "#NODE_ID-" & IDNode
End If
Return TagString
Catch ex As Exception
ClassLogger.Add(">> Unexpected Error in CreateNODE_TAG (NodeNavigation): " & ex.Message, True)
MsgBox("Error in CreateNODE_TAG (NodeNavigation):" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
TagString = "ERROR NODETAG_CREATION"
Return TagString
End Try
End Function
Public Shared Function CreateTreeViewNodesNew1(DT_TREEVIEW_NODES As DataTable, TREEVIEW_IMAGELIST As ImageList)
Try
Dim mytrv As New TreeView
Dim ENTITY_ID As Integer
Dim expression As String
expression = "PARENT_GUID = 0"
Dim MAIN_NODES() As DataRow
' Use the Select method to find all rows matching the filter.
MAIN_NODES = DT_TREEVIEW_NODES.Select(expression, "NODE_CAPTION")
' For each row create a Node
For i = 0 To MAIN_NODES.GetUpperBound(0)
If ENTITY_ID <> MAIN_NODES(i)("ENTITY_ID") Then
ENTITY_ID = MAIN_NODES(i)("ENTITY_ID")
ClassNodeNavigation.Check_NODE_CONFIG_ID(MAIN_NODES(i)("ENTITY_ID"))
End If
Dim NODE_Tag = CreateNODE_TAG(MAIN_NODES(i)("ENTITY_ID"), MAIN_NODES(i)("GUID"), MAIN_NODES(i)("RECORD_ID"), MAIN_NODES(i)("NODE_CONFIG_ID"))
Dim MAIN_NODE = New TreeNode(MAIN_NODES(i)("NODE_CAPTION"))
MAIN_NODE.Tag = NODE_Tag
Dim index As Integer = 0
For Each img As String In TREEVIEW_IMAGELIST.Images.Keys
If img = MAIN_NODES(i)("NODE_CONFIG_ID") & "#" & MAIN_NODES(i)("ENTITY_ID") Then
Exit For
End If
index += 1
Next
MAIN_NODE.ImageIndex = index
MAIN_NODE.SelectedImageIndex = index
CheckSubNodes(DT_TREEVIEW_NODES, MAIN_NODES(i)("GUID"), TREEVIEW_IMAGELIST, MAIN_NODE)
'Add the node
mytrv.Nodes.Add(MAIN_NODE)
Next
Return mytrv
Catch ex As System.Exception
ClassLogger.Add(">> Unexpected Error in CreateTreeViewNodesNew (NodeNavigation): " & ex.Message, True)
MsgBox("Error in CreateTreeViewNodesNew (NodeNavigation):" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Return Nothing
End Try
End Function
Private Shared Function CheckSubNodes(DT_TREEVIEW_NODES As DataTable, PARENT_GUID As Integer, TREEVIEW_IMAGELIST As ImageList, MY_NODE As TreeNode)
Dim ENTITY_ID As Integer
Dim expression As String
expression = "PARENT_GUID = " & PARENT_GUID.ToString
Dim SUB_NODE_ROW() As DataRow
' Use the Select method to find all rows matching the filter.
SUB_NODE_ROW = DT_TREEVIEW_NODES.Select(expression, "NODE_CAPTION")
' For each row create a Node
For i = 0 To SUB_NODE_ROW.GetUpperBound(0)
If ENTITY_ID <> SUB_NODE_ROW(i)("ENTITY_ID") Then
ENTITY_ID = SUB_NODE_ROW(i)("ENTITY_ID")
ClassNodeNavigation.Check_NODE_CONFIG_ID(SUB_NODE_ROW(i)("ENTITY_ID"))
End If
Dim NODE_Tag = CreateNODE_TAG(SUB_NODE_ROW(i)("ENTITY_ID"), SUB_NODE_ROW(i)("GUID"), SUB_NODE_ROW(i)("RECORD_ID"), SUB_NODE_ROW(i)("NODE_CONFIG_ID"))
Dim SUB_NODE = New TreeNode(SUB_NODE_ROW(i)("NODE_CAPTION"))
SUB_NODE.Tag = NODE_Tag
Dim index As Integer = 0
For Each img As String In TREEVIEW_IMAGELIST.Images.Keys
If img = SUB_NODE_ROW(i)("NODE_CONFIG_ID") & "#" & SUB_NODE_ROW(i)("ENTITY_ID") Then
Exit For
End If
index += 1
Next
SUB_NODE.ImageIndex = index
SUB_NODE.SelectedImageIndex = index
CheckSubNodes(DT_TREEVIEW_NODES, SUB_NODE_ROW(i)("GUID"), TREEVIEW_IMAGELIST, SUB_NODE)
'Add the node
MY_NODE.Nodes.Add(SUB_NODE)
Next
Return MY_NODE
End Function
Public Shared Function CreateTreeViewNodesNew(DT_TREEVIEW_PER_CONTROLS As DataTable, TREEVIEW_IMAGELIST As ImageList)
Try
Dim mytrv As New TreeView
Dim node As TreeNode
Dim subNode As TreeNode
Dim ENTITY_ID As Integer
For Each row As DataRow In DT_TREEVIEW_PER_CONTROLS.Rows
If ENTITY_ID <> row.Item("ENTITY_ID") Then
ENTITY_ID = row.Item("ENTITY_ID")
ClassNodeNavigation.Check_NODE_CONFIG_ID(row.Item("ENTITY_ID"))
End If
Dim NODE_Tag = CreateNODE_TAG(row.Item("ENTITY_ID"), row.Item("GUID"), row.Item("RECORD_ID"), row.Item("NODE_CONFIG_ID"))
'search in the treeview if any country is already present
node = FindNode(mytrv.Nodes, row.Item("PARENT_GUID"))
If node IsNot Nothing Then
'ParentNode Foun
subNode = New TreeNode(row.Item("NODE_CAPTION"))
subNode.Tag = NODE_Tag
Dim index As Integer = 0
For Each img As String In TREEVIEW_IMAGELIST.Images.Keys
If img = row.Item("NODE_CONFIG_ID") & "#" & row.Item("ENTITY_ID") Then
Exit For
End If
index += 1
Next
subNode.ImageIndex = index
subNode.SelectedImageIndex = index
'Add new Node to parentNode
node.Nodes.Add(subNode)
Else
Dim NEW_NODE = New TreeNode(row.Item("NODE_CAPTION"))
NEW_NODE.Tag = NODE_Tag
Dim index As Integer = 0
For Each img As String In TREEVIEW_IMAGELIST.Images.Keys
If img = row.Item("NODE_CONFIG_ID") & "#" & row.Item("ENTITY_ID") Then
Exit For
End If
index += 1
Next
NEW_NODE.ImageIndex = index
NEW_NODE.SelectedImageIndex = index
'Add the node
'node.Nodes.Add(NEW_NODE)
mytrv.Nodes.Add(NEW_NODE)
End If
Next
Return mytrv
Catch ex As System.Exception
ClassLogger.Add(">> Unexpected Error in CreateTreeViewNodesNew (NodeNavigation): " & ex.Message, True)
MsgBox("Error in CreateTreeViewNodesNew (NodeNavigation):" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Return Nothing
End Try
End Function
Private Shared Function FindNode(tncoll As TreeNodeCollection, PARENT_GUID As Integer) As TreeNode
Try
Dim tnFound As TreeNode
For Each tnCurr As TreeNode In tncoll
If tnCurr.Tag.ToString.Contains("#NODE_ID-" & PARENT_GUID) Then
Return tnCurr
End If
tnFound = FindNode(tnCurr.Nodes, PARENT_GUID)
If tnFound IsNot Nothing Then
Return tnFound
End If
Next
Return Nothing
Catch ex As Exception
ClassLogger.Add(">> Unexpected Error in FindNode (NodeNavigation): " & ex.Message, True)
MsgBox("Error in FindNode (NodeNavigation):" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Return Nothing
End Try
End Function
Public Shared Function CreateTreeViewNodes(DT_TREEVIEW_PER_CONTROLS As DataTable, TREEVIEW_IMAGELIST As ImageList) Public Shared Function CreateTreeViewNodes(DT_TREEVIEW_PER_CONTROLS As DataTable, TREEVIEW_IMAGELIST As ImageList)
Try Try
Dim mytrv As New TreeView
' Rootnode erstellen und taggen ' Rootnode erstellen und taggen
If DT_TREEVIEW_PER_CONTROLS.Rows.Count > 1 Then If DT_TREEVIEW_PER_CONTROLS.Rows.Count > 1 Then
' Presuming the DataTable has a column named ENTITY_ID and TYPE_NODE. ' Presuming the DataTable has a column named ENTITY_ID and TYPE_NODE.
@ -17,18 +206,14 @@
For i = 0 To foundRowsLevel0.GetUpperBound(0) For i = 0 To foundRowsLevel0.GetUpperBound(0)
Dim ID = foundRowsLevel0(i)("GUID") Dim ID = foundRowsLevel0(i)("GUID")
Dim LevelEntity = foundRowsLevel0(i)("ENTITY_ID") Dim LevelEntity = foundRowsLevel0(i)("ENTITY_ID")
ClassNodeNavigation.Check_NODE_CONFIG_ID(LevelEntity)
Dim controlID = foundRowsLevel0(i)("CONTROL_ID") Dim controlID = foundRowsLevel0(i)("CONTROL_ID")
Dim nodetext = foundRowsLevel0(i)("NODE_CAPTION") Dim nodetext = foundRowsLevel0(i)("NODE_CAPTION")
Dim Type_node = foundRowsLevel0(i)("TYPE_NODE") Dim Type_node = foundRowsLevel0(i)("TYPE_NODE")
Dim RECORD_ID = foundRowsLevel0(i)("RECORD_ID") Dim RECORD_ID = foundRowsLevel0(i)("RECORD_ID")
NODE_CONFIG_ID = foundRowsLevel0(i)("NODE_CONFIG_ID") NODE_CONFIG_ID = foundRowsLevel0(i)("NODE_CONFIG_ID")
LEVEL0_NODE = New TreeNode(nodetext) LEVEL0_NODE = New TreeNode(nodetext)
If Not IsDBNull(RECORD_ID) Then LEVEL0_NODE.Tag = CreateNODE_TAG(LevelEntity, ID, RECORD_ID, NODE_CONFIG_ID)
LEVEL0_NODE.Tag = LevelEntity & " - CONTROL-ID" & controlID.ToString & "#" & ID & "#RECORD-ID" & RECORD_ID.ToString
Else
LEVEL0_NODE.Tag = LevelEntity & " - CONTROL-ID" & controlID.ToString & "#" & ID
End If
Dim index As Integer = 0 Dim index As Integer = 0
For Each img As String In TREEVIEW_IMAGELIST.Images.Keys For Each img As String In TREEVIEW_IMAGELIST.Images.Keys
@ -49,6 +234,7 @@
For j = 0 To foundRowsLevel1.GetUpperBound(0) For j = 0 To foundRowsLevel1.GetUpperBound(0)
Dim ID1 = foundRowsLevel1(j)("GUID") Dim ID1 = foundRowsLevel1(j)("GUID")
Dim LevelEntity1 = foundRowsLevel1(j)("ENTITY_ID") Dim LevelEntity1 = foundRowsLevel1(j)("ENTITY_ID")
ClassNodeNavigation.Check_NODE_CONFIG_ID(LevelEntity1)
Dim controlID1 = foundRowsLevel1(j)("CONTROL_ID") Dim controlID1 = foundRowsLevel1(j)("CONTROL_ID")
Dim nodetext1 = foundRowsLevel1(j)("NODE_CAPTION") Dim nodetext1 = foundRowsLevel1(j)("NODE_CAPTION")
Dim Type_node1 = foundRowsLevel1(j)("TYPE_NODE") Dim Type_node1 = foundRowsLevel1(j)("TYPE_NODE")
@ -57,11 +243,8 @@
' Node erstellen.. ' Node erstellen..
Dim LEVEL1_NODE As TreeNode Dim LEVEL1_NODE As TreeNode
LEVEL1_NODE = New TreeNode(nodetext1) LEVEL1_NODE = New TreeNode(nodetext1)
If Not IsDBNull(RECORD_ID) Then
LEVEL1_NODE.Tag = LevelEntity1 & "-CONTROL-ID" & controlID1.ToString & "#" & ID1 & "#RECORD-ID" & RECORD_ID.ToString LEVEL1_NODE.Tag = CreateNODE_TAG(LevelEntity, ID, RECORD_ID, NODE_CONFIG_ID)
Else
LEVEL1_NODE.Tag = LevelEntity1 & "-CONTROL-ID" & controlID1.ToString & "#" & ID1
End If
index = 0 index = 0
For Each img As String In TREEVIEW_IMAGELIST.Images.Keys For Each img As String In TREEVIEW_IMAGELIST.Images.Keys
@ -83,6 +266,7 @@
For k = 0 To foundRowsLevel2.GetUpperBound(0) For k = 0 To foundRowsLevel2.GetUpperBound(0)
Dim ID2 = foundRowsLevel2(k)("GUID") Dim ID2 = foundRowsLevel2(k)("GUID")
Dim LevelEntity2 = foundRowsLevel2(k)("ENTITY_ID") Dim LevelEntity2 = foundRowsLevel2(k)("ENTITY_ID")
ClassNodeNavigation.Check_NODE_CONFIG_ID(LevelEntity2)
Dim controlID2 = foundRowsLevel2(k)("CONTROL_ID") Dim controlID2 = foundRowsLevel2(k)("CONTROL_ID")
Dim nodetext2 = foundRowsLevel2(k)("NODE_CAPTION") Dim nodetext2 = foundRowsLevel2(k)("NODE_CAPTION")
RECORD_ID = foundRowsLevel2(k)("RECORD_ID") RECORD_ID = foundRowsLevel2(k)("RECORD_ID")
@ -90,11 +274,7 @@
' Node erstellen.. ' Node erstellen..
Dim LEVEL2_NODE As TreeNode Dim LEVEL2_NODE As TreeNode
LEVEL2_NODE = New TreeNode(nodetext2) LEVEL2_NODE = New TreeNode(nodetext2)
If Not IsDBNull(RECORD_ID) Then LEVEL2_NODE.Tag = CreateNODE_TAG(LevelEntity, ID, RECORD_ID, NODE_CONFIG_ID)
LEVEL2_NODE.Tag = LevelEntity2 & "-CONTROL-ID" & controlID2.ToString & "#" & ID2 & "#RECORD-ID" & RECORD_ID.ToString
Else
LEVEL2_NODE.Tag = LevelEntity2 & "-CONTROL-ID" & controlID2.ToString & "#" & ID2
End If
index = 0 index = 0
For Each img As String In TREEVIEW_IMAGELIST.Images.Keys For Each img As String In TREEVIEW_IMAGELIST.Images.Keys
@ -116,6 +296,7 @@
For l = 0 To foundRowsLevel3.GetUpperBound(0) For l = 0 To foundRowsLevel3.GetUpperBound(0)
Dim ID3 = foundRowsLevel3(l)("GUID") Dim ID3 = foundRowsLevel3(l)("GUID")
Dim LevelEntity3 = foundRowsLevel3(l)("ENTITY_ID") Dim LevelEntity3 = foundRowsLevel3(l)("ENTITY_ID")
ClassNodeNavigation.Check_NODE_CONFIG_ID(LevelEntity3)
Dim controlID3 = foundRowsLevel3(l)("CONTROL_ID") Dim controlID3 = foundRowsLevel3(l)("CONTROL_ID")
Dim nodetext3 = foundRowsLevel3(l)("NODE_CAPTION") Dim nodetext3 = foundRowsLevel3(l)("NODE_CAPTION")
RECORD_ID = foundRowsLevel3(l)("RECORD_ID") RECORD_ID = foundRowsLevel3(l)("RECORD_ID")
@ -123,11 +304,7 @@
' Node erstellen.. ' Node erstellen..
Dim LEVEL3_NODE As TreeNode Dim LEVEL3_NODE As TreeNode
LEVEL3_NODE = New TreeNode(nodetext3) LEVEL3_NODE = New TreeNode(nodetext3)
If Not IsDBNull(RECORD_ID) Then LEVEL3_NODE.Tag = CreateNODE_TAG(LevelEntity, ID, RECORD_ID, NODE_CONFIG_ID)
LEVEL3_NODE.Tag = LevelEntity3 & "-CONTROL-ID" & controlID3.ToString & "#" & ID3 & "#RECORD-ID" & RECORD_ID.ToString
Else
LEVEL3_NODE.Tag = LevelEntity3 & "-CONTROL-ID" & controlID3.ToString & "#" & ID3
End If
index = 0 index = 0
For Each img As String In TREEVIEW_IMAGELIST.Images.Keys For Each img As String In TREEVIEW_IMAGELIST.Images.Keys
@ -149,6 +326,7 @@
For m = 0 To foundRowsLevel4.GetUpperBound(0) For m = 0 To foundRowsLevel4.GetUpperBound(0)
Dim ID5 = foundRowsLevel4(m)("GUID") Dim ID5 = foundRowsLevel4(m)("GUID")
Dim LevelEntity5 = foundRowsLevel4(m)("ENTITY_ID") Dim LevelEntity5 = foundRowsLevel4(m)("ENTITY_ID")
ClassNodeNavigation.Check_NODE_CONFIG_ID(LevelEntity5)
Dim controlID5 = foundRowsLevel4(m)("CONTROL_ID") Dim controlID5 = foundRowsLevel4(m)("CONTROL_ID")
Dim nodetext5 = foundRowsLevel4(m)("NODE_CAPTION") Dim nodetext5 = foundRowsLevel4(m)("NODE_CAPTION")
RECORD_ID = foundRowsLevel4(m)("RECORD_ID") RECORD_ID = foundRowsLevel4(m)("RECORD_ID")
@ -156,11 +334,7 @@
' Node erstellen.. ' Node erstellen..
Dim LEVEL4_NODE As TreeNode Dim LEVEL4_NODE As TreeNode
LEVEL4_NODE = New TreeNode(nodetext5) LEVEL4_NODE = New TreeNode(nodetext5)
If Not IsDBNull(RECORD_ID) Then LEVEL4_NODE.Tag = CreateNODE_TAG(LevelEntity, ID, RECORD_ID, NODE_CONFIG_ID)
LEVEL4_NODE.Tag = LevelEntity5 & "-CONTROL-ID" & controlID5.ToString & "#" & ID5 & "#RECORD-ID" & RECORD_ID.ToString
Else
LEVEL4_NODE.Tag = LevelEntity5 & "-CONTROL-ID" & controlID5.ToString & "#" & ID5
End If
index = 0 index = 0
For Each img As String In TREEVIEW_IMAGELIST.Images.Keys For Each img As String In TREEVIEW_IMAGELIST.Images.Keys
@ -186,6 +360,7 @@
For n = 0 To foundRowsLevel5.GetUpperBound(0) For n = 0 To foundRowsLevel5.GetUpperBound(0)
Dim ID6 = foundRowsLevel5(n)("GUID") Dim ID6 = foundRowsLevel5(n)("GUID")
Dim LevelEntity6 = foundRowsLevel5(n)("ENTITY_ID") Dim LevelEntity6 = foundRowsLevel5(n)("ENTITY_ID")
ClassNodeNavigation.Check_NODE_CONFIG_ID(LevelEntity6)
Dim controlID6 = foundRowsLevel5(n)("CONTROL_ID") Dim controlID6 = foundRowsLevel5(n)("CONTROL_ID")
Dim nodetext6 = foundRowsLevel5(n)("NODE_CAPTION") Dim nodetext6 = foundRowsLevel5(n)("NODE_CAPTION")
RECORD_ID = foundRowsLevel5(n)("RECORD_ID") RECORD_ID = foundRowsLevel5(n)("RECORD_ID")
@ -193,11 +368,7 @@
' Node erstellen.. ' Node erstellen..
Dim LEVEL5_NODE As TreeNode Dim LEVEL5_NODE As TreeNode
LEVEL5_NODE = New TreeNode(nodetext6) LEVEL5_NODE = New TreeNode(nodetext6)
If Not IsDBNull(RECORD_ID) Then LEVEL5_NODE.Tag = CreateNODE_TAG(LevelEntity, ID, RECORD_ID, NODE_CONFIG_ID)
LEVEL5_NODE.Tag = LevelEntity6 & "-CONTROL-ID" & controlID6.ToString & "#" & ID6 & "#RECORD-ID" & RECORD_ID.ToString
Else
LEVEL5_NODE.Tag = LevelEntity6 & "-CONTROL-ID" & controlID6.ToString & "#" & ID6
End If
index = 0 index = 0
For Each img As String In TREEVIEW_IMAGELIST.Images.Keys For Each img As String In TREEVIEW_IMAGELIST.Images.Keys
@ -222,6 +393,7 @@
For o = 0 To foundRowsLevel6.GetUpperBound(0) For o = 0 To foundRowsLevel6.GetUpperBound(0)
Dim ID7 = foundRowsLevel6(o)("GUID") Dim ID7 = foundRowsLevel6(o)("GUID")
Dim LevelEntity7 = foundRowsLevel6(o)("ENTITY_ID") Dim LevelEntity7 = foundRowsLevel6(o)("ENTITY_ID")
ClassNodeNavigation.Check_NODE_CONFIG_ID(LevelEntity7)
Dim controlID7 = foundRowsLevel6(o)("CONTROL_ID") Dim controlID7 = foundRowsLevel6(o)("CONTROL_ID")
Dim nodetext7 = foundRowsLevel6(o)("NODE_CAPTION") Dim nodetext7 = foundRowsLevel6(o)("NODE_CAPTION")
RECORD_ID = foundRowsLevel6(o)("RECORD_ID") RECORD_ID = foundRowsLevel6(o)("RECORD_ID")
@ -229,11 +401,8 @@
' Node erstellen.. ' Node erstellen..
Dim LEVEL6_NODE As TreeNode Dim LEVEL6_NODE As TreeNode
LEVEL6_NODE = New TreeNode(nodetext7) LEVEL6_NODE = New TreeNode(nodetext7)
If Not IsDBNull(RECORD_ID) Then
LEVEL6_NODE.Tag = LevelEntity7 & "-CONTROL-ID" & controlID7.ToString & "#" & ID7 & "#RECORD-ID" & RECORD_ID.ToString LEVEL6_NODE.Tag = CreateNODE_TAG(LevelEntity, ID, RECORD_ID, NODE_CONFIG_ID)
Else
LEVEL6_NODE.Tag = LevelEntity7 & "-CONTROL-ID" & controlID7.ToString & "#" & ID7
End If
index = 0 index = 0
For Each img As String In TREEVIEW_IMAGELIST.Images.Keys For Each img As String In TREEVIEW_IMAGELIST.Images.Keys
@ -255,6 +424,7 @@
For p = 0 To foundRowsLevel7.GetUpperBound(0) For p = 0 To foundRowsLevel7.GetUpperBound(0)
Dim ID8 = foundRowsLevel7(p)("GUID") Dim ID8 = foundRowsLevel7(p)("GUID")
Dim LevelEntity8 = foundRowsLevel7(p)("ENTITY_ID") Dim LevelEntity8 = foundRowsLevel7(p)("ENTITY_ID")
ClassNodeNavigation.Check_NODE_CONFIG_ID(LevelEntity8)
Dim controlID8 = foundRowsLevel7(p)("CONTROL_ID") Dim controlID8 = foundRowsLevel7(p)("CONTROL_ID")
Dim nodetext8 = foundRowsLevel7(p)("NODE_CAPTION") Dim nodetext8 = foundRowsLevel7(p)("NODE_CAPTION")
RECORD_ID = foundRowsLevel7(p)("RECORD_ID") RECORD_ID = foundRowsLevel7(p)("RECORD_ID")
@ -262,11 +432,7 @@
' Node erstellen.. ' Node erstellen..
Dim LEVEL7_NODE As TreeNode Dim LEVEL7_NODE As TreeNode
LEVEL7_NODE = New TreeNode(nodetext8) LEVEL7_NODE = New TreeNode(nodetext8)
If Not IsDBNull(RECORD_ID) Then LEVEL7_NODE.Tag = CreateNODE_TAG(LevelEntity, ID, RECORD_ID, NODE_CONFIG_ID)
LEVEL7_NODE.Tag = LevelEntity8 & "-CONTROL-ID" & controlID8.ToString & "#" & ID8 & "#RECORD-ID" & RECORD_ID.ToString
Else
LEVEL7_NODE.Tag = LevelEntity8 & "-CONTROL-ID" & controlID8.ToString & "#" & ID8
End If
index = 0 index = 0
For Each img As String In TREEVIEW_IMAGELIST.Images.Keys For Each img As String In TREEVIEW_IMAGELIST.Images.Keys
@ -288,6 +454,7 @@
For q = 0 To foundRowsLevel8.GetUpperBound(0) For q = 0 To foundRowsLevel8.GetUpperBound(0)
Dim ID9 = foundRowsLevel8(q)("GUID") Dim ID9 = foundRowsLevel8(q)("GUID")
Dim LevelEntity9 = foundRowsLevel8(q)("ENTITY_ID") Dim LevelEntity9 = foundRowsLevel8(q)("ENTITY_ID")
ClassNodeNavigation.Check_NODE_CONFIG_ID(LevelEntity9)
Dim controlID9 = foundRowsLevel8(q)("CONTROL_ID") Dim controlID9 = foundRowsLevel8(q)("CONTROL_ID")
Dim nodetext9 = foundRowsLevel8(q)("NODE_CAPTION") Dim nodetext9 = foundRowsLevel8(q)("NODE_CAPTION")
RECORD_ID = foundRowsLevel8(q)("RECORD_ID") RECORD_ID = foundRowsLevel8(q)("RECORD_ID")
@ -295,12 +462,7 @@
' Node erstellen.. ' Node erstellen..
Dim LEVEL8_NODE As TreeNode Dim LEVEL8_NODE As TreeNode
LEVEL8_NODE = New TreeNode(nodetext9) LEVEL8_NODE = New TreeNode(nodetext9)
If Not IsDBNull(RECORD_ID) Then LEVEL8_NODE.Tag = CreateNODE_TAG(LevelEntity, ID, RECORD_ID, NODE_CONFIG_ID)
LEVEL8_NODE.Tag = LevelEntity9 & "-CONTROL-ID" & controlID9.ToString & "#" & ID9 & "#RECORD-ID" & RECORD_ID.ToString
Else
LEVEL8_NODE.Tag = LevelEntity9 & "-CONTROL-ID" & controlID9.ToString & "#" & ID9
End If
index = 0 index = 0
For Each img As String In TREEVIEW_IMAGELIST.Images.Keys For Each img As String In TREEVIEW_IMAGELIST.Images.Keys
If img = NODE_CONFIG_ID & "#" & LevelEntity9 Then If img = NODE_CONFIG_ID & "#" & LevelEntity9 Then
@ -322,15 +484,76 @@
Next ' Level 2 Ende Next ' Level 2 Ende
Next 'Level 1 Ende Next 'Level 1 Ende
Next Next
Return LEVEL0_NODE mytrv.Nodes.Add(LEVEL0_NODE)
Else Else
MsgBox("Check the Control Navigation Option or inform Digital Data!", MsgBoxStyle.Critical) MsgBox("No Nodes for Navigation. Check the Control Navigation Option or inform Digital Data!", MsgBoxStyle.Critical)
Return Nothing Return Nothing
End If End If
Return mytrv
Catch ex As Exception Catch ex As Exception
ClassLogger.Add(">> Unexpected Error in CreateTreeViewNodes (NodeNavigation): " & ex.Message, True) ClassLogger.Add(">> Unexpected Error in CreateTreeViewNodes (NodeNavigation): " & ex.Message, True)
MsgBox("Error in CreateTreeViewNodes (NodeNavigation):" & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("Error in CreateTreeViewNodes (NodeNavigation):" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Return Nothing Return Nothing
End Try End Try
End Function End Function
Public Shared Function Return_ENTITY_FOR_TAG(NodeString As String)
If IsNumeric(NodeString) Then
Return NodeString
Else
Try
Dim staticListItems = NodeString.Split("#")
Return staticListItems(1)
Catch ex As Exception
ClassLogger.Add("Unexpected Error in Return_ENTITY_FOR_TAG ('" & NodeString & "'): " & ex.Message, True)
Return 0
End Try
End If
End Function
Public Shared Function Return_RECORD_forTag(NodeString As String)
If IsNumeric(NodeString) Then
Return NodeString
Else
Dim staticListItems = NodeString.Split("#")
If staticListItems(3).Contains("RECORD-ID") Then
Try
Dim _RECORD = staticListItems(3).ToString.Replace("RECORD-ID", "")
If IsNumeric(_RECORD) Then
Return _RECORD
Else
Return 0
End If
Catch ex As Exception
ClassLogger.Add("Unexpected Error in Return_RECORD_forTag ('" & NodeString & "'): " & ex.Message, True)
Return 0
End Try
Else
Return 0
End If
End If
End Function
Public Shared Function Return_NODEID_forTag(NodeString As String)
'If NODE_CONFIGURABLE_ID = NODE_CONFIG_ID Then
' vType = "CONFIG_NODE-" & NODE_CONFIG_ID.ToString
'Else
' vType = "NODE-TYPE-" & NODE_CONFIG_ID.ToString
'End If
'If Not IsDBNull(Record) Then
' TagString = vType & "#" & Entity & "#" & "NODE_ID-" & IDNode & "#RECORD-ID" & Record.ToString
'Else
' TagString = vType & "#" & Entity & "#" & "NODE_ID-" & IDNode
'End If
If IsNumeric(NodeString) Then
Return NodeString
Else
Dim staticListItems = NodeString.Split("#")
If staticListItems(2).Contains("NODE_ID") Then
Return staticListItems(2).ToString.Replace("NODE_ID-", "")
Else
Return 0
End If
End If
End Function
End Class End Class

8
app/DD-Record-Organiser/ClassNodes.vb
View File

@ -15,14 +15,12 @@ Public Class ClassNodes
Dim controlID9 = foundRows(q)("CONTROL_ID") Dim controlID9 = foundRows(q)("CONTROL_ID")
Dim nodetext9 = foundRows(q)("NODE_CAPTION") Dim nodetext9 = foundRows(q)("NODE_CAPTION")
Dim RECORD_ID = foundRows(q)("RECORD_ID") Dim RECORD_ID = foundRows(q)("RECORD_ID")
Dim NODE_CONFIG_ID = foundRows(q)("NODE_CONFIG_ID")
' Node erstellen.. ' Node erstellen..
Dim NEW_NODE As TreeNode Dim NEW_NODE As TreeNode
NEW_NODE = New TreeNode(nodetext9) NEW_NODE = New TreeNode(nodetext9)
If Not IsDBNull(RECORD_ID) Then ClassNodeNavigation.Check_NODE_CONFIG_ID(LevelEntity9)
NEW_NODE.Tag = LevelEntity9 & "-CONTROL-ID" & controlID9.ToString & "#" & ID9 & "#RECORD-ID" & RECORD_ID.ToString NEW_NODE.Tag = ClassNodeNavigation.CreateNODE_TAG(LevelEntity9, ID9, RECORD_ID, NODE_CONFIG_ID)
Else
NEW_NODE.Tag = LevelEntity9 & "-CONTROL-ID" & controlID9.ToString & "#" & ID9
End If
Dim index = 0 Dim index = 0
For Each img As String In TREEVIEW_IMAGELIST.Images.Keys For Each img As String In TREEVIEW_IMAGELIST.Images.Keys

112
app/DD-Record-Organiser/ClassProxy.vb Normal file
View File

@ -0,0 +1,112 @@
Public Class ClassProxy
Public Shared MyPROXYConnectionString As String = ""
Public Shared MyLinkedServer As String
Public Shared Function Refresh_Object_Data()
If LICENSE_SITE_PROXY = False Or ClassProxy.MyPROXYConnectionString = String.Empty Then
Return False
End If
Dim sel = "DECLARE @return_value int" & vbNewLine & _
"EXEC @return_value = [dbo].[PRROXY_SYNC_OBJECTS]" & vbNewLine & _
"SELECT 'Return Value' = @return_value"
Dim Result As DataTable = ClassDatabase.Return_Datatable(sel, True)
If Not IsNothing(Result) Then
If Result.Rows(0).Item(0) = 0 Then
Return True
Else
Return False
End If
Else
Return False
End If
End Function
Public Shared Function Refresh_Object_Change_Data()
If LICENSE_SITE_PROXY = False Or ClassProxy.MyPROXYConnectionString = String.Empty Then
Return False
End If
Dim sel = "DECLARE @return_value int" & vbNewLine & _
"EXEC @return_value = [dbo].[PRROXY_SYNC_OBJECTS_CHANGES]" & vbNewLine & _
"SELECT 'Return Value' = @return_value"
Dim Result As DataTable = ClassDatabase.Return_Datatable(sel, True)
If Not IsNothing(Result) Then
If Result.Rows(0).Item(0) = 0 Then
Return True
Else
Return False
End If
Else
Return False
End If
End Function
Public Shared Function Refresh_Doc_Data()
If LICENSE_SITE_PROXY = False Or ClassProxy.MyPROXYConnectionString = String.Empty Then
Return False
End If
Dim sel = "DECLARE @return_value int" & vbNewLine & _
"EXEC @return_value = [dbo].[PRROXY_SYNC_DOC_OBJECTS]" & vbNewLine & _
"SELECT 'Return Value' = @return_value"
Dim Result As DataTable = ClassDatabase.Return_Datatable(sel, True)
If Not IsNothing(Result) Then
If Result.Rows(0).Item(0) = 0 Then
Return True
Else
Return False
End If
Else
Return False
End If
End Function
Public Shared Function Refresh_Control_Data()
If LICENSE_SITE_PROXY = False Or ClassProxy.MyPROXYConnectionString = String.Empty Then
Return False
End If
Dim sel = "DECLARE @return_value int" & vbNewLine & _
"EXEC @return_value = [dbo].[PRROXY_SYNC_OBJECTS_CONTROL_VALUES] " & CURRENT_ENTITY_ID & vbNewLine & _
"SELECT 'Return Value' = @return_value"
Dim Result As DataTable = ClassDatabase.Return_Datatable(sel, True)
If Not IsNothing(Result) Then
If Result.Rows(0).Item(0) = 0 Then
Return True
Else
Return False
End If
Else
Return False
End If
End Function
Public Shared Function Refresh_Workflow_Data()
If LICENSE_SITE_PROXY = False Or ClassProxy.MyPROXYConnectionString = String.Empty Then
Return False
End If
Dim sel = "DECLARE @return_value int" & vbNewLine & _
"EXEC @return_value = [dbo].[PRROXY_SYNC_WORKFLOWS]" & vbNewLine & _
"SELECT 'Return Value' = @return_value"
Dim Result As DataTable = ClassDatabase.Return_Datatable(sel, True)
If Not IsNothing(Result) Then
If Result.Rows(0).Item(0) = 0 Then
Return True
Else
Return False
End If
Else
Return False
End If
End Function
Public Shared Function PRROXY_SYNC_DETAIL_OBJECT(Objectname As String)
If LICENSE_SITE_PROXY = False Or ClassProxy.MyPROXYConnectionString = String.Empty Then
Return False
End If
Dim sel = "DECLARE @return_value int" & vbNewLine & _
"EXEC @return_value = [dbo].[PRROXY_SYNC_DETAIL_OBJECT] '" & Objectname & "'" & vbNewLine & _
"SELECT 'Return Value' = @return_value"
Dim Result As DataTable = ClassDatabase.Return_Datatable(sel, True)
If Not IsNothing(Result) Then
If Result.Rows(0).Item(0) = 0 Then
Return True
Else
Return False
End If
Else
Return False
End If
End Function
End Class

16
app/DD-Record-Organiser/ClassRecordCommands.vb Normal file
View File

@ -0,0 +1,16 @@
Public Class ClassRecordCommands
Public Shared Function CreateRecord(EntityID)
Dim SQL = "INSERT INTO TBPMO_RECORD(ADDED_WHO, FORM_ID,RECORD_ENTITY_ID) VALUES ('" & USER_USERNAME & "', " & EntityID & ",4711)"
Return ClassDatabase.Execute_non_Query(SQL) = True
End Function
Public Shared Function GetLastRecord()
Dim SQL = "SELECT (MAX(GUID)) FROM TBPMO_RECORD where PARENT_RECORD = 0 AND ADDED_WHO = '" & USER_USERNAME & "'"
Return ClassDatabase.Execute_Scalar(SQL)
End Function
Public Shared Function ConnectRecord(PARENT_RECORD As Integer, LINK_RECORD As Integer, Optional Comment As String = "")
Dim SQL = "INSERT INTO TBPMO_RECORD_CONNECT(RECORD1_ID,RECORD2_ID,COMMENT,ADDED_WHO) VALUES (" & PARENT_RECORD & "," & LINK_RECORD & ",'" & Comment & "','" & USER_USERNAME & "')"
If LogErrorsOnly = False Then ClassLogger.Add(" >> ConnectRecord SQL: " & SQL, False)
Return ClassDatabase.Execute_non_Query(SQL)
End Function
End Class

26
app/DD-Record-Organiser/ClassRecordState.vb
View File

@ -2,22 +2,34 @@
Public Shared Sub LockRecord(RecordId As Integer) Public Shared Sub LockRecord(RecordId As Integer)
Try Try
If RecordId = 0 Then
Exit Sub
End If
Dim Username As String = USER_USERNAME Dim Username As String = USER_USERNAME
Dim SQL As String = String.Format("UPDATE TBPMO_RECORD SET IN_WORK = 1, IN_WORK_WHO = '{0}' WHERE GUID = {1}", Username, RecordId) Dim SQL As String = String.Format("UPDATE TBPMO_RECORD SET IN_WORK = 1, IN_WORK_WHO = '{0}' WHERE GUID = {1}", Username, RecordId)
If ClassProxy.MyPROXYConnectionString <> String.Empty Then
ClassDatabase.Execute_non_Query(SQL, True)
End If
ClassDatabase.Execute_non_Query(SQL) ClassDatabase.Execute_non_Query(SQL)
Console.WriteLine("Record " & RecordId & " locked")
Catch ex As Exception Catch ex As Exception
MsgBox("Error in LockRecord: " & vbNewLine & ex.Message,MsgBoxStyle.Critical) MsgBox("Error in LockRecord: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try End Try
End Sub End Sub
Public Shared Sub UnlockRecord(RecordId As Integer) Public Shared Sub UnlockRecord(RecordId As Integer)
Try Try
If RecordId = 0 Then
Exit Sub
End If
Dim RECLOCKED = IsRecordLocked(RecordId)
If IsNothing(RECLOCKED) Then
Exit Sub
End If
Dim SQL As String = String.Format("UPDATE TBPMO_RECORD SET IN_WORK = 0, IN_WORK_WHO = NULL WHERE GUID = {0}", RecordId) Dim SQL As String = String.Format("UPDATE TBPMO_RECORD SET IN_WORK = 0, IN_WORK_WHO = NULL WHERE GUID = {0}", RecordId)
If ClassProxy.MyPROXYConnectionString <> String.Empty Then
ClassDatabase.Execute_non_Query(SQL, True)
End If
ClassDatabase.Execute_non_Query(SQL) ClassDatabase.Execute_non_Query(SQL)
Console.WriteLine("Record " & RecordId & " UNlocked")
Catch ex As Exception Catch ex As Exception
MsgBox("Error in UnlockRecord: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("Error in UnlockRecord: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try End Try
@ -26,7 +38,7 @@
Public Shared Function IsRecordLocked(RecordId As Integer) As String Public Shared Function IsRecordLocked(RecordId As Integer) As String
Try Try
Dim SQL As String = String.Format("SELECT IN_WORK, IN_WORK_WHO FROM TBPMO_RECORD WHERE GUID = {0}", RecordId) Dim SQL As String = String.Format("SELECT IN_WORK, IN_WORK_WHO FROM TBPMO_RECORD WHERE GUID = {0}", RecordId)
Dim dt As DataTable = ClassDatabase.Return_Datatable(SQL) Dim dt As DataTable = ClassDatabase.Return_Datatable(SQL, True)
If dt.Rows.Count = 1 Then If dt.Rows.Count = 1 Then
@ -42,7 +54,7 @@
End If End If
ElseIf dt.Rows.Count = 0 Then ElseIf dt.Rows.Count = 0 Then
Throw New Exception("Record " & RecordId & " does not exist") Return Nothing
Else Else
Throw New Exception("Record" & RecordId & " is not unique") Throw New Exception("Record" & RecordId & " is not unique")
End If End If

8
app/DD-Record-Organiser/ClassRecordView.vb
View File

@ -42,7 +42,7 @@ Public Class ClassRecordView
Private Function GetEntityId() As Integer Private Function GetEntityId() As Integer
Dim SQL = String.Format("SELECT FORM_ID FROM TBPMO_RECORD WHERE GUID = {0}", RecordId) Dim SQL = String.Format("SELECT FORM_ID FROM TBPMO_RECORD WHERE GUID = {0}", RecordId)
Me.Entity_ID = ClassDatabase.Execute_Scalar(SQL) Me.Entity_ID = ClassDatabase.Execute_Scalar(SQL, True)
Return Me.Entity_ID Return Me.Entity_ID
End Function End Function
@ -151,7 +151,7 @@ Public Class ClassRecordView
Dim match As String = ControlIdRegex.Match(sqlcommand).Value 'Get Full Match to replace later Dim match As String = ControlIdRegex.Match(sqlcommand).Value 'Get Full Match to replace later
Dim controlId As Integer = Integer.Parse(match.Replace("@", "")) 'Get Value after removing @-chars Dim controlId As Integer = Integer.Parse(match.Replace("@", "")) 'Get Value after removing @-chars
Dim controlSQL = String.Format("SELECT VALUE FROM VWPMO_VALUES WHERE CONTROL_ID = {0} AND RECORD_ID = {1}", controlId, Me.RecordId) Dim controlSQL = String.Format("SELECT VALUE FROM VWPMO_VALUES WHERE CONTROL_ID = {0} AND RECORD_ID = {1}", controlId, Me.RecordId)
Dim controlValue = ClassDatabase.Execute_Scalar(controlSQL) 'Get the actual value Dim controlValue = ClassDatabase.Execute_Scalar(controlSQL, True) 'Get the actual value
sqlcommand = sqlcommand.Replace(match, controlValue.ToString()) 'Replace the actual value with the placeholder string/match sqlcommand = sqlcommand.Replace(match, controlValue.ToString()) 'Replace the actual value with the placeholder string/match
End If End If
@ -190,7 +190,7 @@ Public Class ClassRecordView
Private Sub LoadControls() Private Sub LoadControls()
Try Try
Dim controls As New List(Of Control) Dim controls As New List(Of Control)
DTControls = ClassDatabase.Return_Datatable(String.Format("SELECT * FROM VWPMO_CONTROL_SCREEN WHERE FORM_ID = {0}", GetEntityId())) DTControls = ClassDatabase.Return_Datatable(String.Format("SELECT * FROM VWPMO_CONTROL_SCREEN WHERE FORM_ID = {0}", GetEntityId()), True)
For Each row As DataRow In DTControls.Rows For Each row As DataRow In DTControls.Rows
Dim props As ControlProps = MapRowToProps(row) Dim props As ControlProps = MapRowToProps(row)
@ -255,7 +255,7 @@ Public Class ClassRecordView
Private Sub LoadValues(controlCollection As Control.ControlCollection) Private Sub LoadValues(controlCollection As Control.ControlCollection)
Try Try
Dim controls As New List(Of Control) Dim controls As New List(Of Control)
DTValues = ClassDatabase.Return_Datatable(String.Format("SELECT * FROM VWPMO_VALUES WHERE RECORD_ID = {0}", Me.RecordId)) DTValues = ClassDatabase.Return_Datatable(String.Format("SELECT * FROM VWPMO_VALUES WHERE RECORD_ID = {0}", Me.RecordId), True)
' ControlCollection in eine List<Of Control> konvertieren ' ControlCollection in eine List<Of Control> konvertieren
controls = controlCollection.Cast(Of Control)().ToList() controls = controlCollection.Cast(Of Control)().ToList()

11
app/DD-Record-Organiser/ClassWindream.vb
View File

@ -218,6 +218,8 @@ Public Class ClassWindream
oConnect = CreateObject("Windream.WMConnect") oConnect = CreateObject("Windream.WMConnect")
'MsgBox("windrem init 'ed") 'MsgBox("windrem init 'ed")
Catch ex As Exception Catch ex As Exception
Dim msg = "Error in CreateObject(Windream.WMSession) - Err.Number: " & Err.Number & vbNewLine & Err.Description
ClassLogger.Add(msg, True)
Return False Return False
End Try End Try
@ -270,6 +272,8 @@ Public Class ClassWindream
' Ordnertypen ausgelesen werden ' Ordnertypen ausgelesen werden
oDokumentTypen = oSession.GetWMObjectTypes(WINDREAMLib.WMEntity.WMEntityDocument) oDokumentTypen = oSession.GetWMObjectTypes(WINDREAMLib.WMEntity.WMEntityDocument)
Catch ex As Exception Catch ex As Exception
Dim msg = "Error in oSession.SwitchEvents - Err.Number: " & Err.Number & vbNewLine & Err.Description
ClassLogger.Add(msg, True)
Return False Return False
End Try End Try
@ -334,7 +338,7 @@ Public Class ClassWindream
End Function End Function
Public Function GetTypeOfIndex(ByVal indexname As String) As Integer Public Function GetTypeOfIndex(ByVal indexname As String) As Integer
Try Try
Dim oAttribute = Me.oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, indexname) Dim oAttribute = oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, indexname)
Dim vType = oAttribute.getVariableValue("dwAttrType") Dim vType = oAttribute.getVariableValue("dwAttrType")
Return vType Return vType
Catch ex As Exception Catch ex As Exception
@ -397,7 +401,7 @@ Public Class ClassWindream
Public Function GetObjecttypeByName(ByVal objekttypName As String) As WMObject Public Function GetObjecttypeByName(ByVal objekttypName As String) As WMObject
Try Try
' alle Objekttypen auslesen ' alle Objekttypen auslesen
Dim oObjectTypes As WMObjects = Me.oSession.GetWMObjectTypes(WINDREAMLib.WMEntity.WMEntityDocument) Dim oObjectTypes As WMObjects = oSession.GetWMObjectTypes(WINDREAMLib.WMEntity.WMEntityDocument)
' alle Objekttypen durchlaufen und nach dem mit dem angegebenen Namen suchen ' alle Objekttypen durchlaufen und nach dem mit dem angegebenen Namen suchen
For Each oObjectType As WMObject In oObjectTypes For Each oObjectType As WMObject In oObjectTypes
@ -2175,7 +2179,8 @@ Public Class ClassWindream
End If End If
Dim oWMObject As WINDREAMLib.WMObject Dim oWMObject As WINDREAMLib.WMObject
oWMObject = oSession.GetWMObjectByPath(WMEntityDocumentAndMap, filepath.Substring(2)) Dim file = filepath.Substring(2)
oWMObject = oSession.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityDocument, filepath.Substring(2))
If Not IsNothing(oWMObject) Then If Not IsNothing(oWMObject) Then
Dim AccessRightsObject Dim AccessRightsObject
AccessRightsObject = oWMObject.GetWMObjectRelationByName(REL_Document_AccessRight) AccessRightsObject = oWMObject.GetWMObjectRelationByName(REL_Document_AccessRight)

3
app/DD-Record-Organiser/ClassWindreamDocGrid.vb
View File

@ -42,6 +42,7 @@ Public Class ClassWindreamDocGrid
End Function End Function
Public Shared Sub GetDocItems(gridView As GridView) Public Shared Sub GetDocItems(gridView As GridView)
If Init_Table() = True Then If Init_Table() = True Then
Console.WriteLine("gridView.SelectedRowsCount: " & gridView.SelectedRowsCount.ToString)
If gridView.SelectedRowsCount > 1 Then If gridView.SelectedRowsCount > 1 Then
DT_RESULTFILES.Clear() DT_RESULTFILES.Clear()
For Each row In gridView.GetSelectedRows For Each row In gridView.GetSelectedRows
@ -156,7 +157,7 @@ Public Class ClassWindreamDocGrid
Dim DT_DETAILS_SQL = String.Format("SELECT T.[GUID],T.[DocID],T.[CONFIG_ID],T1.HEADER_CAPTION,T.[VALUE],T1.[LANGUAGE], T1.COLUMN_VIEW,T1.EDITABLE,T1.TYPE_ID,T1.VISIBLE,T.CHANGED_WHEN,T.CHANGED_WHO " & Dim DT_DETAILS_SQL = String.Format("SELECT T.[GUID],T.[DocID],T.[CONFIG_ID],T1.HEADER_CAPTION,T.[VALUE],T1.[LANGUAGE], T1.COLUMN_VIEW,T1.EDITABLE,T1.TYPE_ID,T1.VISIBLE,T.CHANGED_WHEN,T.CHANGED_WHO " &
"FROM TBPMO_DOC_VALUES T INNER JOIN TBPMO_DOCSEARCH_RESULTLIST_CONFIG T1 ON T.CONFIG_ID = T1.GUID WHERE T1.ENTITY_ID = {0} AND LANGUAGE = '{1}'", CURRENT_ENTITY_ID, USER_LANGUAGE) "FROM TBPMO_DOC_VALUES T INNER JOIN TBPMO_DOCSEARCH_RESULTLIST_CONFIG T1 ON T.CONFIG_ID = T1.GUID WHERE T1.ENTITY_ID = {0} AND LANGUAGE = '{1}'", CURRENT_ENTITY_ID, USER_LANGUAGE)
Dim DT_DETAILS As DataTable = ClassDatabase.Return_Datatable(DT_DETAILS_SQL) Dim DT_DETAILS As DataTable = ClassDatabase.Return_Datatable(DT_DETAILS_SQL, True)
' Tabellen zum DataSet hinzufügen ' Tabellen zum DataSet hinzufügen
ds.Tables.Add(DT_RESULT) ds.Tables.Add(DT_RESULT)
ds.Tables.Add(DT_DETAILS) ds.Tables.Add(DT_DETAILS)

41
app/DD-Record-Organiser/DD-Record-Organiser.vbproj
View File

@ -262,11 +262,15 @@
</Compile> </Compile>
<Compile Include="ClassFileResult.vb" /> <Compile Include="ClassFileResult.vb" />
<Compile Include="ClassFolderWatcher.vb" /> <Compile Include="ClassFolderWatcher.vb" />
<Compile Include="ClassGridFormatter.vb" />
<Compile Include="ClassJumpRecord.vb" /> <Compile Include="ClassJumpRecord.vb" />
<Compile Include="ClassLicence.vb" /> <Compile Include="ClassLicence.vb" />
<Compile Include="ClassAsyncSQL.vb" /> <Compile Include="ClassAsyncSQL.vb" />
<Compile Include="ClassMoreMetadata.vb" />
<Compile Include="ClassNodeNavigation.vb" /> <Compile Include="ClassNodeNavigation.vb" />
<Compile Include="ClassNodes.vb" /> <Compile Include="ClassNodes.vb" />
<Compile Include="ClassProxy.vb" />
<Compile Include="ClassRecordCommands.vb" />
<Compile Include="ClassRecordState.vb" /> <Compile Include="ClassRecordState.vb" />
<Compile Include="ClassRecordView.vb" /> <Compile Include="ClassRecordView.vb" />
<Compile Include="ClassSAP.vb" /> <Compile Include="ClassSAP.vb" />
@ -382,10 +386,10 @@
<Compile Include="frmViewsUser.vb"> <Compile Include="frmViewsUser.vb">
<SubType>Form</SubType> <SubType>Form</SubType>
</Compile> </Compile>
<Compile Include="frmWDChangeDoctype.Designer.vb"> <Compile Include="frmWD_ChangeDoctype.Designer.vb">
<DependentUpon>frmWDChangeDoctype.vb</DependentUpon> <DependentUpon>frmWD_ChangeDoctype.vb</DependentUpon>
</Compile> </Compile>
<Compile Include="frmWDChangeDoctype.vb"> <Compile Include="frmWD_ChangeDoctype.vb">
<SubType>Form</SubType> <SubType>Form</SubType>
</Compile> </Compile>
<Compile Include="frmWD_CreateVersion.designer.vb"> <Compile Include="frmWD_CreateVersion.designer.vb">
@ -394,6 +398,12 @@
<Compile Include="frmWD_CreateVersion.vb"> <Compile Include="frmWD_CreateVersion.vb">
<SubType>Form</SubType> <SubType>Form</SubType>
</Compile> </Compile>
<Compile Include="frmWD_FulltextChoice.Designer.vb">
<DependentUpon>frmWD_FulltextChoice.vb</DependentUpon>
</Compile>
<Compile Include="frmWD_FulltextChoice.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmWD_Import_Doc_Record.Designer.vb"> <Compile Include="frmWD_Import_Doc_Record.Designer.vb">
<DependentUpon>frmWD_Import_Doc_Record.vb</DependentUpon> <DependentUpon>frmWD_Import_Doc_Record.vb</DependentUpon>
</Compile> </Compile>
@ -729,15 +739,9 @@
<EmbeddedResource Include="frmClientLogin.resx"> <EmbeddedResource Include="frmClientLogin.resx">
<DependentUpon>frmClientLogin.vb</DependentUpon> <DependentUpon>frmClientLogin.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="frmConstructorDesigner.en-IE.resx">
<DependentUpon>frmConstructorDesigner.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmConstructorDesigner.en.resx"> <EmbeddedResource Include="frmConstructorDesigner.en.resx">
<DependentUpon>frmConstructorDesigner.vb</DependentUpon> <DependentUpon>frmConstructorDesigner.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="frmConstructor_Main.ar-EG.resx">
<DependentUpon>frmConstructor_Main.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmDiagrams.en-US.resx"> <EmbeddedResource Include="frmDiagrams.en-US.resx">
<DependentUpon>frmDiagrams.vb</DependentUpon> <DependentUpon>frmDiagrams.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
@ -807,12 +811,24 @@
<EmbeddedResource Include="frmViewsUser.resx"> <EmbeddedResource Include="frmViewsUser.resx">
<DependentUpon>frmViewsUser.vb</DependentUpon> <DependentUpon>frmViewsUser.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="frmWDChangeDoctype.resx"> <EmbeddedResource Include="frmWD_ChangeDoctype.en-US.resx">
<DependentUpon>frmWDChangeDoctype.vb</DependentUpon> <DependentUpon>frmWD_ChangeDoctype.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmWD_ChangeDoctype.resx">
<DependentUpon>frmWD_ChangeDoctype.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmWD_CreateVersion.en-US.resx">
<DependentUpon>frmWD_CreateVersion.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="frmWD_CreateVersion.resx"> <EmbeddedResource Include="frmWD_CreateVersion.resx">
<DependentUpon>frmWD_CreateVersion.vb</DependentUpon> <DependentUpon>frmWD_CreateVersion.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="frmWD_FulltextChoice.en-US.resx">
<DependentUpon>frmWD_FulltextChoice.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmWD_FulltextChoice.resx">
<DependentUpon>frmWD_FulltextChoice.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmWD_Import_Doc_Record.resx"> <EmbeddedResource Include="frmWD_Import_Doc_Record.resx">
<DependentUpon>frmWD_Import_Doc_Record.vb</DependentUpon> <DependentUpon>frmWD_Import_Doc_Record.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
@ -904,6 +920,7 @@
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="frmLanguage_Translator.resx"> <EmbeddedResource Include="frmLanguage_Translator.resx">
<DependentUpon>frmLanguage_Translator.vb</DependentUpon> <DependentUpon>frmLanguage_Translator.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="frmLevel_Designer.en-US.resx"> <EmbeddedResource Include="frmLevel_Designer.en-US.resx">
<DependentUpon>frmLevel_Designer.vb</DependentUpon> <DependentUpon>frmLevel_Designer.vb</DependentUpon>
@ -1048,6 +1065,7 @@
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="frmWD_IndexFile.resx"> <EmbeddedResource Include="frmWD_IndexFile.resx">
<DependentUpon>frmWD_IndexFile.vb</DependentUpon> <DependentUpon>frmWD_IndexFile.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="frmTask_Editor.resx"> <EmbeddedResource Include="frmTask_Editor.resx">
<DependentUpon>frmTask_Editor.vb</DependentUpon> <DependentUpon>frmTask_Editor.vb</DependentUpon>
@ -1078,7 +1096,6 @@
<None Include="DD_DMSDataSet.xsd"> <None Include="DD_DMSDataSet.xsd">
<Generator>MSDataSetGenerator</Generator> <Generator>MSDataSetGenerator</Generator>
<SubType>Designer</SubType> <SubType>Designer</SubType>
<LastGenOutput>DD_DMSDataSet.Designer.vb</LastGenOutput>
</None> </None>
<None Include="DD_DMSDataSet.xss"> <None Include="DD_DMSDataSet.xss">
<DependentUpon>DD_DMSDataSet.xsd</DependentUpon> <DependentUpon>DD_DMSDataSet.xsd</DependentUpon>

1603
app/DD-Record-Organiser/DD_DMSDataSet.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

291
app/DD-Record-Organiser/DD_DMSDataSet.xsd
View File

@ -1663,121 +1663,6 @@ SELECT GUID, OBJECT_TYPE, IDXNAME_ENTITYID, IDXNAME_PARENTID, ADDED_WHO, ADDED_W
</Mappings> </Mappings>
<Sources /> <Sources />
</TableAdapter> </TableAdapter>
<TableAdapter BaseClass="System.ComponentModel.Component" DataAccessorModifier="AutoLayout, AnsiClass, Class, Public" DataAccessorName="TBPMO_FILES_USERTableAdapter" GeneratorDataComponentClassName="TBPMO_FILES_USERTableAdapter" Name="TBPMO_FILES_USER" UserDataComponentName="TBPMO_FILES_USERTableAdapter">
<MainSource>
<DbSource ConnectionRef="DD_DMSConnectionString (MySettings)" DbObjectName="DD_ECM.dbo.TBPMO_FILES_USER" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
<DeleteCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>DELETE FROM [TBPMO_FILES_USER] WHERE (([GUID] = @Original_GUID) AND ([FILENAME2WORK] = @Original_FILENAME2WORK) AND ([USER_WORK] = @Original_USER_WORK) AND ([HANDLE_TYPE] = @Original_HANDLE_TYPE) AND ([WORKED] = @Original_WORKED) AND ([ADDED_WHEN] = @Original_ADDED_WHEN))</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@Original_FILENAME2WORK" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="FILENAME2WORK" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@Original_USER_WORK" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="USER_WORK" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@Original_HANDLE_TYPE" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="HANDLE_TYPE" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Boolean" Direction="Input" ParameterName="@Original_WORKED" Precision="0" ProviderType="Bit" Scale="0" Size="0" SourceColumn="WORKED" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="DateTime" Direction="Input" ParameterName="@Original_ADDED_WHEN" Precision="0" ProviderType="DateTime" Scale="0" Size="0" SourceColumn="ADDED_WHEN" SourceColumnNullMapping="false" SourceVersion="Original" />
</Parameters>
</DbCommand>
</DeleteCommand>
<InsertCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>INSERT INTO [TBPMO_FILES_USER] ([FILENAME2WORK], [USER_WORK], [HANDLE_TYPE], [WORKED], [ADDED_WHEN]) VALUES (@FILENAME2WORK, @USER_WORK, @HANDLE_TYPE, @WORKED, @ADDED_WHEN);
SELECT GUID, FILENAME2WORK, USER_WORK, HANDLE_TYPE, WORKED, ADDED_WHEN FROM TBPMO_FILES_USER WHERE (GUID = SCOPE_IDENTITY())</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@FILENAME2WORK" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="FILENAME2WORK" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@USER_WORK" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="USER_WORK" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@HANDLE_TYPE" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="HANDLE_TYPE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Boolean" Direction="Input" ParameterName="@WORKED" Precision="0" ProviderType="Bit" Scale="0" Size="0" SourceColumn="WORKED" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="DateTime" Direction="Input" ParameterName="@ADDED_WHEN" Precision="0" ProviderType="DateTime" Scale="0" Size="0" SourceColumn="ADDED_WHEN" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters>
</DbCommand>
</InsertCommand>
<SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>select * from TBPMO_FILES_USER where UPPER(USER_WORK) = UPPER(@USER)</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="USER" ColumnName="" DataSourceName="" DataTypeServer="unknown" DbType="AnsiString" Direction="Input" ParameterName="@USER" Precision="0" Scale="0" Size="1024" SourceColumn="" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters>
</DbCommand>
</SelectCommand>
<UpdateCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>UPDATE [TBPMO_FILES_USER] SET [FILENAME2WORK] = @FILENAME2WORK, [USER_WORK] = @USER_WORK, [HANDLE_TYPE] = @HANDLE_TYPE, [WORKED] = @WORKED, [ADDED_WHEN] = @ADDED_WHEN WHERE (([GUID] = @Original_GUID) AND ([FILENAME2WORK] = @Original_FILENAME2WORK) AND ([USER_WORK] = @Original_USER_WORK) AND ([HANDLE_TYPE] = @Original_HANDLE_TYPE) AND ([WORKED] = @Original_WORKED) AND ([ADDED_WHEN] = @Original_ADDED_WHEN));
SELECT GUID, FILENAME2WORK, USER_WORK, HANDLE_TYPE, WORKED, ADDED_WHEN FROM TBPMO_FILES_USER WHERE (GUID = @GUID)</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@FILENAME2WORK" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="FILENAME2WORK" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@USER_WORK" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="USER_WORK" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@HANDLE_TYPE" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="HANDLE_TYPE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Boolean" Direction="Input" ParameterName="@WORKED" Precision="0" ProviderType="Bit" Scale="0" Size="0" SourceColumn="WORKED" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="DateTime" Direction="Input" ParameterName="@ADDED_WHEN" Precision="0" ProviderType="DateTime" Scale="0" Size="0" SourceColumn="ADDED_WHEN" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@Original_FILENAME2WORK" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="FILENAME2WORK" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@Original_USER_WORK" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="USER_WORK" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@Original_HANDLE_TYPE" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="HANDLE_TYPE" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Boolean" Direction="Input" ParameterName="@Original_WORKED" Precision="0" ProviderType="Bit" Scale="0" Size="0" SourceColumn="WORKED" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="DateTime" Direction="Input" ParameterName="@Original_ADDED_WHEN" Precision="0" ProviderType="DateTime" Scale="0" Size="0" SourceColumn="ADDED_WHEN" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="GUID" ColumnName="GUID" DataSourceName="DD_ECM.dbo.TBPMO_FILES_USER" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters>
</DbCommand>
</UpdateCommand>
</DbSource>
</MainSource>
<Mappings>
<Mapping SourceColumn="GUID" DataSetColumn="GUID" />
<Mapping SourceColumn="FILENAME2WORK" DataSetColumn="FILENAME2WORK" />
<Mapping SourceColumn="USER_WORK" DataSetColumn="USER_WORK" />
<Mapping SourceColumn="HANDLE_TYPE" DataSetColumn="HANDLE_TYPE" />
<Mapping SourceColumn="WORKED" DataSetColumn="WORKED" />
<Mapping SourceColumn="ADDED_WHEN" DataSetColumn="ADDED_WHEN" />
</Mappings>
<Sources>
<DbSource ConnectionRef="DD_DMSConnectionString (MySettings)" DbObjectName="" DbObjectType="Unknown" GenerateShortCommands="true" GeneratorSourceName="cmdDelete" Modifier="Public" Name="cmdDelete" QueryType="NoData" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetDataBy" UserSourceName="cmdDelete">
<DeleteCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>DELETE FROM [TBPMO_FILES_USER] WHERE (([GUID] = @Original_GUID) </CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@Original_FILENAME2WORK" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="FILENAME2WORK" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@Original_USER_WORK" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="USER_WORK" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@Original_HANDLE_TYPE" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="HANDLE_TYPE" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Boolean" Direction="Input" ParameterName="@Original_WORKED" Precision="0" ProviderType="Bit" Scale="0" Size="0" SourceColumn="WORKED" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="DateTime" Direction="Input" ParameterName="@Original_ADDED_WHEN" Precision="0" ProviderType="DateTime" Scale="0" Size="0" SourceColumn="ADDED_WHEN" SourceColumnNullMapping="false" SourceVersion="Original" />
</Parameters>
</DbCommand>
</DeleteCommand>
</DbSource>
<DbSource ConnectionRef="DD_DMSConnectionString (MySettings)" DbObjectName="" DbObjectType="Unknown" GenerateShortCommands="true" GeneratorSourceName="cmdInsert" Modifier="Public" Name="cmdInsert" QueryType="NoData" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetDataBy1" UserSourceName="cmdInsert">
<InsertCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>INSERT INTO TBPMO_FILES_USER
(FILENAME2WORK, USER_WORK, HANDLE_TYPE)
VALUES (@FILENAME2WORK,@USER_WORK,@HANDLE_TYPE);
SELECT GUID, FILENAME2WORK, USER_WORK, HANDLE_TYPE, WORKED, ADDED_WHEN FROM TBPMO_FILES_USER WHERE (GUID = SCOPE_IDENTITY())</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="FILENAME2WORK" ColumnName="FILENAME2WORK" DataSourceName="DD_ECM.dbo.TBPMO_FILES_USER" DataTypeServer="varchar(500)" DbType="AnsiString" Direction="Input" ParameterName="@FILENAME2WORK" Precision="0" ProviderType="VarChar" Scale="0" Size="500" SourceColumn="FILENAME2WORK" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="USER_WORK" ColumnName="USER_WORK" DataSourceName="DD_ECM.dbo.TBPMO_FILES_USER" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@USER_WORK" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="USER_WORK" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="HANDLE_TYPE" ColumnName="HANDLE_TYPE" DataSourceName="DD_ECM.dbo.TBPMO_FILES_USER" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@HANDLE_TYPE" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="HANDLE_TYPE" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters>
</DbCommand>
</InsertCommand>
</DbSource>
<DbSource ConnectionRef="DD_DMSConnectionString (MySettings)" DbObjectName="" DbObjectType="Unknown" GenerateShortCommands="true" GeneratorSourceName="cmdsetworked" Modifier="Public" Name="cmdsetworked" QueryType="NoData" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetDataBy2" UserSourceName="cmdsetworked">
<UpdateCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>UPDATE TBPMO_FILES_USER
SET WORKED = @WORKED
WHERE (GUID = @Original_GUID);
SELECT GUID, FILENAME2WORK, USER_WORK, HANDLE_TYPE, WORKED, ADDED_WHEN FROM TBPMO_FILES_USER WHERE (GUID = @GUID)</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="WORKED" ColumnName="WORKED" DataSourceName="DD_ECM.dbo.TBPMO_FILES_USER" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@WORKED" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="WORKED" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="Original_GUID" ColumnName="GUID" DataSourceName="DD_ECM.dbo.TBPMO_FILES_USER" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="GUID" ColumnName="GUID" DataSourceName="DD_ECM.dbo.TBPMO_FILES_USER" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
</Parameters>
</DbCommand>
</UpdateCommand>
</DbSource>
</Sources>
</TableAdapter>
<TableAdapter BaseClass="System.ComponentModel.Component" DataAccessorModifier="AutoLayout, AnsiClass, Class, Public" DataAccessorName="TBPMO_FOLLOW_UP_EMAILTableAdapter" GeneratorDataComponentClassName="TBPMO_FOLLOW_UP_EMAILTableAdapter" Name="TBPMO_FOLLOW_UP_EMAIL" UserDataComponentName="TBPMO_FOLLOW_UP_EMAILTableAdapter"> <TableAdapter BaseClass="System.ComponentModel.Component" DataAccessorModifier="AutoLayout, AnsiClass, Class, Public" DataAccessorName="TBPMO_FOLLOW_UP_EMAILTableAdapter" GeneratorDataComponentClassName="TBPMO_FOLLOW_UP_EMAILTableAdapter" Name="TBPMO_FOLLOW_UP_EMAIL" UserDataComponentName="TBPMO_FOLLOW_UP_EMAILTableAdapter">
<MainSource> <MainSource>
<DbSource ConnectionRef="DD_DMSConnectionString (MySettings)" DbObjectName="DD_ECM.dbo.TBPMO_FOLLOW_UP_EMAIL" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill"> <DbSource ConnectionRef="DD_DMSConnectionString (MySettings)" DbObjectName="DD_ECM.dbo.TBPMO_FOLLOW_UP_EMAIL" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
@ -3597,7 +3482,7 @@ WHERE (RECORD_ID IN
<xs:element name="DD_DMSDataSet" msdata:IsDataSet="true" msdata:UseCurrentLocale="true" msprop:EnableTableAdapterManager="True" msprop:Generator_DataSetName="DD_DMSDataSet" msprop:Generator_UserDSName="DD_DMSDataSet"> <xs:element name="DD_DMSDataSet" msdata:IsDataSet="true" msdata:UseCurrentLocale="true" msprop:EnableTableAdapterManager="True" msprop:Generator_DataSetName="DD_DMSDataSet" msprop:Generator_UserDSName="DD_DMSDataSet">
<xs:complexType> <xs:complexType>
<xs:choice minOccurs="0" maxOccurs="unbounded"> <xs:choice minOccurs="0" maxOccurs="unbounded">
<xs:element name="TBPMO_FORM" msprop:Generator_TableClassName="TBPMO_FORMDataTable" msprop:Generator_TableVarName="tableTBPMO_FORM" msprop:Generator_RowChangedName="TBPMO_FORMRowChanged" msprop:Generator_TablePropName="TBPMO_FORM" msprop:Generator_RowDeletingName="TBPMO_FORMRowDeleting" msprop:Generator_RowChangingName="TBPMO_FORMRowChanging" msprop:Generator_RowEvHandlerName="TBPMO_FORMRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_FORMRowDeleted" msprop:Generator_RowClassName="TBPMO_FORMRow" msprop:Generator_UserTableName="TBPMO_FORM" msprop:Generator_RowEvArgName="TBPMO_FORMRowChangeEvent"> <xs:element name="TBPMO_FORM" msprop:Generator_TableClassName="TBPMO_FORMDataTable" msprop:Generator_TableVarName="tableTBPMO_FORM" msprop:Generator_TablePropName="TBPMO_FORM" msprop:Generator_RowDeletingName="TBPMO_FORMRowDeleting" msprop:Generator_RowChangingName="TBPMO_FORMRowChanging" msprop:Generator_RowEvHandlerName="TBPMO_FORMRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_FORMRowDeleted" msprop:Generator_UserTableName="TBPMO_FORM" msprop:Generator_RowChangedName="TBPMO_FORMRowChanged" msprop:Generator_RowEvArgName="TBPMO_FORMRowChangeEvent" msprop:Generator_RowClassName="TBPMO_FORMRow">
<xs:complexType> <xs:complexType>
<xs:sequence> <xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" /> <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@ -3638,7 +3523,7 @@ WHERE (RECORD_ID IN
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
<xs:element name="VWPMO_CONTROL_SCREEN" msprop:Generator_TableClassName="VWPMO_CONTROL_SCREENDataTable" msprop:Generator_TableVarName="tableVWPMO_CONTROL_SCREEN" msprop:Generator_TablePropName="VWPMO_CONTROL_SCREEN" msprop:Generator_RowDeletingName="VWPMO_CONTROL_SCREENRowDeleting" msprop:Generator_RowChangingName="VWPMO_CONTROL_SCREENRowChanging" msprop:Generator_RowEvHandlerName="VWPMO_CONTROL_SCREENRowChangeEventHandler" msprop:Generator_RowDeletedName="VWPMO_CONTROL_SCREENRowDeleted" msprop:Generator_UserTableName="VWPMO_CONTROL_SCREEN" msprop:Generator_RowChangedName="VWPMO_CONTROL_SCREENRowChanged" msprop:Generator_RowEvArgName="VWPMO_CONTROL_SCREENRowChangeEvent" msprop:Generator_RowClassName="VWPMO_CONTROL_SCREENRow"> <xs:element name="VWPMO_CONTROL_SCREEN" msprop:Generator_TableClassName="VWPMO_CONTROL_SCREENDataTable" msprop:Generator_TableVarName="tableVWPMO_CONTROL_SCREEN" msprop:Generator_RowChangedName="VWPMO_CONTROL_SCREENRowChanged" msprop:Generator_TablePropName="VWPMO_CONTROL_SCREEN" msprop:Generator_RowDeletingName="VWPMO_CONTROL_SCREENRowDeleting" msprop:Generator_RowChangingName="VWPMO_CONTROL_SCREENRowChanging" msprop:Generator_RowEvHandlerName="VWPMO_CONTROL_SCREENRowChangeEventHandler" msprop:Generator_RowDeletedName="VWPMO_CONTROL_SCREENRowDeleted" msprop:Generator_RowClassName="VWPMO_CONTROL_SCREENRow" msprop:Generator_UserTableName="VWPMO_CONTROL_SCREEN" msprop:Generator_RowEvArgName="VWPMO_CONTROL_SCREENRowChangeEvent">
<xs:complexType> <xs:complexType>
<xs:sequence> <xs:sequence>
<xs:element name="CONTROL_ID" msprop:Generator_ColumnVarNameInTable="columnCONTROL_ID" msprop:Generator_ColumnPropNameInRow="CONTROL_ID" msprop:Generator_ColumnPropNameInTable="CONTROL_IDColumn" msprop:Generator_UserColumnName="CONTROL_ID" type="xs:int" /> <xs:element name="CONTROL_ID" msprop:Generator_ColumnVarNameInTable="columnCONTROL_ID" msprop:Generator_ColumnPropNameInRow="CONTROL_ID" msprop:Generator_ColumnPropNameInTable="CONTROL_IDColumn" msprop:Generator_UserColumnName="CONTROL_ID" type="xs:int" />
@ -3716,7 +3601,7 @@ WHERE (RECORD_ID IN
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
<xs:element name="TBPMO_FORM_VIEW" msprop:Generator_TableClassName="TBPMO_FORM_VIEWDataTable" msprop:Generator_TableVarName="tableTBPMO_FORM_VIEW" msprop:Generator_RowChangedName="TBPMO_FORM_VIEWRowChanged" msprop:Generator_TablePropName="TBPMO_FORM_VIEW" msprop:Generator_RowDeletingName="TBPMO_FORM_VIEWRowDeleting" msprop:Generator_RowChangingName="TBPMO_FORM_VIEWRowChanging" msprop:Generator_RowEvHandlerName="TBPMO_FORM_VIEWRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_FORM_VIEWRowDeleted" msprop:Generator_RowClassName="TBPMO_FORM_VIEWRow" msprop:Generator_UserTableName="TBPMO_FORM_VIEW" msprop:Generator_RowEvArgName="TBPMO_FORM_VIEWRowChangeEvent"> <xs:element name="TBPMO_FORM_VIEW" msprop:Generator_TableClassName="TBPMO_FORM_VIEWDataTable" msprop:Generator_TableVarName="tableTBPMO_FORM_VIEW" msprop:Generator_TablePropName="TBPMO_FORM_VIEW" msprop:Generator_RowDeletingName="TBPMO_FORM_VIEWRowDeleting" msprop:Generator_RowChangingName="TBPMO_FORM_VIEWRowChanging" msprop:Generator_RowEvHandlerName="TBPMO_FORM_VIEWRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_FORM_VIEWRowDeleted" msprop:Generator_UserTableName="TBPMO_FORM_VIEW" msprop:Generator_RowChangedName="TBPMO_FORM_VIEWRowChanged" msprop:Generator_RowEvArgName="TBPMO_FORM_VIEWRowChangeEvent" msprop:Generator_RowClassName="TBPMO_FORM_VIEWRow">
<xs:complexType> <xs:complexType>
<xs:sequence> <xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" /> <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@ -3811,7 +3696,7 @@ WHERE (RECORD_ID IN
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
<xs:element name="TBPMO_RECORD" msprop:Generator_TableClassName="TBPMO_RECORDDataTable" msprop:Generator_TableVarName="tableTBPMO_RECORD" msprop:Generator_RowChangedName="TBPMO_RECORDRowChanged" msprop:Generator_TablePropName="TBPMO_RECORD" msprop:Generator_RowDeletingName="TBPMO_RECORDRowDeleting" msprop:Generator_RowChangingName="TBPMO_RECORDRowChanging" msprop:Generator_RowEvHandlerName="TBPMO_RECORDRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_RECORDRowDeleted" msprop:Generator_RowClassName="TBPMO_RECORDRow" msprop:Generator_UserTableName="TBPMO_RECORD" msprop:Generator_RowEvArgName="TBPMO_RECORDRowChangeEvent"> <xs:element name="TBPMO_RECORD" msprop:Generator_TableClassName="TBPMO_RECORDDataTable" msprop:Generator_TableVarName="tableTBPMO_RECORD" msprop:Generator_TablePropName="TBPMO_RECORD" msprop:Generator_RowDeletingName="TBPMO_RECORDRowDeleting" msprop:Generator_RowChangingName="TBPMO_RECORDRowChanging" msprop:Generator_RowEvHandlerName="TBPMO_RECORDRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_RECORDRowDeleted" msprop:Generator_UserTableName="TBPMO_RECORD" msprop:Generator_RowChangedName="TBPMO_RECORDRowChanged" msprop:Generator_RowEvArgName="TBPMO_RECORDRowChangeEvent" msprop:Generator_RowClassName="TBPMO_RECORDRow">
<xs:complexType> <xs:complexType>
<xs:sequence> <xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" /> <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@ -3834,7 +3719,7 @@ WHERE (RECORD_ID IN
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
<xs:element name="VWPMO_DOKUMENTTYPES" msprop:Generator_TableClassName="VWPMO_DOKUMENTTYPESDataTable" msprop:Generator_TableVarName="tableVWPMO_DOKUMENTTYPES" msprop:Generator_TablePropName="VWPMO_DOKUMENTTYPES" msprop:Generator_RowDeletingName="VWPMO_DOKUMENTTYPESRowDeleting" msprop:Generator_RowChangingName="VWPMO_DOKUMENTTYPESRowChanging" msprop:Generator_RowEvHandlerName="VWPMO_DOKUMENTTYPESRowChangeEventHandler" msprop:Generator_RowDeletedName="VWPMO_DOKUMENTTYPESRowDeleted" msprop:Generator_UserTableName="VWPMO_DOKUMENTTYPES" msprop:Generator_RowChangedName="VWPMO_DOKUMENTTYPESRowChanged" msprop:Generator_RowEvArgName="VWPMO_DOKUMENTTYPESRowChangeEvent" msprop:Generator_RowClassName="VWPMO_DOKUMENTTYPESRow"> <xs:element name="VWPMO_DOKUMENTTYPES" msprop:Generator_TableClassName="VWPMO_DOKUMENTTYPESDataTable" msprop:Generator_TableVarName="tableVWPMO_DOKUMENTTYPES" msprop:Generator_RowChangedName="VWPMO_DOKUMENTTYPESRowChanged" msprop:Generator_TablePropName="VWPMO_DOKUMENTTYPES" msprop:Generator_RowDeletingName="VWPMO_DOKUMENTTYPESRowDeleting" msprop:Generator_RowChangingName="VWPMO_DOKUMENTTYPESRowChanging" msprop:Generator_RowEvHandlerName="VWPMO_DOKUMENTTYPESRowChangeEventHandler" msprop:Generator_RowDeletedName="VWPMO_DOKUMENTTYPESRowDeleted" msprop:Generator_RowClassName="VWPMO_DOKUMENTTYPESRow" msprop:Generator_UserTableName="VWPMO_DOKUMENTTYPES" msprop:Generator_RowEvArgName="VWPMO_DOKUMENTTYPESRowChangeEvent">
<xs:complexType> <xs:complexType>
<xs:sequence> <xs:sequence>
<xs:element name="FORMVIEW_ID" msprop:Generator_ColumnVarNameInTable="columnFORMVIEW_ID" msprop:Generator_ColumnPropNameInRow="FORMVIEW_ID" msprop:Generator_ColumnPropNameInTable="FORMVIEW_IDColumn" msprop:Generator_UserColumnName="FORMVIEW_ID" type="xs:int" /> <xs:element name="FORMVIEW_ID" msprop:Generator_ColumnVarNameInTable="columnFORMVIEW_ID" msprop:Generator_ColumnPropNameInRow="FORMVIEW_ID" msprop:Generator_ColumnPropNameInTable="FORMVIEW_IDColumn" msprop:Generator_UserColumnName="FORMVIEW_ID" type="xs:int" />
@ -3879,7 +3764,7 @@ WHERE (RECORD_ID IN
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
<xs:element name="TBPMO_WD_FVIEW_DT_INDEX" msprop:Generator_TableClassName="TBPMO_WD_FVIEW_DT_INDEXDataTable" msprop:Generator_TableVarName="tableTBPMO_WD_FVIEW_DT_INDEX" msprop:Generator_TablePropName="TBPMO_WD_FVIEW_DT_INDEX" msprop:Generator_RowDeletingName="TBPMO_WD_FVIEW_DT_INDEXRowDeleting" msprop:Generator_RowChangingName="TBPMO_WD_FVIEW_DT_INDEXRowChanging" msprop:Generator_RowEvHandlerName="TBPMO_WD_FVIEW_DT_INDEXRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_WD_FVIEW_DT_INDEXRowDeleted" msprop:Generator_UserTableName="TBPMO_WD_FVIEW_DT_INDEX" msprop:Generator_RowChangedName="TBPMO_WD_FVIEW_DT_INDEXRowChanged" msprop:Generator_RowEvArgName="TBPMO_WD_FVIEW_DT_INDEXRowChangeEvent" msprop:Generator_RowClassName="TBPMO_WD_FVIEW_DT_INDEXRow"> <xs:element name="TBPMO_WD_FVIEW_DT_INDEX" msprop:Generator_TableClassName="TBPMO_WD_FVIEW_DT_INDEXDataTable" msprop:Generator_TableVarName="tableTBPMO_WD_FVIEW_DT_INDEX" msprop:Generator_RowChangedName="TBPMO_WD_FVIEW_DT_INDEXRowChanged" msprop:Generator_TablePropName="TBPMO_WD_FVIEW_DT_INDEX" msprop:Generator_RowDeletingName="TBPMO_WD_FVIEW_DT_INDEXRowDeleting" msprop:Generator_RowChangingName="TBPMO_WD_FVIEW_DT_INDEXRowChanging" msprop:Generator_RowEvHandlerName="TBPMO_WD_FVIEW_DT_INDEXRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_WD_FVIEW_DT_INDEXRowDeleted" msprop:Generator_RowClassName="TBPMO_WD_FVIEW_DT_INDEXRow" msprop:Generator_UserTableName="TBPMO_WD_FVIEW_DT_INDEX" msprop:Generator_RowEvArgName="TBPMO_WD_FVIEW_DT_INDEXRowChangeEvent">
<xs:complexType> <xs:complexType>
<xs:sequence> <xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" /> <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@ -3917,7 +3802,7 @@ WHERE (RECORD_ID IN
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
<xs:element name="TBPMO_WORKFLOW_TASK" msprop:Generator_TableClassName="TBPMO_WORKFLOW_TASKDataTable" msprop:Generator_TableVarName="tableTBPMO_WORKFLOW_TASK" msprop:Generator_TablePropName="TBPMO_WORKFLOW_TASK" msprop:Generator_RowDeletingName="TBPMO_WORKFLOW_TASKRowDeleting" msprop:Generator_RowChangingName="TBPMO_WORKFLOW_TASKRowChanging" msprop:Generator_RowEvHandlerName="TBPMO_WORKFLOW_TASKRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_WORKFLOW_TASKRowDeleted" msprop:Generator_UserTableName="TBPMO_WORKFLOW_TASK" msprop:Generator_RowChangedName="TBPMO_WORKFLOW_TASKRowChanged" msprop:Generator_RowEvArgName="TBPMO_WORKFLOW_TASKRowChangeEvent" msprop:Generator_RowClassName="TBPMO_WORKFLOW_TASKRow"> <xs:element name="TBPMO_WORKFLOW_TASK" msprop:Generator_TableClassName="TBPMO_WORKFLOW_TASKDataTable" msprop:Generator_TableVarName="tableTBPMO_WORKFLOW_TASK" msprop:Generator_RowChangedName="TBPMO_WORKFLOW_TASKRowChanged" msprop:Generator_TablePropName="TBPMO_WORKFLOW_TASK" msprop:Generator_RowDeletingName="TBPMO_WORKFLOW_TASKRowDeleting" msprop:Generator_RowChangingName="TBPMO_WORKFLOW_TASKRowChanging" msprop:Generator_RowEvHandlerName="TBPMO_WORKFLOW_TASKRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_WORKFLOW_TASKRowDeleted" msprop:Generator_RowClassName="TBPMO_WORKFLOW_TASKRow" msprop:Generator_UserTableName="TBPMO_WORKFLOW_TASK" msprop:Generator_RowEvArgName="TBPMO_WORKFLOW_TASKRowChangeEvent">
<xs:complexType> <xs:complexType>
<xs:sequence> <xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" /> <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@ -3952,7 +3837,7 @@ WHERE (RECORD_ID IN
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
<xs:element name="TBPMO_WORKFLOW_TASK_STATE" msprop:Generator_TableClassName="TBPMO_WORKFLOW_TASK_STATEDataTable" msprop:Generator_TableVarName="tableTBPMO_WORKFLOW_TASK_STATE" msprop:Generator_TablePropName="TBPMO_WORKFLOW_TASK_STATE" msprop:Generator_RowDeletingName="TBPMO_WORKFLOW_TASK_STATERowDeleting" msprop:Generator_RowChangingName="TBPMO_WORKFLOW_TASK_STATERowChanging" msprop:Generator_RowEvHandlerName="TBPMO_WORKFLOW_TASK_STATERowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_WORKFLOW_TASK_STATERowDeleted" msprop:Generator_UserTableName="TBPMO_WORKFLOW_TASK_STATE" msprop:Generator_RowChangedName="TBPMO_WORKFLOW_TASK_STATERowChanged" msprop:Generator_RowEvArgName="TBPMO_WORKFLOW_TASK_STATERowChangeEvent" msprop:Generator_RowClassName="TBPMO_WORKFLOW_TASK_STATERow"> <xs:element name="TBPMO_WORKFLOW_TASK_STATE" msprop:Generator_TableClassName="TBPMO_WORKFLOW_TASK_STATEDataTable" msprop:Generator_TableVarName="tableTBPMO_WORKFLOW_TASK_STATE" msprop:Generator_RowChangedName="TBPMO_WORKFLOW_TASK_STATERowChanged" msprop:Generator_TablePropName="TBPMO_WORKFLOW_TASK_STATE" msprop:Generator_RowDeletingName="TBPMO_WORKFLOW_TASK_STATERowDeleting" msprop:Generator_RowChangingName="TBPMO_WORKFLOW_TASK_STATERowChanging" msprop:Generator_RowEvHandlerName="TBPMO_WORKFLOW_TASK_STATERowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_WORKFLOW_TASK_STATERowDeleted" msprop:Generator_RowClassName="TBPMO_WORKFLOW_TASK_STATERow" msprop:Generator_UserTableName="TBPMO_WORKFLOW_TASK_STATE" msprop:Generator_RowEvArgName="TBPMO_WORKFLOW_TASK_STATERowChangeEvent">
<xs:complexType> <xs:complexType>
<xs:sequence> <xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" /> <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@ -3996,7 +3881,7 @@ WHERE (RECORD_ID IN
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
<xs:element name="VWPMO_GUI_ENTITY" msprop:Generator_TableClassName="VWPMO_GUI_ENTITYDataTable" msprop:Generator_TableVarName="tableVWPMO_GUI_ENTITY" msprop:Generator_RowChangedName="VWPMO_GUI_ENTITYRowChanged" msprop:Generator_TablePropName="VWPMO_GUI_ENTITY" msprop:Generator_RowDeletingName="VWPMO_GUI_ENTITYRowDeleting" msprop:Generator_RowChangingName="VWPMO_GUI_ENTITYRowChanging" msprop:Generator_RowEvHandlerName="VWPMO_GUI_ENTITYRowChangeEventHandler" msprop:Generator_RowDeletedName="VWPMO_GUI_ENTITYRowDeleted" msprop:Generator_RowClassName="VWPMO_GUI_ENTITYRow" msprop:Generator_UserTableName="VWPMO_GUI_ENTITY" msprop:Generator_RowEvArgName="VWPMO_GUI_ENTITYRowChangeEvent"> <xs:element name="VWPMO_GUI_ENTITY" msprop:Generator_TableClassName="VWPMO_GUI_ENTITYDataTable" msprop:Generator_TableVarName="tableVWPMO_GUI_ENTITY" msprop:Generator_TablePropName="VWPMO_GUI_ENTITY" msprop:Generator_RowDeletingName="VWPMO_GUI_ENTITYRowDeleting" msprop:Generator_RowChangingName="VWPMO_GUI_ENTITYRowChanging" msprop:Generator_RowEvHandlerName="VWPMO_GUI_ENTITYRowChangeEventHandler" msprop:Generator_RowDeletedName="VWPMO_GUI_ENTITYRowDeleted" msprop:Generator_UserTableName="VWPMO_GUI_ENTITY" msprop:Generator_RowChangedName="VWPMO_GUI_ENTITYRowChanged" msprop:Generator_RowEvArgName="VWPMO_GUI_ENTITYRowChangeEvent" msprop:Generator_RowClassName="VWPMO_GUI_ENTITYRow">
<xs:complexType> <xs:complexType>
<xs:sequence> <xs:sequence>
<xs:element name="ID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnID" msprop:Generator_ColumnPropNameInRow="ID" msprop:Generator_ColumnPropNameInTable="IDColumn" msprop:Generator_UserColumnName="ID" type="xs:int" /> <xs:element name="ID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnID" msprop:Generator_ColumnPropNameInRow="ID" msprop:Generator_ColumnPropNameInTable="IDColumn" msprop:Generator_UserColumnName="ID" type="xs:int" />
@ -4017,7 +3902,7 @@ WHERE (RECORD_ID IN
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
<xs:element name="TBPMO_WORKFLOW" msprop:Generator_TableClassName="TBPMO_WORKFLOWDataTable" msprop:Generator_TableVarName="tableTBPMO_WORKFLOW" msprop:Generator_RowChangedName="TBPMO_WORKFLOWRowChanged" msprop:Generator_TablePropName="TBPMO_WORKFLOW" msprop:Generator_RowDeletingName="TBPMO_WORKFLOWRowDeleting" msprop:Generator_RowChangingName="TBPMO_WORKFLOWRowChanging" msprop:Generator_RowEvHandlerName="TBPMO_WORKFLOWRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_WORKFLOWRowDeleted" msprop:Generator_RowClassName="TBPMO_WORKFLOWRow" msprop:Generator_UserTableName="TBPMO_WORKFLOW" msprop:Generator_RowEvArgName="TBPMO_WORKFLOWRowChangeEvent"> <xs:element name="TBPMO_WORKFLOW" msprop:Generator_TableClassName="TBPMO_WORKFLOWDataTable" msprop:Generator_TableVarName="tableTBPMO_WORKFLOW" msprop:Generator_TablePropName="TBPMO_WORKFLOW" msprop:Generator_RowDeletingName="TBPMO_WORKFLOWRowDeleting" msprop:Generator_RowChangingName="TBPMO_WORKFLOWRowChanging" msprop:Generator_RowEvHandlerName="TBPMO_WORKFLOWRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_WORKFLOWRowDeleted" msprop:Generator_UserTableName="TBPMO_WORKFLOW" msprop:Generator_RowChangedName="TBPMO_WORKFLOWRowChanged" msprop:Generator_RowEvArgName="TBPMO_WORKFLOWRowChangeEvent" msprop:Generator_RowClassName="TBPMO_WORKFLOWRow">
<xs:complexType> <xs:complexType>
<xs:sequence> <xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" /> <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@ -4054,7 +3939,7 @@ WHERE (RECORD_ID IN
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
<xs:element name="VWPMO_WF_OVERVIEW_AUTHORITY" msprop:Generator_TableClassName="VWPMO_WF_OVERVIEW_AUTHORITYDataTable" msprop:Generator_TableVarName="tableVWPMO_WF_OVERVIEW_AUTHORITY" msprop:Generator_TablePropName="VWPMO_WF_OVERVIEW_AUTHORITY" msprop:Generator_RowDeletingName="VWPMO_WF_OVERVIEW_AUTHORITYRowDeleting" msprop:Generator_RowChangingName="VWPMO_WF_OVERVIEW_AUTHORITYRowChanging" msprop:Generator_RowEvHandlerName="VWPMO_WF_OVERVIEW_AUTHORITYRowChangeEventHandler" msprop:Generator_RowDeletedName="VWPMO_WF_OVERVIEW_AUTHORITYRowDeleted" msprop:Generator_UserTableName="VWPMO_WF_OVERVIEW_AUTHORITY" msprop:Generator_RowChangedName="VWPMO_WF_OVERVIEW_AUTHORITYRowChanged" msprop:Generator_RowEvArgName="VWPMO_WF_OVERVIEW_AUTHORITYRowChangeEvent" msprop:Generator_RowClassName="VWPMO_WF_OVERVIEW_AUTHORITYRow"> <xs:element name="VWPMO_WF_OVERVIEW_AUTHORITY" msprop:Generator_TableClassName="VWPMO_WF_OVERVIEW_AUTHORITYDataTable" msprop:Generator_TableVarName="tableVWPMO_WF_OVERVIEW_AUTHORITY" msprop:Generator_RowChangedName="VWPMO_WF_OVERVIEW_AUTHORITYRowChanged" msprop:Generator_TablePropName="VWPMO_WF_OVERVIEW_AUTHORITY" msprop:Generator_RowDeletingName="VWPMO_WF_OVERVIEW_AUTHORITYRowDeleting" msprop:Generator_RowChangingName="VWPMO_WF_OVERVIEW_AUTHORITYRowChanging" msprop:Generator_RowEvHandlerName="VWPMO_WF_OVERVIEW_AUTHORITYRowChangeEventHandler" msprop:Generator_RowDeletedName="VWPMO_WF_OVERVIEW_AUTHORITYRowDeleted" msprop:Generator_RowClassName="VWPMO_WF_OVERVIEW_AUTHORITYRow" msprop:Generator_UserTableName="VWPMO_WF_OVERVIEW_AUTHORITY" msprop:Generator_RowEvArgName="VWPMO_WF_OVERVIEW_AUTHORITYRowChangeEvent">
<xs:complexType> <xs:complexType>
<xs:sequence> <xs:sequence>
<xs:element name="STATE" msdata:ReadOnly="true" msprop:Generator_ColumnVarNameInTable="columnSTATE" msprop:Generator_ColumnPropNameInRow="STATE" msprop:Generator_ColumnPropNameInTable="STATEColumn" msprop:Generator_UserColumnName="STATE" minOccurs="0"> <xs:element name="STATE" msdata:ReadOnly="true" msprop:Generator_ColumnVarNameInTable="columnSTATE" msprop:Generator_ColumnPropNameInRow="STATE" msprop:Generator_ColumnPropNameInTable="STATEColumn" msprop:Generator_UserColumnName="STATE" minOccurs="0">
@ -4099,7 +3984,7 @@ WHERE (RECORD_ID IN
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
<xs:element name="TBDD_DOKUMENTART" msprop:Generator_TableClassName="TBDD_DOKUMENTARTDataTable" msprop:Generator_TableVarName="tableTBDD_DOKUMENTART" msprop:Generator_TablePropName="TBDD_DOKUMENTART" msprop:Generator_RowDeletingName="TBDD_DOKUMENTARTRowDeleting" msprop:Generator_RowChangingName="TBDD_DOKUMENTARTRowChanging" msprop:Generator_RowEvHandlerName="TBDD_DOKUMENTARTRowChangeEventHandler" msprop:Generator_RowDeletedName="TBDD_DOKUMENTARTRowDeleted" msprop:Generator_UserTableName="TBDD_DOKUMENTART" msprop:Generator_RowChangedName="TBDD_DOKUMENTARTRowChanged" msprop:Generator_RowEvArgName="TBDD_DOKUMENTARTRowChangeEvent" msprop:Generator_RowClassName="TBDD_DOKUMENTARTRow"> <xs:element name="TBDD_DOKUMENTART" msprop:Generator_TableClassName="TBDD_DOKUMENTARTDataTable" msprop:Generator_TableVarName="tableTBDD_DOKUMENTART" msprop:Generator_RowChangedName="TBDD_DOKUMENTARTRowChanged" msprop:Generator_TablePropName="TBDD_DOKUMENTART" msprop:Generator_RowDeletingName="TBDD_DOKUMENTARTRowDeleting" msprop:Generator_RowChangingName="TBDD_DOKUMENTARTRowChanging" msprop:Generator_RowEvHandlerName="TBDD_DOKUMENTARTRowChangeEventHandler" msprop:Generator_RowDeletedName="TBDD_DOKUMENTARTRowDeleted" msprop:Generator_RowClassName="TBDD_DOKUMENTARTRow" msprop:Generator_UserTableName="TBDD_DOKUMENTART" msprop:Generator_RowEvArgName="TBDD_DOKUMENTARTRowChangeEvent">
<xs:complexType> <xs:complexType>
<xs:sequence> <xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" /> <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@ -4166,7 +4051,7 @@ WHERE (RECORD_ID IN
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
<xs:element name="TBDD_EINGANGSARTEN" msprop:Generator_TableClassName="TBDD_EINGANGSARTENDataTable" msprop:Generator_TableVarName="tableTBDD_EINGANGSARTEN" msprop:Generator_TablePropName="TBDD_EINGANGSARTEN" msprop:Generator_RowDeletingName="TBDD_EINGANGSARTENRowDeleting" msprop:Generator_RowChangingName="TBDD_EINGANGSARTENRowChanging" msprop:Generator_RowEvHandlerName="TBDD_EINGANGSARTENRowChangeEventHandler" msprop:Generator_RowDeletedName="TBDD_EINGANGSARTENRowDeleted" msprop:Generator_UserTableName="TBDD_EINGANGSARTEN" msprop:Generator_RowChangedName="TBDD_EINGANGSARTENRowChanged" msprop:Generator_RowEvArgName="TBDD_EINGANGSARTENRowChangeEvent" msprop:Generator_RowClassName="TBDD_EINGANGSARTENRow"> <xs:element name="TBDD_EINGANGSARTEN" msprop:Generator_TableClassName="TBDD_EINGANGSARTENDataTable" msprop:Generator_TableVarName="tableTBDD_EINGANGSARTEN" msprop:Generator_RowChangedName="TBDD_EINGANGSARTENRowChanged" msprop:Generator_TablePropName="TBDD_EINGANGSARTEN" msprop:Generator_RowDeletingName="TBDD_EINGANGSARTENRowDeleting" msprop:Generator_RowChangingName="TBDD_EINGANGSARTENRowChanging" msprop:Generator_RowEvHandlerName="TBDD_EINGANGSARTENRowChangeEventHandler" msprop:Generator_RowDeletedName="TBDD_EINGANGSARTENRowDeleted" msprop:Generator_RowClassName="TBDD_EINGANGSARTENRow" msprop:Generator_UserTableName="TBDD_EINGANGSARTEN" msprop:Generator_RowEvArgName="TBDD_EINGANGSARTENRowChangeEvent">
<xs:complexType> <xs:complexType>
<xs:sequence> <xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:unsignedByte" /> <xs:element name="GUID" msdata:ReadOnly="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:unsignedByte" />
@ -4203,7 +4088,7 @@ WHERE (RECORD_ID IN
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
<xs:element name="TBDD_INDEX_AUTOM" msprop:Generator_TableClassName="TBDD_INDEX_AUTOMDataTable" msprop:Generator_TableVarName="tableTBDD_INDEX_AUTOM" msprop:Generator_TablePropName="TBDD_INDEX_AUTOM" msprop:Generator_RowDeletingName="TBDD_INDEX_AUTOMRowDeleting" msprop:Generator_RowChangingName="TBDD_INDEX_AUTOMRowChanging" msprop:Generator_RowEvHandlerName="TBDD_INDEX_AUTOMRowChangeEventHandler" msprop:Generator_RowDeletedName="TBDD_INDEX_AUTOMRowDeleted" msprop:Generator_UserTableName="TBDD_INDEX_AUTOM" msprop:Generator_RowChangedName="TBDD_INDEX_AUTOMRowChanged" msprop:Generator_RowEvArgName="TBDD_INDEX_AUTOMRowChangeEvent" msprop:Generator_RowClassName="TBDD_INDEX_AUTOMRow"> <xs:element name="TBDD_INDEX_AUTOM" msprop:Generator_TableClassName="TBDD_INDEX_AUTOMDataTable" msprop:Generator_TableVarName="tableTBDD_INDEX_AUTOM" msprop:Generator_RowChangedName="TBDD_INDEX_AUTOMRowChanged" msprop:Generator_TablePropName="TBDD_INDEX_AUTOM" msprop:Generator_RowDeletingName="TBDD_INDEX_AUTOMRowDeleting" msprop:Generator_RowChangingName="TBDD_INDEX_AUTOMRowChanging" msprop:Generator_RowEvHandlerName="TBDD_INDEX_AUTOMRowChangeEventHandler" msprop:Generator_RowDeletedName="TBDD_INDEX_AUTOMRowDeleted" msprop:Generator_RowClassName="TBDD_INDEX_AUTOMRow" msprop:Generator_UserTableName="TBDD_INDEX_AUTOM" msprop:Generator_RowEvArgName="TBDD_INDEX_AUTOMRowChangeEvent">
<xs:complexType> <xs:complexType>
<xs:sequence> <xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" /> <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@ -4259,7 +4144,7 @@ WHERE (RECORD_ID IN
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
<xs:element name="TBPMO_WD_FORMVIEW_DOKTYPES" msprop:Generator_TableClassName="TBPMO_WD_FORMVIEW_DOKTYPESDataTable" msprop:Generator_TableVarName="tableTBPMO_WD_FORMVIEW_DOKTYPES" msprop:Generator_TablePropName="TBPMO_WD_FORMVIEW_DOKTYPES" msprop:Generator_RowDeletingName="TBPMO_WD_FORMVIEW_DOKTYPESRowDeleting" msprop:Generator_RowChangingName="TBPMO_WD_FORMVIEW_DOKTYPESRowChanging" msprop:Generator_RowEvHandlerName="TBPMO_WD_FORMVIEW_DOKTYPESRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_WD_FORMVIEW_DOKTYPESRowDeleted" msprop:Generator_UserTableName="TBPMO_WD_FORMVIEW_DOKTYPES" msprop:Generator_RowChangedName="TBPMO_WD_FORMVIEW_DOKTYPESRowChanged" msprop:Generator_RowEvArgName="TBPMO_WD_FORMVIEW_DOKTYPESRowChangeEvent" msprop:Generator_RowClassName="TBPMO_WD_FORMVIEW_DOKTYPESRow"> <xs:element name="TBPMO_WD_FORMVIEW_DOKTYPES" msprop:Generator_TableClassName="TBPMO_WD_FORMVIEW_DOKTYPESDataTable" msprop:Generator_TableVarName="tableTBPMO_WD_FORMVIEW_DOKTYPES" msprop:Generator_RowChangedName="TBPMO_WD_FORMVIEW_DOKTYPESRowChanged" msprop:Generator_TablePropName="TBPMO_WD_FORMVIEW_DOKTYPES" msprop:Generator_RowDeletingName="TBPMO_WD_FORMVIEW_DOKTYPESRowDeleting" msprop:Generator_RowChangingName="TBPMO_WD_FORMVIEW_DOKTYPESRowChanging" msprop:Generator_RowEvHandlerName="TBPMO_WD_FORMVIEW_DOKTYPESRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_WD_FORMVIEW_DOKTYPESRowDeleted" msprop:Generator_RowClassName="TBPMO_WD_FORMVIEW_DOKTYPESRow" msprop:Generator_UserTableName="TBPMO_WD_FORMVIEW_DOKTYPES" msprop:Generator_RowEvArgName="TBPMO_WD_FORMVIEW_DOKTYPESRowChangeEvent">
<xs:complexType> <xs:complexType>
<xs:sequence> <xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" /> <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@ -4298,7 +4183,7 @@ WHERE (RECORD_ID IN
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
<xs:element name="TBPMO_KONFIGURATION" msprop:Generator_TableClassName="TBPMO_KONFIGURATIONDataTable" msprop:Generator_TableVarName="tableTBPMO_KONFIGURATION" msprop:Generator_TablePropName="TBPMO_KONFIGURATION" msprop:Generator_RowDeletingName="TBPMO_KONFIGURATIONRowDeleting" msprop:Generator_RowChangingName="TBPMO_KONFIGURATIONRowChanging" msprop:Generator_RowEvHandlerName="TBPMO_KONFIGURATIONRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_KONFIGURATIONRowDeleted" msprop:Generator_UserTableName="TBPMO_KONFIGURATION" msprop:Generator_RowChangedName="TBPMO_KONFIGURATIONRowChanged" msprop:Generator_RowEvArgName="TBPMO_KONFIGURATIONRowChangeEvent" msprop:Generator_RowClassName="TBPMO_KONFIGURATIONRow"> <xs:element name="TBPMO_KONFIGURATION" msprop:Generator_TableClassName="TBPMO_KONFIGURATIONDataTable" msprop:Generator_TableVarName="tableTBPMO_KONFIGURATION" msprop:Generator_RowChangedName="TBPMO_KONFIGURATIONRowChanged" msprop:Generator_TablePropName="TBPMO_KONFIGURATION" msprop:Generator_RowDeletingName="TBPMO_KONFIGURATIONRowDeleting" msprop:Generator_RowChangingName="TBPMO_KONFIGURATIONRowChanging" msprop:Generator_RowEvHandlerName="TBPMO_KONFIGURATIONRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_KONFIGURATIONRowDeleted" msprop:Generator_RowClassName="TBPMO_KONFIGURATIONRow" msprop:Generator_UserTableName="TBPMO_KONFIGURATION" msprop:Generator_RowEvArgName="TBPMO_KONFIGURATIONRowChangeEvent">
<xs:complexType> <xs:complexType>
<xs:sequence> <xs:sequence>
<xs:element name="GUID" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:unsignedByte" /> <xs:element name="GUID" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:unsignedByte" />
@ -4422,7 +4307,7 @@ WHERE (RECORD_ID IN
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
<xs:element name="TBDD_USER" msprop:Generator_TableClassName="TBDD_USERDataTable" msprop:Generator_TableVarName="tableTBDD_USER" msprop:Generator_TablePropName="TBDD_USER" msprop:Generator_RowDeletingName="TBDD_USERRowDeleting" msprop:Generator_RowChangingName="TBDD_USERRowChanging" msprop:Generator_RowEvHandlerName="TBDD_USERRowChangeEventHandler" msprop:Generator_RowDeletedName="TBDD_USERRowDeleted" msprop:Generator_UserTableName="TBDD_USER" msprop:Generator_RowChangedName="TBDD_USERRowChanged" msprop:Generator_RowEvArgName="TBDD_USERRowChangeEvent" msprop:Generator_RowClassName="TBDD_USERRow"> <xs:element name="TBDD_USER" msprop:Generator_TableClassName="TBDD_USERDataTable" msprop:Generator_TableVarName="tableTBDD_USER" msprop:Generator_RowChangedName="TBDD_USERRowChanged" msprop:Generator_TablePropName="TBDD_USER" msprop:Generator_RowDeletingName="TBDD_USERRowDeleting" msprop:Generator_RowChangingName="TBDD_USERRowChanging" msprop:Generator_RowEvHandlerName="TBDD_USERRowChangeEventHandler" msprop:Generator_RowDeletedName="TBDD_USERRowDeleted" msprop:Generator_RowClassName="TBDD_USERRow" msprop:Generator_UserTableName="TBDD_USER" msprop:Generator_RowEvArgName="TBDD_USERRowChangeEvent">
<xs:complexType> <xs:complexType>
<xs:sequence> <xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" /> <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@ -4520,7 +4405,7 @@ WHERE (RECORD_ID IN
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
<xs:element name="TBPMO_FORM_TYPE" msprop:Generator_TableClassName="TBPMO_FORM_TYPEDataTable" msprop:Generator_TableVarName="tableTBPMO_FORM_TYPE" msprop:Generator_RowChangedName="TBPMO_FORM_TYPERowChanged" msprop:Generator_TablePropName="TBPMO_FORM_TYPE" msprop:Generator_RowDeletingName="TBPMO_FORM_TYPERowDeleting" msprop:Generator_RowChangingName="TBPMO_FORM_TYPERowChanging" msprop:Generator_RowEvHandlerName="TBPMO_FORM_TYPERowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_FORM_TYPERowDeleted" msprop:Generator_RowClassName="TBPMO_FORM_TYPERow" msprop:Generator_UserTableName="TBPMO_FORM_TYPE" msprop:Generator_RowEvArgName="TBPMO_FORM_TYPERowChangeEvent"> <xs:element name="TBPMO_FORM_TYPE" msprop:Generator_TableClassName="TBPMO_FORM_TYPEDataTable" msprop:Generator_TableVarName="tableTBPMO_FORM_TYPE" msprop:Generator_TablePropName="TBPMO_FORM_TYPE" msprop:Generator_RowDeletingName="TBPMO_FORM_TYPERowDeleting" msprop:Generator_RowChangingName="TBPMO_FORM_TYPERowChanging" msprop:Generator_RowEvHandlerName="TBPMO_FORM_TYPERowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_FORM_TYPERowDeleted" msprop:Generator_UserTableName="TBPMO_FORM_TYPE" msprop:Generator_RowChangedName="TBPMO_FORM_TYPERowChanged" msprop:Generator_RowEvArgName="TBPMO_FORM_TYPERowChangeEvent" msprop:Generator_RowClassName="TBPMO_FORM_TYPERow">
<xs:complexType> <xs:complexType>
<xs:sequence> <xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" /> <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@ -4550,7 +4435,7 @@ WHERE (RECORD_ID IN
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
<xs:element name="TBDD_USER_GROUPS" msprop:Generator_TableClassName="TBDD_USER_GROUPSDataTable" msprop:Generator_TableVarName="tableTBDD_USER_GROUPS" msprop:Generator_RowChangedName="TBDD_USER_GROUPSRowChanged" msprop:Generator_TablePropName="TBDD_USER_GROUPS" msprop:Generator_RowDeletingName="TBDD_USER_GROUPSRowDeleting" msprop:Generator_RowChangingName="TBDD_USER_GROUPSRowChanging" msprop:Generator_RowEvHandlerName="TBDD_USER_GROUPSRowChangeEventHandler" msprop:Generator_RowDeletedName="TBDD_USER_GROUPSRowDeleted" msprop:Generator_RowClassName="TBDD_USER_GROUPSRow" msprop:Generator_UserTableName="TBDD_USER_GROUPS" msprop:Generator_RowEvArgName="TBDD_USER_GROUPSRowChangeEvent"> <xs:element name="TBDD_USER_GROUPS" msprop:Generator_TableClassName="TBDD_USER_GROUPSDataTable" msprop:Generator_TableVarName="tableTBDD_USER_GROUPS" msprop:Generator_TablePropName="TBDD_USER_GROUPS" msprop:Generator_RowDeletingName="TBDD_USER_GROUPSRowDeleting" msprop:Generator_RowChangingName="TBDD_USER_GROUPSRowChanging" msprop:Generator_RowEvHandlerName="TBDD_USER_GROUPSRowChangeEventHandler" msprop:Generator_RowDeletedName="TBDD_USER_GROUPSRowDeleted" msprop:Generator_UserTableName="TBDD_USER_GROUPS" msprop:Generator_RowChangedName="TBDD_USER_GROUPSRowChanged" msprop:Generator_RowEvArgName="TBDD_USER_GROUPSRowChangeEvent" msprop:Generator_RowClassName="TBDD_USER_GROUPSRow">
<xs:complexType> <xs:complexType>
<xs:sequence> <xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" /> <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@ -4587,7 +4472,7 @@ WHERE (RECORD_ID IN
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
<xs:element name="VWPMO_USERS_GROUPS" msprop:Generator_TableClassName="VWPMO_USERS_GROUPSDataTable" msprop:Generator_TableVarName="tableVWPMO_USERS_GROUPS" msprop:Generator_RowChangedName="VWPMO_USERS_GROUPSRowChanged" msprop:Generator_TablePropName="VWPMO_USERS_GROUPS" msprop:Generator_RowDeletingName="VWPMO_USERS_GROUPSRowDeleting" msprop:Generator_RowChangingName="VWPMO_USERS_GROUPSRowChanging" msprop:Generator_RowEvHandlerName="VWPMO_USERS_GROUPSRowChangeEventHandler" msprop:Generator_RowDeletedName="VWPMO_USERS_GROUPSRowDeleted" msprop:Generator_RowClassName="VWPMO_USERS_GROUPSRow" msprop:Generator_UserTableName="VWPMO_USERS_GROUPS" msprop:Generator_RowEvArgName="VWPMO_USERS_GROUPSRowChangeEvent"> <xs:element name="VWPMO_USERS_GROUPS" msprop:Generator_TableClassName="VWPMO_USERS_GROUPSDataTable" msprop:Generator_TableVarName="tableVWPMO_USERS_GROUPS" msprop:Generator_TablePropName="VWPMO_USERS_GROUPS" msprop:Generator_RowDeletingName="VWPMO_USERS_GROUPSRowDeleting" msprop:Generator_RowChangingName="VWPMO_USERS_GROUPSRowChanging" msprop:Generator_RowEvHandlerName="VWPMO_USERS_GROUPSRowChangeEventHandler" msprop:Generator_RowDeletedName="VWPMO_USERS_GROUPSRowDeleted" msprop:Generator_UserTableName="VWPMO_USERS_GROUPS" msprop:Generator_RowChangedName="VWPMO_USERS_GROUPSRowChanged" msprop:Generator_RowEvArgName="VWPMO_USERS_GROUPSRowChangeEvent" msprop:Generator_RowClassName="VWPMO_USERS_GROUPSRow">
<xs:complexType> <xs:complexType>
<xs:sequence> <xs:sequence>
<xs:element name="GUID" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" /> <xs:element name="GUID" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@ -4624,7 +4509,7 @@ WHERE (RECORD_ID IN
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
<xs:element name="TBDD_GROUPS_USER" msprop:Generator_TableClassName="TBDD_GROUPS_USERDataTable" msprop:Generator_TableVarName="tableTBDD_GROUPS_USER" msprop:Generator_RowChangedName="TBDD_GROUPS_USERRowChanged" msprop:Generator_TablePropName="TBDD_GROUPS_USER" msprop:Generator_RowDeletingName="TBDD_GROUPS_USERRowDeleting" msprop:Generator_RowChangingName="TBDD_GROUPS_USERRowChanging" msprop:Generator_RowEvHandlerName="TBDD_GROUPS_USERRowChangeEventHandler" msprop:Generator_RowDeletedName="TBDD_GROUPS_USERRowDeleted" msprop:Generator_RowClassName="TBDD_GROUPS_USERRow" msprop:Generator_UserTableName="TBDD_GROUPS_USER" msprop:Generator_RowEvArgName="TBDD_GROUPS_USERRowChangeEvent"> <xs:element name="TBDD_GROUPS_USER" msprop:Generator_TableClassName="TBDD_GROUPS_USERDataTable" msprop:Generator_TableVarName="tableTBDD_GROUPS_USER" msprop:Generator_TablePropName="TBDD_GROUPS_USER" msprop:Generator_RowDeletingName="TBDD_GROUPS_USERRowDeleting" msprop:Generator_RowChangingName="TBDD_GROUPS_USERRowChanging" msprop:Generator_RowEvHandlerName="TBDD_GROUPS_USERRowChangeEventHandler" msprop:Generator_RowDeletedName="TBDD_GROUPS_USERRowDeleted" msprop:Generator_UserTableName="TBDD_GROUPS_USER" msprop:Generator_RowChangedName="TBDD_GROUPS_USERRowChanged" msprop:Generator_RowEvArgName="TBDD_GROUPS_USERRowChangeEvent" msprop:Generator_RowClassName="TBDD_GROUPS_USERRow">
<xs:complexType> <xs:complexType>
<xs:sequence> <xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" /> <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@ -4656,7 +4541,7 @@ WHERE (RECORD_ID IN
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
<xs:element name="TBWH_DOKART_MODULE" msprop:Generator_TableClassName="TBWH_DOKART_MODULEDataTable" msprop:Generator_TableVarName="tableTBWH_DOKART_MODULE" msprop:Generator_RowChangedName="TBWH_DOKART_MODULERowChanged" msprop:Generator_TablePropName="TBWH_DOKART_MODULE" msprop:Generator_RowDeletingName="TBWH_DOKART_MODULERowDeleting" msprop:Generator_RowChangingName="TBWH_DOKART_MODULERowChanging" msprop:Generator_RowEvHandlerName="TBWH_DOKART_MODULERowChangeEventHandler" msprop:Generator_RowDeletedName="TBWH_DOKART_MODULERowDeleted" msprop:Generator_RowClassName="TBWH_DOKART_MODULERow" msprop:Generator_UserTableName="TBWH_DOKART_MODULE" msprop:Generator_RowEvArgName="TBWH_DOKART_MODULERowChangeEvent"> <xs:element name="TBWH_DOKART_MODULE" msprop:Generator_TableClassName="TBWH_DOKART_MODULEDataTable" msprop:Generator_TableVarName="tableTBWH_DOKART_MODULE" msprop:Generator_TablePropName="TBWH_DOKART_MODULE" msprop:Generator_RowDeletingName="TBWH_DOKART_MODULERowDeleting" msprop:Generator_RowChangingName="TBWH_DOKART_MODULERowChanging" msprop:Generator_RowEvHandlerName="TBWH_DOKART_MODULERowChangeEventHandler" msprop:Generator_RowDeletedName="TBWH_DOKART_MODULERowDeleted" msprop:Generator_UserTableName="TBWH_DOKART_MODULE" msprop:Generator_RowChangedName="TBWH_DOKART_MODULERowChanged" msprop:Generator_RowEvArgName="TBWH_DOKART_MODULERowChangeEvent" msprop:Generator_RowClassName="TBWH_DOKART_MODULERow">
<xs:complexType> <xs:complexType>
<xs:sequence> <xs:sequence>
<xs:element name="BEZEICHNUNG" msprop:Generator_ColumnVarNameInTable="columnBEZEICHNUNG" msprop:Generator_ColumnPropNameInRow="BEZEICHNUNG" msprop:Generator_ColumnPropNameInTable="BEZEICHNUNGColumn" msprop:Generator_UserColumnName="BEZEICHNUNG"> <xs:element name="BEZEICHNUNG" msprop:Generator_ColumnVarNameInTable="columnBEZEICHNUNG" msprop:Generator_ColumnPropNameInRow="BEZEICHNUNG" msprop:Generator_ColumnPropNameInTable="BEZEICHNUNGColumn" msprop:Generator_UserColumnName="BEZEICHNUNG">
@ -4676,7 +4561,7 @@ WHERE (RECORD_ID IN
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
<xs:element name="TBPMO_FORM_CONSTRUCTOR" msprop:Generator_TableClassName="TBPMO_FORM_CONSTRUCTORDataTable" msprop:Generator_TableVarName="tableTBPMO_FORM_CONSTRUCTOR" msprop:Generator_TablePropName="TBPMO_FORM_CONSTRUCTOR" msprop:Generator_RowDeletingName="TBPMO_FORM_CONSTRUCTORRowDeleting" msprop:Generator_RowChangingName="TBPMO_FORM_CONSTRUCTORRowChanging" msprop:Generator_RowEvHandlerName="TBPMO_FORM_CONSTRUCTORRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_FORM_CONSTRUCTORRowDeleted" msprop:Generator_UserTableName="TBPMO_FORM_CONSTRUCTOR" msprop:Generator_RowChangedName="TBPMO_FORM_CONSTRUCTORRowChanged" msprop:Generator_RowEvArgName="TBPMO_FORM_CONSTRUCTORRowChangeEvent" msprop:Generator_RowClassName="TBPMO_FORM_CONSTRUCTORRow"> <xs:element name="TBPMO_FORM_CONSTRUCTOR" msprop:Generator_TableClassName="TBPMO_FORM_CONSTRUCTORDataTable" msprop:Generator_TableVarName="tableTBPMO_FORM_CONSTRUCTOR" msprop:Generator_RowChangedName="TBPMO_FORM_CONSTRUCTORRowChanged" msprop:Generator_TablePropName="TBPMO_FORM_CONSTRUCTOR" msprop:Generator_RowDeletingName="TBPMO_FORM_CONSTRUCTORRowDeleting" msprop:Generator_RowChangingName="TBPMO_FORM_CONSTRUCTORRowChanging" msprop:Generator_RowEvHandlerName="TBPMO_FORM_CONSTRUCTORRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_FORM_CONSTRUCTORRowDeleted" msprop:Generator_RowClassName="TBPMO_FORM_CONSTRUCTORRow" msprop:Generator_UserTableName="TBPMO_FORM_CONSTRUCTOR" msprop:Generator_RowEvArgName="TBPMO_FORM_CONSTRUCTORRowChangeEvent">
<xs:complexType> <xs:complexType>
<xs:sequence> <xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" /> <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@ -4722,7 +4607,7 @@ WHERE (RECORD_ID IN
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
<xs:element name="TBPMO_WD_OBJECTTYPE" msprop:Generator_TableClassName="TBPMO_WD_OBJECTTYPEDataTable" msprop:Generator_TableVarName="tableTBPMO_WD_OBJECTTYPE" msprop:Generator_TablePropName="TBPMO_WD_OBJECTTYPE" msprop:Generator_RowDeletingName="TBPMO_WD_OBJECTTYPERowDeleting" msprop:Generator_RowChangingName="TBPMO_WD_OBJECTTYPERowChanging" msprop:Generator_RowEvHandlerName="TBPMO_WD_OBJECTTYPERowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_WD_OBJECTTYPERowDeleted" msprop:Generator_UserTableName="TBPMO_WD_OBJECTTYPE" msprop:Generator_RowChangedName="TBPMO_WD_OBJECTTYPERowChanged" msprop:Generator_RowEvArgName="TBPMO_WD_OBJECTTYPERowChangeEvent" msprop:Generator_RowClassName="TBPMO_WD_OBJECTTYPERow"> <xs:element name="TBPMO_WD_OBJECTTYPE" msprop:Generator_TableClassName="TBPMO_WD_OBJECTTYPEDataTable" msprop:Generator_TableVarName="tableTBPMO_WD_OBJECTTYPE" msprop:Generator_RowChangedName="TBPMO_WD_OBJECTTYPERowChanged" msprop:Generator_TablePropName="TBPMO_WD_OBJECTTYPE" msprop:Generator_RowDeletingName="TBPMO_WD_OBJECTTYPERowDeleting" msprop:Generator_RowChangingName="TBPMO_WD_OBJECTTYPERowChanging" msprop:Generator_RowEvHandlerName="TBPMO_WD_OBJECTTYPERowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_WD_OBJECTTYPERowDeleted" msprop:Generator_RowClassName="TBPMO_WD_OBJECTTYPERow" msprop:Generator_UserTableName="TBPMO_WD_OBJECTTYPE" msprop:Generator_RowEvArgName="TBPMO_WD_OBJECTTYPERowChangeEvent">
<xs:complexType> <xs:complexType>
<xs:sequence> <xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" /> <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@ -4780,37 +4665,7 @@ WHERE (RECORD_ID IN
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
<xs:element name="TBPMO_FILES_USER" msprop:Generator_TableClassName="TBPMO_FILES_USERDataTable" msprop:Generator_TableVarName="tableTBPMO_FILES_USER" msprop:Generator_TablePropName="TBPMO_FILES_USER" msprop:Generator_RowDeletingName="TBPMO_FILES_USERRowDeleting" msprop:Generator_RowChangingName="TBPMO_FILES_USERRowChanging" msprop:Generator_RowEvHandlerName="TBPMO_FILES_USERRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_FILES_USERRowDeleted" msprop:Generator_UserTableName="TBPMO_FILES_USER" msprop:Generator_RowChangedName="TBPMO_FILES_USERRowChanged" msprop:Generator_RowEvArgName="TBPMO_FILES_USERRowChangeEvent" msprop:Generator_RowClassName="TBPMO_FILES_USERRow"> <xs:element name="TBPMO_FOLLOW_UP_EMAIL" msprop:Generator_TableClassName="TBPMO_FOLLOW_UP_EMAILDataTable" msprop:Generator_TableVarName="tableTBPMO_FOLLOW_UP_EMAIL" msprop:Generator_TablePropName="TBPMO_FOLLOW_UP_EMAIL" msprop:Generator_RowDeletingName="TBPMO_FOLLOW_UP_EMAILRowDeleting" msprop:Generator_RowChangingName="TBPMO_FOLLOW_UP_EMAILRowChanging" msprop:Generator_RowEvHandlerName="TBPMO_FOLLOW_UP_EMAILRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_FOLLOW_UP_EMAILRowDeleted" msprop:Generator_UserTableName="TBPMO_FOLLOW_UP_EMAIL" msprop:Generator_RowChangedName="TBPMO_FOLLOW_UP_EMAILRowChanged" msprop:Generator_RowEvArgName="TBPMO_FOLLOW_UP_EMAILRowChangeEvent" msprop:Generator_RowClassName="TBPMO_FOLLOW_UP_EMAILRow">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
<xs:element name="FILENAME2WORK" msprop:Generator_ColumnVarNameInTable="columnFILENAME2WORK" msprop:Generator_ColumnPropNameInRow="FILENAME2WORK" msprop:Generator_ColumnPropNameInTable="FILENAME2WORKColumn" msprop:Generator_UserColumnName="FILENAME2WORK">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="500" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="USER_WORK" msprop:Generator_ColumnVarNameInTable="columnUSER_WORK" msprop:Generator_ColumnPropNameInRow="USER_WORK" msprop:Generator_ColumnPropNameInTable="USER_WORKColumn" msprop:Generator_UserColumnName="USER_WORK">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="50" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="HANDLE_TYPE" msprop:Generator_ColumnVarNameInTable="columnHANDLE_TYPE" msprop:Generator_ColumnPropNameInRow="HANDLE_TYPE" msprop:Generator_ColumnPropNameInTable="HANDLE_TYPEColumn" msprop:Generator_UserColumnName="HANDLE_TYPE">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="50" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="WORKED" msprop:Generator_ColumnVarNameInTable="columnWORKED" msprop:Generator_ColumnPropNameInRow="WORKED" msprop:Generator_ColumnPropNameInTable="WORKEDColumn" msprop:Generator_UserColumnName="WORKED" type="xs:boolean" />
<xs:element name="ADDED_WHEN" msprop:Generator_ColumnVarNameInTable="columnADDED_WHEN" msprop:Generator_ColumnPropNameInRow="ADDED_WHEN" msprop:Generator_ColumnPropNameInTable="ADDED_WHENColumn" msprop:Generator_UserColumnName="ADDED_WHEN" type="xs:dateTime" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBPMO_FOLLOW_UP_EMAIL" msprop:Generator_TableClassName="TBPMO_FOLLOW_UP_EMAILDataTable" msprop:Generator_TableVarName="tableTBPMO_FOLLOW_UP_EMAIL" msprop:Generator_RowChangedName="TBPMO_FOLLOW_UP_EMAILRowChanged" msprop:Generator_TablePropName="TBPMO_FOLLOW_UP_EMAIL" msprop:Generator_RowDeletingName="TBPMO_FOLLOW_UP_EMAILRowDeleting" msprop:Generator_RowChangingName="TBPMO_FOLLOW_UP_EMAILRowChanging" msprop:Generator_RowEvHandlerName="TBPMO_FOLLOW_UP_EMAILRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_FOLLOW_UP_EMAILRowDeleted" msprop:Generator_RowClassName="TBPMO_FOLLOW_UP_EMAILRow" msprop:Generator_UserTableName="TBPMO_FOLLOW_UP_EMAIL" msprop:Generator_RowEvArgName="TBPMO_FOLLOW_UP_EMAILRowChangeEvent">
<xs:complexType> <xs:complexType>
<xs:sequence> <xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" /> <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@ -4967,7 +4822,7 @@ WHERE (RECORD_ID IN
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
<xs:element name="TBPMO_FOLLUPEMAIL_USER" msprop:Generator_TableClassName="TBPMO_FOLLUPEMAIL_USERDataTable" msprop:Generator_TableVarName="tableTBPMO_FOLLUPEMAIL_USER" msprop:Generator_TablePropName="TBPMO_FOLLUPEMAIL_USER" msprop:Generator_RowDeletingName="TBPMO_FOLLUPEMAIL_USERRowDeleting" msprop:Generator_RowChangingName="TBPMO_FOLLUPEMAIL_USERRowChanging" msprop:Generator_RowEvHandlerName="TBPMO_FOLLUPEMAIL_USERRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_FOLLUPEMAIL_USERRowDeleted" msprop:Generator_UserTableName="TBPMO_FOLLUPEMAIL_USER" msprop:Generator_RowChangedName="TBPMO_FOLLUPEMAIL_USERRowChanged" msprop:Generator_RowEvArgName="TBPMO_FOLLUPEMAIL_USERRowChangeEvent" msprop:Generator_RowClassName="TBPMO_FOLLUPEMAIL_USERRow"> <xs:element name="TBPMO_FOLLUPEMAIL_USER" msprop:Generator_TableClassName="TBPMO_FOLLUPEMAIL_USERDataTable" msprop:Generator_TableVarName="tableTBPMO_FOLLUPEMAIL_USER" msprop:Generator_RowChangedName="TBPMO_FOLLUPEMAIL_USERRowChanged" msprop:Generator_TablePropName="TBPMO_FOLLUPEMAIL_USER" msprop:Generator_RowDeletingName="TBPMO_FOLLUPEMAIL_USERRowDeleting" msprop:Generator_RowChangingName="TBPMO_FOLLUPEMAIL_USERRowChanging" msprop:Generator_RowEvHandlerName="TBPMO_FOLLUPEMAIL_USERRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_FOLLUPEMAIL_USERRowDeleted" msprop:Generator_RowClassName="TBPMO_FOLLUPEMAIL_USERRow" msprop:Generator_UserTableName="TBPMO_FOLLUPEMAIL_USER" msprop:Generator_RowEvArgName="TBPMO_FOLLUPEMAIL_USERRowChangeEvent">
<xs:complexType> <xs:complexType>
<xs:sequence> <xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" /> <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@ -4992,7 +4847,7 @@ WHERE (RECORD_ID IN
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
<xs:element name="TBPMO_RECORD_LOG_CONFIG" msprop:Generator_TableClassName="TBPMO_RECORD_LOG_CONFIGDataTable" msprop:Generator_TableVarName="tableTBPMO_RECORD_LOG_CONFIG" msprop:Generator_RowChangedName="TBPMO_RECORD_LOG_CONFIGRowChanged" msprop:Generator_TablePropName="TBPMO_RECORD_LOG_CONFIG" msprop:Generator_RowDeletingName="TBPMO_RECORD_LOG_CONFIGRowDeleting" msprop:Generator_RowChangingName="TBPMO_RECORD_LOG_CONFIGRowChanging" msprop:Generator_RowEvHandlerName="TBPMO_RECORD_LOG_CONFIGRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_RECORD_LOG_CONFIGRowDeleted" msprop:Generator_RowClassName="TBPMO_RECORD_LOG_CONFIGRow" msprop:Generator_UserTableName="TBPMO_RECORD_LOG_CONFIG" msprop:Generator_RowEvArgName="TBPMO_RECORD_LOG_CONFIGRowChangeEvent"> <xs:element name="TBPMO_RECORD_LOG_CONFIG" msprop:Generator_TableClassName="TBPMO_RECORD_LOG_CONFIGDataTable" msprop:Generator_TableVarName="tableTBPMO_RECORD_LOG_CONFIG" msprop:Generator_TablePropName="TBPMO_RECORD_LOG_CONFIG" msprop:Generator_RowDeletingName="TBPMO_RECORD_LOG_CONFIGRowDeleting" msprop:Generator_RowChangingName="TBPMO_RECORD_LOG_CONFIGRowChanging" msprop:Generator_RowEvHandlerName="TBPMO_RECORD_LOG_CONFIGRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_RECORD_LOG_CONFIGRowDeleted" msprop:Generator_UserTableName="TBPMO_RECORD_LOG_CONFIG" msprop:Generator_RowChangedName="TBPMO_RECORD_LOG_CONFIGRowChanged" msprop:Generator_RowEvArgName="TBPMO_RECORD_LOG_CONFIGRowChangeEvent" msprop:Generator_RowClassName="TBPMO_RECORD_LOG_CONFIGRow">
<xs:complexType> <xs:complexType>
<xs:sequence> <xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" /> <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@ -5027,7 +4882,7 @@ WHERE (RECORD_ID IN
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
<xs:element name="VWPMO_RECORD_CHANGES" msprop:Generator_TableClassName="VWPMO_RECORD_CHANGESDataTable" msprop:Generator_TableVarName="tableVWPMO_RECORD_CHANGES" msprop:Generator_RowChangedName="VWPMO_RECORD_CHANGESRowChanged" msprop:Generator_TablePropName="VWPMO_RECORD_CHANGES" msprop:Generator_RowDeletingName="VWPMO_RECORD_CHANGESRowDeleting" msprop:Generator_RowChangingName="VWPMO_RECORD_CHANGESRowChanging" msprop:Generator_RowEvHandlerName="VWPMO_RECORD_CHANGESRowChangeEventHandler" msprop:Generator_RowDeletedName="VWPMO_RECORD_CHANGESRowDeleted" msprop:Generator_RowClassName="VWPMO_RECORD_CHANGESRow" msprop:Generator_UserTableName="VWPMO_RECORD_CHANGES" msprop:Generator_RowEvArgName="VWPMO_RECORD_CHANGESRowChangeEvent"> <xs:element name="VWPMO_RECORD_CHANGES" msprop:Generator_TableClassName="VWPMO_RECORD_CHANGESDataTable" msprop:Generator_TableVarName="tableVWPMO_RECORD_CHANGES" msprop:Generator_TablePropName="VWPMO_RECORD_CHANGES" msprop:Generator_RowDeletingName="VWPMO_RECORD_CHANGESRowDeleting" msprop:Generator_RowChangingName="VWPMO_RECORD_CHANGESRowChanging" msprop:Generator_RowEvHandlerName="VWPMO_RECORD_CHANGESRowChangeEventHandler" msprop:Generator_RowDeletedName="VWPMO_RECORD_CHANGESRowDeleted" msprop:Generator_UserTableName="VWPMO_RECORD_CHANGES" msprop:Generator_RowChangedName="VWPMO_RECORD_CHANGESRowChanged" msprop:Generator_RowEvArgName="VWPMO_RECORD_CHANGESRowChangeEvent" msprop:Generator_RowClassName="VWPMO_RECORD_CHANGESRow">
<xs:complexType> <xs:complexType>
<xs:sequence> <xs:sequence>
<xs:element name="ID" msprop:Generator_ColumnVarNameInTable="columnID" msprop:Generator_ColumnPropNameInRow="ID" msprop:Generator_ColumnPropNameInTable="IDColumn" msprop:Generator_UserColumnName="ID" type="xs:int" /> <xs:element name="ID" msprop:Generator_ColumnVarNameInTable="columnID" msprop:Generator_ColumnPropNameInRow="ID" msprop:Generator_ColumnPropNameInTable="IDColumn" msprop:Generator_UserColumnName="ID" type="xs:int" />
@ -5056,7 +4911,7 @@ WHERE (RECORD_ID IN
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
<xs:element name="TBDD_EMAIL_ACCOUNT" msprop:Generator_TableClassName="TBDD_EMAIL_ACCOUNTDataTable" msprop:Generator_TableVarName="tableTBDD_EMAIL_ACCOUNT" msprop:Generator_RowChangedName="TBDD_EMAIL_ACCOUNTRowChanged" msprop:Generator_TablePropName="TBDD_EMAIL_ACCOUNT" msprop:Generator_RowDeletingName="TBDD_EMAIL_ACCOUNTRowDeleting" msprop:Generator_RowChangingName="TBDD_EMAIL_ACCOUNTRowChanging" msprop:Generator_RowEvHandlerName="TBDD_EMAIL_ACCOUNTRowChangeEventHandler" msprop:Generator_RowDeletedName="TBDD_EMAIL_ACCOUNTRowDeleted" msprop:Generator_RowClassName="TBDD_EMAIL_ACCOUNTRow" msprop:Generator_UserTableName="TBDD_EMAIL_ACCOUNT" msprop:Generator_RowEvArgName="TBDD_EMAIL_ACCOUNTRowChangeEvent"> <xs:element name="TBDD_EMAIL_ACCOUNT" msprop:Generator_TableClassName="TBDD_EMAIL_ACCOUNTDataTable" msprop:Generator_TableVarName="tableTBDD_EMAIL_ACCOUNT" msprop:Generator_TablePropName="TBDD_EMAIL_ACCOUNT" msprop:Generator_RowDeletingName="TBDD_EMAIL_ACCOUNTRowDeleting" msprop:Generator_RowChangingName="TBDD_EMAIL_ACCOUNTRowChanging" msprop:Generator_RowEvHandlerName="TBDD_EMAIL_ACCOUNTRowChangeEventHandler" msprop:Generator_RowDeletedName="TBDD_EMAIL_ACCOUNTRowDeleted" msprop:Generator_UserTableName="TBDD_EMAIL_ACCOUNT" msprop:Generator_RowChangedName="TBDD_EMAIL_ACCOUNTRowChanged" msprop:Generator_RowEvArgName="TBDD_EMAIL_ACCOUNTRowChangeEvent" msprop:Generator_RowClassName="TBDD_EMAIL_ACCOUNTRow">
<xs:complexType> <xs:complexType>
<xs:sequence> <xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" /> <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@ -5116,7 +4971,7 @@ WHERE (RECORD_ID IN
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
<xs:element name="TBDD_CONNECTION" msprop:Generator_TableClassName="TBDD_CONNECTIONDataTable" msprop:Generator_TableVarName="tableTBDD_CONNECTION" msprop:Generator_RowChangedName="TBDD_CONNECTIONRowChanged" msprop:Generator_TablePropName="TBDD_CONNECTION" msprop:Generator_RowDeletingName="TBDD_CONNECTIONRowDeleting" msprop:Generator_RowChangingName="TBDD_CONNECTIONRowChanging" msprop:Generator_RowEvHandlerName="TBDD_CONNECTIONRowChangeEventHandler" msprop:Generator_RowDeletedName="TBDD_CONNECTIONRowDeleted" msprop:Generator_RowClassName="TBDD_CONNECTIONRow" msprop:Generator_UserTableName="TBDD_CONNECTION" msprop:Generator_RowEvArgName="TBDD_CONNECTIONRowChangeEvent"> <xs:element name="TBDD_CONNECTION" msprop:Generator_TableClassName="TBDD_CONNECTIONDataTable" msprop:Generator_TableVarName="tableTBDD_CONNECTION" msprop:Generator_TablePropName="TBDD_CONNECTION" msprop:Generator_RowDeletingName="TBDD_CONNECTIONRowDeleting" msprop:Generator_RowChangingName="TBDD_CONNECTIONRowChanging" msprop:Generator_RowEvHandlerName="TBDD_CONNECTIONRowChangeEventHandler" msprop:Generator_RowDeletedName="TBDD_CONNECTIONRowDeleted" msprop:Generator_UserTableName="TBDD_CONNECTION" msprop:Generator_RowChangedName="TBDD_CONNECTIONRowChanged" msprop:Generator_RowEvArgName="TBDD_CONNECTIONRowChangeEvent" msprop:Generator_RowClassName="TBDD_CONNECTIONRow">
<xs:complexType> <xs:complexType>
<xs:sequence> <xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:short" /> <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:short" />
@ -5189,7 +5044,7 @@ WHERE (RECORD_ID IN
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
<xs:element name="TBPMO_FORM_CONSTRUCTOR_DETAIL" msprop:Generator_TableClassName="TBPMO_FORM_CONSTRUCTOR_DETAILDataTable" msprop:Generator_TableVarName="tableTBPMO_FORM_CONSTRUCTOR_DETAIL" msprop:Generator_TablePropName="TBPMO_FORM_CONSTRUCTOR_DETAIL" msprop:Generator_RowDeletingName="TBPMO_FORM_CONSTRUCTOR_DETAILRowDeleting" msprop:Generator_RowChangingName="TBPMO_FORM_CONSTRUCTOR_DETAILRowChanging" msprop:Generator_RowEvHandlerName="TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_FORM_CONSTRUCTOR_DETAILRowDeleted" msprop:Generator_UserTableName="TBPMO_FORM_CONSTRUCTOR_DETAIL" msprop:Generator_RowChangedName="TBPMO_FORM_CONSTRUCTOR_DETAILRowChanged" msprop:Generator_RowEvArgName="TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEvent" msprop:Generator_RowClassName="TBPMO_FORM_CONSTRUCTOR_DETAILRow"> <xs:element name="TBPMO_FORM_CONSTRUCTOR_DETAIL" msprop:Generator_TableClassName="TBPMO_FORM_CONSTRUCTOR_DETAILDataTable" msprop:Generator_TableVarName="tableTBPMO_FORM_CONSTRUCTOR_DETAIL" msprop:Generator_RowChangedName="TBPMO_FORM_CONSTRUCTOR_DETAILRowChanged" msprop:Generator_TablePropName="TBPMO_FORM_CONSTRUCTOR_DETAIL" msprop:Generator_RowDeletingName="TBPMO_FORM_CONSTRUCTOR_DETAILRowDeleting" msprop:Generator_RowChangingName="TBPMO_FORM_CONSTRUCTOR_DETAILRowChanging" msprop:Generator_RowEvHandlerName="TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_FORM_CONSTRUCTOR_DETAILRowDeleted" msprop:Generator_RowClassName="TBPMO_FORM_CONSTRUCTOR_DETAILRow" msprop:Generator_UserTableName="TBPMO_FORM_CONSTRUCTOR_DETAIL" msprop:Generator_RowEvArgName="TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEvent">
<xs:complexType> <xs:complexType>
<xs:sequence> <xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" /> <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@ -5296,7 +5151,7 @@ WHERE (RECORD_ID IN
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
<xs:element name="VWDDINDEX_AUTOM" msprop:Generator_TableClassName="VWDDINDEX_AUTOMDataTable" msprop:Generator_TableVarName="tableVWDDINDEX_AUTOM" msprop:Generator_RowChangedName="VWDDINDEX_AUTOMRowChanged" msprop:Generator_TablePropName="VWDDINDEX_AUTOM" msprop:Generator_RowDeletingName="VWDDINDEX_AUTOMRowDeleting" msprop:Generator_RowChangingName="VWDDINDEX_AUTOMRowChanging" msprop:Generator_RowEvHandlerName="VWDDINDEX_AUTOMRowChangeEventHandler" msprop:Generator_RowDeletedName="VWDDINDEX_AUTOMRowDeleted" msprop:Generator_RowClassName="VWDDINDEX_AUTOMRow" msprop:Generator_UserTableName="VWDDINDEX_AUTOM" msprop:Generator_RowEvArgName="VWDDINDEX_AUTOMRowChangeEvent"> <xs:element name="VWDDINDEX_AUTOM" msprop:Generator_TableClassName="VWDDINDEX_AUTOMDataTable" msprop:Generator_TableVarName="tableVWDDINDEX_AUTOM" msprop:Generator_TablePropName="VWDDINDEX_AUTOM" msprop:Generator_RowDeletingName="VWDDINDEX_AUTOMRowDeleting" msprop:Generator_RowChangingName="VWDDINDEX_AUTOMRowChanging" msprop:Generator_RowEvHandlerName="VWDDINDEX_AUTOMRowChangeEventHandler" msprop:Generator_RowDeletedName="VWDDINDEX_AUTOMRowDeleted" msprop:Generator_UserTableName="VWDDINDEX_AUTOM" msprop:Generator_RowChangedName="VWDDINDEX_AUTOMRowChanged" msprop:Generator_RowEvArgName="VWDDINDEX_AUTOMRowChangeEvent" msprop:Generator_RowClassName="VWDDINDEX_AUTOMRow">
<xs:complexType> <xs:complexType>
<xs:sequence> <xs:sequence>
<xs:element name="GUID" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" /> <xs:element name="GUID" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@ -5390,7 +5245,7 @@ WHERE (RECORD_ID IN
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
<xs:element name="TBPMO_TEMPLATE" msprop:Generator_TableClassName="TBPMO_TEMPLATEDataTable" msprop:Generator_TableVarName="tableTBPMO_TEMPLATE" msprop:Generator_RowChangedName="TBPMO_TEMPLATERowChanged" msprop:Generator_TablePropName="TBPMO_TEMPLATE" msprop:Generator_RowDeletingName="TBPMO_TEMPLATERowDeleting" msprop:Generator_RowChangingName="TBPMO_TEMPLATERowChanging" msprop:Generator_RowEvHandlerName="TBPMO_TEMPLATERowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_TEMPLATERowDeleted" msprop:Generator_RowClassName="TBPMO_TEMPLATERow" msprop:Generator_UserTableName="TBPMO_TEMPLATE" msprop:Generator_RowEvArgName="TBPMO_TEMPLATERowChangeEvent"> <xs:element name="TBPMO_TEMPLATE" msprop:Generator_TableClassName="TBPMO_TEMPLATEDataTable" msprop:Generator_TableVarName="tableTBPMO_TEMPLATE" msprop:Generator_TablePropName="TBPMO_TEMPLATE" msprop:Generator_RowDeletingName="TBPMO_TEMPLATERowDeleting" msprop:Generator_RowChangingName="TBPMO_TEMPLATERowChanging" msprop:Generator_RowEvHandlerName="TBPMO_TEMPLATERowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_TEMPLATERowDeleted" msprop:Generator_UserTableName="TBPMO_TEMPLATE" msprop:Generator_RowChangedName="TBPMO_TEMPLATERowChanged" msprop:Generator_RowEvArgName="TBPMO_TEMPLATERowChangeEvent" msprop:Generator_RowClassName="TBPMO_TEMPLATERow">
<xs:complexType> <xs:complexType>
<xs:sequence> <xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" /> <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@ -5429,7 +5284,7 @@ WHERE (RECORD_ID IN
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
<xs:element name="TBPMO_TEMPLATE_ENTITY" msprop:Generator_TableClassName="TBPMO_TEMPLATE_ENTITYDataTable" msprop:Generator_TableVarName="tableTBPMO_TEMPLATE_ENTITY" msprop:Generator_RowChangedName="TBPMO_TEMPLATE_ENTITYRowChanged" msprop:Generator_TablePropName="TBPMO_TEMPLATE_ENTITY" msprop:Generator_RowDeletingName="TBPMO_TEMPLATE_ENTITYRowDeleting" msprop:Generator_RowChangingName="TBPMO_TEMPLATE_ENTITYRowChanging" msprop:Generator_RowEvHandlerName="TBPMO_TEMPLATE_ENTITYRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_TEMPLATE_ENTITYRowDeleted" msprop:Generator_RowClassName="TBPMO_TEMPLATE_ENTITYRow" msprop:Generator_UserTableName="TBPMO_TEMPLATE_ENTITY" msprop:Generator_RowEvArgName="TBPMO_TEMPLATE_ENTITYRowChangeEvent"> <xs:element name="TBPMO_TEMPLATE_ENTITY" msprop:Generator_TableClassName="TBPMO_TEMPLATE_ENTITYDataTable" msprop:Generator_TableVarName="tableTBPMO_TEMPLATE_ENTITY" msprop:Generator_TablePropName="TBPMO_TEMPLATE_ENTITY" msprop:Generator_RowDeletingName="TBPMO_TEMPLATE_ENTITYRowDeleting" msprop:Generator_RowChangingName="TBPMO_TEMPLATE_ENTITYRowChanging" msprop:Generator_RowEvHandlerName="TBPMO_TEMPLATE_ENTITYRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_TEMPLATE_ENTITYRowDeleted" msprop:Generator_UserTableName="TBPMO_TEMPLATE_ENTITY" msprop:Generator_RowChangedName="TBPMO_TEMPLATE_ENTITYRowChanged" msprop:Generator_RowEvArgName="TBPMO_TEMPLATE_ENTITYRowChangeEvent" msprop:Generator_RowClassName="TBPMO_TEMPLATE_ENTITYRow">
<xs:complexType> <xs:complexType>
<xs:sequence> <xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" /> <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@ -5447,7 +5302,7 @@ WHERE (RECORD_ID IN
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
<xs:element name="TBPMO_TEMPLATE_PATTERN" msprop:Generator_TableClassName="TBPMO_TEMPLATE_PATTERNDataTable" msprop:Generator_TableVarName="tableTBPMO_TEMPLATE_PATTERN" msprop:Generator_RowChangedName="TBPMO_TEMPLATE_PATTERNRowChanged" msprop:Generator_TablePropName="TBPMO_TEMPLATE_PATTERN" msprop:Generator_RowDeletingName="TBPMO_TEMPLATE_PATTERNRowDeleting" msprop:Generator_RowChangingName="TBPMO_TEMPLATE_PATTERNRowChanging" msprop:Generator_RowEvHandlerName="TBPMO_TEMPLATE_PATTERNRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_TEMPLATE_PATTERNRowDeleted" msprop:Generator_RowClassName="TBPMO_TEMPLATE_PATTERNRow" msprop:Generator_UserTableName="TBPMO_TEMPLATE_PATTERN" msprop:Generator_RowEvArgName="TBPMO_TEMPLATE_PATTERNRowChangeEvent"> <xs:element name="TBPMO_TEMPLATE_PATTERN" msprop:Generator_TableClassName="TBPMO_TEMPLATE_PATTERNDataTable" msprop:Generator_TableVarName="tableTBPMO_TEMPLATE_PATTERN" msprop:Generator_TablePropName="TBPMO_TEMPLATE_PATTERN" msprop:Generator_RowDeletingName="TBPMO_TEMPLATE_PATTERNRowDeleting" msprop:Generator_RowChangingName="TBPMO_TEMPLATE_PATTERNRowChanging" msprop:Generator_RowEvHandlerName="TBPMO_TEMPLATE_PATTERNRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_TEMPLATE_PATTERNRowDeleted" msprop:Generator_UserTableName="TBPMO_TEMPLATE_PATTERN" msprop:Generator_RowChangedName="TBPMO_TEMPLATE_PATTERNRowChanged" msprop:Generator_RowEvArgName="TBPMO_TEMPLATE_PATTERNRowChangeEvent" msprop:Generator_RowClassName="TBPMO_TEMPLATE_PATTERNRow">
<xs:complexType> <xs:complexType>
<xs:sequence> <xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" /> <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@ -5493,7 +5348,7 @@ WHERE (RECORD_ID IN
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
<xs:element name="TBTEMP_QUICKDISPLAY" msprop:Generator_TableClassName="TBTEMP_QUICKDISPLAYDataTable" msprop:Generator_TableVarName="tableTBTEMP_QUICKDISPLAY" msprop:Generator_TablePropName="TBTEMP_QUICKDISPLAY" msprop:Generator_RowDeletingName="TBTEMP_QUICKDISPLAYRowDeleting" msprop:Generator_RowChangingName="TBTEMP_QUICKDISPLAYRowChanging" msprop:Generator_RowEvHandlerName="TBTEMP_QUICKDISPLAYRowChangeEventHandler" msprop:Generator_RowDeletedName="TBTEMP_QUICKDISPLAYRowDeleted" msprop:Generator_UserTableName="TBTEMP_QUICKDISPLAY" msprop:Generator_RowChangedName="TBTEMP_QUICKDISPLAYRowChanged" msprop:Generator_RowEvArgName="TBTEMP_QUICKDISPLAYRowChangeEvent" msprop:Generator_RowClassName="TBTEMP_QUICKDISPLAYRow"> <xs:element name="TBTEMP_QUICKDISPLAY" msprop:Generator_TableClassName="TBTEMP_QUICKDISPLAYDataTable" msprop:Generator_TableVarName="tableTBTEMP_QUICKDISPLAY" msprop:Generator_RowChangedName="TBTEMP_QUICKDISPLAYRowChanged" msprop:Generator_TablePropName="TBTEMP_QUICKDISPLAY" msprop:Generator_RowDeletingName="TBTEMP_QUICKDISPLAYRowDeleting" msprop:Generator_RowChangingName="TBTEMP_QUICKDISPLAYRowChanging" msprop:Generator_RowEvHandlerName="TBTEMP_QUICKDISPLAYRowChangeEventHandler" msprop:Generator_RowDeletedName="TBTEMP_QUICKDISPLAYRowDeleted" msprop:Generator_RowClassName="TBTEMP_QUICKDISPLAYRow" msprop:Generator_UserTableName="TBTEMP_QUICKDISPLAY" msprop:Generator_RowEvArgName="TBTEMP_QUICKDISPLAYRowChangeEvent">
<xs:complexType> <xs:complexType>
<xs:sequence> <xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" /> <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@ -5507,7 +5362,7 @@ WHERE (RECORD_ID IN
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
<xs:element name="TBPMO_LANGUAGE_OBJECT" msprop:Generator_TableClassName="TBPMO_LANGUAGE_OBJECTDataTable" msprop:Generator_TableVarName="tableTBPMO_LANGUAGE_OBJECT" msprop:Generator_TablePropName="TBPMO_LANGUAGE_OBJECT" msprop:Generator_RowDeletingName="TBPMO_LANGUAGE_OBJECTRowDeleting" msprop:Generator_RowChangingName="TBPMO_LANGUAGE_OBJECTRowChanging" msprop:Generator_RowEvHandlerName="TBPMO_LANGUAGE_OBJECTRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_LANGUAGE_OBJECTRowDeleted" msprop:Generator_UserTableName="TBPMO_LANGUAGE_OBJECT" msprop:Generator_RowChangedName="TBPMO_LANGUAGE_OBJECTRowChanged" msprop:Generator_RowEvArgName="TBPMO_LANGUAGE_OBJECTRowChangeEvent" msprop:Generator_RowClassName="TBPMO_LANGUAGE_OBJECTRow"> <xs:element name="TBPMO_LANGUAGE_OBJECT" msprop:Generator_TableClassName="TBPMO_LANGUAGE_OBJECTDataTable" msprop:Generator_TableVarName="tableTBPMO_LANGUAGE_OBJECT" msprop:Generator_RowChangedName="TBPMO_LANGUAGE_OBJECTRowChanged" msprop:Generator_TablePropName="TBPMO_LANGUAGE_OBJECT" msprop:Generator_RowDeletingName="TBPMO_LANGUAGE_OBJECTRowDeleting" msprop:Generator_RowChangingName="TBPMO_LANGUAGE_OBJECTRowChanging" msprop:Generator_RowEvHandlerName="TBPMO_LANGUAGE_OBJECTRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_LANGUAGE_OBJECTRowDeleted" msprop:Generator_RowClassName="TBPMO_LANGUAGE_OBJECTRow" msprop:Generator_UserTableName="TBPMO_LANGUAGE_OBJECT" msprop:Generator_RowEvArgName="TBPMO_LANGUAGE_OBJECTRowChangeEvent">
<xs:complexType> <xs:complexType>
<xs:sequence> <xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" /> <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@ -5559,7 +5414,7 @@ WHERE (RECORD_ID IN
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
<xs:element name="TBDD_CLIENT" msprop:Generator_TableClassName="TBDD_CLIENTDataTable" msprop:Generator_TableVarName="tableTBDD_CLIENT" msprop:Generator_RowChangedName="TBDD_CLIENTRowChanged" msprop:Generator_TablePropName="TBDD_CLIENT" msprop:Generator_RowDeletingName="TBDD_CLIENTRowDeleting" msprop:Generator_RowChangingName="TBDD_CLIENTRowChanging" msprop:Generator_RowEvHandlerName="TBDD_CLIENTRowChangeEventHandler" msprop:Generator_RowDeletedName="TBDD_CLIENTRowDeleted" msprop:Generator_RowClassName="TBDD_CLIENTRow" msprop:Generator_UserTableName="TBDD_CLIENT" msprop:Generator_RowEvArgName="TBDD_CLIENTRowChangeEvent"> <xs:element name="TBDD_CLIENT" msprop:Generator_TableClassName="TBDD_CLIENTDataTable" msprop:Generator_TableVarName="tableTBDD_CLIENT" msprop:Generator_TablePropName="TBDD_CLIENT" msprop:Generator_RowDeletingName="TBDD_CLIENTRowDeleting" msprop:Generator_RowChangingName="TBDD_CLIENTRowChanging" msprop:Generator_RowEvHandlerName="TBDD_CLIENTRowChangeEventHandler" msprop:Generator_RowDeletedName="TBDD_CLIENTRowDeleted" msprop:Generator_UserTableName="TBDD_CLIENT" msprop:Generator_RowChangedName="TBDD_CLIENTRowChanged" msprop:Generator_RowEvArgName="TBDD_CLIENTRowChangeEvent" msprop:Generator_RowClassName="TBDD_CLIENTRow">
<xs:complexType> <xs:complexType>
<xs:sequence> <xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" /> <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@ -5603,7 +5458,7 @@ WHERE (RECORD_ID IN
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
<xs:element name="TBPMO_CONSTRUCTOR_USER_SQL" msprop:Generator_TableClassName="TBPMO_CONSTRUCTOR_USER_SQLDataTable" msprop:Generator_TableVarName="tableTBPMO_CONSTRUCTOR_USER_SQL" msprop:Generator_RowChangedName="TBPMO_CONSTRUCTOR_USER_SQLRowChanged" msprop:Generator_TablePropName="TBPMO_CONSTRUCTOR_USER_SQL" msprop:Generator_RowDeletingName="TBPMO_CONSTRUCTOR_USER_SQLRowDeleting" msprop:Generator_RowChangingName="TBPMO_CONSTRUCTOR_USER_SQLRowChanging" msprop:Generator_RowEvHandlerName="TBPMO_CONSTRUCTOR_USER_SQLRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_CONSTRUCTOR_USER_SQLRowDeleted" msprop:Generator_RowClassName="TBPMO_CONSTRUCTOR_USER_SQLRow" msprop:Generator_UserTableName="TBPMO_CONSTRUCTOR_USER_SQL" msprop:Generator_RowEvArgName="TBPMO_CONSTRUCTOR_USER_SQLRowChangeEvent"> <xs:element name="TBPMO_CONSTRUCTOR_USER_SQL" msprop:Generator_TableClassName="TBPMO_CONSTRUCTOR_USER_SQLDataTable" msprop:Generator_TableVarName="tableTBPMO_CONSTRUCTOR_USER_SQL" msprop:Generator_TablePropName="TBPMO_CONSTRUCTOR_USER_SQL" msprop:Generator_RowDeletingName="TBPMO_CONSTRUCTOR_USER_SQLRowDeleting" msprop:Generator_RowChangingName="TBPMO_CONSTRUCTOR_USER_SQLRowChanging" msprop:Generator_RowEvHandlerName="TBPMO_CONSTRUCTOR_USER_SQLRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_CONSTRUCTOR_USER_SQLRowDeleted" msprop:Generator_UserTableName="TBPMO_CONSTRUCTOR_USER_SQL" msprop:Generator_RowChangedName="TBPMO_CONSTRUCTOR_USER_SQLRowChanged" msprop:Generator_RowEvArgName="TBPMO_CONSTRUCTOR_USER_SQLRowChangeEvent" msprop:Generator_RowClassName="TBPMO_CONSTRUCTOR_USER_SQLRow">
<xs:complexType> <xs:complexType>
<xs:sequence> <xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" /> <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@ -5635,7 +5490,7 @@ WHERE (RECORD_ID IN
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
<xs:element name="TBPMO_WD_IMPORT_PROFILE" msprop:Generator_TableClassName="TBPMO_WD_IMPORT_PROFILEDataTable" msprop:Generator_TableVarName="tableTBPMO_WD_IMPORT_PROFILE" msprop:Generator_TablePropName="TBPMO_WD_IMPORT_PROFILE" msprop:Generator_RowDeletingName="TBPMO_WD_IMPORT_PROFILERowDeleting" msprop:Generator_RowChangingName="TBPMO_WD_IMPORT_PROFILERowChanging" msprop:Generator_RowEvHandlerName="TBPMO_WD_IMPORT_PROFILERowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_WD_IMPORT_PROFILERowDeleted" msprop:Generator_UserTableName="TBPMO_WD_IMPORT_PROFILE" msprop:Generator_RowChangedName="TBPMO_WD_IMPORT_PROFILERowChanged" msprop:Generator_RowEvArgName="TBPMO_WD_IMPORT_PROFILERowChangeEvent" msprop:Generator_RowClassName="TBPMO_WD_IMPORT_PROFILERow"> <xs:element name="TBPMO_WD_IMPORT_PROFILE" msprop:Generator_TableClassName="TBPMO_WD_IMPORT_PROFILEDataTable" msprop:Generator_TableVarName="tableTBPMO_WD_IMPORT_PROFILE" msprop:Generator_RowChangedName="TBPMO_WD_IMPORT_PROFILERowChanged" msprop:Generator_TablePropName="TBPMO_WD_IMPORT_PROFILE" msprop:Generator_RowDeletingName="TBPMO_WD_IMPORT_PROFILERowDeleting" msprop:Generator_RowChangingName="TBPMO_WD_IMPORT_PROFILERowChanging" msprop:Generator_RowEvHandlerName="TBPMO_WD_IMPORT_PROFILERowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_WD_IMPORT_PROFILERowDeleted" msprop:Generator_RowClassName="TBPMO_WD_IMPORT_PROFILERow" msprop:Generator_UserTableName="TBPMO_WD_IMPORT_PROFILE" msprop:Generator_RowEvArgName="TBPMO_WD_IMPORT_PROFILERowChangeEvent">
<xs:complexType> <xs:complexType>
<xs:sequence> <xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" /> <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@ -5717,7 +5572,7 @@ WHERE (RECORD_ID IN
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
<xs:element name="TBPMO_WD_IMPORT_PROFILE_IDX" msprop:Generator_TableClassName="TBPMO_WD_IMPORT_PROFILE_IDXDataTable" msprop:Generator_TableVarName="tableTBPMO_WD_IMPORT_PROFILE_IDX" msprop:Generator_TablePropName="TBPMO_WD_IMPORT_PROFILE_IDX" msprop:Generator_RowDeletingName="TBPMO_WD_IMPORT_PROFILE_IDXRowDeleting" msprop:Generator_RowChangingName="TBPMO_WD_IMPORT_PROFILE_IDXRowChanging" msprop:Generator_RowEvHandlerName="TBPMO_WD_IMPORT_PROFILE_IDXRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_WD_IMPORT_PROFILE_IDXRowDeleted" msprop:Generator_UserTableName="TBPMO_WD_IMPORT_PROFILE_IDX" msprop:Generator_RowChangedName="TBPMO_WD_IMPORT_PROFILE_IDXRowChanged" msprop:Generator_RowEvArgName="TBPMO_WD_IMPORT_PROFILE_IDXRowChangeEvent" msprop:Generator_RowClassName="TBPMO_WD_IMPORT_PROFILE_IDXRow"> <xs:element name="TBPMO_WD_IMPORT_PROFILE_IDX" msprop:Generator_TableClassName="TBPMO_WD_IMPORT_PROFILE_IDXDataTable" msprop:Generator_TableVarName="tableTBPMO_WD_IMPORT_PROFILE_IDX" msprop:Generator_RowChangedName="TBPMO_WD_IMPORT_PROFILE_IDXRowChanged" msprop:Generator_TablePropName="TBPMO_WD_IMPORT_PROFILE_IDX" msprop:Generator_RowDeletingName="TBPMO_WD_IMPORT_PROFILE_IDXRowDeleting" msprop:Generator_RowChangingName="TBPMO_WD_IMPORT_PROFILE_IDXRowChanging" msprop:Generator_RowEvHandlerName="TBPMO_WD_IMPORT_PROFILE_IDXRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_WD_IMPORT_PROFILE_IDXRowDeleted" msprop:Generator_RowClassName="TBPMO_WD_IMPORT_PROFILE_IDXRow" msprop:Generator_UserTableName="TBPMO_WD_IMPORT_PROFILE_IDX" msprop:Generator_RowEvArgName="TBPMO_WD_IMPORT_PROFILE_IDXRowChangeEvent">
<xs:complexType> <xs:complexType>
<xs:sequence> <xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" /> <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@ -5769,7 +5624,7 @@ WHERE (RECORD_ID IN
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
<xs:element name="VWPMO_WF_ACTIVE" msprop:Generator_TableClassName="VWPMO_WF_ACTIVEDataTable" msprop:Generator_TableVarName="tableVWPMO_WF_ACTIVE" msprop:Generator_TablePropName="VWPMO_WF_ACTIVE" msprop:Generator_RowDeletingName="VWPMO_WF_ACTIVERowDeleting" msprop:Generator_RowChangingName="VWPMO_WF_ACTIVERowChanging" msprop:Generator_RowEvHandlerName="VWPMO_WF_ACTIVERowChangeEventHandler" msprop:Generator_RowDeletedName="VWPMO_WF_ACTIVERowDeleted" msprop:Generator_UserTableName="VWPMO_WF_ACTIVE" msprop:Generator_RowChangedName="VWPMO_WF_ACTIVERowChanged" msprop:Generator_RowEvArgName="VWPMO_WF_ACTIVERowChangeEvent" msprop:Generator_RowClassName="VWPMO_WF_ACTIVERow"> <xs:element name="VWPMO_WF_ACTIVE" msprop:Generator_TableClassName="VWPMO_WF_ACTIVEDataTable" msprop:Generator_TableVarName="tableVWPMO_WF_ACTIVE" msprop:Generator_RowChangedName="VWPMO_WF_ACTIVERowChanged" msprop:Generator_TablePropName="VWPMO_WF_ACTIVE" msprop:Generator_RowDeletingName="VWPMO_WF_ACTIVERowDeleting" msprop:Generator_RowChangingName="VWPMO_WF_ACTIVERowChanging" msprop:Generator_RowEvHandlerName="VWPMO_WF_ACTIVERowChangeEventHandler" msprop:Generator_RowDeletedName="VWPMO_WF_ACTIVERowDeleted" msprop:Generator_RowClassName="VWPMO_WF_ACTIVERow" msprop:Generator_UserTableName="VWPMO_WF_ACTIVE" msprop:Generator_RowEvArgName="VWPMO_WF_ACTIVERowChangeEvent">
<xs:complexType> <xs:complexType>
<xs:sequence> <xs:sequence>
<xs:element name="WF_TASK_ID" msprop:Generator_ColumnVarNameInTable="columnWF_TASK_ID" msprop:Generator_ColumnPropNameInRow="WF_TASK_ID" msprop:Generator_ColumnPropNameInTable="WF_TASK_IDColumn" msprop:Generator_UserColumnName="WF_TASK_ID" type="xs:int" /> <xs:element name="WF_TASK_ID" msprop:Generator_ColumnVarNameInTable="columnWF_TASK_ID" msprop:Generator_ColumnPropNameInRow="WF_TASK_ID" msprop:Generator_ColumnPropNameInTable="WF_TASK_IDColumn" msprop:Generator_UserColumnName="WF_TASK_ID" type="xs:int" />
@ -5860,7 +5715,7 @@ WHERE (RECORD_ID IN
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
<xs:element name="TBPMO_RIGHT_GROUP" msprop:Generator_TableClassName="TBPMO_RIGHT_GROUPDataTable" msprop:Generator_TableVarName="tableTBPMO_RIGHT_GROUP" msprop:Generator_RowChangedName="TBPMO_RIGHT_GROUPRowChanged" msprop:Generator_TablePropName="TBPMO_RIGHT_GROUP" msprop:Generator_RowDeletingName="TBPMO_RIGHT_GROUPRowDeleting" msprop:Generator_RowChangingName="TBPMO_RIGHT_GROUPRowChanging" msprop:Generator_RowEvHandlerName="TBPMO_RIGHT_GROUPRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_RIGHT_GROUPRowDeleted" msprop:Generator_RowClassName="TBPMO_RIGHT_GROUPRow" msprop:Generator_UserTableName="TBPMO_RIGHT_GROUP" msprop:Generator_RowEvArgName="TBPMO_RIGHT_GROUPRowChangeEvent"> <xs:element name="TBPMO_RIGHT_GROUP" msprop:Generator_TableClassName="TBPMO_RIGHT_GROUPDataTable" msprop:Generator_TableVarName="tableTBPMO_RIGHT_GROUP" msprop:Generator_TablePropName="TBPMO_RIGHT_GROUP" msprop:Generator_RowDeletingName="TBPMO_RIGHT_GROUPRowDeleting" msprop:Generator_RowChangingName="TBPMO_RIGHT_GROUPRowChanging" msprop:Generator_RowEvHandlerName="TBPMO_RIGHT_GROUPRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_RIGHT_GROUPRowDeleted" msprop:Generator_UserTableName="TBPMO_RIGHT_GROUP" msprop:Generator_RowChangedName="TBPMO_RIGHT_GROUPRowChanged" msprop:Generator_RowEvArgName="TBPMO_RIGHT_GROUPRowChangeEvent" msprop:Generator_RowClassName="TBPMO_RIGHT_GROUPRow">
<xs:complexType> <xs:complexType>
<xs:sequence> <xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" /> <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@ -5891,7 +5746,7 @@ WHERE (RECORD_ID IN
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
<xs:element name="TBPMO_WD_NAMECONVENTION_FORMAT" msprop:Generator_TableClassName="TBPMO_WD_NAMECONVENTION_FORMATDataTable" msprop:Generator_TableVarName="tableTBPMO_WD_NAMECONVENTION_FORMAT" msprop:Generator_TablePropName="TBPMO_WD_NAMECONVENTION_FORMAT" msprop:Generator_RowDeletingName="TBPMO_WD_NAMECONVENTION_FORMATRowDeleting" msprop:Generator_RowChangingName="TBPMO_WD_NAMECONVENTION_FORMATRowChanging" msprop:Generator_RowEvHandlerName="TBPMO_WD_NAMECONVENTION_FORMATRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_WD_NAMECONVENTION_FORMATRowDeleted" msprop:Generator_UserTableName="TBPMO_WD_NAMECONVENTION_FORMAT" msprop:Generator_RowChangedName="TBPMO_WD_NAMECONVENTION_FORMATRowChanged" msprop:Generator_RowEvArgName="TBPMO_WD_NAMECONVENTION_FORMATRowChangeEvent" msprop:Generator_RowClassName="TBPMO_WD_NAMECONVENTION_FORMATRow"> <xs:element name="TBPMO_WD_NAMECONVENTION_FORMAT" msprop:Generator_TableClassName="TBPMO_WD_NAMECONVENTION_FORMATDataTable" msprop:Generator_TableVarName="tableTBPMO_WD_NAMECONVENTION_FORMAT" msprop:Generator_RowChangedName="TBPMO_WD_NAMECONVENTION_FORMATRowChanged" msprop:Generator_TablePropName="TBPMO_WD_NAMECONVENTION_FORMAT" msprop:Generator_RowDeletingName="TBPMO_WD_NAMECONVENTION_FORMATRowDeleting" msprop:Generator_RowChangingName="TBPMO_WD_NAMECONVENTION_FORMATRowChanging" msprop:Generator_RowEvHandlerName="TBPMO_WD_NAMECONVENTION_FORMATRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_WD_NAMECONVENTION_FORMATRowDeleted" msprop:Generator_RowClassName="TBPMO_WD_NAMECONVENTION_FORMATRow" msprop:Generator_UserTableName="TBPMO_WD_NAMECONVENTION_FORMAT" msprop:Generator_RowEvArgName="TBPMO_WD_NAMECONVENTION_FORMATRowChangeEvent">
<xs:complexType> <xs:complexType>
<xs:sequence> <xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" /> <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@ -5929,7 +5784,7 @@ WHERE (RECORD_ID IN
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
<xs:element name="TBPMO_STRUCTURE_NODES_CONFIGURATION" msprop:Generator_TableClassName="TBPMO_STRUCTURE_NODES_CONFIGURATIONDataTable" msprop:Generator_TableVarName="tableTBPMO_STRUCTURE_NODES_CONFIGURATION" msprop:Generator_RowChangedName="TBPMO_STRUCTURE_NODES_CONFIGURATIONRowChanged" msprop:Generator_TablePropName="TBPMO_STRUCTURE_NODES_CONFIGURATION" msprop:Generator_RowDeletingName="TBPMO_STRUCTURE_NODES_CONFIGURATIONRowDeleting" msprop:Generator_RowChangingName="TBPMO_STRUCTURE_NODES_CONFIGURATIONRowChanging" msprop:Generator_RowEvHandlerName="TBPMO_STRUCTURE_NODES_CONFIGURATIONRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_STRUCTURE_NODES_CONFIGURATIONRowDeleted" msprop:Generator_RowClassName="TBPMO_STRUCTURE_NODES_CONFIGURATIONRow" msprop:Generator_UserTableName="TBPMO_STRUCTURE_NODES_CONFIGURATION" msprop:Generator_RowEvArgName="TBPMO_STRUCTURE_NODES_CONFIGURATIONRowChangeEvent"> <xs:element name="TBPMO_STRUCTURE_NODES_CONFIGURATION" msprop:Generator_TableClassName="TBPMO_STRUCTURE_NODES_CONFIGURATIONDataTable" msprop:Generator_TableVarName="tableTBPMO_STRUCTURE_NODES_CONFIGURATION" msprop:Generator_TablePropName="TBPMO_STRUCTURE_NODES_CONFIGURATION" msprop:Generator_RowDeletingName="TBPMO_STRUCTURE_NODES_CONFIGURATIONRowDeleting" msprop:Generator_RowChangingName="TBPMO_STRUCTURE_NODES_CONFIGURATIONRowChanging" msprop:Generator_RowEvHandlerName="TBPMO_STRUCTURE_NODES_CONFIGURATIONRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_STRUCTURE_NODES_CONFIGURATIONRowDeleted" msprop:Generator_UserTableName="TBPMO_STRUCTURE_NODES_CONFIGURATION" msprop:Generator_RowChangedName="TBPMO_STRUCTURE_NODES_CONFIGURATIONRowChanged" msprop:Generator_RowEvArgName="TBPMO_STRUCTURE_NODES_CONFIGURATIONRowChangeEvent" msprop:Generator_RowClassName="TBPMO_STRUCTURE_NODES_CONFIGURATIONRow">
<xs:complexType> <xs:complexType>
<xs:sequence> <xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" /> <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@ -5971,7 +5826,7 @@ WHERE (RECORD_ID IN
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
<xs:element name="TBWH_ENTITY" msprop:Generator_TableClassName="TBWH_ENTITYDataTable" msprop:Generator_TableVarName="tableTBWH_ENTITY" msprop:Generator_TablePropName="TBWH_ENTITY" msprop:Generator_RowDeletingName="TBWH_ENTITYRowDeleting" msprop:Generator_RowChangingName="TBWH_ENTITYRowChanging" msprop:Generator_RowEvHandlerName="TBWH_ENTITYRowChangeEventHandler" msprop:Generator_RowDeletedName="TBWH_ENTITYRowDeleted" msprop:Generator_UserTableName="TBWH_ENTITY" msprop:Generator_RowChangedName="TBWH_ENTITYRowChanged" msprop:Generator_RowEvArgName="TBWH_ENTITYRowChangeEvent" msprop:Generator_RowClassName="TBWH_ENTITYRow"> <xs:element name="TBWH_ENTITY" msprop:Generator_TableClassName="TBWH_ENTITYDataTable" msprop:Generator_TableVarName="tableTBWH_ENTITY" msprop:Generator_RowChangedName="TBWH_ENTITYRowChanged" msprop:Generator_TablePropName="TBWH_ENTITY" msprop:Generator_RowDeletingName="TBWH_ENTITYRowDeleting" msprop:Generator_RowChangingName="TBWH_ENTITYRowChanging" msprop:Generator_RowEvHandlerName="TBWH_ENTITYRowChangeEventHandler" msprop:Generator_RowDeletedName="TBWH_ENTITYRowDeleted" msprop:Generator_RowClassName="TBWH_ENTITYRow" msprop:Generator_UserTableName="TBWH_ENTITY" msprop:Generator_RowEvArgName="TBWH_ENTITYRowChangeEvent">
<xs:complexType> <xs:complexType>
<xs:sequence> <xs:sequence>
<xs:element name="FORM_ID" msprop:Generator_ColumnVarNameInTable="columnFORM_ID" msprop:Generator_ColumnPropNameInRow="FORM_ID" msprop:Generator_ColumnPropNameInTable="FORM_IDColumn" msprop:Generator_UserColumnName="FORM_ID" type="xs:int" /> <xs:element name="FORM_ID" msprop:Generator_ColumnVarNameInTable="columnFORM_ID" msprop:Generator_ColumnPropNameInRow="FORM_ID" msprop:Generator_ColumnPropNameInTable="FORM_IDColumn" msprop:Generator_UserColumnName="FORM_ID" type="xs:int" />
@ -5985,7 +5840,7 @@ WHERE (RECORD_ID IN
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
<xs:element name="TBPMO_WORKFLOW_TASK_HISTORY" msprop:Generator_TableClassName="TBPMO_WORKFLOW_TASK_HISTORYDataTable" msprop:Generator_TableVarName="tableTBPMO_WORKFLOW_TASK_HISTORY" msprop:Generator_RowChangedName="TBPMO_WORKFLOW_TASK_HISTORYRowChanged" msprop:Generator_TablePropName="TBPMO_WORKFLOW_TASK_HISTORY" msprop:Generator_RowDeletingName="TBPMO_WORKFLOW_TASK_HISTORYRowDeleting" msprop:Generator_RowChangingName="TBPMO_WORKFLOW_TASK_HISTORYRowChanging" msprop:Generator_RowEvHandlerName="TBPMO_WORKFLOW_TASK_HISTORYRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_WORKFLOW_TASK_HISTORYRowDeleted" msprop:Generator_RowClassName="TBPMO_WORKFLOW_TASK_HISTORYRow" msprop:Generator_UserTableName="TBPMO_WORKFLOW_TASK_HISTORY" msprop:Generator_RowEvArgName="TBPMO_WORKFLOW_TASK_HISTORYRowChangeEvent"> <xs:element name="TBPMO_WORKFLOW_TASK_HISTORY" msprop:Generator_TableClassName="TBPMO_WORKFLOW_TASK_HISTORYDataTable" msprop:Generator_TableVarName="tableTBPMO_WORKFLOW_TASK_HISTORY" msprop:Generator_TablePropName="TBPMO_WORKFLOW_TASK_HISTORY" msprop:Generator_RowDeletingName="TBPMO_WORKFLOW_TASK_HISTORYRowDeleting" msprop:Generator_RowChangingName="TBPMO_WORKFLOW_TASK_HISTORYRowChanging" msprop:Generator_RowEvHandlerName="TBPMO_WORKFLOW_TASK_HISTORYRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_WORKFLOW_TASK_HISTORYRowDeleted" msprop:Generator_UserTableName="TBPMO_WORKFLOW_TASK_HISTORY" msprop:Generator_RowChangedName="TBPMO_WORKFLOW_TASK_HISTORYRowChanged" msprop:Generator_RowEvArgName="TBPMO_WORKFLOW_TASK_HISTORYRowChangeEvent" msprop:Generator_RowClassName="TBPMO_WORKFLOW_TASK_HISTORYRow">
<xs:complexType> <xs:complexType>
<xs:sequence> <xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" /> <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@ -6014,7 +5869,7 @@ WHERE (RECORD_ID IN
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
<xs:element name="VWPMO_RIGHTS_2B_WORKED" msprop:Generator_TableClassName="VWPMO_RIGHTS_2B_WORKEDDataTable" msprop:Generator_TableVarName="tableVWPMO_RIGHTS_2B_WORKED" msprop:Generator_TablePropName="VWPMO_RIGHTS_2B_WORKED" msprop:Generator_RowDeletingName="VWPMO_RIGHTS_2B_WORKEDRowDeleting" msprop:Generator_RowChangingName="VWPMO_RIGHTS_2B_WORKEDRowChanging" msprop:Generator_RowEvHandlerName="VWPMO_RIGHTS_2B_WORKEDRowChangeEventHandler" msprop:Generator_RowDeletedName="VWPMO_RIGHTS_2B_WORKEDRowDeleted" msprop:Generator_UserTableName="VWPMO_RIGHTS_2B_WORKED" msprop:Generator_RowChangedName="VWPMO_RIGHTS_2B_WORKEDRowChanged" msprop:Generator_RowEvArgName="VWPMO_RIGHTS_2B_WORKEDRowChangeEvent" msprop:Generator_RowClassName="VWPMO_RIGHTS_2B_WORKEDRow"> <xs:element name="VWPMO_RIGHTS_2B_WORKED" msprop:Generator_TableClassName="VWPMO_RIGHTS_2B_WORKEDDataTable" msprop:Generator_TableVarName="tableVWPMO_RIGHTS_2B_WORKED" msprop:Generator_RowChangedName="VWPMO_RIGHTS_2B_WORKEDRowChanged" msprop:Generator_TablePropName="VWPMO_RIGHTS_2B_WORKED" msprop:Generator_RowDeletingName="VWPMO_RIGHTS_2B_WORKEDRowDeleting" msprop:Generator_RowChangingName="VWPMO_RIGHTS_2B_WORKEDRowChanging" msprop:Generator_RowEvHandlerName="VWPMO_RIGHTS_2B_WORKEDRowChangeEventHandler" msprop:Generator_RowDeletedName="VWPMO_RIGHTS_2B_WORKEDRowDeleted" msprop:Generator_RowClassName="VWPMO_RIGHTS_2B_WORKEDRow" msprop:Generator_UserTableName="VWPMO_RIGHTS_2B_WORKED" msprop:Generator_RowEvArgName="VWPMO_RIGHTS_2B_WORKEDRowChangeEvent">
<xs:complexType> <xs:complexType>
<xs:sequence> <xs:sequence>
<xs:element name="GUID" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" /> <xs:element name="GUID" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@ -6052,7 +5907,7 @@ WHERE (RECORD_ID IN
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
<xs:element name="TBPMO_RIGHT_USER" msprop:Generator_TableClassName="TBPMO_RIGHT_USERDataTable" msprop:Generator_TableVarName="tableTBPMO_RIGHT_USER" msprop:Generator_TablePropName="TBPMO_RIGHT_USER" msprop:Generator_RowDeletingName="TBPMO_RIGHT_USERRowDeleting" msprop:Generator_RowChangingName="TBPMO_RIGHT_USERRowChanging" msprop:Generator_RowEvHandlerName="TBPMO_RIGHT_USERRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_RIGHT_USERRowDeleted" msprop:Generator_UserTableName="TBPMO_RIGHT_USER" msprop:Generator_RowChangedName="TBPMO_RIGHT_USERRowChanged" msprop:Generator_RowEvArgName="TBPMO_RIGHT_USERRowChangeEvent" msprop:Generator_RowClassName="TBPMO_RIGHT_USERRow"> <xs:element name="TBPMO_RIGHT_USER" msprop:Generator_TableClassName="TBPMO_RIGHT_USERDataTable" msprop:Generator_TableVarName="tableTBPMO_RIGHT_USER" msprop:Generator_RowChangedName="TBPMO_RIGHT_USERRowChanged" msprop:Generator_TablePropName="TBPMO_RIGHT_USER" msprop:Generator_RowDeletingName="TBPMO_RIGHT_USERRowDeleting" msprop:Generator_RowChangingName="TBPMO_RIGHT_USERRowChanging" msprop:Generator_RowEvHandlerName="TBPMO_RIGHT_USERRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_RIGHT_USERRowDeleted" msprop:Generator_RowClassName="TBPMO_RIGHT_USERRow" msprop:Generator_UserTableName="TBPMO_RIGHT_USER" msprop:Generator_RowEvArgName="TBPMO_RIGHT_USERRowChangeEvent">
<xs:complexType> <xs:complexType>
<xs:sequence> <xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" /> <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@ -6070,7 +5925,7 @@ WHERE (RECORD_ID IN
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
<xs:element name="TBPMO_RECORD_VARIANT" msprop:Generator_TableClassName="TBPMO_RECORD_VARIANTDataTable" msprop:Generator_TableVarName="tableTBPMO_RECORD_VARIANT" msprop:Generator_RowChangedName="TBPMO_RECORD_VARIANTRowChanged" msprop:Generator_TablePropName="TBPMO_RECORD_VARIANT" msprop:Generator_RowDeletingName="TBPMO_RECORD_VARIANTRowDeleting" msprop:Generator_RowChangingName="TBPMO_RECORD_VARIANTRowChanging" msprop:Generator_RowEvHandlerName="TBPMO_RECORD_VARIANTRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_RECORD_VARIANTRowDeleted" msprop:Generator_RowClassName="TBPMO_RECORD_VARIANTRow" msprop:Generator_UserTableName="TBPMO_RECORD_VARIANT" msprop:Generator_RowEvArgName="TBPMO_RECORD_VARIANTRowChangeEvent"> <xs:element name="TBPMO_RECORD_VARIANT" msprop:Generator_TableClassName="TBPMO_RECORD_VARIANTDataTable" msprop:Generator_TableVarName="tableTBPMO_RECORD_VARIANT" msprop:Generator_TablePropName="TBPMO_RECORD_VARIANT" msprop:Generator_RowDeletingName="TBPMO_RECORD_VARIANTRowDeleting" msprop:Generator_RowChangingName="TBPMO_RECORD_VARIANTRowChanging" msprop:Generator_RowEvHandlerName="TBPMO_RECORD_VARIANTRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_RECORD_VARIANTRowDeleted" msprop:Generator_UserTableName="TBPMO_RECORD_VARIANT" msprop:Generator_RowChangedName="TBPMO_RECORD_VARIANTRowChanged" msprop:Generator_RowEvArgName="TBPMO_RECORD_VARIANTRowChangeEvent" msprop:Generator_RowClassName="TBPMO_RECORD_VARIANTRow">
<xs:complexType> <xs:complexType>
<xs:sequence> <xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" /> <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@ -6186,10 +6041,6 @@ WHERE (RECORD_ID IN
<xs:selector xpath=".//mstns:TBPMO_WD_OBJECTTYPE" /> <xs:selector xpath=".//mstns:TBPMO_WD_OBJECTTYPE" />
<xs:field xpath="mstns:GUID" /> <xs:field xpath="mstns:GUID" />
</xs:unique> </xs:unique>
<xs:unique name="TBPMO_FILES_USER_Constraint1" msdata:ConstraintName="Constraint1" msdata:PrimaryKey="true">
<xs:selector xpath=".//mstns:TBPMO_FILES_USER" />
<xs:field xpath="mstns:GUID" />
</xs:unique>
<xs:unique name="TBPMO_FOLLOW_UP_EMAIL_Constraint1" msdata:ConstraintName="Constraint1" msdata:PrimaryKey="true"> <xs:unique name="TBPMO_FOLLOW_UP_EMAIL_Constraint1" msdata:ConstraintName="Constraint1" msdata:PrimaryKey="true">
<xs:selector xpath=".//mstns:TBPMO_FOLLOW_UP_EMAIL" /> <xs:selector xpath=".//mstns:TBPMO_FOLLOW_UP_EMAIL" />
<xs:field xpath="mstns:GUID" /> <xs:field xpath="mstns:GUID" />
@ -6289,27 +6140,27 @@ WHERE (RECORD_ID IN
</xs:element> </xs:element>
<xs:annotation> <xs:annotation>
<xs:appinfo> <xs:appinfo>
<msdata:Relationship name="FK_TBPMO_FORM_VIEW_FORM_ID" msdata:parent="TBPMO_FORM" msdata:child="TBPMO_FORM_VIEW" msdata:parentkey="GUID" msdata:childkey="FORM_ID" msprop:Generator_UserChildTable="TBPMO_FORM_VIEW" msprop:Generator_ChildPropName="GetTBPMO_FORM_VIEWRows" msprop:Generator_UserRelationName="FK_TBPMO_FORM_VIEW_FORM_ID" msprop:Generator_RelationVarName="relationFK_TBPMO_FORM_VIEW_FORM_ID" msprop:Generator_UserParentTable="TBPMO_FORM" msprop:Generator_ParentPropName="TBPMO_FORMRow" /> <msdata:Relationship name="FK_TBPMO_FORM_VIEW_FORM_ID" msdata:parent="TBPMO_FORM" msdata:child="TBPMO_FORM_VIEW" msdata:parentkey="GUID" msdata:childkey="FORM_ID" msprop:Generator_UserChildTable="TBPMO_FORM_VIEW" msprop:Generator_ChildPropName="GetTBPMO_FORM_VIEWRows" msprop:Generator_UserRelationName="FK_TBPMO_FORM_VIEW_FORM_ID" msprop:Generator_ParentPropName="TBPMO_FORMRow" msprop:Generator_RelationVarName="relationFK_TBPMO_FORM_VIEW_FORM_ID" msprop:Generator_UserParentTable="TBPMO_FORM" />
<msdata:Relationship name="FK_TBDD_DOKUMENTART_EINGID" msdata:parent="TBDD_EINGANGSARTEN" msdata:child="TBDD_DOKUMENTART" msdata:parentkey="GUID" msdata:childkey="EINGANGSART_ID" msprop:Generator_UserChildTable="TBDD_DOKUMENTART" msprop:Generator_ChildPropName="GetTBDD_DOKUMENTARTRows" msprop:Generator_UserRelationName="FK_TBDD_DOKUMENTART_EINGID" msprop:Generator_RelationVarName="relationFK_TBDD_DOKUMENTART_EINGID" msprop:Generator_UserParentTable="TBDD_EINGANGSARTEN" msprop:Generator_ParentPropName="TBDD_EINGANGSARTENRow" /> <msdata:Relationship name="FK_TBDD_DOKUMENTART_EINGID" msdata:parent="TBDD_EINGANGSARTEN" msdata:child="TBDD_DOKUMENTART" msdata:parentkey="GUID" msdata:childkey="EINGANGSART_ID" msprop:Generator_UserChildTable="TBDD_DOKUMENTART" msprop:Generator_ChildPropName="GetTBDD_DOKUMENTARTRows" msprop:Generator_UserRelationName="FK_TBDD_DOKUMENTART_EINGID" msprop:Generator_ParentPropName="TBDD_EINGANGSARTENRow" msprop:Generator_RelationVarName="relationFK_TBDD_DOKUMENTART_EINGID" msprop:Generator_UserParentTable="TBDD_EINGANGSARTEN" />
<msdata:Relationship name="FK_TBDD_INDEX_AUTOM_DOCID" msdata:parent="TBDD_DOKUMENTART" msdata:child="TBDD_INDEX_AUTOM" msdata:parentkey="GUID" msdata:childkey="DOCTYPE_ID" msprop:Generator_UserChildTable="TBDD_INDEX_AUTOM" msprop:Generator_ChildPropName="GetTBDD_INDEX_AUTOMRows" msprop:Generator_UserRelationName="FK_TBDD_INDEX_AUTOM_DOCID" msprop:Generator_ParentPropName="TBDD_DOKUMENTARTRow" msprop:Generator_RelationVarName="relationFK_TBDD_INDEX_AUTOM_DOCID" msprop:Generator_UserParentTable="TBDD_DOKUMENTART" /> <msdata:Relationship name="FK_TBDD_INDEX_AUTOM_DOCID" msdata:parent="TBDD_DOKUMENTART" msdata:child="TBDD_INDEX_AUTOM" msdata:parentkey="GUID" msdata:childkey="DOCTYPE_ID" msprop:Generator_UserChildTable="TBDD_INDEX_AUTOM" msprop:Generator_ChildPropName="GetTBDD_INDEX_AUTOMRows" msprop:Generator_UserRelationName="FK_TBDD_INDEX_AUTOM_DOCID" msprop:Generator_RelationVarName="relationFK_TBDD_INDEX_AUTOM_DOCID" msprop:Generator_UserParentTable="TBDD_DOKUMENTART" msprop:Generator_ParentPropName="TBDD_DOKUMENTARTRow" />
<msdata:Relationship name="FK_TBDD_INDEX_AUTOM_DOCID1" msdata:parent="TBPMO_WD_FORMVIEW_DOKTYPES" msdata:child="TBDD_INDEX_AUTOM" msdata:parentkey="GUID" msdata:childkey="DOCTYPE_ID" msprop:Generator_UserChildTable="TBDD_INDEX_AUTOM" msprop:Generator_ChildPropName="GetTBDD_INDEX_AUTOMRows" msprop:Generator_UserRelationName="FK_TBDD_INDEX_AUTOM_DOCID1" msprop:Generator_RelationVarName="relationFK_TBDD_INDEX_AUTOM_DOCID1" msprop:Generator_UserParentTable="TBPMO_WD_FORMVIEW_DOKTYPES" msprop:Generator_ParentPropName="TBPMO_WD_FORMVIEW_DOKTYPESRow" /> <msdata:Relationship name="FK_TBDD_INDEX_AUTOM_DOCID1" msdata:parent="TBPMO_WD_FORMVIEW_DOKTYPES" msdata:child="TBDD_INDEX_AUTOM" msdata:parentkey="GUID" msdata:childkey="DOCTYPE_ID" msprop:Generator_UserChildTable="TBDD_INDEX_AUTOM" msprop:Generator_ChildPropName="GetTBDD_INDEX_AUTOMRows" msprop:Generator_UserRelationName="FK_TBDD_INDEX_AUTOM_DOCID1" msprop:Generator_ParentPropName="TBPMO_WD_FORMVIEW_DOKTYPESRow" msprop:Generator_RelationVarName="relationFK_TBDD_INDEX_AUTOM_DOCID1" msprop:Generator_UserParentTable="TBPMO_WD_FORMVIEW_DOKTYPES" />
<msdata:Relationship name="FK_TBPMO_FORM_FORM_TYPE_ID" msdata:parent="TBPMO_FORM_TYPE" msdata:child="TBPMO_FORM" msdata:parentkey="GUID" msdata:childkey="FORM_TYPE_ID" msprop:Generator_UserChildTable="TBPMO_FORM" msprop:Generator_ChildPropName="GetTBPMO_FORMRows" msprop:Generator_UserRelationName="FK_TBPMO_FORM_FORM_TYPE_ID" msprop:Generator_ParentPropName="TBPMO_FORM_TYPERow" msprop:Generator_RelationVarName="relationFK_TBPMO_FORM_FORM_TYPE_ID" msprop:Generator_UserParentTable="TBPMO_FORM_TYPE" /> <msdata:Relationship name="FK_TBPMO_FORM_FORM_TYPE_ID" msdata:parent="TBPMO_FORM_TYPE" msdata:child="TBPMO_FORM" msdata:parentkey="GUID" msdata:childkey="FORM_TYPE_ID" msprop:Generator_UserChildTable="TBPMO_FORM" msprop:Generator_ChildPropName="GetTBPMO_FORMRows" msprop:Generator_UserRelationName="FK_TBPMO_FORM_FORM_TYPE_ID" msprop:Generator_RelationVarName="relationFK_TBPMO_FORM_FORM_TYPE_ID" msprop:Generator_UserParentTable="TBPMO_FORM_TYPE" msprop:Generator_ParentPropName="TBPMO_FORM_TYPERow" />
<msdata:Relationship name="FK_TBDD_GROUPS_USER_GROUP_ID" msdata:parent="TBDD_USER_GROUPS" msdata:child="TBDD_GROUPS_USER" msdata:parentkey="GUID" msdata:childkey="GROUP_ID" msprop:Generator_UserChildTable="TBDD_GROUPS_USER" msprop:Generator_ChildPropName="GetTBDD_GROUPS_USERRows" msprop:Generator_UserRelationName="FK_TBDD_GROUPS_USER_GROUP_ID" msprop:Generator_RelationVarName="relationFK_TBDD_GROUPS_USER_GROUP_ID" msprop:Generator_UserParentTable="TBDD_USER_GROUPS" msprop:Generator_ParentPropName="TBDD_USER_GROUPSRow" /> <msdata:Relationship name="FK_TBDD_GROUPS_USER_GROUP_ID" msdata:parent="TBDD_USER_GROUPS" msdata:child="TBDD_GROUPS_USER" msdata:parentkey="GUID" msdata:childkey="GROUP_ID" msprop:Generator_UserChildTable="TBDD_GROUPS_USER" msprop:Generator_ChildPropName="GetTBDD_GROUPS_USERRows" msprop:Generator_UserRelationName="FK_TBDD_GROUPS_USER_GROUP_ID" msprop:Generator_ParentPropName="TBDD_USER_GROUPSRow" msprop:Generator_RelationVarName="relationFK_TBDD_GROUPS_USER_GROUP_ID" msprop:Generator_UserParentTable="TBDD_USER_GROUPS" />
<msdata:Relationship name="FK_TBDD_GROUPS_USER_USER_ID" msdata:parent="TBDD_USER" msdata:child="TBDD_GROUPS_USER" msdata:parentkey="GUID" msdata:childkey="USER_ID" msprop:Generator_UserChildTable="TBDD_GROUPS_USER" msprop:Generator_ChildPropName="GetTBDD_GROUPS_USERRows" msprop:Generator_UserRelationName="FK_TBDD_GROUPS_USER_USER_ID" msprop:Generator_RelationVarName="relationFK_TBDD_GROUPS_USER_USER_ID" msprop:Generator_UserParentTable="TBDD_USER" msprop:Generator_ParentPropName="TBDD_USERRow" /> <msdata:Relationship name="FK_TBDD_GROUPS_USER_USER_ID" msdata:parent="TBDD_USER" msdata:child="TBDD_GROUPS_USER" msdata:parentkey="GUID" msdata:childkey="USER_ID" msprop:Generator_UserChildTable="TBDD_GROUPS_USER" msprop:Generator_ChildPropName="GetTBDD_GROUPS_USERRows" msprop:Generator_UserRelationName="FK_TBDD_GROUPS_USER_USER_ID" msprop:Generator_ParentPropName="TBDD_USERRow" msprop:Generator_RelationVarName="relationFK_TBDD_GROUPS_USER_USER_ID" msprop:Generator_UserParentTable="TBDD_USER" />
<msdata:Relationship name="FK_TBPMO_FOLLUPEMAIL_USER_FOLLUP_ID" msdata:parent="TBDD_USER" msdata:child="TBPMO_FOLLUPEMAIL_USER" msdata:parentkey="GUID" msdata:childkey="FOLLOW_UP_ID" msprop:Generator_UserChildTable="TBPMO_FOLLUPEMAIL_USER" msprop:Generator_ChildPropName="GetTBPMO_FOLLUPEMAIL_USERRows" msprop:Generator_UserRelationName="FK_TBPMO_FOLLUPEMAIL_USER_FOLLUP_ID" msprop:Generator_ParentPropName="TBDD_USERRow" msprop:Generator_RelationVarName="relationFK_TBPMO_FOLLUPEMAIL_USER_FOLLUP_ID" msprop:Generator_UserParentTable="TBDD_USER" /> <msdata:Relationship name="FK_TBPMO_FOLLUPEMAIL_USER_FOLLUP_ID" msdata:parent="TBDD_USER" msdata:child="TBPMO_FOLLUPEMAIL_USER" msdata:parentkey="GUID" msdata:childkey="FOLLOW_UP_ID" msprop:Generator_UserChildTable="TBPMO_FOLLUPEMAIL_USER" msprop:Generator_ChildPropName="GetTBPMO_FOLLUPEMAIL_USERRows" msprop:Generator_UserRelationName="FK_TBPMO_FOLLUPEMAIL_USER_FOLLUP_ID" msprop:Generator_RelationVarName="relationFK_TBPMO_FOLLUPEMAIL_USER_FOLLUP_ID" msprop:Generator_UserParentTable="TBDD_USER" msprop:Generator_ParentPropName="TBDD_USERRow" />
<msdata:Relationship name="FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID" msdata:parent="TBPMO_FORM_CONSTRUCTOR" msdata:child="TBPMO_FORM_CONSTRUCTOR_DETAIL" msdata:parentkey="GUID" msdata:childkey="CONSTRUCT_ID" msprop:Generator_UserChildTable="TBPMO_FORM_CONSTRUCTOR_DETAIL" msprop:Generator_ChildPropName="GetTBPMO_FORM_CONSTRUCTOR_DETAILRows" msprop:Generator_UserRelationName="FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID" msprop:Generator_ParentPropName="TBPMO_FORM_CONSTRUCTORRow" msprop:Generator_RelationVarName="relationFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID" msprop:Generator_UserParentTable="TBPMO_FORM_CONSTRUCTOR" /> <msdata:Relationship name="FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID" msdata:parent="TBPMO_FORM_CONSTRUCTOR" msdata:child="TBPMO_FORM_CONSTRUCTOR_DETAIL" msdata:parentkey="GUID" msdata:childkey="CONSTRUCT_ID" msprop:Generator_UserChildTable="TBPMO_FORM_CONSTRUCTOR_DETAIL" msprop:Generator_ChildPropName="GetTBPMO_FORM_CONSTRUCTOR_DETAILRows" msprop:Generator_UserRelationName="FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID" msprop:Generator_RelationVarName="relationFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID" msprop:Generator_UserParentTable="TBPMO_FORM_CONSTRUCTOR" msprop:Generator_ParentPropName="TBPMO_FORM_CONSTRUCTORRow" />
<msdata:Relationship name="FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_FORMID" msdata:parent="TBPMO_FORM" msdata:child="TBPMO_FORM_CONSTRUCTOR_DETAIL" msdata:parentkey="GUID" msdata:childkey="FORM_ID" msprop:Generator_UserChildTable="TBPMO_FORM_CONSTRUCTOR_DETAIL" msprop:Generator_ChildPropName="GetTBPMO_FORM_CONSTRUCTOR_DETAILRows" msprop:Generator_UserRelationName="FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_FORMID" msprop:Generator_ParentPropName="TBPMO_FORMRow" msprop:Generator_RelationVarName="relationFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_FORMID" msprop:Generator_UserParentTable="TBPMO_FORM" /> <msdata:Relationship name="FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_FORMID" msdata:parent="TBPMO_FORM" msdata:child="TBPMO_FORM_CONSTRUCTOR_DETAIL" msdata:parentkey="GUID" msdata:childkey="FORM_ID" msprop:Generator_UserChildTable="TBPMO_FORM_CONSTRUCTOR_DETAIL" msprop:Generator_ChildPropName="GetTBPMO_FORM_CONSTRUCTOR_DETAILRows" msprop:Generator_UserRelationName="FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_FORMID" msprop:Generator_RelationVarName="relationFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_FORMID" msprop:Generator_UserParentTable="TBPMO_FORM" msprop:Generator_ParentPropName="TBPMO_FORMRow" />
<msdata:Relationship name="FK_TBPMO_TEMPLATE_ENTITY_ENTITY_ID" msdata:parent="TBPMO_FORM" msdata:child="TBPMO_TEMPLATE_ENTITY" msdata:parentkey="GUID" msdata:childkey="ENTITY_ID" msprop:Generator_UserChildTable="TBPMO_TEMPLATE_ENTITY" msprop:Generator_ChildPropName="GetTBPMO_TEMPLATE_ENTITYRows" msprop:Generator_UserRelationName="FK_TBPMO_TEMPLATE_ENTITY_ENTITY_ID" msprop:Generator_RelationVarName="relationFK_TBPMO_TEMPLATE_ENTITY_ENTITY_ID" msprop:Generator_UserParentTable="TBPMO_FORM" msprop:Generator_ParentPropName="TBPMO_FORMRow" /> <msdata:Relationship name="FK_TBPMO_TEMPLATE_ENTITY_ENTITY_ID" msdata:parent="TBPMO_FORM" msdata:child="TBPMO_TEMPLATE_ENTITY" msdata:parentkey="GUID" msdata:childkey="ENTITY_ID" msprop:Generator_UserChildTable="TBPMO_TEMPLATE_ENTITY" msprop:Generator_ChildPropName="GetTBPMO_TEMPLATE_ENTITYRows" msprop:Generator_UserRelationName="FK_TBPMO_TEMPLATE_ENTITY_ENTITY_ID" msprop:Generator_ParentPropName="TBPMO_FORMRow" msprop:Generator_RelationVarName="relationFK_TBPMO_TEMPLATE_ENTITY_ENTITY_ID" msprop:Generator_UserParentTable="TBPMO_FORM" />
<msdata:Relationship name="FK_TBPMO_TEMPLATE_ENTITY_TEMPLATE_ID" msdata:parent="TBPMO_TEMPLATE" msdata:child="TBPMO_TEMPLATE_ENTITY" msdata:parentkey="GUID" msdata:childkey="TEMPLATE_ID" msprop:Generator_UserChildTable="TBPMO_TEMPLATE_ENTITY" msprop:Generator_ChildPropName="GetTBPMO_TEMPLATE_ENTITYRows" msprop:Generator_UserRelationName="FK_TBPMO_TEMPLATE_ENTITY_TEMPLATE_ID" msprop:Generator_RelationVarName="relationFK_TBPMO_TEMPLATE_ENTITY_TEMPLATE_ID" msprop:Generator_UserParentTable="TBPMO_TEMPLATE" msprop:Generator_ParentPropName="TBPMO_TEMPLATERow" /> <msdata:Relationship name="FK_TBPMO_TEMPLATE_ENTITY_TEMPLATE_ID" msdata:parent="TBPMO_TEMPLATE" msdata:child="TBPMO_TEMPLATE_ENTITY" msdata:parentkey="GUID" msdata:childkey="TEMPLATE_ID" msprop:Generator_UserChildTable="TBPMO_TEMPLATE_ENTITY" msprop:Generator_ChildPropName="GetTBPMO_TEMPLATE_ENTITYRows" msprop:Generator_UserRelationName="FK_TBPMO_TEMPLATE_ENTITY_TEMPLATE_ID" msprop:Generator_ParentPropName="TBPMO_TEMPLATERow" msprop:Generator_RelationVarName="relationFK_TBPMO_TEMPLATE_ENTITY_TEMPLATE_ID" msprop:Generator_UserParentTable="TBPMO_TEMPLATE" />
<msdata:Relationship name="FK_TBPMO_TEMPLATE_PATTERN_TEMPLATE_ENT_ID" msdata:parent="TBPMO_TEMPLATE_ENTITY" msdata:child="TBPMO_TEMPLATE_PATTERN" msdata:parentkey="GUID" msdata:childkey="TEMPLATE_ENT_ID" msprop:Generator_UserChildTable="TBPMO_TEMPLATE_PATTERN" msprop:Generator_ChildPropName="GetTBPMO_TEMPLATE_PATTERNRows" msprop:Generator_UserRelationName="FK_TBPMO_TEMPLATE_PATTERN_TEMPLATE_ENT_ID" msprop:Generator_RelationVarName="relationFK_TBPMO_TEMPLATE_PATTERN_TEMPLATE_ENT_ID" msprop:Generator_UserParentTable="TBPMO_TEMPLATE_ENTITY" msprop:Generator_ParentPropName="TBPMO_TEMPLATE_ENTITYRow" /> <msdata:Relationship name="FK_TBPMO_TEMPLATE_PATTERN_TEMPLATE_ENT_ID" msdata:parent="TBPMO_TEMPLATE_ENTITY" msdata:child="TBPMO_TEMPLATE_PATTERN" msdata:parentkey="GUID" msdata:childkey="TEMPLATE_ENT_ID" msprop:Generator_UserChildTable="TBPMO_TEMPLATE_PATTERN" msprop:Generator_ChildPropName="GetTBPMO_TEMPLATE_PATTERNRows" msprop:Generator_UserRelationName="FK_TBPMO_TEMPLATE_PATTERN_TEMPLATE_ENT_ID" msprop:Generator_ParentPropName="TBPMO_TEMPLATE_ENTITYRow" msprop:Generator_RelationVarName="relationFK_TBPMO_TEMPLATE_PATTERN_TEMPLATE_ENT_ID" msprop:Generator_UserParentTable="TBPMO_TEMPLATE_ENTITY" />
<msdata:Relationship name="FK_TBPMO_FOLLOW_UP_EMAIL_DATE_CTRL_ID" msdata:parent="TBTEMP_QUICKDISPLAY" msdata:child="TBPMO_FOLLOW_UP_EMAIL" msdata:parentkey="GUID" msdata:childkey="DEPENDENT_DATE_CTRL_ID" msprop:Generator_UserChildTable="TBPMO_FOLLOW_UP_EMAIL" msprop:Generator_ChildPropName="GetTBPMO_FOLLOW_UP_EMAILRowsByFK_TBPMO_FOLLOW_UP_EMAIL_DATE_CTRL_ID" msprop:Generator_UserRelationName="FK_TBPMO_FOLLOW_UP_EMAIL_DATE_CTRL_ID" msprop:Generator_RelationVarName="relationFK_TBPMO_FOLLOW_UP_EMAIL_DATE_CTRL_ID" msprop:Generator_UserParentTable="TBTEMP_QUICKDISPLAY" msprop:Generator_ParentPropName="TBTEMP_QUICKDISPLAYRowByFK_TBPMO_FOLLOW_UP_EMAIL_DATE_CTRL_ID" /> <msdata:Relationship name="FK_TBPMO_FOLLOW_UP_EMAIL_DATE_CTRL_ID" msdata:parent="TBTEMP_QUICKDISPLAY" msdata:child="TBPMO_FOLLOW_UP_EMAIL" msdata:parentkey="GUID" msdata:childkey="DEPENDENT_DATE_CTRL_ID" msprop:Generator_UserChildTable="TBPMO_FOLLOW_UP_EMAIL" msprop:Generator_ChildPropName="GetTBPMO_FOLLOW_UP_EMAILRowsByFK_TBPMO_FOLLOW_UP_EMAIL_DATE_CTRL_ID" msprop:Generator_UserRelationName="FK_TBPMO_FOLLOW_UP_EMAIL_DATE_CTRL_ID" msprop:Generator_ParentPropName="TBTEMP_QUICKDISPLAYRowByFK_TBPMO_FOLLOW_UP_EMAIL_DATE_CTRL_ID" msprop:Generator_RelationVarName="relationFK_TBPMO_FOLLOW_UP_EMAIL_DATE_CTRL_ID" msprop:Generator_UserParentTable="TBTEMP_QUICKDISPLAY" />
<msdata:Relationship name="FK_TBPMO_FOLLOW_UP_EMAIL_DONE_CTRL_ID" msdata:parent="TBTEMP_QUICKDISPLAY" msdata:child="TBPMO_FOLLOW_UP_EMAIL" msdata:parentkey="GUID" msdata:childkey="DEPENDENT_DONE_CTRL_ID" msprop:Generator_UserChildTable="TBPMO_FOLLOW_UP_EMAIL" msprop:Generator_ChildPropName="GetTBPMO_FOLLOW_UP_EMAILRowsByFK_TBPMO_FOLLOW_UP_EMAIL_DONE_CTRL_ID" msprop:Generator_UserRelationName="FK_TBPMO_FOLLOW_UP_EMAIL_DONE_CTRL_ID" msprop:Generator_RelationVarName="relationFK_TBPMO_FOLLOW_UP_EMAIL_DONE_CTRL_ID" msprop:Generator_UserParentTable="TBTEMP_QUICKDISPLAY" msprop:Generator_ParentPropName="TBTEMP_QUICKDISPLAYRowByFK_TBPMO_FOLLOW_UP_EMAIL_DONE_CTRL_ID" /> <msdata:Relationship name="FK_TBPMO_FOLLOW_UP_EMAIL_DONE_CTRL_ID" msdata:parent="TBTEMP_QUICKDISPLAY" msdata:child="TBPMO_FOLLOW_UP_EMAIL" msdata:parentkey="GUID" msdata:childkey="DEPENDENT_DONE_CTRL_ID" msprop:Generator_UserChildTable="TBPMO_FOLLOW_UP_EMAIL" msprop:Generator_ChildPropName="GetTBPMO_FOLLOW_UP_EMAILRowsByFK_TBPMO_FOLLOW_UP_EMAIL_DONE_CTRL_ID" msprop:Generator_UserRelationName="FK_TBPMO_FOLLOW_UP_EMAIL_DONE_CTRL_ID" msprop:Generator_ParentPropName="TBTEMP_QUICKDISPLAYRowByFK_TBPMO_FOLLOW_UP_EMAIL_DONE_CTRL_ID" msprop:Generator_RelationVarName="relationFK_TBPMO_FOLLOW_UP_EMAIL_DONE_CTRL_ID" msprop:Generator_UserParentTable="TBTEMP_QUICKDISPLAY" />
<msdata:Relationship name="FK_TBPMO_WD_IMPORT_PROFILE_IDX_1" msdata:parent="TBPMO_WD_IMPORT_PROFILE" msdata:child="TBPMO_WD_IMPORT_PROFILE_IDX" msdata:parentkey="GUID" msdata:childkey="PROFILE_ID" msprop:Generator_UserChildTable="TBPMO_WD_IMPORT_PROFILE_IDX" msprop:Generator_ChildPropName="GetTBPMO_WD_IMPORT_PROFILE_IDXRows" msprop:Generator_UserRelationName="FK_TBPMO_WD_IMPORT_PROFILE_IDX_1" msprop:Generator_ParentPropName="TBPMO_WD_IMPORT_PROFILERow" msprop:Generator_RelationVarName="relationFK_TBPMO_WD_IMPORT_PROFILE_IDX_1" msprop:Generator_UserParentTable="TBPMO_WD_IMPORT_PROFILE" /> <msdata:Relationship name="FK_TBPMO_WD_IMPORT_PROFILE_IDX_1" msdata:parent="TBPMO_WD_IMPORT_PROFILE" msdata:child="TBPMO_WD_IMPORT_PROFILE_IDX" msdata:parentkey="GUID" msdata:childkey="PROFILE_ID" msprop:Generator_UserChildTable="TBPMO_WD_IMPORT_PROFILE_IDX" msprop:Generator_ChildPropName="GetTBPMO_WD_IMPORT_PROFILE_IDXRows" msprop:Generator_UserRelationName="FK_TBPMO_WD_IMPORT_PROFILE_IDX_1" msprop:Generator_RelationVarName="relationFK_TBPMO_WD_IMPORT_PROFILE_IDX_1" msprop:Generator_UserParentTable="TBPMO_WD_IMPORT_PROFILE" msprop:Generator_ParentPropName="TBPMO_WD_IMPORT_PROFILERow" />
<msdata:Relationship name="FK_TBPMO_RIGHT_GROUP_ENTITY_ID" msdata:parent="TBPMO_FORM" msdata:child="TBPMO_RIGHT_GROUP" msdata:parentkey="GUID" msdata:childkey="ENTITY_ID" msprop:Generator_UserChildTable="TBPMO_RIGHT_GROUP" msprop:Generator_ChildPropName="GetTBPMO_RIGHT_GROUPRows" msprop:Generator_UserRelationName="FK_TBPMO_RIGHT_GROUP_ENTITY_ID" msprop:Generator_RelationVarName="relationFK_TBPMO_RIGHT_GROUP_ENTITY_ID" msprop:Generator_UserParentTable="TBPMO_FORM" msprop:Generator_ParentPropName="TBPMO_FORMRow" /> <msdata:Relationship name="FK_TBPMO_RIGHT_GROUP_ENTITY_ID" msdata:parent="TBPMO_FORM" msdata:child="TBPMO_RIGHT_GROUP" msdata:parentkey="GUID" msdata:childkey="ENTITY_ID" msprop:Generator_UserChildTable="TBPMO_RIGHT_GROUP" msprop:Generator_ChildPropName="GetTBPMO_RIGHT_GROUPRows" msprop:Generator_UserRelationName="FK_TBPMO_RIGHT_GROUP_ENTITY_ID" msprop:Generator_ParentPropName="TBPMO_FORMRow" msprop:Generator_RelationVarName="relationFK_TBPMO_RIGHT_GROUP_ENTITY_ID" msprop:Generator_UserParentTable="TBPMO_FORM" />
<msdata:Relationship name="FK_TBPMO_RIGHT_GROUP_GROUP_ID" msdata:parent="TBDD_USER_GROUPS" msdata:child="TBPMO_RIGHT_GROUP" msdata:parentkey="GUID" msdata:childkey="GROUP_ID" msprop:Generator_UserChildTable="TBPMO_RIGHT_GROUP" msprop:Generator_ChildPropName="GetTBPMO_RIGHT_GROUPRows" msprop:Generator_UserRelationName="FK_TBPMO_RIGHT_GROUP_GROUP_ID" msprop:Generator_RelationVarName="relationFK_TBPMO_RIGHT_GROUP_GROUP_ID" msprop:Generator_UserParentTable="TBDD_USER_GROUPS" msprop:Generator_ParentPropName="TBDD_USER_GROUPSRow" /> <msdata:Relationship name="FK_TBPMO_RIGHT_GROUP_GROUP_ID" msdata:parent="TBDD_USER_GROUPS" msdata:child="TBPMO_RIGHT_GROUP" msdata:parentkey="GUID" msdata:childkey="GROUP_ID" msprop:Generator_UserChildTable="TBPMO_RIGHT_GROUP" msprop:Generator_ChildPropName="GetTBPMO_RIGHT_GROUPRows" msprop:Generator_UserRelationName="FK_TBPMO_RIGHT_GROUP_GROUP_ID" msprop:Generator_ParentPropName="TBDD_USER_GROUPSRow" msprop:Generator_RelationVarName="relationFK_TBPMO_RIGHT_GROUP_GROUP_ID" msprop:Generator_UserParentTable="TBDD_USER_GROUPS" />
<msdata:Relationship name="FK_TBPMO_STRUCTURE_NODES_CONFIGURATION_ENTITY_ID" msdata:parent="TBPMO_FORM" msdata:child="TBPMO_STRUCTURE_NODES_CONFIGURATION" msdata:parentkey="GUID" msdata:childkey="ENTITY_ID" msprop:Generator_UserChildTable="TBPMO_STRUCTURE_NODES_CONFIGURATION" msprop:Generator_ChildPropName="GetTBPMO_STRUCTURE_NODES_CONFIGURATIONRows" msprop:Generator_UserRelationName="FK_TBPMO_STRUCTURE_NODES_CONFIGURATION_ENTITY_ID" msprop:Generator_RelationVarName="relationFK_TBPMO_STRUCTURE_NODES_CONFIGURATION_ENTITY_ID" msprop:Generator_UserParentTable="TBPMO_FORM" msprop:Generator_ParentPropName="TBPMO_FORMRow" /> <msdata:Relationship name="FK_TBPMO_STRUCTURE_NODES_CONFIGURATION_ENTITY_ID" msdata:parent="TBPMO_FORM" msdata:child="TBPMO_STRUCTURE_NODES_CONFIGURATION" msdata:parentkey="GUID" msdata:childkey="ENTITY_ID" msprop:Generator_UserChildTable="TBPMO_STRUCTURE_NODES_CONFIGURATION" msprop:Generator_ChildPropName="GetTBPMO_STRUCTURE_NODES_CONFIGURATIONRows" msprop:Generator_UserRelationName="FK_TBPMO_STRUCTURE_NODES_CONFIGURATION_ENTITY_ID" msprop:Generator_ParentPropName="TBPMO_FORMRow" msprop:Generator_RelationVarName="relationFK_TBPMO_STRUCTURE_NODES_CONFIGURATION_ENTITY_ID" msprop:Generator_UserParentTable="TBPMO_FORM" />
<msdata:Relationship name="FK_TBPMO_FORM_VIEW_FORM_ID1" msdata:parent="TBPMO_FORM" msdata:child="TBWH_ENTITY" msdata:parentkey="GUID" msdata:childkey="FORM_ID" msprop:Generator_UserChildTable="TBWH_ENTITY" msprop:Generator_ChildPropName="GetTBWH_ENTITYRows" msprop:Generator_UserRelationName="FK_TBPMO_FORM_VIEW_FORM_ID1" msprop:Generator_ParentPropName="TBPMO_FORMRow" msprop:Generator_RelationVarName="relationFK_TBPMO_FORM_VIEW_FORM_ID1" msprop:Generator_UserParentTable="TBPMO_FORM" /> <msdata:Relationship name="FK_TBPMO_FORM_VIEW_FORM_ID1" msdata:parent="TBPMO_FORM" msdata:child="TBWH_ENTITY" msdata:parentkey="GUID" msdata:childkey="FORM_ID" msprop:Generator_UserChildTable="TBWH_ENTITY" msprop:Generator_ChildPropName="GetTBWH_ENTITYRows" msprop:Generator_UserRelationName="FK_TBPMO_FORM_VIEW_FORM_ID1" msprop:Generator_RelationVarName="relationFK_TBPMO_FORM_VIEW_FORM_ID1" msprop:Generator_UserParentTable="TBPMO_FORM" msprop:Generator_ParentPropName="TBPMO_FORMRow" />
<msdata:Relationship name="FK_TBPMO_RECORD_VARIANT_RECORD_ID" msdata:parent="TBPMO_RECORD" msdata:child="TBPMO_RECORD_VARIANT" msdata:parentkey="GUID" msdata:childkey="RECORD_ID" msprop:Generator_UserChildTable="TBPMO_RECORD_VARIANT" msprop:Generator_ChildPropName="GetTBPMO_RECORD_VARIANTRows" msprop:Generator_UserRelationName="FK_TBPMO_RECORD_VARIANT_RECORD_ID" msprop:Generator_RelationVarName="relationFK_TBPMO_RECORD_VARIANT_RECORD_ID" msprop:Generator_UserParentTable="TBPMO_RECORD" msprop:Generator_ParentPropName="TBPMO_RECORDRow" /> <msdata:Relationship name="FK_TBPMO_RECORD_VARIANT_RECORD_ID" msdata:parent="TBPMO_RECORD" msdata:child="TBPMO_RECORD_VARIANT" msdata:parentkey="GUID" msdata:childkey="RECORD_ID" msprop:Generator_UserChildTable="TBPMO_RECORD_VARIANT" msprop:Generator_ChildPropName="GetTBPMO_RECORD_VARIANTRows" msprop:Generator_UserRelationName="FK_TBPMO_RECORD_VARIANT_RECORD_ID" msprop:Generator_ParentPropName="TBPMO_RECORDRow" msprop:Generator_RelationVarName="relationFK_TBPMO_RECORD_VARIANT_RECORD_ID" msprop:Generator_UserParentTable="TBPMO_RECORD" />
</xs:appinfo> </xs:appinfo>
</xs:annotation> </xs:annotation>
</xs:schema> </xs:schema>

143
app/DD-Record-Organiser/DD_DMSDataSet.xss
View File

@ -4,62 +4,61 @@
Changes to this file may cause incorrect behavior and will be lost if Changes to this file may cause incorrect behavior and will be lost if
the code is regenerated. the code is regenerated.
</autogenerated>--> </autogenerated>-->
<DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="-10" ViewPortY="681" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout"> <DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="0" ViewPortY="-47" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
<Shapes> <Shapes>
<Shape ID="DesignTable:TBPMO_FORM" ZOrder="26" X="389" Y="366" Height="286" Width="229" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="216" /> <Shape ID="DesignTable:TBPMO_FORM" ZOrder="28" X="389" Y="366" Height="286" Width="229" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="216" />
<Shape ID="DesignTable:VWPMO_CONTROL_SCREEN" ZOrder="6" X="78" Y="352" Height="305" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" /> <Shape ID="DesignTable:VWPMO_CONTROL_SCREEN" ZOrder="8" X="78" Y="352" Height="305" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBPMO_FORM_VIEW" ZOrder="21" X="492" Y="68" Height="324" Width="265" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" /> <Shape ID="DesignTable:TBPMO_FORM_VIEW" ZOrder="23" X="492" Y="68" Height="324" Width="265" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBPMO_RECORD" ZOrder="54" X="875" Y="408" Height="172" Width="242" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="121" /> <Shape ID="DesignTable:TBPMO_RECORD" ZOrder="53" X="875" Y="408" Height="172" Width="242" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="121" />
<Shape ID="DesignTable:VWPMO_DOKUMENTTYPES" ZOrder="4" X="556" Y="356" Height="286" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="197" /> <Shape ID="DesignTable:VWPMO_DOKUMENTTYPES" ZOrder="6" X="556" Y="357" Height="286" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="197" />
<Shape ID="DesignTable:TBPMO_WD_FVIEW_DT_INDEX" ZOrder="71" X="819" Y="147" Height="229" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="178" /> <Shape ID="DesignTable:TBPMO_WD_FVIEW_DT_INDEX" ZOrder="70" X="819" Y="147" Height="229" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="178" />
<Shape ID="DesignTable:TBPMO_WORKFLOW_TASK" ZOrder="53" X="603" Y="718" Height="324" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="235" /> <Shape ID="DesignTable:TBPMO_WORKFLOW_TASK" ZOrder="52" X="603" Y="718" Height="324" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="235" />
<Shape ID="DesignTable:TBPMO_WORKFLOW_TASK_STATE" ZOrder="18" X="950" Y="736" Height="248" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" /> <Shape ID="DesignTable:TBPMO_WORKFLOW_TASK_STATE" ZOrder="20" X="950" Y="736" Height="248" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" />
<Shape ID="DesignTable:VWPMO_GUI_ENTITY" ZOrder="50" X="395" Y="443" Height="134" Width="207" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="83" /> <Shape ID="DesignTable:VWPMO_GUI_ENTITY" ZOrder="49" X="395" Y="443" Height="134" Width="207" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="83" />
<Shape ID="DesignTable:TBPMO_WORKFLOW" ZOrder="20" X="192" Y="678" Height="210" Width="266" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" /> <Shape ID="DesignTable:TBPMO_WORKFLOW" ZOrder="22" X="192" Y="678" Height="210" Width="266" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" />
<Shape ID="DesignTable:VWPMO_WF_OVERVIEW_AUTHORITY" ZOrder="52" X="877" Y="44" Height="210" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" /> <Shape ID="DesignTable:VWPMO_WF_OVERVIEW_AUTHORITY" ZOrder="51" X="877" Y="44" Height="210" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" />
<Shape ID="DesignTable:TBDD_DOKUMENTART" ZOrder="22" X="1349" Y="450" Height="344" Width="278" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" /> <Shape ID="DesignTable:TBDD_DOKUMENTART" ZOrder="24" X="1349" Y="450" Height="344" Width="278" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBDD_EINGANGSARTEN" ZOrder="70" X="1701" Y="652" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" /> <Shape ID="DesignTable:TBDD_EINGANGSARTEN" ZOrder="69" X="1701" Y="652" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBDD_INDEX_AUTOM" ZOrder="45" X="1687" Y="332" Height="282" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="192" /> <Shape ID="DesignTable:TBDD_INDEX_AUTOM" ZOrder="44" X="1687" Y="332" Height="282" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="192" />
<Shape ID="DesignTable:TBPMO_WD_FORMVIEW_DOKTYPES" ZOrder="69" X="427" Y="-11" Height="287" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="197" /> <Shape ID="DesignTable:TBPMO_WD_FORMVIEW_DOKTYPES" ZOrder="68" X="427" Y="-11" Height="287" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="197" />
<Shape ID="DesignTable:TBPMO_KONFIGURATION" ZOrder="65" X="1644" Y="247" Height="168" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="78" /> <Shape ID="DesignTable:TBPMO_KONFIGURATION" ZOrder="64" X="1644" Y="247" Height="168" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="78" />
<Shape ID="DesignTable:TBDD_USER" ZOrder="7" X="1632" Y="12" Height="243" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="59" /> <Shape ID="DesignTable:TBDD_USER" ZOrder="9" X="1632" Y="12" Height="243" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="59" />
<Shape ID="DesignTable:TBPMO_FORM_TYPE" ZOrder="64" X="1357" Y="80" Height="191" Width="263" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="140" /> <Shape ID="DesignTable:TBPMO_FORM_TYPE" ZOrder="63" X="1357" Y="80" Height="191" Width="263" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="140" />
<Shape ID="DesignTable:TBDD_USER_GROUPS" ZOrder="14" X="842" Y="-46" Height="168" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="78" /> <Shape ID="DesignTable:TBDD_USER_GROUPS" ZOrder="16" X="842" Y="-46" Height="168" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="78" />
<Shape ID="DesignTable:VWPMO_USERS_GROUPS" ZOrder="62" X="0" Y="0" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" /> <Shape ID="DesignTable:VWPMO_USERS_GROUPS" ZOrder="61" X="0" Y="0" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBDD_GROUPS_USER" ZOrder="29" X="0" Y="0" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" /> <Shape ID="DesignTable:TBDD_GROUPS_USER" ZOrder="31" X="0" Y="0" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBWH_DOKART_MODULE" ZOrder="61" X="0" Y="0" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" /> <Shape ID="DesignTable:TBWH_DOKART_MODULE" ZOrder="60" X="0" Y="0" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBPMO_FORM_CONSTRUCTOR" ZOrder="30" X="1185" Y="-27" Height="248" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="197" /> <Shape ID="DesignTable:TBPMO_FORM_CONSTRUCTOR" ZOrder="2" X="1185" Y="-27" Height="248" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="197" />
<Shape ID="DesignTable:TBPMO_WD_OBJECTTYPE" ZOrder="58" X="-1" Y="1" Height="229" Width="293" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="178" /> <Shape ID="DesignTable:TBPMO_WD_OBJECTTYPE" ZOrder="57" X="-1" Y="1" Height="229" Width="293" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="178" />
<Shape ID="DesignTable:TBPMO_FILES_USER" ZOrder="34" X="0" Y="0" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBPMO_FOLLOW_UP_EMAIL" ZOrder="33" X="903" Y="388" Height="204" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="136" /> <Shape ID="DesignTable:TBPMO_FOLLOW_UP_EMAIL" ZOrder="33" X="903" Y="388" Height="204" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="136" />
<Shape ID="DesignTable:TBPMO_FOLLUPEMAIL_USER" ZOrder="57" X="59" Y="77" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" /> <Shape ID="DesignTable:TBPMO_FOLLUPEMAIL_USER" ZOrder="56" X="59" Y="77" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBPMO_RECORD_LOG_CONFIG" ZOrder="51" X="1128" Y="408" Height="300" Width="235" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="232" /> <Shape ID="DesignTable:TBPMO_RECORD_LOG_CONFIG" ZOrder="50" X="1128" Y="408" Height="300" Width="235" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="232" />
<Shape ID="DesignTable:VWPMO_RECORD_CHANGES" ZOrder="55" X="1673" Y="790" Height="173" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="83" /> <Shape ID="DesignTable:VWPMO_RECORD_CHANGES" ZOrder="54" X="1673" Y="790" Height="173" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="83" />
<Shape ID="DesignTable:TBDD_EMAIL_ACCOUNT" ZOrder="27" X="844" Y="43" Height="267" Width="285" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="216" /> <Shape ID="DesignTable:TBDD_EMAIL_ACCOUNT" ZOrder="29" X="844" Y="43" Height="267" Width="285" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="216" />
<Shape ID="DesignTable:TBDD_CONNECTION" ZOrder="49" X="462" Y="673" Height="149" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="59" /> <Shape ID="DesignTable:TBDD_CONNECTION" ZOrder="48" X="462" Y="673" Height="149" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="59" />
<Shape ID="DesignTable:TBPMO_FORM_CONSTRUCTOR_DETAIL" ZOrder="35" X="1246" Y="352" Height="324" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" /> <Shape ID="DesignTable:TBPMO_FORM_CONSTRUCTOR_DETAIL" ZOrder="34" X="1246" Y="352" Height="324" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:VWDDINDEX_AUTOM" ZOrder="46" X="1300" Y="812" Height="305" Width="272" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" /> <Shape ID="DesignTable:VWDDINDEX_AUTOM" ZOrder="45" X="1300" Y="812" Height="305" Width="272" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBPMO_TEMPLATE" ZOrder="44" X="2444" Y="43" Height="229" Width="255" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="178" /> <Shape ID="DesignTable:TBPMO_TEMPLATE" ZOrder="43" X="2444" Y="43" Height="229" Width="255" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="178" />
<Shape ID="DesignTable:TBPMO_TEMPLATE_ENTITY" ZOrder="43" X="2068" Y="300" Height="191" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="140" /> <Shape ID="DesignTable:TBPMO_TEMPLATE_ENTITY" ZOrder="42" X="2068" Y="300" Height="191" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="140" />
<Shape ID="DesignTable:TBPMO_TEMPLATE_PATTERN" ZOrder="40" X="2348" Y="521" Height="286" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="216" /> <Shape ID="DesignTable:TBPMO_TEMPLATE_PATTERN" ZOrder="39" X="2348" Y="521" Height="286" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="216" />
<Shape ID="DesignTable:TBTEMP_QUICKDISPLAY" ZOrder="38" X="2117" Y="51" Height="115" Width="210" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="64" /> <Shape ID="DesignTable:TBTEMP_QUICKDISPLAY" ZOrder="37" X="2117" Y="51" Height="115" Width="210" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="64" />
<Shape ID="DesignTable:TBPMO_LANGUAGE_OBJECT" ZOrder="32" X="1161" Y="308" Height="267" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="216" /> <Shape ID="DesignTable:TBPMO_LANGUAGE_OBJECT" ZOrder="1" X="1161" Y="308" Height="267" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="216" />
<Shape ID="DesignTable:TBDD_CLIENT" ZOrder="31" X="0" Y="0" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" /> <Shape ID="DesignTable:TBDD_CLIENT" ZOrder="32" X="0" Y="0" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBPMO_CONSTRUCTOR_USER_SQL" ZOrder="23" X="258" Y="41" Height="280" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="212" /> <Shape ID="DesignTable:TBPMO_CONSTRUCTOR_USER_SQL" ZOrder="25" X="258" Y="41" Height="280" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="212" />
<Shape ID="DesignTable:TBPMO_WD_IMPORT_PROFILE" ZOrder="28" X="0" Y="0" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" /> <Shape ID="DesignTable:TBPMO_WD_IMPORT_PROFILE" ZOrder="30" X="0" Y="0" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBPMO_WD_IMPORT_PROFILE_IDX" ZOrder="25" X="1895" Y="934" Height="267" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="216" /> <Shape ID="DesignTable:TBPMO_WD_IMPORT_PROFILE_IDX" ZOrder="27" X="1895" Y="934" Height="267" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="216" />
<Shape ID="DesignTable:VWPMO_WF_ACTIVE" ZOrder="19" X="1910" Y="509" Height="357" Width="378" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="270" /> <Shape ID="DesignTable:VWPMO_WF_ACTIVE" ZOrder="21" X="1910" Y="509" Height="357" Width="378" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="270" />
<Shape ID="DesignTable:TBPMO_RIGHT_GROUP" ZOrder="17" X="0" Y="0" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" /> <Shape ID="DesignTable:TBPMO_RIGHT_GROUP" ZOrder="19" X="0" Y="0" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBPMO_WD_NAMECONVENTION_FORMAT" ZOrder="13" X="0" Y="0" Height="90" Width="247" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" /> <Shape ID="DesignTable:TBPMO_WD_NAMECONVENTION_FORMAT" ZOrder="15" X="0" Y="0" Height="90" Width="247" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBPMO_STRUCTURE_NODES_CONFIGURATION" ZOrder="5" X="64" Y="2" Height="359" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="289" /> <Shape ID="DesignTable:TBPMO_STRUCTURE_NODES_CONFIGURATION" ZOrder="7" X="64" Y="2" Height="359" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="289" />
<Shape ID="DesignTable:TBWH_ENTITY" ZOrder="12" X="0" Y="0" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" /> <Shape ID="DesignTable:TBWH_ENTITY" ZOrder="14" X="0" Y="0" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBPMO_WORKFLOW_TASK_HISTORY" ZOrder="11" X="0" Y="0" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" /> <Shape ID="DesignTable:TBPMO_WORKFLOW_TASK_HISTORY" ZOrder="13" X="0" Y="0" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:VWPMO_RIGHTS_2B_WORKED" ZOrder="8" X="2579" Y="410" Height="229" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="178" /> <Shape ID="DesignTable:VWPMO_RIGHTS_2B_WORKED" ZOrder="10" X="2579" Y="410" Height="229" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="178" />
<Shape ID="DesignTable:TBPMO_RIGHT_USER" ZOrder="3" X="23" Y="353" Height="305" Width="267" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" /> <Shape ID="DesignTable:TBPMO_RIGHT_USER" ZOrder="5" X="23" Y="353" Height="305" Width="267" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBPMO_RECORD_VARIANT" ZOrder="2" X="653" Y="1140" Height="229" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="178" /> <Shape ID="DesignTable:TBPMO_RECORD_VARIANT" ZOrder="4" X="653" Y="1140" Height="229" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="178" />
</Shapes> </Shapes>
<Connectors> <Connectors>
<Connector ID="DesignRelation:FK_TBPMO_FORM_VIEW_FORM_ID" ZOrder="72" LineWidth="11"> <Connector ID="DesignRelation:FK_TBPMO_FORM_VIEW_FORM_ID" ZOrder="71" LineWidth="11">
<RoutePoints> <RoutePoints>
<Point> <Point>
<X>437</X> <X>437</X>
@ -75,7 +74,7 @@
</Point> </Point>
</RoutePoints> </RoutePoints>
</Connector> </Connector>
<Connector ID="DesignRelation:FK_TBDD_DOKUMENTART_EINGID" ZOrder="68" LineWidth="11"> <Connector ID="DesignRelation:FK_TBDD_DOKUMENTART_EINGID" ZOrder="67" LineWidth="11">
<RoutePoints> <RoutePoints>
<Point> <Point>
<X>1701</X> <X>1701</X>
@ -87,7 +86,7 @@
</Point> </Point>
</RoutePoints> </RoutePoints>
</Connector> </Connector>
<Connector ID="DesignRelation:FK_TBDD_INDEX_AUTOM_DOCID" ZOrder="67" LineWidth="11"> <Connector ID="DesignRelation:FK_TBDD_INDEX_AUTOM_DOCID" ZOrder="66" LineWidth="11">
<RoutePoints> <RoutePoints>
<Point> <Point>
<X>1627</X> <X>1627</X>
@ -99,7 +98,7 @@
</Point> </Point>
</RoutePoints> </RoutePoints>
</Connector> </Connector>
<Connector ID="DesignRelation:FK_TBDD_INDEX_AUTOM_DOCID1" ZOrder="66" LineWidth="11"> <Connector ID="DesignRelation:FK_TBDD_INDEX_AUTOM_DOCID1" ZOrder="65" LineWidth="11">
<RoutePoints> <RoutePoints>
<Point> <Point>
<X>710</X> <X>710</X>
@ -115,7 +114,7 @@
</Point> </Point>
</RoutePoints> </RoutePoints>
</Connector> </Connector>
<Connector ID="DesignRelation:FK_TBPMO_FORM_FORM_TYPE_ID" ZOrder="63" LineWidth="11"> <Connector ID="DesignRelation:FK_TBPMO_FORM_FORM_TYPE_ID" ZOrder="62" LineWidth="11">
<RoutePoints> <RoutePoints>
<Point> <Point>
<X>1374</X> <X>1374</X>
@ -131,7 +130,7 @@
</Point> </Point>
</RoutePoints> </RoutePoints>
</Connector> </Connector>
<Connector ID="DesignRelation:FK_TBDD_GROUPS_USER_GROUP_ID" ZOrder="60" LineWidth="11"> <Connector ID="DesignRelation:FK_TBDD_GROUPS_USER_GROUP_ID" ZOrder="59" LineWidth="11">
<RoutePoints> <RoutePoints>
<Point> <Point>
<X>842</X> <X>842</X>
@ -143,7 +142,7 @@
</Point> </Point>
</RoutePoints> </RoutePoints>
</Connector> </Connector>
<Connector ID="DesignRelation:FK_TBDD_GROUPS_USER_USER_ID" ZOrder="59" LineWidth="11"> <Connector ID="DesignRelation:FK_TBDD_GROUPS_USER_USER_ID" ZOrder="58" LineWidth="11">
<RoutePoints> <RoutePoints>
<Point> <Point>
<X>107</X> <X>107</X>
@ -163,7 +162,7 @@
</Point> </Point>
</RoutePoints> </RoutePoints>
</Connector> </Connector>
<Connector ID="DesignRelation:FK_TBPMO_FOLLUPEMAIL_USER_FOLLUP_ID" ZOrder="56" LineWidth="11"> <Connector ID="DesignRelation:FK_TBPMO_FOLLUPEMAIL_USER_FOLLUP_ID" ZOrder="55" LineWidth="11">
<RoutePoints> <RoutePoints>
<Point> <Point>
<X>1632</X> <X>1632</X>
@ -175,7 +174,7 @@
</Point> </Point>
</RoutePoints> </RoutePoints>
</Connector> </Connector>
<Connector ID="DesignRelation:FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID" ZOrder="48" LineWidth="11"> <Connector ID="DesignRelation:FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID" ZOrder="47" LineWidth="11">
<RoutePoints> <RoutePoints>
<Point> <Point>
<X>1358</X> <X>1358</X>
@ -187,7 +186,7 @@
</Point> </Point>
</RoutePoints> </RoutePoints>
</Connector> </Connector>
<Connector ID="DesignRelation:FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_FORMID" ZOrder="47" LineWidth="11"> <Connector ID="DesignRelation:FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_FORMID" ZOrder="46" LineWidth="11">
<RoutePoints> <RoutePoints>
<Point> <Point>
<X>601</X> <X>601</X>
@ -203,7 +202,7 @@
</Point> </Point>
</RoutePoints> </RoutePoints>
</Connector> </Connector>
<Connector ID="DesignRelation:FK_TBPMO_TEMPLATE_ENTITY_ENTITY_ID" ZOrder="42" LineWidth="11"> <Connector ID="DesignRelation:FK_TBPMO_TEMPLATE_ENTITY_ENTITY_ID" ZOrder="41" LineWidth="11">
<RoutePoints> <RoutePoints>
<Point> <Point>
<X>618</X> <X>618</X>
@ -215,7 +214,7 @@
</Point> </Point>
</RoutePoints> </RoutePoints>
</Connector> </Connector>
<Connector ID="DesignRelation:FK_TBPMO_TEMPLATE_ENTITY_TEMPLATE_ID" ZOrder="41" LineWidth="11"> <Connector ID="DesignRelation:FK_TBPMO_TEMPLATE_ENTITY_TEMPLATE_ID" ZOrder="40" LineWidth="11">
<RoutePoints> <RoutePoints>
<Point> <Point>
<X>2461</X> <X>2461</X>
@ -231,7 +230,7 @@
</Point> </Point>
</RoutePoints> </RoutePoints>
</Connector> </Connector>
<Connector ID="DesignRelation:FK_TBPMO_TEMPLATE_PATTERN_TEMPLATE_ENT_ID" ZOrder="39" LineWidth="11"> <Connector ID="DesignRelation:FK_TBPMO_TEMPLATE_PATTERN_TEMPLATE_ENT_ID" ZOrder="38" LineWidth="11">
<RoutePoints> <RoutePoints>
<Point> <Point>
<X>2358</X> <X>2358</X>
@ -243,7 +242,7 @@
</Point> </Point>
</RoutePoints> </RoutePoints>
</Connector> </Connector>
<Connector ID="DesignRelation:FK_TBPMO_FOLLOW_UP_EMAIL_DATE_CTRL_ID" ZOrder="37" LineWidth="11"> <Connector ID="DesignRelation:FK_TBPMO_FOLLOW_UP_EMAIL_DATE_CTRL_ID" ZOrder="36" LineWidth="11">
<RoutePoints> <RoutePoints>
<Point> <Point>
<X>2134</X> <X>2134</X>
@ -259,7 +258,7 @@
</Point> </Point>
</RoutePoints> </RoutePoints>
</Connector> </Connector>
<Connector ID="DesignRelation:FK_TBPMO_FOLLOW_UP_EMAIL_DONE_CTRL_ID" ZOrder="36" LineWidth="11"> <Connector ID="DesignRelation:FK_TBPMO_FOLLOW_UP_EMAIL_DONE_CTRL_ID" ZOrder="35" LineWidth="11">
<RoutePoints> <RoutePoints>
<Point> <Point>
<X>2142</X> <X>2142</X>
@ -275,7 +274,7 @@
</Point> </Point>
</RoutePoints> </RoutePoints>
</Connector> </Connector>
<Connector ID="DesignRelation:FK_TBPMO_WD_IMPORT_PROFILE_IDX_1" ZOrder="24" LineWidth="11"> <Connector ID="DesignRelation:FK_TBPMO_WD_IMPORT_PROFILE_IDX_1" ZOrder="26" LineWidth="11">
<RoutePoints> <RoutePoints>
<Point> <Point>
<X>141</X> <X>141</X>
@ -291,7 +290,7 @@
</Point> </Point>
</RoutePoints> </RoutePoints>
</Connector> </Connector>
<Connector ID="DesignRelation:FK_TBPMO_RIGHT_GROUP_ENTITY_ID" ZOrder="16" LineWidth="11"> <Connector ID="DesignRelation:FK_TBPMO_RIGHT_GROUP_ENTITY_ID" ZOrder="18" LineWidth="11">
<RoutePoints> <RoutePoints>
<Point> <Point>
<X>22</X> <X>22</X>
@ -311,7 +310,7 @@
</Point> </Point>
</RoutePoints> </RoutePoints>
</Connector> </Connector>
<Connector ID="DesignRelation:FK_TBPMO_RIGHT_GROUP_GROUP_ID" ZOrder="15" LineWidth="11"> <Connector ID="DesignRelation:FK_TBPMO_RIGHT_GROUP_GROUP_ID" ZOrder="17" LineWidth="11">
<RoutePoints> <RoutePoints>
<Point> <Point>
<X>14</X> <X>14</X>
@ -331,7 +330,7 @@
</Point> </Point>
</RoutePoints> </RoutePoints>
</Connector> </Connector>
<Connector ID="DesignRelation:FK_TBPMO_STRUCTURE_NODES_CONFIGURATION_ENTITY_ID" ZOrder="10" LineWidth="11"> <Connector ID="DesignRelation:FK_TBPMO_STRUCTURE_NODES_CONFIGURATION_ENTITY_ID" ZOrder="12" LineWidth="11">
<RoutePoints> <RoutePoints>
<Point> <Point>
<X>389</X> <X>389</X>
@ -347,7 +346,7 @@
</Point> </Point>
</RoutePoints> </RoutePoints>
</Connector> </Connector>
<Connector ID="DesignRelation:FK_TBPMO_FORM_VIEW_FORM_ID1" ZOrder="9" LineWidth="11"> <Connector ID="DesignRelation:FK_TBPMO_FORM_VIEW_FORM_ID1" ZOrder="11" LineWidth="11">
<RoutePoints> <RoutePoints>
<Point> <Point>
<X>158</X> <X>158</X>
@ -367,7 +366,7 @@
</Point> </Point>
</RoutePoints> </RoutePoints>
</Connector> </Connector>
<Connector ID="DesignRelation:FK_TBPMO_RECORD_VARIANT_RECORD_ID" ZOrder="1" LineWidth="11"> <Connector ID="DesignRelation:FK_TBPMO_RECORD_VARIANT_RECORD_ID" ZOrder="3" LineWidth="11">
<RoutePoints> <RoutePoints>
<Point> <Point>
<X>961</X> <X>961</X>

2
app/DD-Record-Organiser/ModuleHelperMethods.vb
View File

@ -150,7 +150,7 @@ Module ModuleHelperMethods
Public Function GetControlID_for_RecordID(name As String, recID As Integer) As Integer Public Function GetControlID_for_RecordID(name As String, recID As Integer) As Integer
Try Try
Dim SQL = "SELECT CONTROL_ID FROM VWPMO_VALUES WHERE RECORD_ID = " & recID & " and CONTROL_NAME = '" & name & "'" Dim SQL = "SELECT CONTROL_ID FROM VWPMO_VALUES WHERE RECORD_ID = " & recID & " and CONTROL_NAME = '" & name & "'"
Dim ID As Integer = ClassDatabase.Execute_Scalar(SQL) Dim ID As Integer = ClassDatabase.Execute_Scalar(SQL, True)
If ID > 0 Then If ID > 0 Then
Return ID Return ID
Else Else

58
app/DD-Record-Organiser/ModuleMySettings.vb
View File

@ -6,6 +6,7 @@ Module ModuleMySettings
Dim ConfigPath As String = Path.Combine(Application.UserAppDataPath(), "UserConfig.xml") Dim ConfigPath As String = Path.Combine(Application.UserAppDataPath(), "UserConfig.xml")
Public MyConnectionString As String = "" Public MyConnectionString As String = ""
Public LogErrorsOnly As Boolean = True Public LogErrorsOnly As Boolean = True
Public Sett_TaskOverviewKeepInFront As Boolean = True Public Sett_TaskOverviewKeepInFront As Boolean = True
Public Sett_LoadWD_Docs As Boolean = True Public Sett_LoadWD_Docs As Boolean = True
@ -148,7 +149,37 @@ Module ModuleMySettings
Else Else
MyConnectionString = "" MyConnectionString = ""
End If End If
Case "MyProxyConnectionString"
Dim connstring As String
'Den ConnectonString mit verschlüsseltem PW laden
Dim csb As New SqlClient.SqlConnectionStringBuilder
csb.ConnectionString = Row.Item("Value")
If Not csb.ConnectionString = "" Then
If csb.ConnectionString.Contains("Password=") Then
'sa-
'Jetzt das Passwort entschlüsseln
Dim PWplainText As String
Dim wrapper As New ClassEncryption("!35452didalog=")
' DecryptData throws if the wrong password is used.
Try
PWplainText = wrapper.DecryptData(csb.Password)
connstring = Row.Item("Value").ToString.Replace(csb.Password, PWplainText)
Catch ex As Exception
ClassLogger.Add("- the Password '" & csb.Password & "' could not be decrypted", False)
connstring = ""
End Try
Else
'Windows-Auth
connstring = Row.Item("Value").ToString
End If
ClassProxy.MyPROXYConnectionString = connstring
Else
ClassProxy.MyPROXYConnectionString = ""
End If
Case "MyLinkedServer"
ClassProxy.MyLinkedServer = Row.Item("Value")
Case "LogErrorsOnly" Case "LogErrorsOnly"
LogErrorsOnly = CBool(Row.Item("Value")) LogErrorsOnly = CBool(Row.Item("Value"))
Case "Sett_TaskOverviewKeepInFront" Case "Sett_TaskOverviewKeepInFront"
@ -223,6 +254,22 @@ Module ModuleMySettings
DT.Rows.Add(newRow) DT.Rows.Add(newRow)
DT.WriteXml(ConfigPath) DT.WriteXml(ConfigPath)
End If End If
If rowresult.Contains("MyProxyConnectionString") = False Then
Dim newRow As DataRow = DT.NewRow()
newRow("ConfigName") = "MyProxyConnectionString"
newRow("Value") = ""
DT.Rows.Add(newRow)
DT.WriteXml(ConfigPath)
End If
If rowresult.Contains("MyLinkedServer") = False Then
Dim newRow As DataRow = DT.NewRow()
newRow("ConfigName") = "MyLinkedServer"
newRow("Value") = ""
DT.Rows.Add(newRow)
DT.WriteXml(ConfigPath)
End If
Catch ex As Exception Catch ex As Exception
MsgBox("Error in LoadMyConfig" & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("Error in LoadMyConfig" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
ClassLogger.Add("Error in LoadMyConfig: " & ex.Message, True) ClassLogger.Add("Error in LoadMyConfig: " & ex.Message, True)
@ -318,7 +365,14 @@ Module ModuleMySettings
Dim newRow13 As DataRow = table.NewRow() Dim newRow13 As DataRow = table.NewRow()
newRow13("ConfigName") = "PATH_ADDON" newRow13("ConfigName") = "PATH_ADDON"
newRow13("Value") = "" newRow13("Value") = ""
table.Rows.Add(newRow13) Dim newRow14 As DataRow = table.NewRow()
newRow14("ConfigName") = "MyProxyConnectionString"
newRow14("Value") = ""
table.Rows.Add(newRow14)
Dim newRow15 As DataRow = table.NewRow()
newRow15("ConfigName") = "MyLinkedServer"
newRow15("Value") = ""
table.Rows.Add(newRow15)
table.AcceptChanges() table.AcceptChanges()
ClassLogger.Add(">> CreateConfigTable su...", False) ClassLogger.Add(">> CreateConfigTable su...", False)
@ -360,7 +414,7 @@ Module ModuleMySettings
Public Function Settings_LoadBasicConfig() Public Function Settings_LoadBasicConfig()
Try Try
Dim sql As String = "select * from tbdd_Modules where UPPER(NAME) = UPPER('Record-Organizer')" Dim sql As String = "select * from tbdd_Modules where UPPER(NAME) = UPPER('Record-Organizer')"
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql) Dim DT As DataTable = ClassDatabase.Return_Datatable(sql, False)
If DT.Rows.Count = 1 Then If DT.Rows.Count = 1 Then
vWLaufwerk = DT.Rows(0).Item("STRING1") vWLaufwerk = DT.Rows(0).Item("STRING1")
vVERSION_DELIMITER = DT.Rows(0).Item("VERSION_DELIMITER") vVERSION_DELIMITER = DT.Rows(0).Item("VERSION_DELIMITER")

24
app/DD-Record-Organiser/ModuleRuntimeVariables.vb
View File

@ -4,10 +4,7 @@
Public MAIN_FORM As frmMain = Nothing Public MAIN_FORM As frmMain = Nothing
Public ERROR_INIT = "NONE" Public ERROR_INIT = "NONE"
' Diese Werte müssen später zur Laufzeit geladen werden ' Diese Werte müssen später zur Laufzeit geladen werden
Public CURRENT_PARENT_ENTITY_ID As Integer Public CURRENT_PARENT_ENTITY_ID As Integer
Public CURRENT_PARENT_RECORD_ID As Integer Public CURRENT_PARENT_RECORD_ID As Integer
Public CURRENT_ACT_LEVEL As Integer Public CURRENT_ACT_LEVEL As Integer
@ -46,12 +43,16 @@
Public CURRENT_FILEIN_WD As String Public CURRENT_FILEIN_WD As String
Public CURRENT_DOC_ID Public CURRENT_DOC_ID
Public CURRENT_NAVIGATION_TYPE As String = "DEFAULT"
Public CURRENT_SELECTED_NODE As TreeNode
Public NEW_RECORD_ID As Integer Public NEW_RECORD_ID As Integer
Public LOGPATH As String Public LOGPATH As String
Public INTEGER1 As Integer Public INTEGER1 As Integer
Public STRING1 As String Public STRING1 As String
Public BOOLEAN1 As Boolean = False
Public JUMP_STATE As Integer Public JUMP_STATE As Integer
Public JUMP_RECORD_ID As Integer Public JUMP_RECORD_ID As Integer
@ -62,7 +63,7 @@
Public LICENSE_COUNT As Integer = 0 Public LICENSE_COUNT As Integer = 0
Public LICENSE_DOSSIER_COUNT As Integer = 0 Public LICENSE_DOSSIER_COUNT As Integer = 0
Public LICENSE_SAP_Connect As Boolean = False Public LICENSE_SAP_Connect As Boolean = False
Public LICENSE_SITE As Boolean = False Public LICENSE_SITE_PROXY As Boolean = False
Public LICENSE_DATE As Date Public LICENSE_DATE As Date
Public CONNECTION_CHANGED As Boolean = False Public CONNECTION_CHANGED As Boolean = False
@ -79,20 +80,24 @@
Public ENTITY_RELOAD_AFT_CONTROL_LOAD As Boolean = False Public ENTITY_RELOAD_AFT_CONTROL_LOAD As Boolean = False
Public CURRENT_COL_COUNT As Integer = 0 Public CURRENT_COL_COUNT As Integer = 0
Public CURRENT_ENTITY_DATATABLE As DataTable
Public CURRENT_ENTITY_VALUES_DT As DataTable
Public CURRENT_CONTROL_VALUES As DataTable Public CURRENT_CONTROL_VALUES As DataTable
Public CURRENT_SQL_AUTO_VALUES_DT As DataTable Public CURRENT_SQL_AUTO_VALUES_DT As DataTable
Public CURRENT_ENTITYSQL_WHERE As String Public CURRENT_ENTITYSQL_WHERE As String
Public CURRENT_TBPMO_INDEX_MAN As DataTable Public CURRENT_TBPMO_INDEX_MAN As DataTable
Public CURRENT_DT_TBPMO_ENTITY_RIGHT_CONTROLS As DataTable Public CURRENT_DT_TBPMO_ENTITY_RIGHT_CONTROLS As DataTable
Public CURRENT_DT_DOC_ENTITY_SEARCH As DataTable Public CURRENT_DT_DOC_ENTITY_SEARCH As DataTable
Public CURRENT_DT_NODE_CONFIGURABLE_NODES As DataTable
Public CURRENT_DOC_RESULTS As DataTable Public CURRENT_DOC_RESULTS As DataTable
Public CURRENT_DOC_DROPDOWN As DataTable Public CURRENT_DOC_DROPDOWN As DataTable
Public CURRENT_PARENT_DT As DataTable Public CURRENT_PARENT_DT As DataTable
Public CURRENT_TBPMO_FILES_USER As DataTable
Public CURRENT_SEARCH_TYPE As String = "RECORD"
Public CURRENT_FULLTEXT_PATTERN As String
Public CURRENT_DT_SELECTED_FILES As DataTable
Public MASS_RECORD_IDs2CHANGE As ArrayList Public MASS_RECORD_IDs2CHANGE As ArrayList
Public MASS_COLUMN_LIST As ArrayList Public MASS_COLUMN_LIST As ArrayList
@ -106,10 +111,13 @@
Public CURRENT_DOCVIEW_PATH As String Public CURRENT_DOCVIEW_PATH As String
Public CURRENT_DOCVIEW Public CURRENT_DOCVIEW
Public CURRENT_NODE_CONFIGURABLE_ID As Integer
Public CURRENT_CHECK_SUBFOLDER As Boolean = False Public CURRENT_CHECK_SUBFOLDER As Boolean = False
Public CURRENT_SUBFOLDER As String = "" Public CURRENT_SUBFOLDER As String = ""
Public RECORD_CHANGED As Boolean = False Public RECORD_CHANGED As Boolean = False
Public CURRENT_COMBOBOX_SELECTED_INDEX As Integer = 0 Public CURRENT_COMBOBOX_SELECTED_INDEX As Integer = 0
Public CURRENT_COMBOBOX_SELECTED_TEXT As String = "" Public CURRENT_COMBOBOX_SELECTED_TEXT As String = ""
Public CURRENT_TEXTBOX_SELECTED_TEXT As String = "" Public CURRENT_TEXTBOX_SELECTED_TEXT As String = ""

2
app/DD-Record-Organiser/My Project/AssemblyInfo.vb
View File

@ -33,7 +33,7 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("2.4.8.0")> <Assembly: AssemblyVersion("2.4.8.2")>
<Assembly: AssemblyFileVersion("1.0.0.0")> <Assembly: AssemblyFileVersion("1.0.0.0")>
<Assembly: NeutralResourcesLanguageAttribute("")> <Assembly: NeutralResourcesLanguageAttribute("")>

6
app/DD-Record-Organiser/My Project/Resources.resx
View File

@ -652,6 +652,9 @@
<data name="page_refresh" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="page_refresh" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\page_refresh.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\page_refresh.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="error1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\error.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Checkbox" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="Checkbox" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Checkbox.PNG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\Checkbox.PNG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
@ -715,7 +718,4 @@
<data name="NetworkPipes_32xLG" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="NetworkPipes_32xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\NetworkPipes_32xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\NetworkPipes_32xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="error1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\error.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
</root> </root>

15
app/DD-Record-Organiser/My Project/licenses.licx
View File

@ -1,10 +1,11 @@
DevExpress.XtraEditors.DateEdit, DevExpress.XtraEditors.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.ProgressBarControl, DevExpress.XtraEditors.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraEditors.ProgressBarControl, DevExpress.XtraEditors.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraMap.MapControl, DevExpress.XtraMap.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraCharts.ChartControl, DevExpress.XtraCharts.v15.2.UI, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraBars.Navigation.TileNavPane, DevExpress.XtraBars.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraTreeList.TreeList, DevExpress.XtraTreeList.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraTreeList.TreeList, DevExpress.XtraTreeList.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraBars.Navigation.TileNavPane, DevExpress.XtraBars.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraPdfViewer.PdfViewer, DevExpress.XtraPdfViewer.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraMap.MapControl, DevExpress.XtraMap.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraScheduler.SchedulerControl, DevExpress.XtraScheduler.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraScheduler.SchedulerControl, DevExpress.XtraScheduler.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.DateEdit, DevExpress.XtraEditors.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraCharts.ChartControl, DevExpress.XtraCharts.v15.2.UI, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a

93
app/DD-Record-Organiser/frmConfig_Basic.Designer.vb generated
View File

@ -23,9 +23,14 @@ Partial Class frmConfig_Basic
<System.Diagnostics.DebuggerStepThrough()> _ <System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent() Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmConfig_Basic)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmConfig_Basic))
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.TabControl1 = New System.Windows.Forms.TabControl() Me.TabControl1 = New System.Windows.Forms.TabControl()
Me.TabPage1 = New System.Windows.Forms.TabPage() Me.TabPage1 = New System.Windows.Forms.TabPage()
Me.lblLinkedServer = New System.Windows.Forms.Label()
Me.txtLinkedServer = New System.Windows.Forms.TextBox()
Me.btndeleteProxy = New System.Windows.Forms.Button()
Me.rbConn_Proxy = New System.Windows.Forms.RadioButton()
Me.rbConnDefault = New System.Windows.Forms.RadioButton()
Me.chkbxUserAut = New System.Windows.Forms.CheckBox() Me.chkbxUserAut = New System.Windows.Forms.CheckBox()
Me.Label5 = New System.Windows.Forms.Label() Me.Label5 = New System.Windows.Forms.Label()
Me.cmbDatenbank = New System.Windows.Forms.ComboBox() Me.cmbDatenbank = New System.Windows.Forms.ComboBox()
@ -85,15 +90,21 @@ Partial Class frmConfig_Basic
' '
'TabControl1 'TabControl1
' '
resources.ApplyResources(Me.TabControl1, "TabControl1")
Me.TabControl1.Controls.Add(Me.TabPage1) Me.TabControl1.Controls.Add(Me.TabPage1)
Me.TabControl1.Controls.Add(Me.TabPage2) Me.TabControl1.Controls.Add(Me.TabPage2)
Me.TabControl1.Controls.Add(Me.TabPage3) Me.TabControl1.Controls.Add(Me.TabPage3)
resources.ApplyResources(Me.TabControl1, "TabControl1")
Me.TabControl1.Name = "TabControl1" Me.TabControl1.Name = "TabControl1"
Me.TabControl1.SelectedIndex = 0 Me.TabControl1.SelectedIndex = 0
' '
'TabPage1 'TabPage1
' '
resources.ApplyResources(Me.TabPage1, "TabPage1")
Me.TabPage1.Controls.Add(Me.lblLinkedServer)
Me.TabPage1.Controls.Add(Me.txtLinkedServer)
Me.TabPage1.Controls.Add(Me.btndeleteProxy)
Me.TabPage1.Controls.Add(Me.rbConn_Proxy)
Me.TabPage1.Controls.Add(Me.rbConnDefault)
Me.TabPage1.Controls.Add(Me.chkbxUserAut) Me.TabPage1.Controls.Add(Me.chkbxUserAut)
Me.TabPage1.Controls.Add(Me.Label5) Me.TabPage1.Controls.Add(Me.Label5)
Me.TabPage1.Controls.Add(Me.cmbDatenbank) Me.TabPage1.Controls.Add(Me.cmbDatenbank)
@ -106,10 +117,39 @@ Partial Class frmConfig_Basic
Me.TabPage1.Controls.Add(Me.txtUser) Me.TabPage1.Controls.Add(Me.txtUser)
Me.TabPage1.Controls.Add(Me.txtPasswort) Me.TabPage1.Controls.Add(Me.txtPasswort)
Me.TabPage1.Controls.Add(Me.BtnConnect) Me.TabPage1.Controls.Add(Me.BtnConnect)
resources.ApplyResources(Me.TabPage1, "TabPage1")
Me.TabPage1.Name = "TabPage1" Me.TabPage1.Name = "TabPage1"
Me.TabPage1.UseVisualStyleBackColor = True Me.TabPage1.UseVisualStyleBackColor = True
' '
'lblLinkedServer
'
resources.ApplyResources(Me.lblLinkedServer, "lblLinkedServer")
Me.lblLinkedServer.Name = "lblLinkedServer"
'
'txtLinkedServer
'
resources.ApplyResources(Me.txtLinkedServer, "txtLinkedServer")
Me.txtLinkedServer.Name = "txtLinkedServer"
'
'btndeleteProxy
'
resources.ApplyResources(Me.btndeleteProxy, "btndeleteProxy")
Me.btndeleteProxy.Name = "btndeleteProxy"
Me.btndeleteProxy.UseVisualStyleBackColor = True
'
'rbConn_Proxy
'
resources.ApplyResources(Me.rbConn_Proxy, "rbConn_Proxy")
Me.rbConn_Proxy.Name = "rbConn_Proxy"
Me.rbConn_Proxy.UseVisualStyleBackColor = True
'
'rbConnDefault
'
resources.ApplyResources(Me.rbConnDefault, "rbConnDefault")
Me.rbConnDefault.Checked = True
Me.rbConnDefault.Name = "rbConnDefault"
Me.rbConnDefault.TabStop = True
Me.rbConnDefault.UseVisualStyleBackColor = True
'
'chkbxUserAut 'chkbxUserAut
' '
resources.ApplyResources(Me.chkbxUserAut, "chkbxUserAut") resources.ApplyResources(Me.chkbxUserAut, "chkbxUserAut")
@ -123,8 +163,8 @@ Partial Class frmConfig_Basic
' '
'cmbDatenbank 'cmbDatenbank
' '
Me.cmbDatenbank.FormattingEnabled = True
resources.ApplyResources(Me.cmbDatenbank, "cmbDatenbank") resources.ApplyResources(Me.cmbDatenbank, "cmbDatenbank")
Me.cmbDatenbank.FormattingEnabled = True
Me.cmbDatenbank.Name = "cmbDatenbank" Me.cmbDatenbank.Name = "cmbDatenbank"
' '
'Label4 'Label4
@ -156,32 +196,33 @@ Partial Class frmConfig_Basic
' '
'txtServer 'txtServer
' '
Me.txtServer.ForeColor = System.Drawing.SystemColors.WindowText
resources.ApplyResources(Me.txtServer, "txtServer") resources.ApplyResources(Me.txtServer, "txtServer")
Me.txtServer.ForeColor = System.Drawing.SystemColors.WindowText
Me.txtServer.Name = "txtServer" Me.txtServer.Name = "txtServer"
' '
'txtUser 'txtUser
' '
Me.txtUser.ForeColor = System.Drawing.SystemColors.WindowText
resources.ApplyResources(Me.txtUser, "txtUser") resources.ApplyResources(Me.txtUser, "txtUser")
Me.txtUser.ForeColor = System.Drawing.SystemColors.WindowText
Me.txtUser.Name = "txtUser" Me.txtUser.Name = "txtUser"
' '
'txtPasswort 'txtPasswort
' '
Me.txtPasswort.ForeColor = System.Drawing.SystemColors.WindowText
resources.ApplyResources(Me.txtPasswort, "txtPasswort") resources.ApplyResources(Me.txtPasswort, "txtPasswort")
Me.txtPasswort.ForeColor = System.Drawing.SystemColors.WindowText
Me.txtPasswort.Name = "txtPasswort" Me.txtPasswort.Name = "txtPasswort"
Me.txtPasswort.UseSystemPasswordChar = True Me.txtPasswort.UseSystemPasswordChar = True
' '
'BtnConnect 'BtnConnect
' '
Me.BtnConnect.Image = Global.DD_Record_Organiser.My.Resources.Resources.database_go1
resources.ApplyResources(Me.BtnConnect, "BtnConnect") resources.ApplyResources(Me.BtnConnect, "BtnConnect")
Me.BtnConnect.Image = Global.DD_Record_Organiser.My.Resources.Resources.database_go1
Me.BtnConnect.Name = "BtnConnect" Me.BtnConnect.Name = "BtnConnect"
Me.BtnConnect.UseVisualStyleBackColor = True Me.BtnConnect.UseVisualStyleBackColor = True
' '
'TabPage2 'TabPage2
' '
resources.ApplyResources(Me.TabPage2, "TabPage2")
Me.TabPage2.Controls.Add(Me.Button4) Me.TabPage2.Controls.Add(Me.Button4)
Me.TabPage2.Controls.Add(Me.GroupBox5) Me.TabPage2.Controls.Add(Me.GroupBox5)
Me.TabPage2.Controls.Add(Me.GroupBox4) Me.TabPage2.Controls.Add(Me.GroupBox4)
@ -192,23 +233,22 @@ Partial Class frmConfig_Basic
Me.TabPage2.Controls.Add(Me.Button1) Me.TabPage2.Controls.Add(Me.Button1)
Me.TabPage2.Controls.Add(Me.btnApplicationFolder) Me.TabPage2.Controls.Add(Me.btnApplicationFolder)
Me.TabPage2.Controls.Add(Me.LinkLabel1) Me.TabPage2.Controls.Add(Me.LinkLabel1)
resources.ApplyResources(Me.TabPage2, "TabPage2")
Me.TabPage2.Name = "TabPage2" Me.TabPage2.Name = "TabPage2"
Me.TabPage2.UseVisualStyleBackColor = True Me.TabPage2.UseVisualStyleBackColor = True
' '
'Button4 'Button4
' '
Me.Button4.Image = Global.DD_Record_Organiser.My.Resources.Resources.email_go
resources.ApplyResources(Me.Button4, "Button4") resources.ApplyResources(Me.Button4, "Button4")
Me.Button4.Image = Global.DD_Record_Organiser.My.Resources.Resources.email_go
Me.Button4.Name = "Button4" Me.Button4.Name = "Button4"
Me.Button4.UseVisualStyleBackColor = True Me.Button4.UseVisualStyleBackColor = True
' '
'GroupBox5 'GroupBox5
' '
resources.ApplyResources(Me.GroupBox5, "GroupBox5")
Me.GroupBox5.Controls.Add(Me.Label11) Me.GroupBox5.Controls.Add(Me.Label11)
Me.GroupBox5.Controls.Add(Me.Label10) Me.GroupBox5.Controls.Add(Me.Label10)
Me.GroupBox5.Controls.Add(Me.txtTask_Popup) Me.GroupBox5.Controls.Add(Me.txtTask_Popup)
resources.ApplyResources(Me.GroupBox5, "GroupBox5")
Me.GroupBox5.Name = "GroupBox5" Me.GroupBox5.Name = "GroupBox5"
Me.GroupBox5.TabStop = False Me.GroupBox5.TabStop = False
' '
@ -229,9 +269,9 @@ Partial Class frmConfig_Basic
' '
'GroupBox4 'GroupBox4
' '
resources.ApplyResources(Me.GroupBox4, "GroupBox4")
Me.GroupBox4.Controls.Add(Me.Button3) Me.GroupBox4.Controls.Add(Me.Button3)
Me.GroupBox4.Controls.Add(Me.cmbLanguage) Me.GroupBox4.Controls.Add(Me.cmbLanguage)
resources.ApplyResources(Me.GroupBox4, "GroupBox4")
Me.GroupBox4.Name = "GroupBox4" Me.GroupBox4.Name = "GroupBox4"
Me.GroupBox4.TabStop = False Me.GroupBox4.TabStop = False
' '
@ -243,17 +283,17 @@ Partial Class frmConfig_Basic
' '
'cmbLanguage 'cmbLanguage
' '
resources.ApplyResources(Me.cmbLanguage, "cmbLanguage")
Me.cmbLanguage.FormattingEnabled = True Me.cmbLanguage.FormattingEnabled = True
Me.cmbLanguage.Items.AddRange(New Object() {resources.GetString("cmbLanguage.Items"), resources.GetString("cmbLanguage.Items1")}) Me.cmbLanguage.Items.AddRange(New Object() {resources.GetString("cmbLanguage.Items"), resources.GetString("cmbLanguage.Items1")})
resources.ApplyResources(Me.cmbLanguage, "cmbLanguage")
Me.cmbLanguage.Name = "cmbLanguage" Me.cmbLanguage.Name = "cmbLanguage"
' '
'GroupBox3 'GroupBox3
' '
resources.ApplyResources(Me.GroupBox3, "GroupBox3")
Me.GroupBox3.Controls.Add(Me.Label7) Me.GroupBox3.Controls.Add(Me.Label7)
Me.GroupBox3.Controls.Add(Me.cmbConstructor) Me.GroupBox3.Controls.Add(Me.cmbConstructor)
Me.GroupBox3.Controls.Add(Me.CheckBox1) Me.GroupBox3.Controls.Add(Me.CheckBox1)
resources.ApplyResources(Me.GroupBox3, "GroupBox3")
Me.GroupBox3.Name = "GroupBox3" Me.GroupBox3.Name = "GroupBox3"
Me.GroupBox3.TabStop = False Me.GroupBox3.TabStop = False
' '
@ -264,8 +304,8 @@ Partial Class frmConfig_Basic
' '
'cmbConstructor 'cmbConstructor
' '
Me.cmbConstructor.FormattingEnabled = True
resources.ApplyResources(Me.cmbConstructor, "cmbConstructor") resources.ApplyResources(Me.cmbConstructor, "cmbConstructor")
Me.cmbConstructor.FormattingEnabled = True
Me.cmbConstructor.Name = "cmbConstructor" Me.cmbConstructor.Name = "cmbConstructor"
' '
'CheckBox1 'CheckBox1
@ -279,11 +319,11 @@ Partial Class frmConfig_Basic
' '
'GroupBox2 'GroupBox2
' '
resources.ApplyResources(Me.GroupBox2, "GroupBox2")
Me.GroupBox2.Controls.Add(Me.CheckBoxWD_ShowEnitityDocs) Me.GroupBox2.Controls.Add(Me.CheckBoxWD_ShowEnitityDocs)
Me.GroupBox2.Controls.Add(Me.chkbxloadWDDocs) Me.GroupBox2.Controls.Add(Me.chkbxloadWDDocs)
Me.GroupBox2.Controls.Add(Me.Label6) Me.GroupBox2.Controls.Add(Me.Label6)
Me.GroupBox2.Controls.Add(Me.txtwdSearch_Count) Me.GroupBox2.Controls.Add(Me.txtwdSearch_Count)
resources.ApplyResources(Me.GroupBox2, "GroupBox2")
Me.GroupBox2.Name = "GroupBox2" Me.GroupBox2.Name = "GroupBox2"
Me.GroupBox2.TabStop = False Me.GroupBox2.TabStop = False
' '
@ -311,8 +351,8 @@ Partial Class frmConfig_Basic
' '
'GroupBox1 'GroupBox1
' '
Me.GroupBox1.Controls.Add(Me.chkboxQuickMenue)
resources.ApplyResources(Me.GroupBox1, "GroupBox1") resources.ApplyResources(Me.GroupBox1, "GroupBox1")
Me.GroupBox1.Controls.Add(Me.chkboxQuickMenue)
Me.GroupBox1.Name = "GroupBox1" Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.TabStop = False Me.GroupBox1.TabStop = False
' '
@ -330,15 +370,15 @@ Partial Class frmConfig_Basic
' '
'Button1 'Button1
' '
Me.Button1.Image = Global.DD_Record_Organiser.My.Resources.Resources.folder_go
resources.ApplyResources(Me.Button1, "Button1") resources.ApplyResources(Me.Button1, "Button1")
Me.Button1.Image = Global.DD_Record_Organiser.My.Resources.Resources.folder_go
Me.Button1.Name = "Button1" Me.Button1.Name = "Button1"
Me.Button1.UseVisualStyleBackColor = True Me.Button1.UseVisualStyleBackColor = True
' '
'btnApplicationFolder 'btnApplicationFolder
' '
Me.btnApplicationFolder.Image = Global.DD_Record_Organiser.My.Resources.Resources.folder_go
resources.ApplyResources(Me.btnApplicationFolder, "btnApplicationFolder") resources.ApplyResources(Me.btnApplicationFolder, "btnApplicationFolder")
Me.btnApplicationFolder.Image = Global.DD_Record_Organiser.My.Resources.Resources.folder_go
Me.btnApplicationFolder.Name = "btnApplicationFolder" Me.btnApplicationFolder.Name = "btnApplicationFolder"
Me.btnApplicationFolder.UseVisualStyleBackColor = True Me.btnApplicationFolder.UseVisualStyleBackColor = True
' '
@ -350,6 +390,7 @@ Partial Class frmConfig_Basic
' '
'TabPage3 'TabPage3
' '
resources.ApplyResources(Me.TabPage3, "TabPage3")
Me.TabPage3.Controls.Add(Me.chkSubfolder) Me.TabPage3.Controls.Add(Me.chkSubfolder)
Me.TabPage3.Controls.Add(Me.Label9) Me.TabPage3.Controls.Add(Me.Label9)
Me.TabPage3.Controls.Add(Me.DataGridView1) Me.TabPage3.Controls.Add(Me.DataGridView1)
@ -358,7 +399,6 @@ Partial Class frmConfig_Basic
Me.TabPage3.Controls.Add(Me.txtScanFolderWatch) Me.TabPage3.Controls.Add(Me.txtScanFolderWatch)
Me.TabPage3.Controls.Add(Me.Label8) Me.TabPage3.Controls.Add(Me.Label8)
Me.TabPage3.Controls.Add(Me.btnstartstop2) Me.TabPage3.Controls.Add(Me.btnstartstop2)
resources.ApplyResources(Me.TabPage3, "TabPage3")
Me.TabPage3.Name = "TabPage3" Me.TabPage3.Name = "TabPage3"
Me.TabPage3.UseVisualStyleBackColor = True Me.TabPage3.UseVisualStyleBackColor = True
' '
@ -375,9 +415,9 @@ Partial Class frmConfig_Basic
' '
'DataGridView1 'DataGridView1
' '
DataGridViewCellStyle1.BackColor = System.Drawing.Color.Aqua
Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
resources.ApplyResources(Me.DataGridView1, "DataGridView1") resources.ApplyResources(Me.DataGridView1, "DataGridView1")
DataGridViewCellStyle2.BackColor = System.Drawing.Color.Aqua
Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.DataGridView1.Name = "DataGridView1" Me.DataGridView1.Name = "DataGridView1"
' '
@ -395,8 +435,8 @@ Partial Class frmConfig_Basic
' '
'txtScanFolderWatch 'txtScanFolderWatch
' '
Me.txtScanFolderWatch.BackColor = System.Drawing.Color.LemonChiffon
resources.ApplyResources(Me.txtScanFolderWatch, "txtScanFolderWatch") resources.ApplyResources(Me.txtScanFolderWatch, "txtScanFolderWatch")
Me.txtScanFolderWatch.BackColor = System.Drawing.Color.LemonChiffon
Me.txtScanFolderWatch.Name = "txtScanFolderWatch" Me.txtScanFolderWatch.Name = "txtScanFolderWatch"
' '
'Label8 'Label8
@ -406,8 +446,8 @@ Partial Class frmConfig_Basic
' '
'btnstartstop2 'btnstartstop2
' '
Me.btnstartstop2.Image = Global.DD_Record_Organiser.My.Resources.Resources.bell_go
resources.ApplyResources(Me.btnstartstop2, "btnstartstop2") resources.ApplyResources(Me.btnstartstop2, "btnstartstop2")
Me.btnstartstop2.Image = Global.DD_Record_Organiser.My.Resources.Resources.bell_go
Me.btnstartstop2.Name = "btnstartstop2" Me.btnstartstop2.Name = "btnstartstop2"
Me.btnstartstop2.UseVisualStyleBackColor = True Me.btnstartstop2.UseVisualStyleBackColor = True
' '
@ -486,4 +526,9 @@ Partial Class frmConfig_Basic
Friend WithEvents txtTask_Popup As System.Windows.Forms.TextBox Friend WithEvents txtTask_Popup As System.Windows.Forms.TextBox
Friend WithEvents Button4 As System.Windows.Forms.Button Friend WithEvents Button4 As System.Windows.Forms.Button
Friend WithEvents chkSubfolder As System.Windows.Forms.CheckBox Friend WithEvents chkSubfolder As System.Windows.Forms.CheckBox
Friend WithEvents rbConn_Proxy As System.Windows.Forms.RadioButton
Friend WithEvents rbConnDefault As System.Windows.Forms.RadioButton
Friend WithEvents btndeleteProxy As System.Windows.Forms.Button
Friend WithEvents lblLinkedServer As System.Windows.Forms.Label
Friend WithEvents txtLinkedServer As System.Windows.Forms.TextBox
End Class End Class

135
app/DD-Record-Organiser/frmConfig_Basic.en-US.resx
View File

@ -117,19 +117,49 @@
<resheader name="writer"> <resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader> </resheader>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" /> <data name="TabPage1.Text" xml:space="preserve">
<data name="chkbxUserAut.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms"> <value>Database Connection</value>
<value>NoControl</value> </data>
<data name="TabPage2.Text" xml:space="preserve">
<value>Configurations</value>
</data> </data>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" /> <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="lblLinkedServer.Location" type="System.Drawing.Point, System.Drawing">
<value>6, 188</value>
</data>
<data name="txtLinkedServer.Location" type="System.Drawing.Point, System.Drawing">
<value>11, 204</value>
</data>
<data name="btndeleteProxy.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGOfPtRkwAAACBjSFJNAAB6
JQAAgIMAAPn/AACA6QAAdTAAAOpgAAA6mAAAF2+SX8VGAAAACXBIWXMAAAsTAAALEwEAmpwYAAACLUlE
QVQ4T52TvY/ScBjHuVIRKHA9JAgnL+VoC7TX0kLLS6EvFBTa0uj5J7gYF+PsfpOTMrg4ORgHY+LCYJwc
TYyJiYuDLu7GxHgxd/Hnr5fA8TZcrsmnzfN9nufTNPnVBwDw2ZYljGzr3ciyTNu2EC87L75eb+DvD67f
hU9g9vt/HNs5cMaOf9Owohro7YNbe8PhjfuzzBOgkDuabk6bbRXoxuBkNLIeus6yhKyIwY5umo5tHxmG
+Wwu8G5QkIa0jN5gqnR1oOkGuOk6b1x3jHl9uaWGhpb1UtXNY1luPmJ4KbIkmAElAcgD3egfa5oJxq77
oq3ovKJoE7XbBbwoTWhG2F7cWRJ4dFR1S9fNCvykT41mB9TqjSOxXvtJM9zrYokLrc4vFYtUBcngq9Lf
tqICvlr7RhQr8U1za4FHXZIIurT/mePFf1AEJLkFGJb7uml2LRBrcp4us1+g4KRcYV8lkmkplyenglgH
VIm9tzq/VJRZLpUlih9yBQrAt79Pp3bjkVgM244nsPwe/VQQ6r8pRsgu7pwtC61grkA/T10r/NrnxB8s
V2VmvQiOB0MhLMZVxY/pDPEkU6DnZ2Qu2M0STjJFAIpmAUmXD0NY9PQMzEBRPwJzkiSp71F8J1/ipNMj
f9rE8XggkUgexq9cBXmi+DYYjtCRGL72T+D4jr/RaE+waFgu8c0zgUcmT9UuBS4/9m0hmh9Fo7N8FXih
CIKE5/Vi8yJsDM8P8P0HLGwR4Wl3ICYAAAAASUVORK5CYII=
</value>
</data>
<data name="btndeleteProxy.Location" type="System.Drawing.Point, System.Drawing">
<value>564, 161</value>
</data>
<data name="chkbxUserAut.Location" type="System.Drawing.Point, System.Drawing">
<value>513, 64</value>
</data>
<data name="chkbxUserAut.Size" type="System.Drawing.Size, System.Drawing"> <data name="chkbxUserAut.Size" type="System.Drawing.Size, System.Drawing">
<value>156, 17</value> <value>156, 17</value>
</data> </data>
<data name="chkbxUserAut.Text" xml:space="preserve"> <data name="chkbxUserAut.Text" xml:space="preserve">
<value>Windows-Authentication</value> <value>Windows-Authentication</value>
</data> </data>
<data name="Label5.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms"> <data name="Label5.Location" type="System.Drawing.Point, System.Drawing">
<value>NoControl</value> <value>8, 143</value>
</data> </data>
<data name="Label5.Size" type="System.Drawing.Size, System.Drawing"> <data name="Label5.Size" type="System.Drawing.Size, System.Drawing">
<value>143, 13</value> <value>143, 13</value>
@ -137,8 +167,11 @@
<data name="Label5.Text" xml:space="preserve"> <data name="Label5.Text" xml:space="preserve">
<value>Current ConnectionString:</value> <value>Current ConnectionString:</value>
</data> </data>
<data name="Label4.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms"> <data name="cmbDatenbank.Location" type="System.Drawing.Point, System.Drawing">
<value>NoControl</value> <value>11, 110</value>
</data>
<data name="Label4.Location" type="System.Drawing.Point, System.Drawing">
<value>8, 90</value>
</data> </data>
<data name="Label4.Size" type="System.Drawing.Size, System.Drawing"> <data name="Label4.Size" type="System.Drawing.Size, System.Drawing">
<value>58, 13</value> <value>58, 13</value>
@ -146,11 +179,11 @@
<data name="Label4.Text" xml:space="preserve"> <data name="Label4.Text" xml:space="preserve">
<value>Database:</value> <value>Database:</value>
</data> </data>
<data name="Label1.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms"> <data name="Label1.Location" type="System.Drawing.Point, System.Drawing">
<value>NoControl</value> <value>8, 42</value>
</data> </data>
<data name="Label2.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms"> <data name="Label2.Location" type="System.Drawing.Point, System.Drawing">
<value>NoControl</value> <value>302, 42</value>
</data> </data>
<data name="Label2.Size" type="System.Drawing.Size, System.Drawing"> <data name="Label2.Size" type="System.Drawing.Size, System.Drawing">
<value>61, 13</value> <value>61, 13</value>
@ -158,8 +191,8 @@
<data name="Label2.Text" xml:space="preserve"> <data name="Label2.Text" xml:space="preserve">
<value>Username:</value> <value>Username:</value>
</data> </data>
<data name="Label3.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms"> <data name="Label3.Location" type="System.Drawing.Point, System.Drawing">
<value>NoControl</value> <value>426, 42</value>
</data> </data>
<data name="Label3.Size" type="System.Drawing.Size, System.Drawing"> <data name="Label3.Size" type="System.Drawing.Size, System.Drawing">
<value>59, 13</value> <value>59, 13</value>
@ -167,14 +200,26 @@
<data name="Label3.Text" xml:space="preserve"> <data name="Label3.Text" xml:space="preserve">
<value>Password:</value> <value>Password:</value>
</data> </data>
<data name="BtnConnect.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms"> <data name="txtActualConnection.Location" type="System.Drawing.Point, System.Drawing">
<value>NoControl</value> <value>11, 163</value>
</data>
<data name="txtServer.Location" type="System.Drawing.Point, System.Drawing">
<value>11, 62</value>
</data>
<data name="txtUser.Location" type="System.Drawing.Point, System.Drawing">
<value>305, 62</value>
</data>
<data name="txtPasswort.Location" type="System.Drawing.Point, System.Drawing">
<value>429, 62</value>
</data>
<data name="BtnConnect.Location" type="System.Drawing.Point, System.Drawing">
<value>305, 110</value>
</data> </data>
<data name="BtnConnect.Text" xml:space="preserve"> <data name="BtnConnect.Text" xml:space="preserve">
<value>Establish Database Connection</value> <value>Establish Database Connection</value>
</data> </data>
<data name="TabPage1.Text" xml:space="preserve"> <data name="GroupBox5.Text" xml:space="preserve">
<value>Database Connection</value> <value>task configs</value>
</data> </data>
<data name="Label11.Location" type="System.Drawing.Point, System.Drawing"> <data name="Label11.Location" type="System.Drawing.Point, System.Drawing">
<value>189, 25</value> <value>189, 25</value>
@ -194,26 +239,20 @@
<data name="txtTask_Popup.Location" type="System.Drawing.Point, System.Drawing"> <data name="txtTask_Popup.Location" type="System.Drawing.Point, System.Drawing">
<value>160, 22</value> <value>160, 22</value>
</data> </data>
<data name="GroupBox5.Text" xml:space="preserve"> <data name="GroupBox4.Text" xml:space="preserve">
<value>task configs</value> <value>current language:</value>
</data> </data>
<data name="Button3.Text" xml:space="preserve"> <data name="Button3.Text" xml:space="preserve">
<value>Change language</value> <value>Change language</value>
</data> </data>
<data name="GroupBox4.Text" xml:space="preserve"> <data name="GroupBox3.Text" xml:space="preserve">
<value>current language:</value> <value>formulars open:</value>
</data>
<data name="Label7.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>NoControl</value>
</data> </data>
<data name="Label7.Size" type="System.Drawing.Size, System.Drawing"> <data name="Label7.Size" type="System.Drawing.Size, System.Drawing">
<value>179, 13</value> <value>214, 13</value>
</data> </data>
<data name="Label7.Text" xml:space="preserve"> <data name="Label7.Text" xml:space="preserve">
<value>run formular on application start:</value> <value>run following sight on application start:</value>
</data>
<data name="CheckBox1.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>NoControl</value>
</data> </data>
<data name="CheckBox1.Size" type="System.Drawing.Size, System.Drawing"> <data name="CheckBox1.Size" type="System.Drawing.Size, System.Drawing">
<value>133, 17</value> <value>133, 17</value>
@ -221,11 +260,8 @@
<data name="CheckBox1.Text" xml:space="preserve"> <data name="CheckBox1.Text" xml:space="preserve">
<value>run calendar as child</value> <value>run calendar as child</value>
</data> </data>
<data name="GroupBox3.Text" xml:space="preserve"> <data name="GroupBox2.Text" xml:space="preserve">
<value>formulars open:</value> <value>Windream-Configuration:</value>
</data>
<data name="CheckBoxWD_ShowEnitityDocs.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>NoControl</value>
</data> </data>
<data name="CheckBoxWD_ShowEnitityDocs.Size" type="System.Drawing.Size, System.Drawing"> <data name="CheckBoxWD_ShowEnitityDocs.Size" type="System.Drawing.Size, System.Drawing">
<value>236, 17</value> <value>236, 17</value>
@ -233,29 +269,20 @@
<data name="CheckBoxWD_ShowEnitityDocs.Text" xml:space="preserve"> <data name="CheckBoxWD_ShowEnitityDocs.Text" xml:space="preserve">
<value>run windream search on entity-changing</value> <value>run windream search on entity-changing</value>
</data> </data>
<data name="chkbxloadWDDocs.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>NoControl</value>
</data>
<data name="chkbxloadWDDocs.Size" type="System.Drawing.Size, System.Drawing"> <data name="chkbxloadWDDocs.Size" type="System.Drawing.Size, System.Drawing">
<value>192, 17</value> <value>192, 17</value>
</data> </data>
<data name="chkbxloadWDDocs.Text" xml:space="preserve"> <data name="chkbxloadWDDocs.Text" xml:space="preserve">
<value>start windream search ultimately</value> <value>start windream search ultimately</value>
</data> </data>
<data name="Label6.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>NoControl</value>
</data>
<data name="Label6.Size" type="System.Drawing.Size, System.Drawing"> <data name="Label6.Size" type="System.Drawing.Size, System.Drawing">
<value>163, 13</value> <value>163, 13</value>
</data> </data>
<data name="Label6.Text" xml:space="preserve"> <data name="Label6.Text" xml:space="preserve">
<value>max. result# windream-search:</value> <value>max. result# windream-search:</value>
</data> </data>
<data name="GroupBox2.Text" xml:space="preserve"> <data name="GroupBox1.Text" xml:space="preserve">
<value>Windream-Configuration:</value> <value>menue configs</value>
</data>
<data name="chkboxQuickMenue.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>NoControl</value>
</data> </data>
<data name="chkboxQuickMenue.Size" type="System.Drawing.Size, System.Drawing"> <data name="chkboxQuickMenue.Size" type="System.Drawing.Size, System.Drawing">
<value>128, 17</value> <value>128, 17</value>
@ -263,30 +290,12 @@
<data name="chkboxQuickMenue.Text" xml:space="preserve"> <data name="chkboxQuickMenue.Text" xml:space="preserve">
<value>show quick menues</value> <value>show quick menues</value>
</data> </data>
<data name="GroupBox1.Text" xml:space="preserve">
<value>menue configs</value>
</data>
<data name="chkLogErrorsOnly.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>NoControl</value>
</data>
<data name="Button1.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>NoControl</value>
</data>
<data name="btnApplicationFolder.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>NoControl</value>
</data>
<data name="LinkLabel1.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>NoControl</value>
</data>
<data name="LinkLabel1.Size" type="System.Drawing.Size, System.Drawing"> <data name="LinkLabel1.Size" type="System.Drawing.Size, System.Drawing">
<value>192, 17</value> <value>192, 17</value>
</data> </data>
<data name="LinkLabel1.Text" xml:space="preserve"> <data name="LinkLabel1.Text" xml:space="preserve">
<value>Link Support-Portal Digital Data</value> <value>Link Support-Portal Digital Data</value>
</data> </data>
<data name="TabPage2.Text" xml:space="preserve">
<value>Configurations</value>
</data>
<data name="Label9.Size" type="System.Drawing.Size, System.Drawing"> <data name="Label9.Size" type="System.Drawing.Size, System.Drawing">
<value>397, 13</value> <value>397, 13</value>
</data> </data>

2499
app/DD-Record-Organiser/frmConfig_Basic.resx
View File

File diff suppressed because it is too large Load Diff

194
app/DD-Record-Organiser/frmConfig_Basic.vb
View File

@ -29,16 +29,26 @@ Public Class frmConfig_Basic
If result = MsgBoxResult.Yes Then If result = MsgBoxResult.Yes Then
CONNECTION_CHANGED = True CONNECTION_CHANGED = True
'Set the construction string 'Set the construction string
MyConnectionString = con 'csb.ConnectionString If rbConnDefault.Checked Then
ClassDatabase.Init() MyConnectionString = con
'csb.ConnectionString
ClassDatabase.Init()
Else
ClassProxy.MyPROXYConnectionString = con
End If
My.Settings.Save() My.Settings.Save()
If chkbxUserAut.Checked = False Then If chkbxUserAut.Checked = False Then
Dim wrapper As New ClassEncryption("!35452didalog=") Dim wrapper As New ClassEncryption("!35452didalog=")
Dim cipherText As String = wrapper.EncryptData(Me.txtPasswort.Text) Dim cipherText As String = wrapper.EncryptData(Me.txtPasswort.Text)
Dim pw As String = cipherText Dim pw As String = cipherText
con = "Server=" & Me.txtServer.Text & ";Database=" & Me.cmbDatenbank.Text & ";User Id=" & Me.txtUser.Text & ";Password=" & pw & ";" con = "Server=" & Me.txtServer.Text & ";Database=" & Me.cmbDatenbank.Text & ";User Id=" & Me.txtUser.Text & ";Password=" & pw & ";"
End If End If
SaveMySettingsValue("MyConnectionString", con, "ConfigMain") If rbConnDefault.Checked Then
SaveMySettingsValue("MyConnectionString", con, "ConfigMain")
Else
SaveMySettingsValue("MyProxyConnectionString", con, "ConfigMain")
End If
Dim csb As New SqlClient.SqlConnectionStringBuilder Dim csb As New SqlClient.SqlConnectionStringBuilder
csb.ConnectionString = MyConnectionString csb.ConnectionString = MyConnectionString
Dim constr = connection.ConnectionString Dim constr = connection.ConnectionString
@ -102,54 +112,59 @@ Public Class frmConfig_Basic
End Sub End Sub
Private Sub frmConfig_Basic_Load(sender As Object, e As EventArgs) Handles MyBase.Load Private Sub frmConfig_Basic_Load(sender As Object, e As EventArgs) Handles MyBase.Load
If LICENSE_SITE_PROXY = True Then
Me.rbConn_Proxy.Visible = True
Else
Me.rbConn_Proxy.Visible = False
End If
If Not MyConnectionString = String.Empty Then If Not MyConnectionString = String.Empty Then
CONNECTION_CHANGED = False CONNECTION_CHANGED = False
'Try
Dim csb As New SqlClient.SqlConnectionStringBuilder
csb.ConnectionString = MyConnectionString
Dim constr = MyConnectionString
If Not MyConnectionString.Contains("Trusted") Then
constr = constr.Replace(csb.Password, "XXXXX")
txtUser.Text = csb.UserID
chkbxUserAut.Checked = False
Else
chkbxUserAut.Checked = True
End If
Try Try
Dim csb As New SqlClient.SqlConnectionStringBuilder txtServer.Text = csb.DataSource
csb.ConnectionString = MyConnectionString cmbDatenbank.Text = csb.InitialCatalog
Dim constr = MyConnectionString
If Not MyConnectionString.Contains("Trusted") Then
constr = constr.Replace(csb.Password, "XXXXX")
txtUser.Text = csb.UserID
chkbxUserAut.Checked = False
Else
chkbxUserAut.Checked = True
End If
Try
txtServer.Text = csb.DataSource
cmbDatenbank.Text = csb.InitialCatalog
Catch ex As Exception
End Try
Me.txtActualConnection.Text = constr
chkbxloadWDDocs.Checked = Sett_LoadWD_Docs
chkLogErrorsOnly.Checked = LogErrorsOnly
txtwdSearch_Count.Text = WDResultListCount.ToString
txtTask_Popup.Text = Task_Popup_minutes.ToString
chkboxQuickMenue.Checked = Sett_ShowQuickMenue
CheckBoxWD_ShowEnitityDocs.Checked = WD_ShowEnitityDocs
Dim sql As String = "SELECT 0,'' UNION ALL SELECT T.GUID, T.FORM_TITLE FROM TBPMO_FORM_CONSTRUCTOR T"
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql, "ConstructorForms - from Config")
If DT.Rows.Count > 0 Then
cmbConstructor.Enabled = True
cmbConstructor.DataSource = DT
cmbConstructor.DisplayMember = DT.Columns(1).ColumnName
cmbConstructor.ValueMember = DT.Columns(0).ColumnName
If Sett_ConstructorStart <> 0 Then
cmbConstructor.SelectedValue = Sett_ConstructorStart
End If
Else
cmbConstructor.Enabled = False
End If
Catch ex As Exception Catch ex As Exception
MsgBox("Fehler in FormLoad: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try End Try
Me.txtActualConnection.Text = constr
chkbxloadWDDocs.Checked = Sett_LoadWD_Docs
chkLogErrorsOnly.Checked = LogErrorsOnly
txtwdSearch_Count.Text = WDResultListCount.ToString
txtTask_Popup.Text = Task_Popup_minutes.ToString
chkboxQuickMenue.Checked = Sett_ShowQuickMenue
CheckBoxWD_ShowEnitityDocs.Checked = WD_ShowEnitityDocs
Dim sql As String = "SELECT 0,'' UNION ALL SELECT T.GUID, T.FORM_TITLE FROM TBPMO_FORM_CONSTRUCTOR T"
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
If DT.Rows.Count > 0 Then
cmbConstructor.Enabled = True
cmbConstructor.DataSource = DT
cmbConstructor.DisplayMember = DT.Columns(1).ColumnName
cmbConstructor.ValueMember = DT.Columns(0).ColumnName
If Sett_ConstructorStart <> 0 Then
cmbConstructor.SelectedValue = Sett_ConstructorStart
End If
Else
cmbConstructor.Enabled = False
End If
'Catch ex As Exception
' MsgBox("Fehler in FormLoad: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
'End Try
End If End If
@ -212,7 +227,7 @@ Public Class frmConfig_Basic
Case 1 Case 1
cmbLanguage.SelectedIndex = cmbLanguage.FindStringExact(USER_LANGUAGE) cmbLanguage.SelectedIndex = cmbLanguage.FindStringExact(USER_LANGUAGE)
Case 2 Case 2
Dim DTSCAN_folderwatch As DataTable = ClassDatabase.Return_Datatable("SELECT FOLDER_PATH,SUBDIRECTORIES FROM TBPMO_FOLDERWATCH_USER WHERE FOLDER_TYPE = 'SCAN' AND USER_ID = " & USER_GUID, True) Dim DTSCAN_folderwatch As DataTable = ClassDatabase.Return_Datatable("SELECT FOLDER_PATH,SUBDIRECTORIES FROM TBPMO_FOLDERWATCH_USER WHERE FOLDER_TYPE = 'SCAN' AND USER_ID = " & USER_GUID)
If Not DTSCAN_folderwatch Is Nothing Then If Not DTSCAN_folderwatch Is Nothing Then
If DTSCAN_folderwatch.Rows.Count = 1 Then If DTSCAN_folderwatch.Rows.Count = 1 Then
CURRENT_SCAN_FOLDERWATCH = DTSCAN_folderwatch.Rows(0).Item(0) CURRENT_SCAN_FOLDERWATCH = DTSCAN_folderwatch.Rows(0).Item(0)
@ -285,7 +300,7 @@ Public Class frmConfig_Basic
_SUBDIRECTORIES = 1 _SUBDIRECTORIES = 1
End If End If
Dim folderwatch = ClassDatabase.Execute_Scalar("SELECT GUID FROM TBPMO_FOLDERWATCH_USER WHERE USER_ID = " & USER_GUID & " AND FOLDER_TYPE = 'SCAN'", True) Dim folderwatch = ClassDatabase.Execute_Scalar("SELECT GUID FROM TBPMO_FOLDERWATCH_USER WHERE USER_ID = " & USER_GUID & " AND FOLDER_TYPE = 'SCAN'")
Dim sql As String Dim sql As String
If folderwatch Is Nothing And mypath <> "" Then If folderwatch Is Nothing And mypath <> "" Then
sql = "INSERT INTO TBPMO_FOLDERWATCH_USER (USER_ID, FOLDER_PATH, FOLDER_TYPE,SUBDIRECTORIES, ADDED_WHO) VALUES (" & USER_GUID & ",'" & mypath & "','SCAN', " & _SUBDIRECTORIES & ",'" & USER_USERNAME & "')" sql = "INSERT INTO TBPMO_FOLDERWATCH_USER (USER_ID, FOLDER_PATH, FOLDER_TYPE,SUBDIRECTORIES, ADDED_WHO) VALUES (" & USER_GUID & ",'" & mypath & "','SCAN', " & _SUBDIRECTORIES & ",'" & USER_USERNAME & "')"
@ -293,7 +308,7 @@ Public Class frmConfig_Basic
sql = "UPDATE TBPMO_FOLDERWATCH_USER SET FOLDER_PATH = '" & mypath & "', SUBDIRECTORIES = " & _SUBDIRECTORIES & ", CHANGED_WHO = '" & USER_USERNAME & "' where GUID = " & folderwatch sql = "UPDATE TBPMO_FOLDERWATCH_USER SET FOLDER_PATH = '" & mypath & "', SUBDIRECTORIES = " & _SUBDIRECTORIES & ", CHANGED_WHO = '" & USER_USERNAME & "' where GUID = " & folderwatch
End If End If
If ClassDatabase.Execute_non_Query(sql) Then If ClassDatabase.Execute_non_Query(sql) Then
Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT FOLDER_PATH, SUBDIRECTORIES FROM TBPMO_FOLDERWATCH_USER WHERE USER_ID = " & USER_GUID & " AND FOLDER_TYPE = 'SCAN'", True) Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT FOLDER_PATH, SUBDIRECTORIES FROM TBPMO_FOLDERWATCH_USER WHERE USER_ID = " & USER_GUID & " AND FOLDER_TYPE = 'SCAN'")
CURRENT_SCAN_FOLDERWATCH = DT.Rows(0).Item(0) CURRENT_SCAN_FOLDERWATCH = DT.Rows(0).Item(0)
CURRENT_SCAN_FOLDERWATCH_SD = DT.Rows(0).Item(1) CURRENT_SCAN_FOLDERWATCH_SD = DT.Rows(0).Item(1)
@ -322,6 +337,7 @@ Public Class frmConfig_Basic
Private Sub btnstartstop2_Click(sender As Object, e As EventArgs) Handles btnstartstop2.Click Private Sub btnstartstop2_Click(sender As Object, e As EventArgs) Handles btnstartstop2.Click
If CURRENT_SCAN_FOLDERWATCH <> "" Then If CURRENT_SCAN_FOLDERWATCH <> "" Then
ClassFolderWatcher.DELETE_SCAN_File_User()
CheckScanFolder(CURRENT_SCAN_FOLDERWATCH, chkSubfolder.Checked) CheckScanFolder(CURRENT_SCAN_FOLDERWATCH, chkSubfolder.Checked)
CheckFWSCAN_State() CheckFWSCAN_State()
End If End If
@ -359,7 +375,7 @@ Public Class frmConfig_Basic
Dim update As String = "UPDATE TBDD_USER SET [LANGUAGE] = '" & cmbLanguage.Text & "' WHERE GUID = " & USER_GUID Dim update As String = "UPDATE TBDD_USER SET [LANGUAGE] = '" & cmbLanguage.Text & "' WHERE GUID = " & USER_GUID
USER_LANGUAGE = cmbLanguage.Text USER_LANGUAGE = cmbLanguage.Text
If ClassDatabase.Execute_non_Query(update, True) = True Then If ClassDatabase.Execute_non_Query(update) = True Then
If USER_LANGUAGE = "de-DE" Then If USER_LANGUAGE = "de-DE" Then
MsgBox("Die Sprache wurde erfolgreich geändert und nach einem Neustart angewendet!", MsgBoxStyle.Information) MsgBox("Die Sprache wurde erfolgreich geändert und nach einem Neustart angewendet!", MsgBoxStyle.Information)
Else Else
@ -404,7 +420,7 @@ Public Class frmConfig_Basic
Catch ex As Exception Catch ex As Exception
End Try End Try
End Sub End Sub
@ -426,5 +442,83 @@ Public Class frmConfig_Basic
Private Sub txtPasswort_TextChanged(sender As Object, e As EventArgs) Handles txtPasswort.TextChanged Private Sub txtPasswort_TextChanged(sender As Object, e As EventArgs) Handles txtPasswort.TextChanged
End Sub
Private Sub rbConn_Proxy_CheckedChanged(sender As Object, e As EventArgs) Handles rbConn_Proxy.CheckedChanged
If rbConn_Proxy.Checked Then
Refresh_Proxy()
Me.lblLinkedServer.Visible = True
Me.txtLinkedServer.Visible = True
Else
Me.lblLinkedServer.Visible = False
Me.txtLinkedServer.Visible = False
End If
End Sub
Sub Refresh_Proxy()
If ClassProxy.MyPROXYConnectionString <> String.Empty Then
Dim csb As New SqlClient.SqlConnectionStringBuilder
csb.ConnectionString = ClassProxy.MyPROXYConnectionString
Dim constr = ClassProxy.MyPROXYConnectionString
If Not constr.Contains("Trusted") Then
constr = constr.Replace(csb.Password, "XXXXX")
txtUser.Text = csb.UserID
chkbxUserAut.Checked = False
Else
chkbxUserAut.Checked = True
End If
Try
txtServer.Text = csb.DataSource
cmbDatenbank.Text = csb.InitialCatalog
Catch ex As Exception
End Try
Me.txtActualConnection.Text = constr
btndeleteProxy.Visible = True
Else
Me.txtActualConnection.Text = ""
btndeleteProxy.Visible = False
End If
End Sub
Private Sub rbConnDefault_CheckedChanged(sender As Object, e As EventArgs) Handles rbConnDefault.CheckedChanged
If rbConnDefault.Checked Then
If MyConnectionString <> String.Empty Then
Dim csb As New SqlClient.SqlConnectionStringBuilder
csb.ConnectionString = MyConnectionString
Dim constr = MyConnectionString
If Not constr.Contains("Trusted") Then
constr = constr.Replace(csb.Password, "XXXXX")
txtUser.Text = csb.UserID
chkbxUserAut.Checked = False
Else
chkbxUserAut.Checked = True
End If
Try
txtServer.Text = csb.DataSource
cmbDatenbank.Text = csb.InitialCatalog
Catch ex As Exception
End Try
Me.txtActualConnection.Text = constr
End If
End If
End Sub
Private Sub btndeleteProxy_Click(sender As Object, e As EventArgs) Handles btndeleteProxy.Click
SaveMySettingsValue("MyProxyConnectionString", "", "ConfigMain")
ClassProxy.MyPROXYConnectionString = ""
Refresh_Proxy()
End Sub
Private Sub txtLinkedServer_Leave(sender As Object, e As EventArgs) Handles txtLinkedServer.Leave
SaveMySettingsValue("MyLinkedServer", txtLinkedServer.Text, "ConfigMain")
ClassProxy.MyLinkedServer = txtLinkedServer.Text
End Sub End Sub
End Class End Class

1
app/DD-Record-Organiser/frmConstructorDesigner.Designer.vb generated
View File

@ -1551,7 +1551,6 @@ Partial Class frmConstructorDesigner
Me.TableAdapterManager2.TBDD_USER_GROUPSTableAdapter = Nothing Me.TableAdapterManager2.TBDD_USER_GROUPSTableAdapter = Nothing
Me.TableAdapterManager2.TBDD_USERTableAdapter = Nothing Me.TableAdapterManager2.TBDD_USERTableAdapter = Nothing
Me.TableAdapterManager2.TBPMO_CONSTRUCTOR_USER_SQLTableAdapter = Nothing Me.TableAdapterManager2.TBPMO_CONSTRUCTOR_USER_SQLTableAdapter = Nothing
Me.TableAdapterManager2.TBPMO_FILES_USERTableAdapter = Nothing
Me.TableAdapterManager2.TBPMO_FOLLOW_UP_EMAILTableAdapter = Nothing Me.TableAdapterManager2.TBPMO_FOLLOW_UP_EMAILTableAdapter = Nothing
Me.TableAdapterManager2.TBPMO_FOLLUPEMAIL_USERTableAdapter = Nothing Me.TableAdapterManager2.TBPMO_FOLLUPEMAIL_USERTableAdapter = Nothing
Me.TableAdapterManager2.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = Nothing Me.TableAdapterManager2.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = Nothing

5452
app/DD-Record-Organiser/frmConstructorDesigner.en-IE.resx
View File

File diff suppressed because it is too large Load Diff

59
app/DD-Record-Organiser/frmConstructorDesigner.vb
View File

@ -35,13 +35,13 @@ Public Class frmConstructorDesigner
Me.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Connection.ConnectionString = MyConnectionString Me.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Connection.ConnectionString = MyConnectionString
Load_Head() Load_Head()
Dim sql1 As String = "SELECT T.GUID, [dbo].[FNPMO_GETOBJECTCAPTION]('" & USER_LANGUAGE & "','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), T1.GUID), 1) AS FORM_TITLE FROM TBPMO_FORM T, TBPMO_FORM_VIEW T1 WHERE T.GUID = T1.FORM_ID AND T.SHOW_FORM_CONSTRUCT = 1 AND T1.SCREEN_ID = 1 ORDER BY T1.FORM_TITLE" Dim sql1 As String = "SELECT T.GUID, [dbo].[FNPMO_GETOBJECTCAPTION]('" & USER_LANGUAGE & "','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), T1.GUID), 1) AS FORM_TITLE FROM TBPMO_FORM T, TBPMO_FORM_VIEW T1 WHERE T.GUID = T1.FORM_ID AND T.SHOW_FORM_CONSTRUCT = 1 AND T1.SCREEN_ID = 1 ORDER BY T1.FORM_TITLE"
Dim DTFORMS As DataTable = ClassDatabase.Return_Datatable(sql1, "") Dim DTFORMS As DataTable = ClassDatabase.Return_Datatable(sql1)
'FORM_IDComboBox.DataSource = DTFORMS 'FORM_IDComboBox.DataSource = DTFORMS
'FORM_IDComboBox.DisplayMember = DTFORMS.Columns(1).ColumnName 'FORM_IDComboBox.DisplayMember = DTFORMS.Columns(1).ColumnName
'FORM_IDComboBox.ValueMember = DTFORMS.Columns(0).ColumnName 'FORM_IDComboBox.ValueMember = DTFORMS.Columns(0).ColumnName
Dim sql2 As String = "SELECT T.GUID, [dbo].[FNPMO_GETOBJECTCAPTION]('" & USER_LANGUAGE & "','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), T1.GUID), 1) AS FORM_TITLE FROM TBPMO_FORM T, TBPMO_FORM_VIEW T1 WHERE T.FORM_TYPE_ID IN (1,2) AND T.GUID = T1.FORM_ID AND T.SHOW_FORM_CONSTRUCT = 1 AND T1.SCREEN_ID = 1 ORDER BY T1.FORM_TITLE" Dim sql2 As String = "SELECT T.GUID, [dbo].[FNPMO_GETOBJECTCAPTION]('" & USER_LANGUAGE & "','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), T1.GUID), 1) AS FORM_TITLE FROM TBPMO_FORM T, TBPMO_FORM_VIEW T1 WHERE T.FORM_TYPE_ID IN (1,2) AND T.GUID = T1.FORM_ID AND T.SHOW_FORM_CONSTRUCT = 1 AND T1.SCREEN_ID = 1 ORDER BY T1.FORM_TITLE"
Dim DTParent As DataTable = ClassDatabase.Return_Datatable(sql2, "") Dim DTParent As DataTable = ClassDatabase.Return_Datatable(sql2)
'PARENT_IDComboBox.DataSource = DTParent 'PARENT_IDComboBox.DataSource = DTParent
'PARENT_IDComboBox.DisplayMember = DTParent.Columns(1).ColumnName 'PARENT_IDComboBox.DisplayMember = DTParent.Columns(1).ColumnName
'PARENT_IDComboBox.ValueMember = DTParent.Columns(0).ColumnName 'PARENT_IDComboBox.ValueMember = DTParent.Columns(0).ColumnName
@ -60,7 +60,7 @@ Public Class frmConstructorDesigner
Private Sub Load_Detail(ID As Integer) Private Sub Load_Detail(ID As Integer)
Try Try
Me.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Fill(Me.DD_ECMAdmin.TBPMO_FORM_CONSTRUCTOR_DETAIL, ID) Me.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Fill(Me.DD_ECMAdmin.TBPMO_FORM_CONSTRUCTOR_DETAIL, ID)
SELECTED_ENTITY_ID = ClassDatabase.Execute_Scalar("SELECT FORM_ID FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE GUID = " & ID, True) SELECTED_ENTITY_ID = ClassDatabase.Execute_Scalar("SELECT FORM_ID FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE GUID = " & ID)
Catch ex As System.Exception Catch ex As System.Exception
MsgBox("Error Loading Details:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("Error Loading Details:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Exit Sub Exit Sub
@ -77,20 +77,20 @@ Public Class frmConstructorDesigner
Public Sub Load_QuickDisplay() Public Sub Load_QuickDisplay()
Try Try
If SELECTED_CONSTRUCTOR_DETAIL_ID = 0 Then Exit Sub If SELECTED_CONSTRUCTOR_DETAIL_ID = 0 Then Exit Sub
Dim formId = ClassDatabase.Execute_Scalar("SELECT FORM_ID FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE GUID = " & SELECTED_CONSTRUCTOR_DETAIL_ID, True) Dim formId = ClassDatabase.Execute_Scalar("SELECT FORM_ID FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE GUID = " & SELECTED_CONSTRUCTOR_DETAIL_ID)
Dim sql = "SELECT T.GUID, T.COL_NAME AS 'COL_NAME' FROM TBPMO_CONTROL T, TBPMO_CONTROL_SCREEN T1, TBPMO_CONTROL_TYPE T2 WHERE T.SHOW_COLUMN = 1 AND T.[COL_NAME] <> '' AND T.GUID = T1.CONTROL_ID AND T.CONTROL_TYPE_ID = T2.GUID AND T.FORM_ID = " & formId & " AND LEN(ISNULL(T.COL_NAME,'')) > 0 and t.CONTROL_TYPE_ID not in (1,5,12) " & _ Dim sql = "SELECT T.GUID, T.COL_NAME AS 'COL_NAME' FROM TBPMO_CONTROL T, TBPMO_CONTROL_SCREEN T1, TBPMO_CONTROL_TYPE T2 WHERE T.SHOW_COLUMN = 1 AND T.[COL_NAME] <> '' AND T.GUID = T1.CONTROL_ID AND T.CONTROL_TYPE_ID = T2.GUID AND T.FORM_ID = " & formId & " AND LEN(ISNULL(T.COL_NAME,'')) > 0 and t.CONTROL_TYPE_ID not in (1,5,12) " & _
"AND T2.GUID not in (1,5,7,8,9) AND T.GUID NOT IN (SELECT CONTROL_ID FROM TBPMO_FORM_CONSTR_QUICK_DISPLAY WHERE CONSTRUCT_ID = " & SELECTED_CONSTRUCTOR_DETAIL_ID & ") ORDER BY T1.TAB_INDEX" "AND T2.GUID not in (1,5,7,8,9) AND T.GUID NOT IN (SELECT CONTROL_ID FROM TBPMO_FORM_CONSTR_QUICK_DISPLAY WHERE CONSTRUCT_ID = " & SELECTED_CONSTRUCTOR_DETAIL_ID & ") ORDER BY T1.TAB_INDEX"
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql, "LOAD QUICKDISPLAY") Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
listBoxControls.DataSource = DT listBoxControls.DataSource = DT
listBoxControls.DisplayMember = DT.Columns(1).ColumnName listBoxControls.DisplayMember = DT.Columns(1).ColumnName
listBoxControls.ValueMember = DT.Columns(0).ColumnName listBoxControls.ValueMember = DT.Columns(0).ColumnName
Dim DT2 = ClassDatabase.Return_Datatable("SELECT T.GUID, T1.COL_NAME FROM TBPMO_FORM_CONSTR_QUICK_DISPLAY T, TBPMO_CONTROL T1 WHERE T1.CONTROL_TYPE_ID <> 6 AND T.CONTROL_ID = T1.GUID AND T.CONSTRUCT_ID = " & SELECTED_CONSTRUCTOR_DETAIL_ID & " ORDER BY T.SEQUENCE", "LOAD QUICKDISPLAY") Dim DT2 = ClassDatabase.Return_Datatable("SELECT T.GUID, T1.COL_NAME FROM TBPMO_FORM_CONSTR_QUICK_DISPLAY T, TBPMO_CONTROL T1 WHERE T1.CONTROL_TYPE_ID <> 6 AND T.CONTROL_ID = T1.GUID AND T.CONSTRUCT_ID = " & SELECTED_CONSTRUCTOR_DETAIL_ID & " ORDER BY T.SEQUENCE")
ListBoxConfiguredDisplay.DataSource = DT2 ListBoxConfiguredDisplay.DataSource = DT2
ListBoxConfiguredDisplay.DisplayMember = DT2.Columns(1).ColumnName ListBoxConfiguredDisplay.DisplayMember = DT2.Columns(1).ColumnName
ListBoxConfiguredDisplay.ValueMember = DT2.Columns(0).ColumnName ListBoxConfiguredDisplay.ValueMember = DT2.Columns(0).ColumnName
Dim DT3 As DataTable = ClassDatabase.Return_Datatable("SELECT T.GUID, T1.COL_NAME FROM TBPMO_FORM_CONSTR_QUICK_DISPLAY T, TBPMO_CONTROL T1 WHERE T1.CONTROL_TYPE_ID = 6 AND T.CONTROL_ID = T1.GUID AND T.CONSTRUCT_ID = " & SELECTED_CONSTRUCTOR_DETAIL_ID, "LOAD QUICKDISPLAY PICTURE") Dim DT3 As DataTable = ClassDatabase.Return_Datatable("SELECT T.GUID, T1.COL_NAME FROM TBPMO_FORM_CONSTR_QUICK_DISPLAY T, TBPMO_CONTROL T1 WHERE T1.CONTROL_TYPE_ID = 6 AND T.CONTROL_ID = T1.GUID AND T.CONSTRUCT_ID = " & SELECTED_CONSTRUCTOR_DETAIL_ID)
If DT3.Rows.Count = 1 Then If DT3.Rows.Count = 1 Then
Me.txtQuickViewPicture.Text = DT3.Rows(0).Item(1) Me.txtQuickViewPicture.Text = DT3.Rows(0).Item(1)
Me.txtQuickViewPicture.Tag = DT3.Rows(0).Item(0) Me.txtQuickViewPicture.Tag = DT3.Rows(0).Item(0)
@ -113,7 +113,7 @@ Public Class frmConstructorDesigner
Dim Sql = String.Format("SELECT * FROM TBDD_USER WHERE MODULE_RECORD_ORG = 1 AND GUID NOT IN (SELECT USER_ID FROM TBPMO_CONSTRUCTOR_USER WHERE CONSTRUCT_ID = {0}) ORDER By USERNAME", CONSTRUCTOR_IDTextBox.Text) Dim Sql = String.Format("SELECT * FROM TBDD_USER WHERE MODULE_RECORD_ORG = 1 AND GUID NOT IN (SELECT USER_ID FROM TBPMO_CONSTRUCTOR_USER WHERE CONSTRUCT_ID = {0}) ORDER By USERNAME", CONSTRUCTOR_IDTextBox.Text)
Dim DT_USER = ClassDatabase.Return_Datatable(Sql) Dim DT_USER = ClassDatabase.Return_Datatable(Sql)
Sql = String.Format("SELECT T1.GUID, T.USERNAME + ' - ' + CASE T1.HOME_MENUE WHEN 1 THEN 'HOME' ELSE 'STANDARD' END AS USERNAME, T.EMAIL, T.NAME, T.PRENAME FROM TBDD_USER T, TBPMO_CONSTRUCTOR_USER T1 WHERE T1.USER_ID = T.GUID AND T1.CONSTRUCT_ID = {0} ORDER BY T.USERNAME", CONSTRUCTOR_IDTextBox.Text) Sql = String.Format("SELECT T1.GUID, T.USERNAME + ' - ' + CASE T1.HOME_MENUE WHEN 1 THEN 'HOME' ELSE 'STANDARD' END AS USERNAME, T.EMAIL, T.NAME, T.PRENAME FROM TBDD_USER T, TBPMO_CONSTRUCTOR_USER T1 WHERE T1.USER_ID = T.GUID AND T1.CONSTRUCT_ID = {0} ORDER BY T.USERNAME", CONSTRUCTOR_IDTextBox.Text)
Dim DT_USER_CONSTR As DataTable = ClassDatabase.Return_Datatable(Sql, "LOAD USERS FOR CONSTRUCT") Dim DT_USER_CONSTR As DataTable = ClassDatabase.Return_Datatable(Sql)
Try Try
DD_ECMAdmin.TBAD_Users.Clear() DD_ECMAdmin.TBAD_Users.Clear()
@ -177,13 +177,13 @@ Public Class frmConstructorDesigner
End If End If
Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT DOC_SEARCH_TAB1,ACTIVATE_DOC_SEARCH_ON_EDIT FROM VWPMO_CONSTRUCTOR_FORMS WHERE GUID = " & SELECTED_CONSTRUCTOR_DETAIL_ID) Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT DOC_SEARCH_TAB1,ACTIVATE_DOC_SEARCH_ON_EDIT FROM VWPMO_CONSTRUCTOR_FORMS WHERE GUID = " & SELECTED_CONSTRUCTOR_DETAIL_ID)
res = DT.Rows(0).Item(0) ' ClassDatabase.Execute_Scalar("SELECT DOC_SEARCH_TAB1 FROM VWPMO_CONSTRUCTOR_FORMS WHERE GUID = " & SELECTED_CONSTRUCTOR_DETAIL_ID) res = DT.Rows(0).Item(0)
If CBool(res) = True Then If CBool(res) = True Then
chkDOC_SEARCH_TAB1.Checked = True chkDOC_SEARCH_TAB1.Checked = True
Else Else
chkDOC_SEARCH_TAB1.Checked = False chkDOC_SEARCH_TAB1.Checked = False
End If End If
res = DT.Rows(0).Item(1) ' ClassDatabase.Execute_Scalar("SELECT ACTIVATE_DOC_SEARCH_ON_EDIT FROM VWPMO_CONSTRUCTOR_FORMS WHERE GUID = " & SELECTED_CONSTRUCTOR_DETAIL_ID) res = DT.Rows(0).Item(1)
If CBool(res) = True Then If CBool(res) = True Then
chkActivateDSOnEdit.Checked = True chkActivateDSOnEdit.Checked = True
Else Else
@ -365,7 +365,7 @@ Public Class frmConstructorDesigner
ACTIVATE_DOC_SEARCH_ON_EDIT = 0 ACTIVATE_DOC_SEARCH_ON_EDIT = 0
End If End If
Dim sql = String.Format("UPDATE TBPMO_FORM_CONSTRUCTOR_DETAIL SET DOC_SEARCH_TAB1 = {0},ACTIVATE_DOC_SEARCH_ON_EDIT = {1}, CHANGED_WHO = '{2}' where GUID = {3}", DOC_SEARCH_TAB1, ACTIVATE_DOC_SEARCH_ON_EDIT, USER_USERNAME, SELECTED_CONSTRUCTOR_DETAIL_ID) Dim sql = String.Format("UPDATE TBPMO_FORM_CONSTRUCTOR_DETAIL SET DOC_SEARCH_TAB1 = {0},ACTIVATE_DOC_SEARCH_ON_EDIT = {1}, CHANGED_WHO = '{2}' where GUID = {3}", DOC_SEARCH_TAB1, ACTIVATE_DOC_SEARCH_ON_EDIT, USER_USERNAME, SELECTED_CONSTRUCTOR_DETAIL_ID)
If ClassDatabase.Execute_non_Query(sql, True) = True Then If ClassDatabase.Execute_non_Query(sql) = True Then
lblSaveDocSearch.Visible = True lblSaveDocSearch.Visible = True
lblSaveDocSearch.Text = "Data saved - " & Now lblSaveDocSearch.Text = "Data saved - " & Now
End If End If
@ -401,7 +401,6 @@ Public Class frmConstructorDesigner
Private Sub chkWDSearch_Active_CheckedChanged(sender As Object, e As EventArgs) Handles chkWDSearch_Active.CheckedChanged Private Sub chkWDSearch_Active_CheckedChanged(sender As Object, e As EventArgs) Handles chkWDSearch_Active.CheckedChanged
Try Try
'Dim check = ClassDatabase.Execute_Scalar("SELECT DOCUMENT_VIEW FROM TBPMO_FORM_VIEW WHERE FORM_ID = " & SELECTED_ENTITY_ID & " and SCREEN_ID = " & CURRENT_SCREEN_ID)
If chkWDSearch_Active.Checked Then If chkWDSearch_Active.Checked Then
XtraTabControlSV.Enabled = True XtraTabControlSV.Enabled = True
Load_TBAD_Users() Load_TBAD_Users()
@ -409,15 +408,9 @@ Public Class frmConstructorDesigner
Load_Supervisor_Controls_Choose() Load_Supervisor_Controls_Choose()
Load_Supervisor_Controls() Load_Supervisor_Controls()
chkDOC_SEARCH_TAB1.Enabled = True chkDOC_SEARCH_TAB1.Enabled = True
'If check = False Then
' ClassDatabase.Execute_Scalar("UPDATE TBPMO_FORM_VIEW SET DOCUMENT_VIEW = 1 WHERE FORM_ID = " & SELECTED_ENTITY_ID & " and SCREEN_ID = " & CURRENT_SCREEN_ID, True)
'End If
Else Else
XtraTabControlSV.Enabled = False XtraTabControlSV.Enabled = False
chkDOC_SEARCH_TAB1.Enabled = False chkDOC_SEARCH_TAB1.Enabled = False
'If check = True Then
' ClassDatabase.Execute_Scalar("UPDATE TBPMO_FORM_VIEW SET DOCUMENT_VIEW = 1 WHERE FORM_ID = " & SELECTED_ENTITY_ID & " and SCREEN_ID = " & CURRENT_SCREEN_ID, True)
'End If
End If End If
Catch ex As Exception Catch ex As Exception
MsgBox("Error in Checked Change WD-Search:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("Error in Checked Change WD-Search:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
@ -598,7 +591,7 @@ Public Class frmConstructorDesigner
Dim i = listBoxControls.SelectedValue Dim i = listBoxControls.SelectedValue
If Not IsNothing(i) Then If Not IsNothing(i) Then
Dim insert = "INSERT INTO TBPMO_FORM_CONSTR_QUICK_DISPLAY (CONSTRUCT_ID, CONTROL_ID,ADDED_WHO) VALUES (" & SELECTED_CONSTRUCTOR_DETAIL_ID & ", " & i & ",'" & USER_USERNAME & "')" Dim insert = "INSERT INTO TBPMO_FORM_CONSTR_QUICK_DISPLAY (CONSTRUCT_ID, CONTROL_ID,ADDED_WHO) VALUES (" & SELECTED_CONSTRUCTOR_DETAIL_ID & ", " & i & ",'" & USER_USERNAME & "')"
If ClassDatabase.Execute_non_Query(insert, True) Then If ClassDatabase.Execute_non_Query(insert) Then
Load_QuickDisplay() Load_QuickDisplay()
End If End If
End If End If
@ -612,7 +605,7 @@ Public Class frmConstructorDesigner
Dim i = ListBoxConfiguredDisplay.SelectedValue Dim i = ListBoxConfiguredDisplay.SelectedValue
If Not IsNothing(i) Then If Not IsNothing(i) Then
Dim delete = "DELETE FROM TBPMO_FORM_CONSTR_QUICK_DISPLAY WHERE GUID = " & i Dim delete = "DELETE FROM TBPMO_FORM_CONSTR_QUICK_DISPLAY WHERE GUID = " & i
If ClassDatabase.Execute_non_Query(delete, True) Then If ClassDatabase.Execute_non_Query(delete) Then
Load_QuickDisplay() Load_QuickDisplay()
End If End If
End If End If
@ -637,19 +630,19 @@ Public Class frmConstructorDesigner
Private Sub btnSetHeadline_Click(sender As Object, e As EventArgs) Handles btnSetHeadline.Click Private Sub btnSetHeadline_Click(sender As Object, e As EventArgs) Handles btnSetHeadline.Click
Dim upd = "UPDATE TBPMO_FORM_CONSTR_QUICK_DISPLAY SET HEADLINE = 1, CHANGED_WHO = '" & USER_USERNAME & "' WHERE GUID = " & ListBoxConfiguredDisplay.SelectedValue Dim upd = "UPDATE TBPMO_FORM_CONSTR_QUICK_DISPLAY SET HEADLINE = 1, CHANGED_WHO = '" & USER_USERNAME & "' WHERE GUID = " & ListBoxConfiguredDisplay.SelectedValue
If ClassDatabase.Execute_non_Query(upd, True) Then If ClassDatabase.Execute_non_Query(upd) Then
lblChangeHeadline.Visible = True lblChangeHeadline.Visible = True
End If End If
End Sub End Sub
Private Sub btnSetQuickViewPicture_Click(sender As Object, e As EventArgs) Handles btnSetQuickViewPicture.Click Private Sub btnSetQuickViewPicture_Click(sender As Object, e As EventArgs) Handles btnSetQuickViewPicture.Click
Dim DEL As String = "DELETE FROM TBPMO_FORM_CONSTR_QUICK_DISPLAY WHERE CONSTRUCT_ID = " & SELECTED_CONSTRUCTOR_DETAIL_ID & " AND CONTROL_ID in (SELECT GUID FROM TBPMO_CONTROL WHERE CONTROL_TYPE_ID = 6)" Dim DEL As String = "DELETE FROM TBPMO_FORM_CONSTR_QUICK_DISPLAY WHERE CONSTRUCT_ID = " & SELECTED_CONSTRUCTOR_DETAIL_ID & " AND CONTROL_ID in (SELECT GUID FROM TBPMO_CONTROL WHERE CONTROL_TYPE_ID = 6)"
If ClassDatabase.Execute_non_Query(DEL, True) Then If ClassDatabase.Execute_non_Query(DEL) Then
Try Try
Dim i = listBoxControls.SelectedValue Dim i = listBoxControls.SelectedValue
If Not IsNothing(i) Then If Not IsNothing(i) Then
Dim insert = "INSERT INTO TBPMO_FORM_CONSTR_QUICK_DISPLAY (CONSTRUCT_ID, CONTROL_ID,PICTURE,ADDED_WHO) VALUES (" & SELECTED_CONSTRUCTOR_DETAIL_ID & ", " & i & ",1,'" & USER_USERNAME & "')" Dim insert = "INSERT INTO TBPMO_FORM_CONSTR_QUICK_DISPLAY (CONSTRUCT_ID, CONTROL_ID,PICTURE,ADDED_WHO) VALUES (" & SELECTED_CONSTRUCTOR_DETAIL_ID & ", " & i & ",1,'" & USER_USERNAME & "')"
If ClassDatabase.Execute_non_Query(insert, True) Then If ClassDatabase.Execute_non_Query(insert) Then
Load_QuickDisplay() Load_QuickDisplay()
lblQuickViewAdded.Visible = True lblQuickViewAdded.Visible = True
Else Else
@ -669,7 +662,7 @@ Public Class frmConstructorDesigner
Dim i = listBoxControls.SelectedValue Dim i = listBoxControls.SelectedValue
If i.ToString.Contains("DataRowV") Then Exit Sub If i.ToString.Contains("DataRowV") Then Exit Sub
If Not IsNothing(i) Then If Not IsNothing(i) Then
Dim count = ClassDatabase.Execute_Scalar("SELECT COUNT(T1.GUID) FROM TBPMO_CONTROL T1 WHERE T1.CONTROL_TYPE_ID = 6 and T1.GUID = " & i, True) Dim count = ClassDatabase.Execute_Scalar("SELECT COUNT(T1.GUID) FROM TBPMO_CONTROL T1 WHERE T1.CONTROL_TYPE_ID = 6 and T1.GUID = " & i)
If count = 1 Then If count = 1 Then
Me.btnSetQuickViewPicture.Visible = True Me.btnSetQuickViewPicture.Visible = True
Else Else
@ -686,7 +679,7 @@ Public Class frmConstructorDesigner
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim DEL As String = "DELETE FROM TBPMO_FORM_CONSTR_QUICK_DISPLAY WHERE CONSTRUCT_ID = " & SELECTED_CONSTRUCTOR_DETAIL_ID & " AND CONTROL_ID in (SELECT GUID FROM TBPMO_CONTROL WHERE CONTROL_TYPE_ID = 6)" Dim DEL As String = "DELETE FROM TBPMO_FORM_CONSTR_QUICK_DISPLAY WHERE CONSTRUCT_ID = " & SELECTED_CONSTRUCTOR_DETAIL_ID & " AND CONTROL_ID in (SELECT GUID FROM TBPMO_CONTROL WHERE CONTROL_TYPE_ID = 6)"
If ClassDatabase.Execute_non_Query(DEL, True) Then If ClassDatabase.Execute_non_Query(DEL) Then
Load_QuickDisplay() Load_QuickDisplay()
End If End If
End Sub End Sub
@ -717,7 +710,7 @@ Public Class frmConstructorDesigner
home = 0 home = 0
End If End If
Dim insert = "INSERT INTO TBPMO_CONSTRUCTOR_USER (CONSTRUCT_ID, USER_ID,ADDED_WHO,HOME_MENUE) VALUES (" & CONSTRUCTOR_IDTextBox.Text & ", " & row.Item(5) & ",'" & USER_USERNAME & "'," & home & ")" Dim insert = "INSERT INTO TBPMO_CONSTRUCTOR_USER (CONSTRUCT_ID, USER_ID,ADDED_WHO,HOME_MENUE) VALUES (" & CONSTRUCTOR_IDTextBox.Text & ", " & row.Item(5) & ",'" & USER_USERNAME & "'," & home & ")"
If ClassDatabase.Execute_non_Query(insert, False) = False Then If ClassDatabase.Execute_non_Query(insert) = False Then
MsgBox("Could not insert the User-Definition....Check the logfile!", MsgBoxStyle.Exclamation) MsgBox("Could not insert the User-Definition....Check the logfile!", MsgBoxStyle.Exclamation)
End If End If
End If End If
@ -737,7 +730,7 @@ Public Class frmConstructorDesigner
For Each row As DataRow In DD_ECMAdmin.TBWH_Users1.Rows For Each row As DataRow In DD_ECMAdmin.TBWH_Users1.Rows
If row.Item(0) = CBool(True) Then If row.Item(0) = CBool(True) Then
Dim delete = "DELETE FROM TBPMO_CONSTRUCTOR_USER WHERE GUID = " & row.Item(5) Dim delete = "DELETE FROM TBPMO_CONSTRUCTOR_USER WHERE GUID = " & row.Item(5)
If ClassDatabase.Execute_non_Query(delete, True) Then If ClassDatabase.Execute_non_Query(delete) Then
refresh = True refresh = True
End If End If
End If End If
@ -770,14 +763,14 @@ Public Class frmConstructorDesigner
For Each row As DataRow In DD_ECMAdmin.TBWH_Users1.Rows For Each row As DataRow In DD_ECMAdmin.TBWH_Users1.Rows
If row.Item(0) = CBool(True) Then If row.Item(0) = CBool(True) Then
Dim sql = "SELECT HOME_MENUE FROM TBPMO_CONSTRUCTOR_USER WHERE GUID = " & row.Item(5) Dim sql = "SELECT HOME_MENUE FROM TBPMO_CONSTRUCTOR_USER WHERE GUID = " & row.Item(5)
Dim Home = ClassDatabase.Execute_Scalar(sql, True) Dim Home = ClassDatabase.Execute_Scalar(sql)
If Home = True Then If Home = True Then
Home = 0 Home = 0
Else Else
Home = 1 Home = 1
End If End If
sql = "UPDATE TBPMO_CONSTRUCTOR_USER SET HOME_MENUE = " & Home & " WHERE GUID = " & row.Item(5) sql = "UPDATE TBPMO_CONSTRUCTOR_USER SET HOME_MENUE = " & Home & " WHERE GUID = " & row.Item(5)
If ClassDatabase.Execute_non_Query(sql, True) Then If ClassDatabase.Execute_non_Query(sql) Then
refresh = True refresh = True
End If End If
End If End If
@ -890,7 +883,7 @@ Public Class frmConstructorDesigner
Dim item As MyListBoxItem = CType(obj, MyListBoxItem) Dim item As MyListBoxItem = CType(obj, MyListBoxItem)
Dim sql Dim sql
sql = String.Format("DELETE FROM TBPMO_CLIENT_ENTITY WHERE GUID = {0}", item.ExtraData) sql = String.Format("DELETE FROM TBPMO_CLIENT_ENTITY WHERE GUID = {0}", item.ExtraData)
If ClassDatabase.Execute_non_Query(sql, True) = False Then If ClassDatabase.Execute_non_Query(sql) = False Then
MsgBox(String.Format("Error in deleting Entity from Client", item.Text), MsgBoxStyle.Critical) MsgBox(String.Format("Error in deleting Entity from Client", item.Text), MsgBoxStyle.Critical)
End If End If
Next Next
@ -970,7 +963,7 @@ Public Class frmConstructorDesigner
Dim sel = String.Format("SELECT COUNT(GUID) FROM TBPMO_ENTITY_SUPERVISOR WHERE ENTITY_ID = {0} AND USER_ID = {1}", SELECTED_ENTITY_ID, row.Item(5)) Dim sel = String.Format("SELECT COUNT(GUID) FROM TBPMO_ENTITY_SUPERVISOR WHERE ENTITY_ID = {0} AND USER_ID = {1}", SELECTED_ENTITY_ID, row.Item(5))
If ClassDatabase.Execute_Scalar(sel) = 0 Then If ClassDatabase.Execute_Scalar(sel) = 0 Then
Dim insert = String.Format("INSERT INTO TBPMO_ENTITY_SUPERVISOR ([ENTITY_ID], USER_ID,RIGHT1,ADDED_WHO) VALUES ({0},{1},'{2}','{3}')", SELECTED_ENTITY_ID, row.Item(5), right, USER_USERNAME) Dim insert = String.Format("INSERT INTO TBPMO_ENTITY_SUPERVISOR ([ENTITY_ID], USER_ID,RIGHT1,ADDED_WHO) VALUES ({0},{1},'{2}','{3}')", SELECTED_ENTITY_ID, row.Item(5), right, USER_USERNAME)
If ClassDatabase.Execute_non_Query(insert, True) Then If ClassDatabase.Execute_non_Query(insert) Then
End If End If
End If End If
End If End If
@ -990,7 +983,7 @@ Public Class frmConstructorDesigner
For Each row As DataRow In DD_ECMAdmin.TBWH_Users2.Rows For Each row As DataRow In DD_ECMAdmin.TBWH_Users2.Rows
If row.Item(0) = CBool(True) Then If row.Item(0) = CBool(True) Then
Dim delete = String.Format("DELETE FROM TBPMO_ENTITY_SUPERVISOR WHERE USER_ID = {0} AND ENTITY_ID = {1}", row.Item(5), SELECTED_ENTITY_ID) Dim delete = String.Format("DELETE FROM TBPMO_ENTITY_SUPERVISOR WHERE USER_ID = {0} AND ENTITY_ID = {1}", row.Item(5), SELECTED_ENTITY_ID)
If ClassDatabase.Execute_non_Query(delete, True) Then If ClassDatabase.Execute_non_Query(delete) Then
refresh = True refresh = True
End If End If
End If End If
@ -1020,7 +1013,7 @@ Public Class frmConstructorDesigner
Dim item As MyListBoxItem = CType(obj, MyListBoxItem) Dim item As MyListBoxItem = CType(obj, MyListBoxItem)
Dim sql Dim sql
sql = String.Format("DELETE FROM TBPMO_SUPERVISOR_CONTROLS WHERE GUID = {0}", item.ExtraData) sql = String.Format("DELETE FROM TBPMO_SUPERVISOR_CONTROLS WHERE GUID = {0}", item.ExtraData)
If ClassDatabase.Execute_non_Query(sql, True) = False Then If ClassDatabase.Execute_non_Query(sql) = False Then
MsgBox(String.Format("Error in deleting SupervisorControl", item.Text), MsgBoxStyle.Critical) MsgBox(String.Format("Error in deleting SupervisorControl", item.Text), MsgBoxStyle.Critical)
End If End If
Next Next

1471
app/DD-Record-Organiser/frmConstructor_Main.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

1469
app/DD-Record-Organiser/frmConstructor_Main.ar-EG.resx
View File

File diff suppressed because it is too large Load Diff

751
app/DD-Record-Organiser/frmConstructor_Main.en-US.resx
View File

@ -118,6 +118,62 @@
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader> </resheader>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" /> <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="cmsTreeView.Size" type="System.Drawing.Size, System.Drawing">
<value>189, 160</value>
</data>
<data name="ContextMenuGrid.Size" type="System.Drawing.Size, System.Drawing">
<value>227, 270</value>
</data>
<data name="GridControlMain.Size" type="System.Drawing.Size, System.Drawing">
<value>1084, 212</value>
</data>
<data name="ToolStripRecords.Size" type="System.Drawing.Size, System.Drawing">
<value>1084, 25</value>
</data>
<data name="SplitContainerTop.Size" type="System.Drawing.Size, System.Drawing">
<value>1379, 237</value>
</data>
<data name="TabDetails.Size" type="System.Drawing.Size, System.Drawing">
<value>1373, 365</value>
</data>
<data name="TabDetails.Text" xml:space="preserve">
<value>Details</value>
</data>
<data name="TCDetails.Size" type="System.Drawing.Size, System.Drawing">
<value>1379, 396</value>
</data>
<data name="TabPos.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAASdEVYdFRpdGxlAExpc3Q7QnVsbGV0O1FzfzkAAABa
SURBVDhPY/j//z9FGEPAxsaGEYhBNF4MUw/TVADED0A0kkHMQMyCBbOCaHQDQJr/g2gkA0B8nBimDqYY
wwXEYqyCpGCsgqRgMEGxF6CaQYEzGogjMRD/MwAARTWKOO3Nn7MAAAAASUVORK5CYII=
</value>
</data>
<data name="TabPos.Size" type="System.Drawing.Size, System.Drawing">
<value>1373, 365</value>
</data>
<data name="TabPos.Text" xml:space="preserve">
<value>positions</value>
</data>
<data name="TabWindream.Size" type="System.Drawing.Size, System.Drawing">
<value>1373, 365</value>
</data>
<data name="TabWindream.Text" xml:space="preserve">
<value>windream-files</value>
</data>
<data name="TabFollowUp.Size" type="System.Drawing.Size, System.Drawing">
<value>1373, 365</value>
</data>
<data name="TabFollowUp.Text" xml:space="preserve">
<value>Follow Up</value>
</data>
<data name="TabPageVariant.Size" type="System.Drawing.Size, System.Drawing">
<value>1373, 365</value>
</data>
<data name="SplitContainerMain.Size" type="System.Drawing.Size, System.Drawing">
<value>1379, 645</value>
</data>
<data name="ResetEbenenAuswahlToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing"> <data name="ResetEbenenAuswahlToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>188, 22</value> <value>188, 22</value>
</data> </data>
@ -127,14 +183,14 @@
<data name="ToolStripSeparator14.Size" type="System.Drawing.Size, System.Drawing"> <data name="ToolStripSeparator14.Size" type="System.Drawing.Size, System.Drawing">
<value>185, 6</value> <value>185, 6</value>
</data> </data>
<data name="DateiimportEntitätToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing"> <data name="FormDesignerToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>188, 22</value> <value>
</data> iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
<data name="DateiimportEntitätToolStripMenuItem.Text" xml:space="preserve"> xAAADsQBlSsOGwAAAMpJREFUSEu9lUEOwyAMBHlS38Dj+GafkPbC1WWRRY1qEhtCV1opCngmJIcEIgo5
<value>FileImport Entity</value> Z9IaHNHm0SaIMXati44MGVLwOt61bdGRIeOvAlmroOx7cHXGykcuewA+uDoDgpmU4QpPKRFarp+4x8vf
</data> zAgkHK+CBTjFusAFRzwCNxyxCqbgiEUwDUeuBEtw5EywDEdGglvgiCa4DY5cCZbgCARlGBCtAJvgYqZr
<data name="ToolStripSeparator15.Size" type="System.Drawing.Size, System.Drawing"> E+BVyPIGnMT05CNGJ9j+P9gukJ0V/DDOPjLPmqLNo1WwrxQ+GCNWVrb1cMEAAAAASUVORK5CYII=
<value>185, 6</value> </value>
</data> </data>
<data name="FormDesignerToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing"> <data name="FormDesignerToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>188, 22</value> <value>188, 22</value>
@ -142,23 +198,181 @@
<data name="ToolStripSeparator13.Size" type="System.Drawing.Size, System.Drawing"> <data name="ToolStripSeparator13.Size" type="System.Drawing.Size, System.Drawing">
<value>185, 6</value> <value>185, 6</value>
</data> </data>
<data name="EntitätssucheStartenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>188, 22</value>
</data>
<data name="EntitätssucheStartenToolStripMenuItem.Text" xml:space="preserve">
<value>Start Entity-Search</value>
</data>
<data name="ToolStripSeparator12.Size" type="System.Drawing.Size, System.Drawing">
<value>185, 6</value>
</data>
<data name="AuswertungAnzeigenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing"> <data name="AuswertungAnzeigenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>188, 22</value> <value>188, 22</value>
</data> </data>
<data name="AuswertungAnzeigenToolStripMenuItem.Text" xml:space="preserve"> <data name="AuswertungAnzeigenToolStripMenuItem.Text" xml:space="preserve">
<value>Show Charts</value> <value>Show Charts</value>
</data> </data>
<data name="CMSEntity.Size" type="System.Drawing.Size, System.Drawing"> <data name="tsmiFilesearch.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>189, 160</value> <value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAIISURBVDhPY/jx4wdFGKsgFDMBsQMQpwFxAhBbAjGG
OgwBKHb5+v3HtkW3X5+vPPv0fv35Z3dW3X1zFijeBMTmSOqwGuB0/dWn/aFbbr03W37lPzJO3Hnn1dMP
X3YB1RjD1KNrZvr67fu2yKVX3llOOfs/etnVd4tPP70w58Tjy0ELL38CiaWtuf4CqK4OpgfdALvlp56c
s+w5+T9y3sV3IMOAYk5A7P3649cd3tPOfgXJnbn/9hBQTAGkB92AlPp1N+5Zthz9P+/gg0tAvhuSXFzr
ppu30eWQNYNwQvOaa3csaw78n7L99lUgPxxJLq1mxZX7ILnFB+9fAPJBLsMwQHf3uafHLUt3//eoP/D9
0cuPu4Fi+UBcfPHumwMOVXv/2JTv+Xv32fu9QDFhkB50A+JOXnt+2LZg2x/L3C3/HYu3/y6ZcfJRwdQT
T2Bik9ZduQZUB0obYD2omq88PeyUs/6XRerq/8FV2z6CaBi2zVj7Z9Kq8yDNWUDMBtMH13z8wsPDtvHz
fhmHz/yf1rjp+dev37fdf/xmz6b9105tP3zzxIvXH3YC1aUAMVwzCIMIpaNnbx82Der4pe3Z9D+hbCFQ
8zdQ9OkDsSAQgxINiM0NxHCNMAwiQhv7VtxQssr4H5ndi6wZQzE2DCJAJmdNmbnw3JcvX0nSDMLIHDsg
BuVAZDEC+AcDADVk7WUUiqKZAAAAAElFTkSuQmCC
</value>
</data>
<data name="tsmiFilesearch.Size" type="System.Drawing.Size, System.Drawing">
<value>188, 22</value>
</data>
<data name="tsmiFilesearch.Text" xml:space="preserve">
<value>Search files</value>
</data>
<data name="tsmiNodedownSearch.Size" type="System.Drawing.Size, System.Drawing">
<value>273, 22</value>
</data>
<data name="tsmiNodedownSearch.Text" xml:space="preserve">
<value>EntitySearch - all files below this node</value>
</data>
<data name="tsmientitySearch.Size" type="System.Drawing.Size, System.Drawing">
<value>273, 22</value>
</data>
<data name="tsmientitySearch.Text" xml:space="preserve">
<value>EntitySearch- "all files"</value>
</data>
<data name="tsmiFulltext.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGOfPtRkwAAACBjSFJNAACH
DwAAjA8AAP1SAACBQAAAfXkAAOmLAAA85QAAGcxzPIV3AAAKOWlDQ1BQaG90b3Nob3AgSUNDIHByb2Zp
bGUAAEjHnZZ3VFTXFofPvXd6oc0wAlKG3rvAANJ7k15FYZgZYCgDDjM0sSGiAhFFRJoiSFDEgNFQJFZE
sRAUVLAHJAgoMRhFVCxvRtaLrqy89/Ly++Osb+2z97n77L3PWhcAkqcvl5cGSwGQyhPwgzyc6RGRUXTs
AIABHmCAKQBMVka6X7B7CBDJy82FniFyAl8EAfB6WLwCcNPQM4BOB/+fpFnpfIHomAARm7M5GSwRF4g4
JUuQLrbPipgalyxmGCVmvihBEcuJOWGRDT77LLKjmNmpPLaIxTmns1PZYu4V8bZMIUfEiK+ICzO5nCwR
3xKxRoowlSviN+LYVA4zAwAUSWwXcFiJIjYRMYkfEuQi4uUA4EgJX3HcVyzgZAvEl3JJS8/hcxMSBXQd
li7d1NqaQffkZKVwBALDACYrmcln013SUtOZvBwAFu/8WTLi2tJFRbY0tba0NDQzMv2qUP91829K3NtF
ehn4uWcQrf+L7a/80hoAYMyJarPziy2uCoDOLQDI3fti0zgAgKSobx3Xv7oPTTwviQJBuo2xcVZWlhGX
wzISF/QP/U+Hv6GvvmckPu6P8tBdOfFMYYqALq4bKy0lTcinZ6QzWRy64Z+H+B8H/nUeBkGceA6fwxNF
hImmjMtLELWbx+YKuGk8Opf3n5r4D8P+pMW5FonS+BFQY4yA1HUqQH7tBygKESDR+8Vd/6NvvvgwIH55
4SqTi3P/7zf9Z8Gl4iWDm/A5ziUohM4S8jMX98TPEqABAUgCKpAHykAd6ABDYAasgC1wBG7AG/iDEBAJ
VgMWSASpgA+yQB7YBApBMdgJ9oBqUAcaQTNoBcdBJzgFzoNL4Bq4AW6D+2AUTIBnYBa8BgsQBGEhMkSB
5CEVSBPSh8wgBmQPuUG+UBAUCcVCCRAPEkJ50GaoGCqDqqF6qBn6HjoJnYeuQIPQXWgMmoZ+h97BCEyC
qbASrAUbwwzYCfaBQ+BVcAK8Bs6FC+AdcCXcAB+FO+Dz8DX4NjwKP4PnEIAQERqiihgiDMQF8UeikHiE
j6xHipAKpAFpRbqRPuQmMorMIG9RGBQFRUcZomxRnqhQFAu1BrUeVYKqRh1GdaB6UTdRY6hZ1Ec0Ga2I
1kfboL3QEegEdBa6EF2BbkK3oy+ib6Mn0K8xGAwNo42xwnhiIjFJmLWYEsw+TBvmHGYQM46Zw2Kx8lh9
rB3WH8vECrCF2CrsUexZ7BB2AvsGR8Sp4Mxw7rgoHA+Xj6vAHcGdwQ3hJnELeCm8Jt4G749n43PwpfhG
fDf+On4Cv0CQJmgT7AghhCTCJkIloZVwkfCA8JJIJKoRrYmBRC5xI7GSeIx4mThGfEuSIemRXEjRJCFp
B+kQ6RzpLuklmUzWIjuSo8gC8g5yM/kC+RH5jQRFwkjCS4ItsUGiRqJDYkjiuSReUlPSSXK1ZK5kheQJ
yeuSM1J4KS0pFymm1HqpGqmTUiNSc9IUaVNpf+lU6RLpI9JXpKdksDJaMm4ybJkCmYMyF2TGKQhFneJC
YVE2UxopFykTVAxVm+pFTaIWU7+jDlBnZWVkl8mGyWbL1sielh2lITQtmhcthVZKO04bpr1borTEaQln
yfYlrUuGlszLLZVzlOPIFcm1yd2WeydPl3eTT5bfJd8p/1ABpaCnEKiQpbBf4aLCzFLqUtulrKVFS48v
vacIK+opBimuVTyo2K84p6Ss5KGUrlSldEFpRpmm7KicpFyufEZ5WoWiYq/CVSlXOavylC5Ld6Kn0Cvp
vfRZVUVVT1Whar3qgOqCmrZaqFq+WpvaQ3WCOkM9Xr1cvUd9VkNFw08jT6NF454mXpOhmai5V7NPc15L
Wytca6tWp9aUtpy2l3audov2Ax2yjoPOGp0GnVu6GF2GbrLuPt0berCehV6iXo3edX1Y31Kfq79Pf9AA
bWBtwDNoMBgxJBk6GWYathiOGdGMfI3yjTqNnhtrGEcZ7zLuM/5oYmGSYtJoct9UxtTbNN+02/R3Mz0z
llmN2S1zsrm7+QbzLvMXy/SXcZbtX3bHgmLhZ7HVosfig6WVJd+y1XLaSsMq1qrWaoRBZQQwShiXrdHW
ztYbrE9Zv7WxtBHYHLf5zdbQNtn2iO3Ucu3lnOWNy8ft1OyYdvV2o/Z0+1j7A/ajDqoOTIcGh8eO6o5s
xybHSSddpySno07PnU2c+c7tzvMuNi7rXM65Iq4erkWuA24ybqFu1W6P3NXcE9xb3Gc9LDzWepzzRHv6
eO7yHPFS8mJ5NXvNelt5r/Pu9SH5BPtU+zz21fPl+3b7wX7efrv9HqzQXMFb0ekP/L38d/s/DNAOWBPw
YyAmMCCwJvBJkGlQXlBfMCU4JvhI8OsQ55DSkPuhOqHC0J4wybDosOaw+XDX8LLw0QjjiHUR1yIVIrmR
XVHYqLCopqi5lW4r96yciLaILoweXqW9KnvVldUKq1NWn46RjGHGnIhFx4bHHol9z/RnNjDn4rziauNm
WS6svaxnbEd2OXuaY8cp40zG28WXxU8l2CXsTphOdEisSJzhunCruS+SPJPqkuaT/ZMPJX9KCU9pS8Wl
xqae5Mnwknm9acpp2WmD6frphemja2zW7Fkzy/fhN2VAGasyugRU0c9Uv1BHuEU4lmmfWZP5Jiss60S2
dDYvuz9HL2d7zmSue+63a1FrWWt78lTzNuWNrXNaV78eWh+3vmeD+oaCDRMbPTYe3kTYlLzpp3yT/LL8
V5vDN3cXKBVsLBjf4rGlpVCikF84stV2a9021DbutoHt5turtn8sYhddLTYprih+X8IqufqN6TeV33za
Eb9joNSydP9OzE7ezuFdDrsOl0mX5ZaN7/bb3VFOLy8qf7UnZs+VimUVdXsJe4V7Ryt9K7uqNKp2Vr2v
Tqy+XeNc01arWLu9dn4fe9/Qfsf9rXVKdcV17w5wD9yp96jvaNBqqDiIOZh58EljWGPft4xvm5sUmoqb
PhziHRo9HHS4t9mqufmI4pHSFrhF2DJ9NProje9cv+tqNWytb6O1FR8Dx4THnn4f+/3wcZ/jPScYJ1p/
0Pyhtp3SXtQBdeR0zHYmdo52RXYNnvQ+2dNt293+o9GPh06pnqo5LXu69AzhTMGZT2dzz86dSz83cz7h
/HhPTM/9CxEXbvUG9g5c9Ll4+ZL7pQt9Tn1nL9tdPnXF5srJq4yrndcsr3X0W/S3/2TxU/uA5UDHdavr
XTesb3QPLh88M+QwdP6m681Lt7xuXbu94vbgcOjwnZHokdE77DtTd1PuvriXeW/h/sYH6AdFD6UeVjxS
fNTws+7PbaOWo6fHXMf6Hwc/vj/OGn/2S8Yv7ycKnpCfVEyqTDZPmU2dmnafvvF05dOJZ+nPFmYKf5X+
tfa5zvMffnP8rX82YnbiBf/Fp99LXsq/PPRq2aueuYC5R69TXy/MF72Rf3P4LeNt37vwd5MLWe+x7ys/
6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALEwAACxMBAJqcGAAAAvJJREFUWEfFk71y2kAQ
gD15gAxFmrQ2fw4YCYTAEkgIDAZhfgRIYIwBAZ7UnvSZcZMuPTOuXGVSunTpyjVFHoAHcEFFu9mTLQ3g
S5HmXHwzd9+tbnfvTnsA8K5QJUuokiVUyRKqZAlVsoQqWUKVLKFKllAlS6iSJVRJmM1mD4i+66+uZovZ
bArT6QQmE3tl2/bSHo8Xo9Hwfnh5yW/G9npdwbKspdnpAMFoNVfNRiNSq9d/uTFe8C6YfI0sd/1kMvHZ
Extsewzj0ahN3PByYA0Gfej3z714y+qo7U4bWi1j1TSaBnG12pmvWtXv9UoZpy9xW5u7YOI5Aq9Udtex
W8BuYTAYOAUQer0eYLcrMm63W76W4XQL9Xrtxo1xKZVKj+54a8EFN37CxL9JAdPp9OHt+gXpFs573a9k
blqm/Nqtk6zRqP/EbqFarYKuV7TNbwmapn1wx1sLhGKxWDk5OZkPh0PZHtswHI3WWNDnzRi8W+h2LTDN
zgq7hZZhQLPZuK3Xaj6yXtX120q5DKflUygVS4eb3+7yRuTz+Qc8ojgZX/T7f87xaE3TnG/GYIfgdHhW
da6gXC7r+A1g4c7Ravn8bS6XA0VVIJvJ/F8BiqKsG3h3lmVCp40vF7vDe3zejCmVipisAPm85r0BRcmC
nMmAqqo36XT6e0oUIZkUICEknAf4L7YmsizPs9nsj01XKVeeSXeFQuGb6/AOIaeqgMV6BRxLx5BOp7AI
+U4QBF88Hl/xHAexWOzOjXEJhULeu/AkVu0TRfE5mUx+ch0Bj/MJE4EkS84vpirKR9JtJiODLEnOI0yl
xMZLt/HHGBeTiTs6OjKikQh8iXyBw/DhNXHBYJAPBAI3fn9gQeYEL1EikVjyPA+4AUSjUefXy2Yza0mS
QBRTIAgJ4DhuqWk5oMHx3LWb3CUcDvOhYPA+GAysMDH4/f7FwcHB9f7+vvNYCV7we0GVLKFKllAlS6iS
JVTJEqpkCVWyhCpZQpUsoUp2wN5fDbb8rJwXp9gAAAAASUVORK5CYII=
</value>
</data>
<data name="tsmiFulltext.Size" type="System.Drawing.Size, System.Drawing">
<value>273, 22</value>
</data>
<data name="tsmiFulltext.Text" xml:space="preserve">
<value>Fulltextsearch</value>
</data>
<data name="ToolStripSeparator12.Size" type="System.Drawing.Size, System.Drawing">
<value>185, 6</value>
</data>
<data name="ToolStripSeparator24.Size" type="System.Drawing.Size, System.Drawing">
<value>185, 6</value>
</data>
<data name="tsmi_NewNode.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
xAAADsQBlSsOGwAAAFxJREFUOE/NjFEKgDAMQ3e23v88/Y1YOslqhE1hGHgfS5fXAHxCliuMD4q7o5Kn
yJTAzC72CM5PTBUwfXMT8OiJnwuYOmL6ZhBwlCBPkT2CSp4iUvAGWa4gy3nQDiNEflNl/3oXAAAAAElF
TkSuQmCC
</value>
</data>
<data name="tsmi_NewNode.Size" type="System.Drawing.Size, System.Drawing">
<value>188, 22</value>
</data>
<data name="tsmi_NewNode.Text" xml:space="preserve">
<value>New node</value>
</data>
<data name="SdsdToolStripMenuItem.Text" xml:space="preserve">
<value>Nodecaption:</value>
</data>
<data name="OberhalbToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
xAAADsQBlSsOGwAAAG1JREFUOE+1kdEJgDAMRDtbhssa3TK/0ZSIxV5Co3jwUI7LA7Gp6idgWQGWFWBZ
4X7xiEg/UUD3yUgosNjYjphZiWg8n5JF4IOFSAIFNsyYJf8IENufMMdG2bElFFzHgPw3vgWWFWBZAZb7
aDsAn1PBeUq8SBsAAAAASUVORK5CYII=
</value>
</data>
<data name="OberhalbToolStripMenuItem.Text" xml:space="preserve">
<value>Add at this level</value>
</data>
<data name="UnterhalbToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
xAAADsQBlSsOGwAAAJVJREFUOE+lkdEJxDAMQztbhssat2V+fZWxD1vKR8IZBLX8JEr7mNlf2po3UiNm
rWVVYSsvRgxCYwzXVcELfwDuCnBjvi0QYIBckB7zbYECdlGBi/m2QIDmnFKQHvNtgTKIQBbk83FBDdeS
0wL/WPwG8HBjvi1uxO/KkhrGTXgxYrKkhjHCi1EmSn5hjPBs3GprnsueLz0XwXnZAqB7AAAAAElFTkSu
QmCC
</value>
</data>
<data name="UnterhalbToolStripMenuItem.Text" xml:space="preserve">
<value>Add below this level</value>
</data>
<data name="tsmiNodeDelete.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGOfPtRkwAAACBjSFJNAAB6
JQAAgIMAAPn/AACA6QAAdTAAAOpgAAA6mAAAF2+SX8VGAAAACXBIWXMAAAsTAAALEwEAmpwYAAACLUlE
QVQ4T52TvY/ScBjHuVIRKHA9JAgnL+VoC7TX0kLLS6EvFBTa0uj5J7gYF+PsfpOTMrg4ORgHY+LCYJwc
TYyJiYuDLu7GxHgxd/Hnr5fA8TZcrsmnzfN9nufTNPnVBwDw2ZYljGzr3ciyTNu2EC87L75eb+DvD67f
hU9g9vt/HNs5cMaOf9Owohro7YNbe8PhjfuzzBOgkDuabk6bbRXoxuBkNLIeus6yhKyIwY5umo5tHxmG
+Wwu8G5QkIa0jN5gqnR1oOkGuOk6b1x3jHl9uaWGhpb1UtXNY1luPmJ4KbIkmAElAcgD3egfa5oJxq77
oq3ovKJoE7XbBbwoTWhG2F7cWRJ4dFR1S9fNCvykT41mB9TqjSOxXvtJM9zrYokLrc4vFYtUBcngq9Lf
tqICvlr7RhQr8U1za4FHXZIIurT/mePFf1AEJLkFGJb7uml2LRBrcp4us1+g4KRcYV8lkmkplyenglgH
VIm9tzq/VJRZLpUlih9yBQrAt79Pp3bjkVgM244nsPwe/VQQ6r8pRsgu7pwtC61grkA/T10r/NrnxB8s
V2VmvQiOB0MhLMZVxY/pDPEkU6DnZ2Qu2M0STjJFAIpmAUmXD0NY9PQMzEBRPwJzkiSp71F8J1/ipNMj
f9rE8XggkUgexq9cBXmi+DYYjtCRGL72T+D4jr/RaE+waFgu8c0zgUcmT9UuBS4/9m0hmh9Fo7N8FXih
CIKE5/Vi8yJsDM8P8P0HLGwR4Wl3ICYAAAAASUVORK5CYII=
</value>
</data>
<data name="tsmiNodeDelete.Size" type="System.Drawing.Size, System.Drawing">
<value>188, 22</value>
</data>
<data name="tsmiNodeDelete.Text" xml:space="preserve">
<value>Delete node</value>
</data> </data>
<data name="FunktionenDataGridToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing"> <data name="FunktionenDataGridToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>226, 22</value> <value>226, 22</value>
@ -238,11 +452,19 @@
<data name="DetailAnsichtDatensatzToolStripMenuItem.Text" xml:space="preserve"> <data name="DetailAnsichtDatensatzToolStripMenuItem.Text" xml:space="preserve">
<value>Detail-View Record</value> <value>Detail-View Record</value>
</data> </data>
<data name="ContextMenuGrid.Size" type="System.Drawing.Size, System.Drawing"> <data name="ToolStripDropDownButton3.Size" type="System.Drawing.Size, System.Drawing">
<value>227, 270</value> <value>109, 22</value>
</data> </data>
<data name="GridControlMain.Size" type="System.Drawing.Size, System.Drawing"> <data name="ToolStripDropDownButton3.Text" xml:space="preserve">
<value>1091, 212</value> <value>record-functions</value>
</data>
<data name="CopyRecordtsmi.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wwAADsMBx2+oZAAAAFhJREFUOE9jwAa+ffv2nxgMVY4JQJJOTk54Mf0M+PD+IwrGagCIQwzGawBMAhem
nwEwv8IwsoZhYACMDeNDtdPRAHQM1Y5qAC6MogEdUMUAYjBUORJgYAAAnlgvt6X+ezUAAAAASUVORK5C
YII=
</value>
</data> </data>
<data name="CopyRecordtsmi.Size" type="System.Drawing.Size, System.Drawing"> <data name="CopyRecordtsmi.Size" type="System.Drawing.Size, System.Drawing">
<value>226, 22</value> <value>226, 22</value>
@ -298,12 +520,6 @@
<data name="AnwendungscacheResettsmi.Text" xml:space="preserve"> <data name="AnwendungscacheResettsmi.Text" xml:space="preserve">
<value>Reset application-cache</value> <value>Reset application-cache</value>
</data> </data>
<data name="ToolStripDropDownButton3.Size" type="System.Drawing.Size, System.Drawing">
<value>125, 22</value>
</data>
<data name="ToolStripDropDownButton3.Text" xml:space="preserve">
<value>record-functions</value>
</data>
<data name="tsbtnRefresh_Entity.Size" type="System.Drawing.Size, System.Drawing"> <data name="tsbtnRefresh_Entity.Size" type="System.Drawing.Size, System.Drawing">
<value>108, 22</value> <value>108, 22</value>
</data> </data>
@ -316,14 +532,31 @@
<data name="tsbtnGeodata.Text" xml:space="preserve"> <data name="tsbtnGeodata.Text" xml:space="preserve">
<value>geodata navigation</value> <value>geodata navigation</value>
</data> </data>
<data name="ToolStripRecords.Size" type="System.Drawing.Size, System.Drawing">
<value>1091, 25</value>
</data>
<data name="SplitContainerTop.Size" type="System.Drawing.Size, System.Drawing">
<value>1379, 237</value>
</data>
<data name="pnlDocFill.Size" type="System.Drawing.Size, System.Drawing"> <data name="pnlDocFill.Size" type="System.Drawing.Size, System.Drawing">
<value>578, 293</value> <value>571, 286</value>
</data>
<data name="statStripDoc.Size" type="System.Drawing.Size, System.Drawing">
<value>571, 24</value>
</data>
<data name="pnlDocToolStrip.Size" type="System.Drawing.Size, System.Drawing">
<value>571, 26</value>
</data>
<data name="SplitContainerDetails.Size" type="System.Drawing.Size, System.Drawing">
<value>1373, 340</value>
</data>
<data name="tslblDocViewLocked.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAGwSURBVDhPlZO7S8NwFIULioMPBEEcHH3sdpD6QEUo
KPhHCK7t3EFQCwGrVbrUQukgCIKg+Bi6FAylpoUabW3AB9SqFBcFH7U6KRzvDUmatB10+Pgl5577JUNi
A6ASiUTMdBILhEJAO+eJDsLSNQTBYFBnLhQKIZlMolgsolQqqackSeCc5rOmbkVwvNho8/v93YFAAIVC
AalUCuFwGJTxGyCdTiOfz4Pn3OM+YxF4vV4hFotBFEXQ9Q4xquVOYj8ej4Pn3Ksr8Hg8d7lcDoIggK7H
9ZI2c/p8PvCce3puEbhcrnI2mwWfekGHsga32w1FUXj+o+dmQYjAP+C+RYDv14M/o0msgq+bmT9TT/BT
vprC5/W0we1uL+T1FvU054y41MSCBrPg8eVsHOVLp4G83mxgzt8yE7z8XP0Gm/dRO8rKpAV1uSp7iA6w
YKtaMJjwteH1dBgfF2MG8lozCns9xv372Qik1XYWDFULGEHe6CSJA6XsSA1vsgOZcBcvr2r9GgGznFim
px724Slhx/v5EJ5O7Lg76oe00mpZZuoJmEFik8gTvMSf7jah/hsVGm2/4uVvpN0vK3IAAAAASUVORK5C
YII=
</value>
</data> </data>
<data name="tslblDocViewLocked.Size" type="System.Drawing.Size, System.Drawing"> <data name="tslblDocViewLocked.Size" type="System.Drawing.Size, System.Drawing">
<value>279, 19</value> <value>279, 19</value>
@ -331,14 +564,8 @@
<data name="tslblDocViewLocked.Text" xml:space="preserve"> <data name="tslblDocViewLocked.Text" xml:space="preserve">
<value>View is locked - Click Work Record for unlocking</value> <value>View is locked - Click Work Record for unlocking</value>
</data> </data>
<data name="statStripDoc.Size" type="System.Drawing.Size, System.Drawing"> <data name="ToolStripEdit.Size" type="System.Drawing.Size, System.Drawing">
<value>578, 24</value> <value>1373, 25</value>
</data>
<data name="pnlDocToolStrip.Size" type="System.Drawing.Size, System.Drawing">
<value>578, 26</value>
</data>
<data name="SplitContainerDetails.Size" type="System.Drawing.Size, System.Drawing">
<value>1373, 347</value>
</data> </data>
<data name="tsButtonAdd.Size" type="System.Drawing.Size, System.Drawing"> <data name="tsButtonAdd.Size" type="System.Drawing.Size, System.Drawing">
<value>49, 22</value> <value>49, 22</value>
@ -379,7 +606,7 @@
<value>Workflow/Tasks Overview</value> <value>Workflow/Tasks Overview</value>
</data> </data>
<data name="tsbtnRedo.Size" type="System.Drawing.Size, System.Drawing"> <data name="tsbtnRedo.Size" type="System.Drawing.Size, System.Drawing">
<value>118, 22</value> <value>102, 22</value>
</data> </data>
<data name="tsbtnRedo.Text" xml:space="preserve"> <data name="tsbtnRedo.Text" xml:space="preserve">
<value>Set changes back</value> <value>Set changes back</value>
@ -408,17 +635,229 @@
<data name="tslblFileslocked.Text" xml:space="preserve"> <data name="tslblFileslocked.Text" xml:space="preserve">
<value>No file-access</value> <value>No file-access</value>
</data> </data>
<data name="ToolStripEdit.Size" type="System.Drawing.Size, System.Drawing"> <data name="Panel1.Size" type="System.Drawing.Size, System.Drawing">
<value>1373, 340</value>
</data>
<data name="GridControlPos.Size" type="System.Drawing.Size, System.Drawing">
<value>1373, 340</value>
</data>
<data name="BindingNavigatorAddNewItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wwAADsMBx2+oZAAAAUpJREFUOE9jGLzg7gL2/7fmcf6/Oofr/8UZvP+hwsSD60CNfx41/v/zsOH/yckC
pBtwfjov3ICDPSKkG3B8kiBQc93/Pw+q/u9oFydswKWZPP/PTuX7fxKo8Ui/0P993SJAzeX//94r+r++
Qeb/qhq5/0srFf/PL1X+P6tIFdPAU0B//nlYD9RUC8SV///cKwHivP9/72b+/3sn+f/f23H//92MAOKQ
/5NyNDENONQrDHbu3/ulQI0FQI3ZQI2pQI0J///digZqDPv/70bQ/3/X/f53peliGrCzXeL/lmap/+vA
zpX/v6RC8f/fWzFAjeH/p+Zp/J+QpfW/O0P3f3uq/v/mREPCYTIb6E+Qc//dCPjfk6FDWAM6APnz3w1/
IPb735qsT7oB3em6YP+CcH2cEekGtCQZ/G+IN/xfE2v8vzLahHQD6AQYGAAkI9iedfyIaQAAAABJRU5E
rkJggg==
</value>
</data>
<data name="BindingNavigatorAddNewItem.Size" type="System.Drawing.Size, System.Drawing">
<value>95, 22</value>
</data>
<data name="BindingNavigatorAddNewItem.Text" xml:space="preserve">
<value>Add position</value>
</data>
<data name="BindingNavigatorMoveFirstItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wwAADsMBx2+oZAAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77
wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0
v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg
UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA
Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu
lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII=
</value>
</data>
<data name="BindingNavigatorMovePreviousItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wwAADsMBx2+oZAAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w
5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f
Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+
08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC
</value>
</data>
<data name="BindingNavigatorMoveNextItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wwAADsMBx2+oZAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78
n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI
N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f
oAc0QjgAAAAASUVORK5CYII=
</value>
</data>
<data name="BindingNavigatorMoveLastItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wwAADsMBx2+oZAAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+//
h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B
twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA
kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG
WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9
8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg==
</value>
</data>
<data name="BindingNavigatorDeleteItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wwAADsMBx2+oZAAAAW9JREFUOE+1kE0ow2Ecx3dV3krt4oJaOSCTvIRkMqSxyITIzCQHDouEdnFwIOVC
DrhIDiQl5UTiNG/z2ppafy1S2gX/uDwfY6i1v7Hie3nqeb7fz+/7/FR/Ilwn0G0Exw4fV5GJlXlEZxXC
rIet9bAQvB5Ymgn2sLYAvSZEux7RUQFzE4qQt4bCXAYjPaHvnDoCkLpsRGMB2JqCTGLIijDlwqQ9bEMV
i9OIytR3EMNWcJ/BWH8A6j8/bOGFxwXNxYEvGbMQ9XnQ1/K78KfY3/VXzkMY0qFGG2H4RoLGQshJQNbG
86CNhdrsX9a/uQZTPhQl4rMY4OLofbl3aX7I8uwPC7y/g1YdjyVJuEvT8e1tfwUYteHUxCCfHChDeHmG
QQvokjlOU+PbWA0x3pZnILVVI3uvQyHsbiLnqnGmRCF1NYD8pDhpRxOH7HQoAKZGkFKjceszQbpSrumX
bO+G80MFwKUTxgfgcO/b8D9IpXoFiiMDHIQm0skAAAAASUVORK5CYII=
</value>
</data>
<data name="BindingNavigatorDeleteItem.Size" type="System.Drawing.Size, System.Drawing">
<value>105, 22</value>
</data>
<data name="BindingNavigatorDeleteItem.Text" xml:space="preserve">
<value>delete position</value>
</data>
<data name="tsbtnWork.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAD5SURBVDhPlZK9EYMwDIUZITPRMwBdCgZITZWKNTJCCnpm
oadwBZSOP2MRW8Z3ybt7pz9LlmRX67o+t22zQuzqH5DUNI2t69pL7BD6DSSQLIwLGGNu2DHxhfABfQCG
ULXv+32aprM4Or4QPkBCqQOnv4dhOGPo+EL4QKmAtC/7gbKjZIxSAd2+MBujVMDJs/2+7z3RszGuCuj2
x3H0RM/GwNDU7S/L4il2MoZLMF3X+QAS2zHZvmYyBpXmebZt21qk+8oPuoi3r5mN4ZJeOJC6ffwxxZ+9
BslIdyjZPrY/4IBefA1wtf34FnT9GiF0gAM4Y8a/Ti74crMf2hAgpCi8t0QAAAAASUVORK5CYII=
</value>
</data>
<data name="tslblPoslocked.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAGwSURBVDhPlZO7S8NwFIULioMPBEEcHH3sdpD6QEUo
KPhHCK7t3EFQCwGrVbrUQukgCIKg+Bi6FAylpoUabW3AB9SqFBcFH7U6KRzvDUmatB10+Pgl5577JUNi
A6ASiUTMdBILhEJAO+eJDsLSNQTBYFBnLhQKIZlMolgsolQqqackSeCc5rOmbkVwvNho8/v93YFAAIVC
AalUCuFwGJTxGyCdTiOfz4Pn3OM+YxF4vV4hFotBFEXQ9Q4xquVOYj8ej4Pn3Ksr8Hg8d7lcDoIggK7H
9ZI2c/p8PvCce3puEbhcrnI2mwWfekGHsga32w1FUXj+o+dmQYjAP+C+RYDv14M/o0msgq+bmT9TT/BT
vprC5/W0we1uL+T1FvU054y41MSCBrPg8eVsHOVLp4G83mxgzt8yE7z8XP0Gm/dRO8rKpAV1uSp7iA6w
YKtaMJjwteH1dBgfF2MG8lozCns9xv372Qik1XYWDFULGEHe6CSJA6XsSA1vsgOZcBcvr2r9GgGznFim
px724Slhx/v5EJ5O7Lg76oe00mpZZuoJmEFik8gTvMSf7jah/hsVGm2/4uVvpN0vK3IAAAAASUVORK5C
YII=
</value>
</data>
<data name="tslblPoslocked.Text" xml:space="preserve">
<value>Positions locked</value>
</data>
<data name="BindingNavigatorPOS.Size" type="System.Drawing.Size, System.Drawing">
<value>1373, 25</value> <value>1373, 25</value>
</data> </data>
<data name="TabDetails.Size" type="System.Drawing.Size, System.Drawing"> <data name="cmsResultFilesBasic.Size" type="System.Drawing.Size, System.Drawing">
<value>1373, 372</value> <value>128, 48</value>
</data> </data>
<data name="TabDetails.Text" xml:space="preserve"> <data name="GridControlDocSearch.Size" type="System.Drawing.Size, System.Drawing">
<value>Details</value> <value>1373, 340</value>
</data> </data>
<data name="TCDetails.Size" type="System.Drawing.Size, System.Drawing"> <data name="cmDoc1FileOpen.Size" type="System.Drawing.Size, System.Drawing">
<value>1379, 403</value> <value>127, 22</value>
</data>
<data name="cmDoc1FileOpen.Text" xml:space="preserve">
<value>Open file</value>
</data>
<data name="cmDoc1FileProperties.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wwAADsMBx2+oZAAAAHlJREFUOE+VkUEKwDAIBH1b/v+XtpdcWxbcoBKrEaYi6iSksos559tFV3ygMcYo
KQX39aS0BTzNciTIaAuQCesjQcYS4NPFSp2ARZV/b2Cbkd2ME6CwzUj7BhTFzBnUliXgYAaHdxy9gf5l
H2jwhCrrig80uuiKCZEPDBGoa/9+56EAAAAASUVORK5CYII=
</value>
</data>
<data name="cmDoc1FileProperties.Size" type="System.Drawing.Size, System.Drawing">
<value>127, 22</value>
</data>
<data name="cmDoc1FileProperties.Text" xml:space="preserve">
<value>Properties</value>
</data>
<data name="ToolStripDokumente.Size" type="System.Drawing.Size, System.Drawing">
<value>1373, 25</value>
</data>
<data name="tsbtnDoc_Refresh.Size" type="System.Drawing.Size, System.Drawing">
<value>102, 22</value>
</data>
<data name="tsbtnDoc_Refresh.Text" xml:space="preserve">
<value>Reload search</value>
</data>
<data name="tsbtnStartFulltext.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAKrSURBVFhH7ZO/b9pAFMdR/4AqQ5dOkRIRUiDgQMABY0P4
EZsfNmBjHGxsDESdo+5VsnTrjpQpU9UxY8ZMmTP0D+APyMDE+vrudLFSJZHSLYM/0pPv3r3z9713d5GQ
kJCQkHfLbDa7mU6nTTYNOD2d38/nM5jNpuC67srzvCXavec51xPb5lgYxTTNLNpyYBhArNPprFRVTbTb
7V8s5HXm8/kabcmmAZPJZMOf+uD7E/BdVyc+17VNxxnBcDgM4odDXdINnYp2u90e8eF3Q1GU66YiAw16
DRReoAEzhbkDPM8FdzwG27ZpAgTLsgCrXZExEaLCmgaq2r6gAU9oNBq3bPgyjuPc4RH8JgmQo2DuAMex
YTQ6Acsyv5K5YRhFUm2/36Vimtb52em0odVqgSzLFeJ7yvn5+Qc2fE6tVlPQFuPxuOhPfHA9b40JfWbL
FMsaYrtN2l5d70O/14NuV70klZP1lixfKrIMx/Ix1Ov1L3TTWzk6OrrBBPbJ2B6N/pxgaweDwYIuMjRN
RXFaIT0CbGkTDarVKm1tpVK5LJfLIEoiSDz/fwmIorjW8OxMcwCGbkAPq2s2mw9smdJo1KFWqwImG9wB
USxBURAA91/wPP89n8vBwUEWstksvYBvolAoLARB+MGmFEVWHkh12JVvzEUqhLIkgSRJQQKHhUPg+Tzg
P67S6fRGPB5fcek0pFKpKxYSEIvFnt2LCNmEwQ+Y8SfmoqDYHVYFuWKOPrF8Pv+RVCsIRSJGLyHPH2ik
2kxm/zbBJYrEl0wme8lEAuKJOOzu7p4RXzQa5dAutre378n8HzKZzJLjOEilU4DZ06dXKglrFIFcLo+t
zMDe3t6yUinDS4YFnD2KP4L/4WLR6PXOTnSFwkCEt7a2zjY3N+llDQkJCQl5B0QifwHOFwaCeJJHzwAA
AABJRU5ErkJggg==
</value>
</data>
<data name="GroupBox4.Text" xml:space="preserve">
<value>Special recipient for record:</value>
</data>
<data name="btnRemoveUser_FollowUp.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAAK/INwWK6QAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAJpSURBVDhPpZP7S1NhGMf9W/SHKEGiGyFhFBTmvMyd
tTa3eTvL9LjFIpam7AzTDGoYuvCHcJbaVSt/yTSxUV4ycnYdWh4rL+3URq3pObumfNsmbS5HEL3weeE8
PJ/vy3nOeZMA/BcbCgsaTco8Van/QJUzsyqSm1GVcO9JJTNFyvW2UmnKn/1xD4tqDfGJotjvpib4RywI
vLUiMDEK/n43FrRleF1IsC+UQmK9EyfPVVD88t1urM6+Q3DwHoJdzQiaL+Dn7TasjA/CUauFVZ7NP5dm
RkMi27xanRyS7dzNLqwyNgQvn4O72YClphr4LxkQaKHhN56C/8EtLB4nMX7kgH1Msi85GhCSaWe9Hiu2
yciJPhMN13kdvA3qOLjTJPy91/AqLwPD4gw6GvCROsZ4eq8j2GOG21iFb0XihCxXkeCb6uAwVOMxkc5E
A5gKlTfwsBdBkwHus9pQKfFyyHLgogqxZG6FJW+XN1RaC5ghi7y+ng74G7XwnimPNCda4QBnmQJLba0Y
Em6LBUyXKhiXsQ6+ZhrcSWWkMSHyPLjra7FQq8OgIC32CrZiKc1IBPD2dMKtksBVJtogs9JssAUieLqu
YFS4AwNZW2JDfFMkTn5ZQtgXK0vgudMRGZhTIVwTZblgJSFZIgTf2Y6pYnFYtvcJNsc+Y5jJghxiQnaI
nzuqgOdGB3400nCQcnxRyuBq0IO/2o5pZT76s1L5kBz/I/3mmfQg8fTwftYq2oOvNTq4Wi5G+Fx9Ak9y
todldr0cJi4gzIh4b8qwMF1vIXYzj/J3ckOCrdxAbhrTn52q78vc9PfL9O8g6Rcd0s65aUjWSwAAAABJ
RU5ErkJggg==
</value>
</data>
<data name="btnRemoveUser_FollowUp.Text" xml:space="preserve">
<value>delete user</value>
</data>
<data name="btnAddUser_FollowUp.Text" xml:space="preserve">
<value>Add user tu follow up</value>
</data>
<data name="Label7.Size" type="System.Drawing.Size, System.Drawing">
<value>216, 13</value>
</data>
<data name="Label7.Text" xml:space="preserve">
<value>Attention: this list overdrives the general list.</value>
</data>
<data name="lblFollowUp_save.Size" type="System.Drawing.Size, System.Drawing">
<value>92, 15</value>
</data>
<data name="lblFollowUp_save.Text" xml:space="preserve">
<value>Follow Up saved</value>
</data>
<data name="Label5.Size" type="System.Drawing.Size, System.Drawing">
<value>91, 13</value>
</data>
<data name="Label5.Text" xml:space="preserve">
<value>Saved Follow Ups</value>
</data>
<data name="GridControl1.Size" type="System.Drawing.Size, System.Drawing">
<value>1373, 340</value>
</data>
<data name="tsVariants.Size" type="System.Drawing.Size, System.Drawing">
<value>1373, 25</value>
</data>
<data name="ToolStripButton1.Size" type="System.Drawing.Size, System.Drawing">
<value>63, 22</value>
</data>
<data name="ToolStripButton1.Text" xml:space="preserve">
<value>Reload</value>
</data>
<data name="SplitContainerFORM.Size" type="System.Drawing.Size, System.Drawing">
<value>1379, 645</value>
</data> </data>
<data name="docCM_Open.Size" type="System.Drawing.Size, System.Drawing"> <data name="docCM_Open.Size" type="System.Drawing.Size, System.Drawing">
<value>209, 22</value> <value>209, 22</value>
@ -426,6 +865,12 @@
<data name="docCM_Open.Text" xml:space="preserve"> <data name="docCM_Open.Text" xml:space="preserve">
<value>Open File</value> <value>Open File</value>
</data> </data>
<data name="OrdnerÖffnenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>209, 22</value>
</data>
<data name="OrdnerÖffnenToolStripMenuItem.Text" xml:space="preserve">
<value>Open containing folder</value>
</data>
<data name="docCM_Copy.Size" type="System.Drawing.Size, System.Drawing"> <data name="docCM_Copy.Size" type="System.Drawing.Size, System.Drawing">
<value>209, 22</value> <value>209, 22</value>
</data> </data>
@ -435,6 +880,21 @@
<data name="ToolStripSeparator10.Size" type="System.Drawing.Size, System.Drawing"> <data name="ToolStripSeparator10.Size" type="System.Drawing.Size, System.Drawing">
<value>206, 6</value> <value>206, 6</value>
</data> </data>
<data name="docCMEntityWideSearch.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAIISURBVDhPY/jx4wdFGKsgFDMBsQMQpwFxAhBbAjGG
OgwBKHb5+v3HtkW3X5+vPPv0fv35Z3dW3X1zFijeBMTmSOqwGuB0/dWn/aFbbr03W37lPzJO3Hnn1dMP
X3YB1RjD1KNrZvr67fu2yKVX3llOOfs/etnVd4tPP70w58Tjy0ELL38CiaWtuf4CqK4OpgfdALvlp56c
s+w5+T9y3sV3IMOAYk5A7P3649cd3tPOfgXJnbn/9hBQTAGkB92AlPp1N+5Zthz9P+/gg0tAvhuSXFzr
ppu30eWQNYNwQvOaa3csaw78n7L99lUgPxxJLq1mxZX7ILnFB+9fAPJBLsMwQHf3uafHLUt3//eoP/D9
0cuPu4Fi+UBcfPHumwMOVXv/2JTv+Xv32fu9QDFhkB50A+JOXnt+2LZg2x/L3C3/HYu3/y6ZcfJRwdQT
T2Bik9ZduQZUB0obYD2omq88PeyUs/6XRerq/8FV2z6CaBi2zVj7Z9Kq8yDNWUDMBtMH13z8wsPDtvHz
fhmHz/yf1rjp+dev37fdf/xmz6b9105tP3zzxIvXH3YC1aUAMVwzCIMIpaNnbx82Der4pe3Z9D+hbCFQ
8zdQ9OkDsSAQgxINiM0NxHCNMAwiQhv7VtxQssr4H5ndi6wZQzE2DCJAJmdNmbnw3JcvX0nSDMLIHDsg
BuVAZDEC+AcDADVk7WUUiqKZAAAAAElFTkSuQmCC
</value>
</data>
<data name="docCMEntityWideSearch.Size" type="System.Drawing.Size, System.Drawing"> <data name="docCMEntityWideSearch.Size" type="System.Drawing.Size, System.Drawing">
<value>209, 22</value> <value>209, 22</value>
</data> </data>
@ -444,17 +904,11 @@
<data name="ToolStripSeparator20.Size" type="System.Drawing.Size, System.Drawing"> <data name="ToolStripSeparator20.Size" type="System.Drawing.Size, System.Drawing">
<value>206, 6</value> <value>206, 6</value>
</data> </data>
<data name="docCM_Rename.Size" type="System.Drawing.Size, System.Drawing"> <data name="docCM_RenameMain.Size" type="System.Drawing.Size, System.Drawing">
<value>209, 22</value> <value>209, 22</value>
</data> </data>
<data name="docCM_Rename.Text" xml:space="preserve"> <data name="docCM_RenameMain.Text" xml:space="preserve">
<value>Rename file</value> <value>Rename</value>
</data>
<data name="docCM_RenameDisplay.Size" type="System.Drawing.Size, System.Drawing">
<value>209, 22</value>
</data>
<data name="docCM_RenameDisplay.Text" xml:space="preserve">
<value>Rename displayname</value>
</data> </data>
<data name="docCM_InWork.Size" type="System.Drawing.Size, System.Drawing"> <data name="docCM_InWork.Size" type="System.Drawing.Size, System.Drawing">
<value>209, 22</value> <value>209, 22</value>
@ -468,18 +922,6 @@
<data name="docCM_linkRecord.Text" xml:space="preserve"> <data name="docCM_linkRecord.Text" xml:space="preserve">
<value>Link file with record</value> <value>Link file with record</value>
</data> </data>
<data name="DateiVersionierenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>175, 22</value>
</data>
<data name="DateiVersionierenToolStripMenuItem.Text" xml:space="preserve">
<value>Create new version</value>
</data>
<data name="DokumentartÄndernToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>175, 22</value>
</data>
<data name="DokumentartÄndernToolStripMenuItem.Text" xml:space="preserve">
<value>Change the doctpe</value>
</data>
<data name="WindreamToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing"> <data name="WindreamToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>209, 22</value> <value>209, 22</value>
</data> </data>
@ -537,160 +979,39 @@
<data name="docCM_PropertiesFile.Text" xml:space="preserve"> <data name="docCM_PropertiesFile.Text" xml:space="preserve">
<value>Properties</value> <value>Properties</value>
</data> </data>
<data name="CreationToolStripMenuItem.Text" xml:space="preserve">
<value>Creation</value>
</data>
<data name="ContextMenuStripResultFiles.Size" type="System.Drawing.Size, System.Drawing"> <data name="ContextMenuStripResultFiles.Size" type="System.Drawing.Size, System.Drawing">
<value>210, 392</value> <value>210, 370</value>
</data> </data>
<data name="ToolStripLabel1.Size" type="System.Drawing.Size, System.Drawing"> <data name="NeuToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>133, 22</value> <value>187, 22</value>
</data> </data>
<data name="ToolStripLabel1.Text" xml:space="preserve"> <data name="NeuToolStripMenuItem.Text" xml:space="preserve">
<value>Fulltext-Search ECM:</value> <value>Rename filepath</value>
</data> </data>
<data name="tsbtnDoc_Refresh.Size" type="System.Drawing.Size, System.Drawing"> <data name="DisplaynameUmbenennenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>102, 22</value> <value>187, 22</value>
</data> </data>
<data name="tsbtnDoc_Refresh.Text" xml:space="preserve"> <data name="DisplaynameUmbenennenToolStripMenuItem.Text" xml:space="preserve">
<value>Reload search</value> <value>Rename displayname</value>
</data> </data>
<data name="TabWindream.Text" xml:space="preserve"> <data name="DateiVersionierenToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>windream-files</value>
</data>
<data name="btnRemoveUser_FollowUp.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAAK/INwWK6QAAABl0RVh0U29m iVBORw0KGgoAAAANSUhEUgAAAAwAAAAMCAYAAABWdVznAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAJpSURBVDhPpZP7S1NhGMf9W/SHKEGiGyFhFBTmvMyd wwAADsMBx2+oZAAAAFFJREFUKFOdj0EKACAIBH2b/3+P16JwRTQzWphD0dhKIjI81GU9YuZNlE/YD17A
tTa3eTvL9LjFIpam7AzTDGoYuvCHcJbaVSt/yTSxUV4ycnYdWh4rL+3URq3pObumfNsmbS5HEL3weeE8 gEgp3EiCNq0DAeh1nS/BL9VxXBoDIibg8EKqpE3reLsXiCYgi0Ps3hQ2TwAAAABJRU5ErkJggg==
PJ/vy3nOeZMA/BcbCgsaTco8Van/QJUzsyqSm1GVcO9JJTNFyvW2UmnKn/1xD4tqDfGJotjvpib4RywI
vLUiMDEK/n43FrRleF1IsC+UQmK9EyfPVVD88t1urM6+Q3DwHoJdzQiaL+Dn7TasjA/CUauFVZ7NP5dm
RkMi27xanRyS7dzNLqwyNgQvn4O72YClphr4LxkQaKHhN56C/8EtLB4nMX7kgH1Msi85GhCSaWe9Hiu2
yciJPhMN13kdvA3qOLjTJPy91/AqLwPD4gw6GvCROsZ4eq8j2GOG21iFb0XihCxXkeCb6uAwVOMxkc5E
A5gKlTfwsBdBkwHus9pQKfFyyHLgogqxZG6FJW+XN1RaC5ghi7y+ng74G7XwnimPNCda4QBnmQJLba0Y
Em6LBUyXKhiXsQ6+ZhrcSWWkMSHyPLjra7FQq8OgIC32CrZiKc1IBPD2dMKtksBVJtogs9JssAUieLqu
YFS4AwNZW2JDfFMkTn5ZQtgXK0vgudMRGZhTIVwTZblgJSFZIgTf2Y6pYnFYtvcJNsc+Y5jJghxiQnaI
nzuqgOdGB3400nCQcnxRyuBq0IO/2o5pZT76s1L5kBz/I/3mmfQg8fTwftYq2oOvNTq4Wi5G+Fx9Ak9y
todldr0cJi4gzIh4b8qwMF1vIXYzj/J3ckOCrdxAbhrTn52q78vc9PfL9O8g6Rcd0s65aUjWSwAAAABJ
RU5ErkJggg==
</value> </value>
</data> </data>
<data name="btnRemoveUser_FollowUp.Text" xml:space="preserve"> <data name="DateiVersionierenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>delete user</value> <value>175, 22</value>
</data> </data>
<data name="btnAddUser_FollowUp.Text" xml:space="preserve"> <data name="DateiVersionierenToolStripMenuItem.Text" xml:space="preserve">
<value>Add user tu follow up</value> <value>Create new version</value>
</data> </data>
<data name="Label7.Size" type="System.Drawing.Size, System.Drawing"> <data name="DokumentartÄndernToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>216, 13</value> <value>175, 22</value>
</data> </data>
<data name="Label7.Text" xml:space="preserve"> <data name="DokumentartÄndernToolStripMenuItem.Text" xml:space="preserve">
<value>Attention: this list overdrives the general list.</value> <value>Change the doctpe</value>
</data>
<data name="GroupBox4.Text" xml:space="preserve">
<value>Special recipient for record:</value>
</data>
<data name="lblFollowUp_save.Size" type="System.Drawing.Size, System.Drawing">
<value>92, 15</value>
</data>
<data name="lblFollowUp_save.Text" xml:space="preserve">
<value>Follow Up saved</value>
</data>
<data name="Label5.Size" type="System.Drawing.Size, System.Drawing">
<value>91, 13</value>
</data>
<data name="Label5.Text" xml:space="preserve">
<value>Saved Follow Ups</value>
</data>
<data name="TabFollowUp.Text" xml:space="preserve">
<value>Follow Up</value>
</data>
<data name="BindingNavigatorAddNewItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wwAADsMBx2+oZAAAAUpJREFUOE9jGLzg7gL2/7fmcf6/Oofr/8UZvP+hwsSD60CNfx41/v/zsOH/yckC
pBtwfjov3ICDPSKkG3B8kiBQc93/Pw+q/u9oFydswKWZPP/PTuX7fxKo8Ui/0P993SJAzeX//94r+r++
Qeb/qhq5/0srFf/PL1X+P6tIFdPAU0B//nlYD9RUC8SV///cKwHivP9/72b+/3sn+f/f23H//92MAOKQ
/5NyNDENONQrDHbu3/ulQI0FQI3ZQI2pQI0J///digZqDPv/70bQ/3/X/f53peliGrCzXeL/lmap/+vA
zpX/v6RC8f/fWzFAjeH/p+Zp/J+QpfW/O0P3f3uq/v/mREPCYTIb6E+Qc//dCPjfk6FDWAM6APnz3w1/
IPb735qsT7oB3em6YP+CcH2cEekGtCQZ/G+IN/xfE2v8vzLahHQD6AQYGAAkI9iedfyIaQAAAABJRU5E
rkJggg==
</value>
</data>
<data name="BindingNavigatorDeleteItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wwAADsMBx2+oZAAAAW9JREFUOE+1kE0ow2Ecx3dV3krt4oJaOSCTvIRkMqSxyITIzCQHDouEdnFwIOVC
DrhIDiQl5UTiNG/z2ppafy1S2gX/uDwfY6i1v7Hie3nqeb7fz+/7/FR/Ilwn0G0Exw4fV5GJlXlEZxXC
rIet9bAQvB5Ymgn2sLYAvSZEux7RUQFzE4qQt4bCXAYjPaHvnDoCkLpsRGMB2JqCTGLIijDlwqQ9bEMV
i9OIytR3EMNWcJ/BWH8A6j8/bOGFxwXNxYEvGbMQ9XnQ1/K78KfY3/VXzkMY0qFGG2H4RoLGQshJQNbG
86CNhdrsX9a/uQZTPhQl4rMY4OLofbl3aX7I8uwPC7y/g1YdjyVJuEvT8e1tfwUYteHUxCCfHChDeHmG
QQvokjlOU+PbWA0x3pZnILVVI3uvQyHsbiLnqnGmRCF1NYD8pDhpRxOH7HQoAKZGkFKjceszQbpSrumX
bO+G80MFwKUTxgfgcO/b8D9IpXoFiiMDHIQm0skAAAAASUVORK5CYII=
</value>
</data>
<data name="BindingNavigatorMoveFirstItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wwAADsMBx2+oZAAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77
wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0
v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg
UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA
Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu
lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII=
</value>
</data>
<data name="BindingNavigatorMovePreviousItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wwAADsMBx2+oZAAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w
5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f
Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+
08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC
</value>
</data>
<data name="BindingNavigatorMoveNextItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wwAADsMBx2+oZAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78
n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI
N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f
oAc0QjgAAAAASUVORK5CYII=
</value>
</data>
<data name="BindingNavigatorMoveLastItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wwAADsMBx2+oZAAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+//
h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B
twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA
kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG
WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9
8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg==
</value>
</data>
<data name="TabPos.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAASdEVYdFRpdGxlAExpc3Q7QnVsbGV0O1FzfzkAAABa
SURBVDhPY/j//z9FGEPAxsaGEYhBNF4MUw/TVADED0A0kkHMQMyCBbOCaHQDQJr/g2gkA0B8nBimDqYY
wwXEYqyCpGCsgqRgMEGxF6CaQYEzGogjMRD/MwAARTWKOO3Nn7MAAAAASUVORK5CYII=
</value>
</data>
<data name="TabPos.Text" xml:space="preserve">
<value>positions</value>
</data>
<data name="ToolStripButton1.Size" type="System.Drawing.Size, System.Drawing">
<value>63, 22</value>
</data>
<data name="ToolStripButton1.Text" xml:space="preserve">
<value>Reload</value>
</data>
<data name="SplitContainerMain.Size" type="System.Drawing.Size, System.Drawing">
<value>1379, 645</value>
</data>
<data name="SplitContainerFORM.Size" type="System.Drawing.Size, System.Drawing">
<value>1379, 645</value>
</data> </data>
<data name="NavButtonHome.Glyph" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="NavButtonHome.Glyph" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>

6551
app/DD-Record-Organiser/frmConstructor_Main.resx
View File

File diff suppressed because it is too large Load Diff

1515
app/DD-Record-Organiser/frmConstructor_Main.vb
View File

File diff suppressed because it is too large Load Diff

1
app/DD-Record-Organiser/frmDD_EMAIL_ACCOUNT.Designer.vb generated
View File

@ -357,7 +357,6 @@ Partial Class frmDD_EMAIL_ACCOUNT
Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Nothing Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Nothing
Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_CONSTRUCTOR_USER_SQLTableAdapter = Nothing Me.TableAdapterManager.TBPMO_CONSTRUCTOR_USER_SQLTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FILES_USERTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FOLLOW_UP_EMAILTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FOLLOW_UP_EMAILTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FOLLUPEMAIL_USERTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FOLLUPEMAIL_USERTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = Nothing

4
app/DD-Record-Organiser/frmDocLink_to_Record.resx
View File

@ -172,7 +172,7 @@
<value>Yellow</value> <value>Yellow</value>
</data> </data>
<data name="dgEntityRecords.Size" type="System.Drawing.Size, System.Drawing"> <data name="dgEntityRecords.Size" type="System.Drawing.Size, System.Drawing">
<value>900, 503</value> <value>907, 503</value>
</data> </data>
<data name="dgEntityRecords.TabIndex" type="System.Int32, mscorlib"> <data name="dgEntityRecords.TabIndex" type="System.Int32, mscorlib">
<value>4</value> <value>4</value>
@ -915,7 +915,7 @@
</value> </value>
</data> </data>
<data name="$this.Text" xml:space="preserve"> <data name="$this.Text" xml:space="preserve">
<value>Datei mit Datensatz verknüpfen</value> <value>Datei(en) mit Datensatz verknüpfen</value>
</data> </data>
<data name="&gt;&gt;grvwGrid.Name" xml:space="preserve"> <data name="&gt;&gt;grvwGrid.Name" xml:space="preserve">
<value>grvwGrid</value> <value>grvwGrid</value>

236
app/DD-Record-Organiser/frmDocLink_to_Record.vb
View File

@ -72,7 +72,11 @@ Public Class frmDocLink_to_Record
selected = cmbConstructorForms.Items.Count - 1 selected = cmbConstructorForms.Items.Count - 1
End If End If
Next Next
If USER_LANGUAGE = "de-DE" Then
Me.Text = CURRENT_DT_SELECTED_FILES.Rows.Count.ToString & " Datei(en) mit Datensatz verknüpfen:"
Else
Me.Text = "Link " & CURRENT_DT_SELECTED_FILES.Rows.Count.ToString & " files with record:"
End If
' Den index der aktuell geöffneten ConstructorForm setzen ' Den index der aktuell geöffneten ConstructorForm setzen
cmbConstructorForms.SelectedIndex = selected cmbConstructorForms.SelectedIndex = selected
End Sub End Sub
@ -81,14 +85,14 @@ Public Class frmDocLink_to_Record
Cursor = Cursors.WaitCursor Cursor = Cursors.WaitCursor
trvwMain.Nodes.Clear() trvwMain.Nodes.Clear()
If NODE_NAVIGATION = True Then If NODE_NAVIGATION = True Then
Try Dim newTreeview As TreeView
Dim MainNode = ClassNodeNavigation.CreateTreeViewNodes(DT_TREEVIEW_PER_CONTROLS, TREEVIEW_IMAGELIST) newTreeview = ClassNodeNavigation.CreateTreeViewNodesNew1(DT_TREEVIEW_PER_CONTROLS, TREEVIEW_IMAGELIST)
If Not IsNothing(MainNode) Then
trvwMain.Nodes.Add(MainNode) If Not IsNothing(newTreeview) Then
End If For Each node As TreeNode In newTreeview.Nodes
Catch ex As Exception trvwMain.Nodes.Add(node.Clone)
MsgBox("Error in Load TreeView NodesNavigation:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) Next
End Try End If
Else Else
Try Try
Dim sel_sql = String.Format("SELECT *, [dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), FORM_VIEW_ID), {1}) AS 'CAPTION' " & _ Dim sel_sql = String.Format("SELECT *, [dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), FORM_VIEW_ID), {1}) AS 'CAPTION' " & _
@ -183,7 +187,7 @@ Public Class frmDocLink_to_Record
Dim SQL = String.Format("SELECT *, [dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), FORM_VIEW_ID), {1}) AS 'CAPTION' " & _ Dim SQL = String.Format("SELECT *, [dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), FORM_VIEW_ID), {1}) AS 'CAPTION' " & _
"FROM VWPMO_CONSTRUCTOR_FORMS WHERE SCREEN_ID = {1} AND CONSTRUCT_ID = {2} ORDER BY SEQUENCE", USER_LANGUAGE, CURRENT_SCREEN_ID, CONSTRUCTOR_ID) "FROM VWPMO_CONSTRUCTOR_FORMS WHERE SCREEN_ID = {1} AND CONSTRUCT_ID = {2} ORDER BY SEQUENCE", USER_LANGUAGE, CURRENT_SCREEN_ID, CONSTRUCTOR_ID)
DT_VWPMO_CONSTRUCTOR_FORMS = ClassDatabase.Return_Datatable(SQL) DT_VWPMO_CONSTRUCTOR_FORMS = ClassDatabase.Return_Datatable(SQL, True)
SQL = String.Format("select * from VWPMO_STRUCTURE_NODES where ENTITY_ID IN (SELECT FORM_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = {0})", CONSTRUCTOR_ID) SQL = String.Format("select * from VWPMO_STRUCTURE_NODES where ENTITY_ID IN (SELECT FORM_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = {0})", CONSTRUCTOR_ID)
Dim DT As DataTable = ClassDatabase.Return_Datatable(Sql) Dim DT As DataTable = ClassDatabase.Return_Datatable(Sql)
@ -193,24 +197,24 @@ Public Class frmDocLink_to_Record
SQL = String.Format("select * from TBPMO_STRUCTURE_NODES_CONFIGURATION where ENTITY_ID IN (SELECT FORM_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = {0})", CONSTRUCTOR_ID) SQL = String.Format("select * from TBPMO_STRUCTURE_NODES_CONFIGURATION where ENTITY_ID IN (SELECT FORM_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = {0})", CONSTRUCTOR_ID)
DT_TREEVIEW_CONFIGURATION = ClassDatabase.Return_Datatable(Sql) DT_TREEVIEW_CONFIGURATION = ClassDatabase.Return_Datatable(Sql)
' Try Try
TREEVIEW_IMAGELIST = New ImageList TREEVIEW_IMAGELIST = New ImageList
For Each row As DataRow In DT_TREEVIEW_CONFIGURATION.Rows For Each row As DataRow In DT_TREEVIEW_CONFIGURATION.Rows
Try Try
Dim bimage = row.Item("NODE_IMAGE") Dim bimage = row.Item("NODE_IMAGE")
If Not IsDBNull(bimage) Then If Not IsDBNull(bimage) Then
Dim Node_image = ByteArrayToBitmap(bimage) Dim Node_image = ByteArrayToBitmap(bimage)
TREEVIEW_IMAGELIST.Images.Add(row.Item("GUID").ToString & "#" & row.Item("ENTITY_ID"), Node_image) TREEVIEW_IMAGELIST.Images.Add(row.Item("GUID").ToString & "#" & row.Item("ENTITY_ID"), Node_image)
End If End If
Catch ex As Exception Catch ex As Exception
End Try End Try
Next Next
trvwMain.ImageList = TREEVIEW_IMAGELIST trvwMain.ImageList = TREEVIEW_IMAGELIST
'Catch ex As Exception Catch ex As Exception
' MsgBox("Error in Adding NodeConfigurations to TreeView: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("Error in Adding NodeConfigurations to TreeView: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
'End Try End Try
NODE_NAVIGATION = True NODE_NAVIGATION = True
@ -230,10 +234,10 @@ Public Class frmDocLink_to_Record
SelectNodeRecursive(trvwMain, trvwMain.Nodes, CURRENT_CONSTRUCTOR_DETAIL_ID) SelectNodeRecursive(trvwMain, trvwMain.Nodes, CURRENT_CONSTRUCTOR_DETAIL_ID)
If IsNothing(foundNode) Then If IsNothing(foundNode) Then
' Erste Entität selektieren 'Erste Entität selektieren
trvwMain.SelectedNode = trvwMain.Nodes.Item(0) trvwMain.SelectedNode = trvwMain.Nodes.Item(0)
Else Else
' Aktuelle Entität selektieren 'Aktuelle Entität selektieren
trvwMain.SelectedNode = foundNode trvwMain.SelectedNode = foundNode
End If End If
End If End If
@ -257,123 +261,84 @@ Public Class frmDocLink_to_Record
End Sub End Sub
Private Sub trvwMain_AfterSelect(sender As Object, e As TreeViewEventArgs) Handles trvwMain.AfterSelect Private Sub trvwMain_AfterSelect(sender As Object, e As TreeViewEventArgs) Handles trvwMain.AfterSelect
' Try Try
Dim dt As DataTable Dim dt As DataTable
If NODE_NAVIGATION = False Then If NODE_NAVIGATION = False Then
SetSelectedNodeStyle(trvwMain.Nodes) SetSelectedNodeStyle(trvwMain.Nodes)
CONSTRUCTOR_DETAIL_ID = Integer.Parse(e.Node.Tag)
Dim SQL As String = String.Format("SELECT FORM_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE GUID = {0} AND CONSTRUCT_ID = {1}", CONSTRUCTOR_DETAIL_ID, CONSTRUCTOR_ID)
FORM_ID = ClassDatabase.Execute_Scalar(SQL)
SQL = Get_Grid_Sql(FORM_ID, CONSTRUCTOR_DETAIL_ID)
dt = ClassDatabase.Return_Datatable(SQL)
dgEntityRecords.DataSource = dt
grvwGrid.PopulateColumns()
dgEntityRecords.RefreshDataSource()
Else
RECORD_ID = 0
Dim SelectedNode As TreeNode = TryCast(trvwMain.SelectedNode, TreeNode)
If SelectedNode IsNot Nothing Then
SelectedNode.NodeFont = New Font(trvwMain.Font.FontFamily, trvwMain.Font.Size, FontStyle.Bold)
SelectedNode.Text = SelectedNode.Text
Else
Exit Sub
End If
CONSTRUCTOR_DETAIL_ID = Integer.Parse(e.Node.Tag)
If NODE_NAVIGATION_LOADED = False Then Dim SQL As String = String.Format("SELECT FORM_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE GUID = {0} AND CONSTRUCT_ID = {1}", CONSTRUCTOR_DETAIL_ID, CONSTRUCTOR_ID)
ENTITY_ID = Return_ENTITY_FOR_TAG(SelectedNode.Tag) FORM_ID = ClassDatabase.Execute_Scalar(SQL)
Dim SQL As String '= String.Format("SELECT FORM_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = {0} AND FORM_ID = {1}", CONSTRUCTOR_ID, ENTITY_ID) SQL = Get_Grid_Sql(FORM_ID, CONSTRUCTOR_DETAIL_ID)
SQL = Get_Grid_Sql(ENTITY_ID, CONSTRUCTOR_DETAIL_ID)
dt = ClassDatabase.Return_Datatable(SQL) dt = ClassDatabase.Return_Datatable(SQL)
If IsNothing(dt) Then
Exit Sub
End If
dgEntityRecords.DataSource = dt dgEntityRecords.DataSource = dt
grvwGrid.PopulateColumns() grvwGrid.PopulateColumns()
dgEntityRecords.RefreshDataSource() dgEntityRecords.RefreshDataSource()
NODE_NAVIGATION_LOADED = True Else
End If RECORD_ID = 0
Dim SelectedNode As TreeNode = TryCast(trvwMain.SelectedNode, TreeNode)
If LogErrorsOnly = False Then ClassLogger.Add(" >> NodeTag: " & SelectedNode.Tag.ToString, False) If SelectedNode IsNot Nothing Then
If SelectedNode.Tag.ToString.Contains("RECORD-ID") Then SelectedNode.NodeFont = New Font(trvwMain.Font.FontFamily, trvwMain.Font.Size, FontStyle.Bold)
Dim Record = Return_RECORD_forTag(SelectedNode.Tag) SelectedNode.Text = SelectedNode.Text
If Record <> 0 Then Else
txtRecordId.Text = Record Exit Sub
RECORD_ID = Record
End If End If
End If
If Not IsNothing(dgEntityRecords.DataSource) Then
Dim RecordId As Integer = grvwGrid.GetFocusedRowCellValue(grvwGrid.Columns(0))
txtRecordId.Text = RecordId
Else
txtRecordId.Text = ""
RECORD_ID = 0
End If
If NODE_NAVIGATION_LOADED = False Then
End If ENTITY_ID = ClassNodeNavigation.Return_ENTITY_FOR_TAG(SelectedNode.Tag)
' Datasource neu setzen und columns laden Dim SQL As String '= String.Format("SELECT FORM_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = {0} AND FORM_ID = {1}", CONSTRUCTOR_ID, ENTITY_ID)
SQL = Get_Grid_Sql(ENTITY_ID, CONSTRUCTOR_DETAIL_ID)
Dim constructor = DirectCast(cmbConstructorForms.Items.Item(cmbConstructorForms.SelectedIndex), ClassConstructor) dt = ClassDatabase.Return_Datatable(SQL)
Dim constructorName As String = constructor.title If IsNothing(dt) Then
If Not IsNothing(dgEntityRecords.DataSource) Then Exit Sub
Load_Grid_Layout(constructorName)
grvwGrid.Columns.Item("Form-ID").Visible = False
grvwGrid.Columns.Item("ROW_COLOR").Visible = False
End If
If RECORD_ID > 0 Then
Dim rowHandle = grvwGrid.LocateByValue(0, grvwGrid.Columns("Record-ID"), RECORD_ID)
grvwGrid.FocusedRowHandle = rowHandle
End If
'Catch ex As Exception
' MsgBox("Entität " + CONSTRUCTOR_DETAIL_ID + " konnte nicht geladen werden: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
' Exit Sub
'End Try
End Sub
Private Function Return_RECORD_forTag(NodeString As String)
If IsNumeric(NodeString) Then
Return NodeString
Else
Dim staticListItems = NodeString.Split("#")
If staticListItems(2).Contains("RECORD-ID") Then
Try
Dim _RECORD = staticListItems(2).ToString.Replace("RECORD-ID", "")
If IsNumeric(_RECORD) Then
Return _RECORD
Else
Return 0
End If End If
Catch ex As Exception dgEntityRecords.DataSource = dt
ClassLogger.Add("Unexpected Error in Return_RECORD_forTag ('" & NodeString & "'): " & ex.Message, True) grvwGrid.PopulateColumns()
Return 0 dgEntityRecords.RefreshDataSource()
End Try NODE_NAVIGATION_LOADED = True
Else End If
Return 0
If LogErrorsOnly = False Then ClassLogger.Add(" >> NodeTag: " & SelectedNode.Tag.ToString, False)
If SelectedNode.Tag.ToString.Contains("RECORD-ID") Then
Dim Record = ClassNodeNavigation.Return_RECORD_forTag(SelectedNode.Tag)
If Record <> 0 Then
txtRecordId.Text = Record
RECORD_ID = Record
End If
End If
If Not IsNothing(dgEntityRecords.DataSource) Then
Dim RecordId As Integer = grvwGrid.GetFocusedRowCellValue(grvwGrid.Columns(0))
txtRecordId.Text = RecordId
Else
txtRecordId.Text = ""
RECORD_ID = 0
End If
End If
' Datasource neu setzen und columns laden
Dim constructor = DirectCast(cmbConstructorForms.Items.Item(cmbConstructorForms.SelectedIndex), ClassConstructor)
Dim constructorName As String = constructor.title
If Not IsNothing(dgEntityRecords.DataSource) Then
Load_Grid_Layout(constructorName)
grvwGrid.Columns.Item("Form-ID").Visible = False
grvwGrid.Columns.Item("ROW_COLOR").Visible = False
End If End If
End If If RECORD_ID > 0 Then
End Function Dim rowHandle = grvwGrid.LocateByValue(0, grvwGrid.Columns("Record-ID"), RECORD_ID)
Private Function Return_ENTITY_FOR_TAG(NodeString As String) grvwGrid.FocusedRowHandle = rowHandle
If IsNumeric(NodeString) Then
Return NodeString
Else
If NodeString.Contains("CONTROL-ID") Then
Try
Dim _index = NodeString.IndexOf("C")
Dim Entity = NodeString.Substring(0, _index).Replace(" ", "").Replace("-", "")
Return Entity
Catch ex As Exception
ClassLogger.Add("Unexpected Error in Return_ENTITY_FOR_TAG ('" & NodeString & "'): " & ex.Message, True)
Return 0
End Try
End If End If
End If
End Function
Catch ex As Exception
MsgBox("Entität " + CONSTRUCTOR_DETAIL_ID + " konnte nicht geladen werden: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Exit Sub
End Try
End Sub
Function GetSafeFilename(filename As String) Function GetSafeFilename(filename As String)
Return String.Join("_", filename.Split(Path.GetInvalidFileNameChars())) Return String.Join("_", filename.Split(Path.GetInvalidFileNameChars()))
End Function End Function
@ -424,16 +389,18 @@ Public Class frmDocLink_to_Record
If txtRecordId.Text.Trim.Count > 0 Then If txtRecordId.Text.Trim.Count > 0 Then
RecordId = Integer.Parse(txtRecordId.Text) RecordId = Integer.Parse(txtRecordId.Text)
Try Try
For Each row As DataRow In ClassWindreamDocGrid.DT_RESULTFILES.Rows For Each row As DataRow In CURRENT_DT_SELECTED_FILES.Rows
CURRENT_DOC_ID = row.Item("DOC_ID") CURRENT_DOC_ID = row.Item("DOC_ID")
Dim DOC_PATH = row.Item("DOC_PATH") Dim DOC_PATH = row.Item("FILEPATH")
Dim _objecttype = row.Item("OBJECTTYPE") Dim _objecttype = row.Item("OBJECTTYPE")
Dim ins = String.Format("INSERT INTO TBPMO_DOC_RECORD_LINK (RECORD_ID,DOC_ID,COMMENT,ADDED_WHO) VALUES ({0},{1},'{2}','{3}')", RecordId, CURRENT_DOC_ID, "MANUAL RECORD-LINK", USER_USERNAME) Dim ins = String.Format("INSERT INTO TBPMO_DOC_RECORD_LINK (RECORD_ID,DOC_ID,COMMENT,ADDED_WHO) VALUES ({0},{1},'{2}','{3}')", RecordId, CURRENT_DOC_ID, "MANUAL RECORD-LINK", USER_USERNAME)
If ClassDatabase.Execute_non_Query(ins) = False Then If ClassDatabase.Execute_non_Query(ins) = False Then
MsgBox("Unexpected Error in Inserting Record-Doc Link. Please check logfile!", MsgBoxStyle.Critical) MsgBox("Unexpected Error in Inserting Record-Doc Link. Please check logfile!", MsgBoxStyle.Critical)
End If End If
Dim sql = String.Format("SELECT * FROM TBPMO_WD_OBJECTTYPE WHERE OBJECT_TYPE = '{0}'", _objecttype) Dim sql = String.Format("SELECT * FROM TBPMO_WD_OBJECTTYPE WHERE OBJECT_TYPE = '{0}'", _objecttype)
Dim DT_OBJTYPE As DataTable = ClassDatabase.Return_Datatable(sql) Dim DT_OBJTYPE As DataTable = ClassDatabase.Return_Datatable(sql, True)
If DT_OBJTYPE.Rows.Count = 1 Then If DT_OBJTYPE.Rows.Count = 1 Then
Dim Entity_Index = DT_OBJTYPE.Rows(0).Item("IDXNAME_ENTITYID") Dim Entity_Index = DT_OBJTYPE.Rows(0).Item("IDXNAME_ENTITYID")
Dim Record_Index = DT_OBJTYPE.Rows(0).Item("IDXNAME_RECORDID") Dim Record_Index = DT_OBJTYPE.Rows(0).Item("IDXNAME_RECORDID")
@ -463,7 +430,6 @@ Public Class frmDocLink_to_Record
End If End If
End If End If
Next Next
Catch ex As Exception Catch ex As Exception
MsgBox("Unexpected Error in Linking Record to file:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("Unexpected Error in Linking Record to file:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try End Try

1
app/DD-Record-Organiser/frmDoctype_NameConvention.designer.vb generated
View File

@ -257,7 +257,6 @@ Partial Class frmDoctype_NameConvention
Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Nothing Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Nothing
Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_CONSTRUCTOR_USER_SQLTableAdapter = Nothing Me.TableAdapterManager.TBPMO_CONSTRUCTOR_USER_SQLTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FILES_USERTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FOLLOW_UP_EMAILTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FOLLOW_UP_EMAILTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FOLLUPEMAIL_USERTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FOLLUPEMAIL_USERTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = Nothing

8
app/DD-Record-Organiser/frmDoctype_NameConvention.vb
View File

@ -50,10 +50,10 @@
Dim autoIIndex = "SELECT GUID, CASE WHEN INDEXNAME = '(ONLY for Nameconvention)' THEN 'NC_' + COMMENT ELSE INDEXNAME END as INDEXNAME FROM TBDD_INDEX_AUTOM WHERE DOCTYPE_ID = " & frmWD_Dokumentart_Konfig.akt_DokartID Dim autoIIndex = "SELECT GUID, CASE WHEN INDEXNAME = '(ONLY for Nameconvention)' THEN 'NC_' + COMMENT ELSE INDEXNAME END as INDEXNAME FROM TBDD_INDEX_AUTOM WHERE DOCTYPE_ID = " & frmWD_Dokumentart_Konfig.akt_DokartID
Dim DTAUTOINDEX As DataTable = ClassDatabase.Return_Datatable(autoIIndex, "LOAD AUTOINDEXE") Dim DTAUTOINDEX As DataTable = ClassDatabase.Return_Datatable(autoIIndex)
'Me.TBDD_INDEX_AUTOMTableAdapter.Fill(Me.DD_DMSDataSet.TBDD_INDEX_AUTOM, frmDokumentart_Konfig.akt_DokartID) 'Me.TBDD_INDEX_AUTOMTableAdapter.Fill(Me.DD_DMSDataSet.TBDD_INDEX_AUTOM, frmDokumentart_Konfig.akt_DokartID)
DT_ENTITIES = ClassDatabase.Return_Datatable("select T.GUID, T.FORMVIEW_ID, [dbo].[FNPMO_GETOBJECTCAPTION]('" & USER_LANGUAGE & "','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), T.FORMVIEW_ID), 1) AS 'FORM_TITLE' FROM TBPMO_WD_FORMVIEW_DOKTYPES T, TBPMO_FORM_VIEW T1 WHERE T.FORMVIEW_ID = T1.GUID AND T1.SCREEN_ID = 1 AND T.DOCTYPE_ID = " & frmWD_Dokumentart_Konfig.akt_DokartID & " ORDER BY T1.FORM_TITLE", "Load NameConventionData") DT_ENTITIES = ClassDatabase.Return_Datatable("select T.GUID, T.FORMVIEW_ID, [dbo].[FNPMO_GETOBJECTCAPTION]('" & USER_LANGUAGE & "','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), T.FORMVIEW_ID), 1) AS 'FORM_TITLE' FROM TBPMO_WD_FORMVIEW_DOKTYPES T, TBPMO_FORM_VIEW T1 WHERE T.FORMVIEW_ID = T1.GUID AND T1.SCREEN_ID = 1 AND T.DOCTYPE_ID = " & frmWD_Dokumentart_Konfig.akt_DokartID & " ORDER BY T1.FORM_TITLE", True)
cmbEntity.DataSource = DT_ENTITIES cmbEntity.DataSource = DT_ENTITIES
cmbEntity.DisplayMember = DT_ENTITIES.Columns(2).ColumnName cmbEntity.DisplayMember = DT_ENTITIES.Columns(2).ColumnName
cmbEntity.ValueMember = DT_ENTITIES.Columns(0).ColumnName cmbEntity.ValueMember = DT_ENTITIES.Columns(0).ColumnName
@ -88,7 +88,7 @@
sf = 0 sf = 0
End If End If
Dim sql = "UPDATE TBPMO_WD_FORMVIEW_DOKTYPES SET NAME_CONVENTION = '" & txtnamenKonv.Text & "', MANUAL_SUBFOLDER = " & sf & ", CHANGED_WHO = '" & USER_USERNAME & "' WHERE GUID = " & TBPMO_WD_FORMVIEW_DOKTYPES_GUID Dim sql = "UPDATE TBPMO_WD_FORMVIEW_DOKTYPES SET NAME_CONVENTION = '" & txtnamenKonv.Text & "', MANUAL_SUBFOLDER = " & sf & ", CHANGED_WHO = '" & USER_USERNAME & "' WHERE GUID = " & TBPMO_WD_FORMVIEW_DOKTYPES_GUID
If ClassDatabase.Execute_non_Query(sql, True) = True Then If ClassDatabase.Execute_non_Query(sql) = True Then
lblSave.Visible = True lblSave.Visible = True
lblSave.Text = "Data saved - " & Now.ToString lblSave.Text = "Data saved - " & Now.ToString
Return True Return True
@ -161,7 +161,7 @@
"SELECT [CONTROL_ID] , [CTRLSCR_CAPTION] AS DISPLAY FROM [VWPMO_CONTROL_SCREEN] " & _ "SELECT [CONTROL_ID] , [CTRLSCR_CAPTION] AS DISPLAY FROM [VWPMO_CONTROL_SCREEN] " & _
"WHERE CTRLTYPE_ID = 1 AND [CONTROL_SQLCOMMAND_1] <> '' and FORM_ID = (SELECT FORM_ID FROM TBPMO_FORM_VIEW WHERE GUID = {0}) " & _ "WHERE CTRLTYPE_ID = 1 AND [CONTROL_SQLCOMMAND_1] <> '' and FORM_ID = (SELECT FORM_ID FROM TBPMO_FORM_VIEW WHERE GUID = {0}) " & _
"ORDER BY DISPLAY", FORM_VIEW_ID) "ORDER BY DISPLAY", FORM_VIEW_ID)
Dim DT1 As DataTable = ClassDatabase.Return_Datatable(sql, "LoadControlsForEntity - NameConvention") Dim DT1 As DataTable = ClassDatabase.Return_Datatable(sql)
If DT1.Rows.Count >= 1 Then If DT1.Rows.Count >= 1 Then
cmbIndex_Controls.DataSource = DT1 cmbIndex_Controls.DataSource = DT1
cmbIndex_Controls.DisplayMember = DT1.Columns(1).ColumnName cmbIndex_Controls.DisplayMember = DT1.Columns(1).ColumnName

11
app/DD-Record-Organiser/frmEntities.Designer.vb generated
View File

@ -125,6 +125,11 @@ Partial Class frmEntities
resources.ApplyResources(GUIDLabel, "GUIDLabel") resources.ApplyResources(GUIDLabel, "GUIDLabel")
GUIDLabel.Name = "GUIDLabel" GUIDLabel.Name = "GUIDLabel"
' '
'Label5
'
resources.ApplyResources(Label5, "Label5")
Label5.Name = "Label5"
'
'TBPMO_FORMBindingNavigator 'TBPMO_FORMBindingNavigator
' '
Me.TBPMO_FORMBindingNavigator.AddNewItem = Nothing Me.TBPMO_FORMBindingNavigator.AddNewItem = Nothing
@ -223,7 +228,6 @@ Partial Class frmEntities
Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Nothing Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Nothing
Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_CONSTRUCTOR_USER_SQLTableAdapter = Nothing Me.TableAdapterManager.TBPMO_CONSTRUCTOR_USER_SQLTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FILES_USERTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FOLLOW_UP_EMAILTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FOLLOW_UP_EMAILTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FOLLUPEMAIL_USERTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FOLLUPEMAIL_USERTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = Nothing
@ -384,11 +388,6 @@ Partial Class frmEntities
resources.ApplyResources(Me.Label3, "Label3") resources.ApplyResources(Me.Label3, "Label3")
Me.Label3.Name = "Label3" Me.Label3.Name = "Label3"
' '
'Label5
'
resources.ApplyResources(Label5, "Label5")
Label5.Name = "Label5"
'
'frmEntities 'frmEntities
' '
resources.ApplyResources(Me, "$this") resources.ApplyResources(Me, "$this")

215
app/DD-Record-Organiser/frmEntities.resx
View File

@ -383,6 +383,43 @@
<data name="&gt;&gt;GUIDLabel.ZOrder" xml:space="preserve"> <data name="&gt;&gt;GUIDLabel.ZOrder" xml:space="preserve">
<value>8</value> <value>8</value>
</data> </data>
<metadata name="Label5.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<data name="Label5.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="Label5.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 9.75pt</value>
</data>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="Label5.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>NoControl</value>
</data>
<data name="Label5.Location" type="System.Drawing.Point, System.Drawing">
<value>6, 122</value>
</data>
<data name="Label5.Size" type="System.Drawing.Size, System.Drawing">
<value>89, 17</value>
</data>
<data name="Label5.TabIndex" type="System.Int32, mscorlib">
<value>27</value>
</data>
<data name="Label5.Text" xml:space="preserve">
<value>Anzeigename:</value>
</data>
<data name="&gt;&gt;Label5.Name" xml:space="preserve">
<value>Label5</value>
</data>
<data name="&gt;&gt;Label5.Type" xml:space="preserve">
<value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;Label5.Parent" xml:space="preserve">
<value>GroupBox2</value>
</data>
<data name="&gt;&gt;Label5.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<metadata name="TBPMO_FORMBindingNavigator.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="TBPMO_FORMBindingNavigator.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>877, 17</value> <value>877, 17</value>
</metadata> </metadata>
@ -445,6 +482,9 @@
<data name="&gt;&gt;TBPMO_FORMBindingNavigator.ZOrder" xml:space="preserve"> <data name="&gt;&gt;TBPMO_FORMBindingNavigator.ZOrder" xml:space="preserve">
<value>10</value> <value>10</value>
</data> </data>
<metadata name="DD_DMSDataSet.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="TBPMO_FORM_VIEWBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="TBPMO_FORM_VIEWBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1104, 17</value> <value>1104, 17</value>
</metadata> </metadata>
@ -472,6 +512,9 @@
<data name="&gt;&gt;DESCRIPTIONTextBox.ZOrder" xml:space="preserve"> <data name="&gt;&gt;DESCRIPTIONTextBox.ZOrder" xml:space="preserve">
<value>2</value> <value>2</value>
</data> </data>
<metadata name="TBPMO_FORM_VIEWBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1104, 17</value>
</metadata>
<data name="FORM_TITLETextBox.Font" type="System.Drawing.Font, System.Drawing"> <data name="FORM_TITLETextBox.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 9.75pt</value> <value>Segoe UI, 9.75pt</value>
</data> </data>
@ -607,42 +650,104 @@
<metadata name="TBPMO_FORM_VIEWTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="TBPMO_FORM_VIEWTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 56</value> <value>17, 56</value>
</metadata> </metadata>
<metadata name="Label5.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"> <data name="&gt;&gt;Label4.Name" xml:space="preserve">
<value>False</value> <value>Label4</value>
</metadata>
<data name="Label5.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
</data> </data>
<data name="Label5.Font" type="System.Drawing.Font, System.Drawing"> <data name="&gt;&gt;Label4.Type" xml:space="preserve">
<value>Segoe UI, 9.75pt</value>
</data>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="Label5.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>NoControl</value>
</data>
<data name="Label5.Location" type="System.Drawing.Point, System.Drawing">
<value>6, 122</value>
</data>
<data name="Label5.Size" type="System.Drawing.Size, System.Drawing">
<value>89, 17</value>
</data>
<data name="Label5.TabIndex" type="System.Int32, mscorlib">
<value>27</value>
</data>
<data name="Label5.Text" xml:space="preserve">
<value>Anzeigename:</value>
</data>
<data name="&gt;&gt;Label5.Name" xml:space="preserve">
<value>Label5</value>
</data>
<data name="&gt;&gt;Label5.Type" xml:space="preserve">
<value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data> </data>
<data name="&gt;&gt;Label5.Parent" xml:space="preserve"> <data name="&gt;&gt;Label4.Parent" xml:space="preserve">
<value>GroupBox2</value> <value>GroupBox2</value>
</data> </data>
<data name="&gt;&gt;Label5.ZOrder" xml:space="preserve"> <data name="&gt;&gt;Label4.ZOrder" xml:space="preserve">
<value>1</value> <value>3</value>
</data>
<data name="&gt;&gt;SINGLE_RECORDCheckBox.Name" xml:space="preserve">
<value>SINGLE_RECORDCheckBox</value>
</data>
<data name="&gt;&gt;SINGLE_RECORDCheckBox.Type" xml:space="preserve">
<value>System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;SINGLE_RECORDCheckBox.Parent" xml:space="preserve">
<value>GroupBox2</value>
</data>
<data name="&gt;&gt;SINGLE_RECORDCheckBox.ZOrder" xml:space="preserve">
<value>4</value>
</data>
<data name="&gt;&gt;NumericUpDown1.Name" xml:space="preserve">
<value>NumericUpDown1</value>
</data>
<data name="&gt;&gt;NumericUpDown1.Type" xml:space="preserve">
<value>System.Windows.Forms.NumericUpDown, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;NumericUpDown1.Parent" xml:space="preserve">
<value>GroupBox2</value>
</data>
<data name="&gt;&gt;NumericUpDown1.ZOrder" xml:space="preserve">
<value>5</value>
</data>
<data name="&gt;&gt;GUIDTextBox.Name" xml:space="preserve">
<value>GUIDTextBox</value>
</data>
<data name="&gt;&gt;GUIDTextBox.Type" xml:space="preserve">
<value>System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;GUIDTextBox.Parent" xml:space="preserve">
<value>GroupBox2</value>
</data>
<data name="&gt;&gt;GUIDTextBox.ZOrder" xml:space="preserve">
<value>7</value>
</data>
<data name="&gt;&gt;ComboBox1.Name" xml:space="preserve">
<value>ComboBox1</value>
</data>
<data name="&gt;&gt;ComboBox1.Type" xml:space="preserve">
<value>System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;ComboBox1.Parent" xml:space="preserve">
<value>GroupBox2</value>
</data>
<data name="&gt;&gt;ComboBox1.ZOrder" xml:space="preserve">
<value>10</value>
</data>
<data name="&gt;&gt;SHOW_FORM_CONSTRUCTCheckBox.Name" xml:space="preserve">
<value>SHOW_FORM_CONSTRUCTCheckBox</value>
</data>
<data name="&gt;&gt;SHOW_FORM_CONSTRUCTCheckBox.Type" xml:space="preserve">
<value>System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;SHOW_FORM_CONSTRUCTCheckBox.Parent" xml:space="preserve">
<value>GroupBox2</value>
</data>
<data name="&gt;&gt;SHOW_FORM_CONSTRUCTCheckBox.ZOrder" xml:space="preserve">
<value>11</value>
</data>
<data name="GroupBox2.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 9.75pt, style=Bold</value>
</data>
<data name="GroupBox2.Location" type="System.Drawing.Point, System.Drawing">
<value>328, 53</value>
</data>
<data name="GroupBox2.Size" type="System.Drawing.Size, System.Drawing">
<value>424, 499</value>
</data>
<data name="GroupBox2.TabIndex" type="System.Int32, mscorlib">
<value>23</value>
</data>
<data name="GroupBox2.Text" xml:space="preserve">
<value>Entity Properties:</value>
</data>
<data name="&gt;&gt;GroupBox2.Name" xml:space="preserve">
<value>GroupBox2</value>
</data>
<data name="&gt;&gt;GroupBox2.Type" xml:space="preserve">
<value>System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;GroupBox2.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;GroupBox2.ZOrder" xml:space="preserve">
<value>8</value>
</data> </data>
<data name="Label4.AutoSize" type="System.Boolean, mscorlib"> <data name="Label4.AutoSize" type="System.Boolean, mscorlib">
<value>True</value> <value>True</value>
@ -777,6 +882,9 @@ diese Entität angelegt werden.</value>
<data name="&gt;&gt;ComboBox1.ZOrder" xml:space="preserve"> <data name="&gt;&gt;ComboBox1.ZOrder" xml:space="preserve">
<value>10</value> <value>10</value>
</data> </data>
<metadata name="TBPMO_FORM_TYPEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>255, 56</value>
</metadata>
<data name="SHOW_FORM_CONSTRUCTCheckBox.Font" type="System.Drawing.Font, System.Drawing"> <data name="SHOW_FORM_CONSTRUCTCheckBox.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 9.75pt</value> <value>Segoe UI, 9.75pt</value>
</data> </data>
@ -804,33 +912,6 @@ diese Entität angelegt werden.</value>
<data name="&gt;&gt;SHOW_FORM_CONSTRUCTCheckBox.ZOrder" xml:space="preserve"> <data name="&gt;&gt;SHOW_FORM_CONSTRUCTCheckBox.ZOrder" xml:space="preserve">
<value>11</value> <value>11</value>
</data> </data>
<data name="GroupBox2.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 9.75pt, style=Bold</value>
</data>
<data name="GroupBox2.Location" type="System.Drawing.Point, System.Drawing">
<value>328, 53</value>
</data>
<data name="GroupBox2.Size" type="System.Drawing.Size, System.Drawing">
<value>424, 499</value>
</data>
<data name="GroupBox2.TabIndex" type="System.Int32, mscorlib">
<value>23</value>
</data>
<data name="GroupBox2.Text" xml:space="preserve">
<value>Entity Properties:</value>
</data>
<data name="&gt;&gt;GroupBox2.Name" xml:space="preserve">
<value>GroupBox2</value>
</data>
<data name="&gt;&gt;GroupBox2.Type" xml:space="preserve">
<value>System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;GroupBox2.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;GroupBox2.ZOrder" xml:space="preserve">
<value>8</value>
</data>
<data name="TreeViewEntity.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms"> <data name="TreeViewEntity.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Bottom, Left</value> <value>Top, Bottom, Left</value>
</data> </data>
@ -876,7 +957,7 @@ diese Entität angelegt werden.</value>
<value>758, 53</value> <value>758, 53</value>
</data> </data>
<data name="btninsert.Size" type="System.Drawing.Size, System.Drawing"> <data name="btninsert.Size" type="System.Drawing.Size, System.Drawing">
<value>153, 33</value> <value>166, 33</value>
</data> </data>
<data name="btninsert.TabIndex" type="System.Int32, mscorlib"> <data name="btninsert.TabIndex" type="System.Int32, mscorlib">
<value>24</value> <value>24</value>
@ -923,7 +1004,7 @@ diese Entität angelegt werden.</value>
<value>758, 92</value> <value>758, 92</value>
</data> </data>
<data name="btndelete.Size" type="System.Drawing.Size, System.Drawing"> <data name="btndelete.Size" type="System.Drawing.Size, System.Drawing">
<value>153, 30</value> <value>166, 30</value>
</data> </data>
<data name="btndelete.TabIndex" type="System.Int32, mscorlib"> <data name="btndelete.TabIndex" type="System.Int32, mscorlib">
<value>25</value> <value>25</value>
@ -980,7 +1061,7 @@ diese Entität angelegt werden.</value>
<value>758, 128</value> <value>758, 128</value>
</data> </data>
<data name="btnsave.Size" type="System.Drawing.Size, System.Drawing"> <data name="btnsave.Size" type="System.Drawing.Size, System.Drawing">
<value>153, 30</value> <value>166, 30</value>
</data> </data>
<data name="btnsave.TabIndex" type="System.Int32, mscorlib"> <data name="btnsave.TabIndex" type="System.Int32, mscorlib">
<value>26</value> <value>26</value>
@ -1051,7 +1132,7 @@ diese Entität angelegt werden.</value>
<value>758, 164</value> <value>758, 164</value>
</data> </data>
<data name="btncopy.Size" type="System.Drawing.Size, System.Drawing"> <data name="btncopy.Size" type="System.Drawing.Size, System.Drawing">
<value>153, 28</value> <value>166, 28</value>
</data> </data>
<data name="btncopy.TabIndex" type="System.Int32, mscorlib"> <data name="btncopy.TabIndex" type="System.Int32, mscorlib">
<value>28</value> <value>28</value>
@ -1123,13 +1204,13 @@ diese Entität angelegt werden.</value>
<value>758, 235</value> <value>758, 235</value>
</data> </data>
<data name="btnGenerate.Size" type="System.Drawing.Size, System.Drawing"> <data name="btnGenerate.Size" type="System.Drawing.Size, System.Drawing">
<value>153, 42</value> <value>166, 42</value>
</data> </data>
<data name="btnGenerate.TabIndex" type="System.Int32, mscorlib"> <data name="btnGenerate.TabIndex" type="System.Int32, mscorlib">
<value>30</value> <value>30</value>
</data> </data>
<data name="btnGenerate.Text" xml:space="preserve"> <data name="btnGenerate.Text" xml:space="preserve">
<value>Kombiformular erzeugen</value> <value>Constructor erzeugen</value>
</data> </data>
<data name="btnGenerate.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing"> <data name="btnGenerate.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing">
<value>MiddleRight</value> <value>MiddleRight</value>
@ -1159,14 +1240,14 @@ diese Entität angelegt werden.</value>
<value>755, 280</value> <value>755, 280</value>
</data> </data>
<data name="Label3.Size" type="System.Drawing.Size, System.Drawing"> <data name="Label3.Size" type="System.Drawing.Size, System.Drawing">
<value>272, 26</value> <value>268, 26</value>
</data> </data>
<data name="Label3.TabIndex" type="System.Int32, mscorlib"> <data name="Label3.TabIndex" type="System.Int32, mscorlib">
<value>31</value> <value>31</value>
</data> </data>
<data name="Label3.Text" xml:space="preserve"> <data name="Label3.Text" xml:space="preserve">
<value>Mit dieser Funktion wird ein Eingabeformular erzeugt, <value>Mit dieser Funktion wird die Sicht erzeugt,
welches die links dargestellte TreeView-Struktur umsetzt.</value> welche die links dargestellte TreeView-Struktur umsetzt.</value>
</data> </data>
<data name="Label3.Visible" type="System.Boolean, mscorlib"> <data name="Label3.Visible" type="System.Boolean, mscorlib">
<value>False</value> <value>False</value>

15
app/DD-Record-Organiser/frmEntities.vb
View File

@ -254,7 +254,7 @@ Public Class frmEntities
'ggg() 'ggg()
If FORM_ID Is Nothing = False Then If FORM_ID Is Nothing = False Then
sql = String.Format("INSERT INTO TBPMO_FORM_VIEW (FORM_ID, SCREEN_ID, FORM_TITLE, DESCRIPTION, ADDED_WHO,LANGUAGE) VALUES ({0}, {1},'{2}','{3}','{4}','{5}')", FORM_ID, CURRENT_SCREEN_ID, FORM_TITLE, DESCRIPTION, ADDED_WHO, USER_LANGUAGE) sql = String.Format("INSERT INTO TBPMO_FORM_VIEW (FORM_ID, SCREEN_ID, FORM_TITLE, DESCRIPTION, ADDED_WHO,LANGUAGE) VALUES ({0}, {1},'{2}','{3}','{4}','{5}')", FORM_ID, CURRENT_SCREEN_ID, FORM_TITLE, DESCRIPTION, ADDED_WHO, USER_LANGUAGE)
ClassDatabase.Execute_non_Query(sql, True) ClassDatabase.Execute_non_Query(sql)
End If End If
Load_TreeView() Load_TreeView()
Else Else
@ -373,19 +373,6 @@ Public Class frmEntities
frmNewKombiForm.ShowDialog() frmNewKombiForm.ShowDialog()
End If End If
End If End If
'Dim CurrentID = GetCurrentGUID()
'Dim sql As String = "EXEC PRPMO_COPY_ENTITY " & CurrentID.ToString
'If ClassDatabase.Execute_non_Query(sql) = True Then
' 'MsgBox("Die Entität wurde erfolgreich kopiert!", MsgBoxStyle.Information)
' Load_TreeView()
' Load_Forms(999999999)
' lblStatus.Text = "Die Entität wurde erfolgreich kopiert."
' lblStatus.Visible = True
'Else
' lblStatus.Visible = False
'End If
Catch ex As Exception Catch ex As Exception
MsgBox("Formular konnte nicht gelöscht werden:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("Formular konnte nicht gelöscht werden:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try End Try

1
app/DD-Record-Organiser/frmFollowUp.Designer.vb generated
View File

@ -996,7 +996,6 @@ Partial Class frmFollowUp
Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Nothing Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Nothing
Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_CONSTRUCTOR_USER_SQLTableAdapter = Nothing Me.TableAdapterManager.TBPMO_CONSTRUCTOR_USER_SQLTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FILES_USERTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FOLLOW_UP_EMAILTableAdapter = Me.TBPMO_FOLLOW_UP_EMAILTableAdapter Me.TableAdapterManager.TBPMO_FOLLOW_UP_EMAILTableAdapter = Me.TBPMO_FOLLOW_UP_EMAILTableAdapter
Me.TableAdapterManager.TBPMO_FOLLUPEMAIL_USERTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FOLLUPEMAIL_USERTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = Nothing

4
app/DD-Record-Organiser/frmFollowUp.vb
View File

@ -143,7 +143,7 @@
bool = 0 bool = 0
End If End If
Dim upd = "UPDATE TBPMO_KONFIGURATION SET FOLLOW_UP_LOG_ERR_ONLY = " & bool & " WHERE GUID = 1" Dim upd = "UPDATE TBPMO_KONFIGURATION SET FOLLOW_UP_LOG_ERR_ONLY = " & bool & " WHERE GUID = 1"
ClassDatabase.Execute_non_Query(upd, True) ClassDatabase.Execute_non_Query(upd)
End If End If
Catch ex As Exception Catch ex As Exception
MsgBox("Fehler bei Update LogErrorsOnly:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("Fehler bei Update LogErrorsOnly:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
@ -235,7 +235,7 @@
If row.Item(0) = CBool(True) Then If row.Item(0) = CBool(True) Then
Dim sql Dim sql
sql = String.Format("DELETE FROM TBPMO_FOLLUPEMAIL_USER WHERE GUID = {0}", row.Item(5)) sql = String.Format("DELETE FROM TBPMO_FOLLUPEMAIL_USER WHERE GUID = {0}", row.Item(5))
If ClassDatabase.Execute_non_Query(sql, True) = False Then If ClassDatabase.Execute_non_Query(sql) = False Then
MsgBox(String.Format("Error in deleting User {0} from FollowUp", row.Item(1)), MsgBoxStyle.Critical) MsgBox(String.Format("Error in deleting User {0} from FollowUp", row.Item(1)), MsgBoxStyle.Critical)
End If End If
End If End If

61
app/DD-Record-Organiser/frmGeodataNavigation.vb
View File

@ -117,41 +117,46 @@ Public Class frmGeodataNavigation
Private Sub LoadGridData() Private Sub LoadGridData()
If Not IsNothing(EntityDataTable) Then If IsNothing(EntityDataTable) Then
GridControlGeo.DataSource = EntityDataTable Exit Sub
End If End If
Dim listcheck As List(Of String) = ClassHelper.Return_listcheck(CURRENT_ENTITY_ID) Dim gridFormatter As New ClassGridFormatter.ConstructorView(EntityDataTable, CURRENT_ENTITY_ID)
Dim listdate As List(Of String) = ClassHelper.Return_listdate(CURRENT_ENTITY_ID) Dim DT_RESULT As DataTable = gridFormatter.FormatDatatable()
GridControlGeo.DataSource = DT_RESULT
gridFormatter.FormatGridView(grvwMain)
Dim CheckBoxEditorForDisplay = New RepositoryItemCheckEdit() 'Dim listcheck As List(Of String) = ClassHelper.Return_listcheck(CURRENT_ENTITY_ID)
CheckBoxEditorForDisplay.ValueChecked = 1 'Dim listdate As List(Of String) = ClassHelper.Return_listdate(CURRENT_ENTITY_ID)
CheckBoxEditorForDisplay.ValueUnchecked = 0
GridControlGeo.RepositoryItems.Add(CheckBoxEditorForDisplay)
' Alle Checkbox Spalten durchgehen und CheckBoxEditor zuweisen 'Dim CheckBoxEditorForDisplay = New RepositoryItemCheckEdit()
For Each col As String In listcheck 'CheckBoxEditorForDisplay.ValueChecked = 1
If Not IsNothing(grvwMain.Columns(col)) Then 'CheckBoxEditorForDisplay.ValueUnchecked = 0
grvwMain.Columns(col).ColumnEdit = CheckBoxEditorForDisplay 'GridControlGeo.RepositoryItems.Add(CheckBoxEditorForDisplay)
End If
Next
For Each col As String In listdate '' Alle Checkbox Spalten durchgehen und CheckBoxEditor zuweisen
Dim date_edit As New DevExpress.XtraEditors.Repository.RepositoryItemTimeEdit 'For Each col As String In listcheck
Dim date_column As GridColumn = grvwMain.Columns(col) ' If Not IsNothing(grvwMain.Columns(col)) Then
date_column.DisplayFormat.FormatType = FormatType.DateTime ' grvwMain.Columns(col).ColumnEdit = CheckBoxEditorForDisplay
date_column.DisplayFormat.FormatString = CURRENT_DATE_FORMAT ' End If
date_column.OptionsFilter.FilterPopupMode = FilterPopupMode.Date 'Next
date_column.ColumnEdit = date_edit
date_column.FilterMode = ColumnFilterMode.Value ' was DisplayText
date_edit.DisplayFormat.FormatType = FormatType.DateTime 'For Each col As String In listdate
date_edit.DisplayFormat.FormatString = CURRENT_DATE_FORMAT ' Dim date_edit As New DevExpress.XtraEditors.Repository.RepositoryItemTimeEdit
date_edit.Mask.MaskType = Mask.MaskType.DateTime ' Dim date_column As GridColumn = grvwMain.Columns(col)
date_edit.Mask.EditMask = CURRENT_DATE_FORMAT ' date_column.DisplayFormat.FormatType = FormatType.DateTime
date_edit.Mask.UseMaskAsDisplayFormat = True ' date_column.DisplayFormat.FormatString = CURRENT_DATE_FORMAT
' date_column.OptionsFilter.FilterPopupMode = FilterPopupMode.Date
' date_column.ColumnEdit = date_edit
' date_column.FilterMode = ColumnFilterMode.Value ' was DisplayText
Next ' date_edit.DisplayFormat.FormatType = FormatType.DateTime
' date_edit.DisplayFormat.FormatString = CURRENT_DATE_FORMAT
' date_edit.Mask.MaskType = Mask.MaskType.DateTime
' date_edit.Mask.EditMask = CURRENT_DATE_FORMAT
' date_edit.Mask.UseMaskAsDisplayFormat = True
'Next
' Styles for GridControl ' Styles for GridControl
grvwMain.FocusRectStyle = DevExpress.XtraGrid.Views.Grid.DrawFocusRectStyle.None grvwMain.FocusRectStyle = DevExpress.XtraGrid.Views.Grid.DrawFocusRectStyle.None

1
app/DD-Record-Organiser/frmLanguage_Translator.Designer.vb generated
View File

@ -320,7 +320,6 @@ Partial Class frmLanguage_Translator
Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Nothing Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Nothing
Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_CONSTRUCTOR_USER_SQLTableAdapter = Nothing Me.TableAdapterManager.TBPMO_CONSTRUCTOR_USER_SQLTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FILES_USERTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FOLLOW_UP_EMAILTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FOLLOW_UP_EMAILTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FOLLUPEMAIL_USERTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FOLLUPEMAIL_USERTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = Nothing

4
app/DD-Record-Organiser/frmLanguage_Translator.vb
View File

@ -41,7 +41,7 @@ Public Class frmLanguage_Translator
sql = sql.Replace("@OBJECT", group) sql = sql.Replace("@OBJECT", group)
End If End If
Dim DT_OBJ As DataTable = ClassDatabase.Return_Datatable(sql, "Load language objects") Dim DT_OBJ As DataTable = ClassDatabase.Return_Datatable(sql)
Clear_Grid_View() Clear_Grid_View()
If Not IsNothing(DT_OBJ) Then If Not IsNothing(DT_OBJ) Then
TBPMO_LANGUAGE_OBJECTBindingSource1.DataSource = DT_OBJ TBPMO_LANGUAGE_OBJECTBindingSource1.DataSource = DT_OBJ
@ -131,7 +131,7 @@ Public Class frmLanguage_Translator
Exit Sub Exit Sub
End If End If
Dim upd = String.Format("UPDATE TBPMO_LANGUAGE_OBJECT SET {3} = '{0}', CHANGED_WHO = '{1}' WHERE GUID = {2}", e.Value, USER_USERNAME, Grid_RecordID, e.Column.FieldName) Dim upd = String.Format("UPDATE TBPMO_LANGUAGE_OBJECT SET {3} = '{0}', CHANGED_WHO = '{1}' WHERE GUID = {2}", e.Value, USER_USERNAME, Grid_RecordID, e.Column.FieldName)
If ClassDatabase.Execute_non_Query(upd) = True Then If ClassDatabase.Execute_non_Query(upd, False) = True Then
ts_statelbl.Text = "Row/ID (" & Grid_RecordID.ToString & ") Updated - " & Now ts_statelbl.Text = "Row/ID (" & Grid_RecordID.ToString & ") Updated - " & Now
ts_statelbl.BackColor = Color.Yellow ts_statelbl.BackColor = Color.Yellow
ts_statelbl.Visible = True ts_statelbl.Visible = True

2
app/DD-Record-Organiser/frmLevel_Designer.vb
View File

@ -165,7 +165,7 @@
Dim wid As Integer = Me.Width Dim wid As Integer = Me.Width
Dim update_sizepnl As String = "UPDATE TBPMO_FORM_VIEW SET HEIGHT = " & pnlDesigner.Height & ",WIDTH = " & wid & " where FORM_ID = " & CURRENT_ENTITY_ID & " and SCREEN_ID = " & CURRENT_SCREEN_ID Dim update_sizepnl As String = "UPDATE TBPMO_FORM_VIEW SET HEIGHT = " & pnlDesigner.Height & ",WIDTH = " & wid & " where FORM_ID = " & CURRENT_ENTITY_ID & " and SCREEN_ID = " & CURRENT_SCREEN_ID
ClassDatabase.Execute_non_Query(update_sizepnl) ClassDatabase.Execute_non_Query(update_sizepnl, False)
Catch ex As Exception Catch ex As Exception
MsgBox("Error in frmLevel_Designer_FormClosing: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("Error in frmLevel_Designer_FormClosing: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try End Try

18
app/DD-Record-Organiser/frmLicense.designer.vb generated
View File

@ -27,6 +27,7 @@ Partial Class frmLicense
Me.txtPW = New System.Windows.Forms.TextBox() Me.txtPW = New System.Windows.Forms.TextBox()
Me.lblPW = New System.Windows.Forms.Label() Me.lblPW = New System.Windows.Forms.Label()
Me.grbBoxlicense = New System.Windows.Forms.GroupBox() Me.grbBoxlicense = New System.Windows.Forms.GroupBox()
Me.chkSiteProxy = New System.Windows.Forms.CheckBox()
Me.lblClient = New System.Windows.Forms.Label() Me.lblClient = New System.Windows.Forms.Label()
Me.cmbClients = New System.Windows.Forms.ComboBox() Me.cmbClients = New System.Windows.Forms.ComboBox()
Me.chkSAPConnect = New System.Windows.Forms.CheckBox() Me.chkSAPConnect = New System.Windows.Forms.CheckBox()
@ -37,7 +38,6 @@ Partial Class frmLicense
Me.btnnewLicenses = New System.Windows.Forms.Button() Me.btnnewLicenses = New System.Windows.Forms.Button()
Me.txtNewlicences = New System.Windows.Forms.TextBox() Me.txtNewlicences = New System.Windows.Forms.TextBox()
Me.lblnewlicenses = New System.Windows.Forms.Label() Me.lblnewlicenses = New System.Windows.Forms.Label()
Me.chkSite = New System.Windows.Forms.CheckBox()
Me.grbBoxlicense.SuspendLayout() Me.grbBoxlicense.SuspendLayout()
Me.SuspendLayout() Me.SuspendLayout()
' '
@ -60,7 +60,7 @@ Partial Class frmLicense
' '
'grbBoxlicense 'grbBoxlicense
' '
Me.grbBoxlicense.Controls.Add(Me.chkSite) Me.grbBoxlicense.Controls.Add(Me.chkSiteProxy)
Me.grbBoxlicense.Controls.Add(Me.lblClient) Me.grbBoxlicense.Controls.Add(Me.lblClient)
Me.grbBoxlicense.Controls.Add(Me.cmbClients) Me.grbBoxlicense.Controls.Add(Me.cmbClients)
Me.grbBoxlicense.Controls.Add(Me.chkSAPConnect) Me.grbBoxlicense.Controls.Add(Me.chkSAPConnect)
@ -75,6 +75,12 @@ Partial Class frmLicense
Me.grbBoxlicense.Name = "grbBoxlicense" Me.grbBoxlicense.Name = "grbBoxlicense"
Me.grbBoxlicense.TabStop = False Me.grbBoxlicense.TabStop = False
' '
'chkSiteProxy
'
resources.ApplyResources(Me.chkSiteProxy, "chkSiteProxy")
Me.chkSiteProxy.Name = "chkSiteProxy"
Me.chkSiteProxy.UseVisualStyleBackColor = True
'
'lblClient 'lblClient
' '
resources.ApplyResources(Me.lblClient, "lblClient") resources.ApplyResources(Me.lblClient, "lblClient")
@ -131,12 +137,6 @@ Partial Class frmLicense
resources.ApplyResources(Me.lblnewlicenses, "lblnewlicenses") resources.ApplyResources(Me.lblnewlicenses, "lblnewlicenses")
Me.lblnewlicenses.Name = "lblnewlicenses" Me.lblnewlicenses.Name = "lblnewlicenses"
' '
'chkSite
'
resources.ApplyResources(Me.chkSite, "chkSite")
Me.chkSite.Name = "chkSite"
Me.chkSite.UseVisualStyleBackColor = True
'
'frmLicense 'frmLicense
' '
resources.ApplyResources(Me, "$this") resources.ApplyResources(Me, "$this")
@ -169,5 +169,5 @@ Partial Class frmLicense
Friend WithEvents chkSAPConnect As System.Windows.Forms.CheckBox Friend WithEvents chkSAPConnect As System.Windows.Forms.CheckBox
Friend WithEvents lblClient As System.Windows.Forms.Label Friend WithEvents lblClient As System.Windows.Forms.Label
Friend WithEvents cmbClients As System.Windows.Forms.ComboBox Friend WithEvents cmbClients As System.Windows.Forms.ComboBox
Friend WithEvents chkSite As System.Windows.Forms.CheckBox Friend WithEvents chkSiteProxy As System.Windows.Forms.CheckBox
End Class End Class

38
app/DD-Record-Organiser/frmLicense.resx
View File

@ -198,37 +198,37 @@
<data name="&gt;&gt;lblPW.ZOrder" xml:space="preserve"> <data name="&gt;&gt;lblPW.ZOrder" xml:space="preserve">
<value>2</value> <value>2</value>
</data> </data>
<data name="chkSite.AutoSize" type="System.Boolean, mscorlib"> <data name="chkSiteProxy.AutoSize" type="System.Boolean, mscorlib">
<value>True</value> <value>True</value>
</data> </data>
<data name="chkSite.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms"> <data name="chkSiteProxy.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>NoControl</value> <value>NoControl</value>
</data> </data>
<data name="chkSite.Location" type="System.Drawing.Point, System.Drawing"> <data name="chkSiteProxy.Location" type="System.Drawing.Point, System.Drawing">
<value>164, 144</value> <value>147, 144</value>
</data> </data>
<data name="chkSite.RightToLeft" type="System.Windows.Forms.RightToLeft, System.Windows.Forms"> <data name="chkSiteProxy.RightToLeft" type="System.Windows.Forms.RightToLeft, System.Windows.Forms">
<value>Yes</value> <value>Yes</value>
</data> </data>
<data name="chkSite.Size" type="System.Drawing.Size, System.Drawing"> <data name="chkSiteProxy.Size" type="System.Drawing.Size, System.Drawing">
<value>89, 20</value> <value>125, 20</value>
</data> </data>
<data name="chkSite.TabIndex" type="System.Int32, mscorlib"> <data name="chkSiteProxy.TabIndex" type="System.Int32, mscorlib">
<value>20</value> <value>20</value>
</data> </data>
<data name="chkSite.Text" xml:space="preserve"> <data name="chkSiteProxy.Text" xml:space="preserve">
<value>Site Addon</value> <value>Site/Proxy Addon</value>
</data> </data>
<data name="&gt;&gt;chkSite.Name" xml:space="preserve"> <data name="&gt;&gt;chkSiteProxy.Name" xml:space="preserve">
<value>chkSite</value> <value>chkSiteProxy</value>
</data> </data>
<data name="&gt;&gt;chkSite.Type" xml:space="preserve"> <data name="&gt;&gt;chkSiteProxy.Type" xml:space="preserve">
<value>System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data> </data>
<data name="&gt;&gt;chkSite.Parent" xml:space="preserve"> <data name="&gt;&gt;chkSiteProxy.Parent" xml:space="preserve">
<value>grbBoxlicense</value> <value>grbBoxlicense</value>
</data> </data>
<data name="&gt;&gt;chkSite.ZOrder" xml:space="preserve"> <data name="&gt;&gt;chkSiteProxy.ZOrder" xml:space="preserve">
<value>0</value> <value>0</value>
</data> </data>
<data name="lblClient.AutoSize" type="System.Boolean, mscorlib"> <data name="lblClient.AutoSize" type="System.Boolean, mscorlib">
@ -271,7 +271,7 @@
<value>10, 39</value> <value>10, 39</value>
</data> </data>
<data name="cmbClients.Size" type="System.Drawing.Size, System.Drawing"> <data name="cmbClients.Size" type="System.Drawing.Size, System.Drawing">
<value>243, 24</value> <value>262, 24</value>
</data> </data>
<data name="cmbClients.TabIndex" type="System.Int32, mscorlib"> <data name="cmbClients.TabIndex" type="System.Int32, mscorlib">
<value>18</value> <value>18</value>
@ -370,7 +370,7 @@
<value>5</value> <value>5</value>
</data> </data>
<data name="txtDossierCount.Location" type="System.Drawing.Point, System.Drawing"> <data name="txtDossierCount.Location" type="System.Drawing.Point, System.Drawing">
<value>222, 109</value> <value>241, 109</value>
</data> </data>
<data name="txtDossierCount.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms"> <data name="txtDossierCount.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
<value>3, 4, 3, 4</value> <value>3, 4, 3, 4</value>
@ -427,7 +427,7 @@
<value>MiddleLeft</value> <value>MiddleLeft</value>
</data> </data>
<data name="btnnewLicenses.Location" type="System.Drawing.Point, System.Drawing"> <data name="btnnewLicenses.Location" type="System.Drawing.Point, System.Drawing">
<value>307, 126</value> <value>307, 134</value>
</data> </data>
<data name="btnnewLicenses.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms"> <data name="btnnewLicenses.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
<value>3, 4, 3, 4</value> <value>3, 4, 3, 4</value>
@ -457,7 +457,7 @@
<value>8</value> <value>8</value>
</data> </data>
<data name="txtNewlicences.Location" type="System.Drawing.Point, System.Drawing"> <data name="txtNewlicences.Location" type="System.Drawing.Point, System.Drawing">
<value>222, 74</value> <value>241, 74</value>
</data> </data>
<data name="txtNewlicences.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms"> <data name="txtNewlicences.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
<value>3, 4, 3, 4</value> <value>3, 4, 3, 4</value>

6
app/DD-Record-Organiser/frmLicense.vb
View File

@ -44,10 +44,10 @@ Public Class frmLicense
_lizenzManager = New ClassLicenseManager("#DigitalData35452!#", "") _lizenzManager = New ClassLicenseManager("#DigitalData35452!#", "")
If Me.txtNewlicences.Text <> "" And txtDossierCount.Text <> "" Then If Me.txtNewlicences.Text <> "" And txtDossierCount.Text <> "" Then
'Encode the license 'Encode the license
Dim result As String = Me._lizenzManager.EncodeLicenseKey(txtNewlicences.Text & "#" & dtpGueltig_GI.Text & "#" & txtDossierCount.Text & "#" & chkSAPConnect.Checked & "#" & chkSite.Checked, "#DigitalData35452!#") Dim result As String = Me._lizenzManager.EncodeLicenseKey(txtNewlicences.Text & "#" & dtpGueltig_GI.Text & "#" & txtDossierCount.Text & "#" & chkSAPConnect.Checked & "#" & chkSiteProxy.Checked, "#DigitalData35452!#")
Dim sql As String = String.Format("UPDATE TBDD_CLIENT SET LICENSE_PMO = '" & result & "' WHERE GUID = {0}", CLIENT_ID) Dim sql As String = String.Format("UPDATE TBDD_CLIENT SET LICENSE_PMO = '" & result & "' WHERE GUID = {0}", CLIENT_ID)
If ClassDatabase.Execute_non_Query(sql, True) = True Then If ClassDatabase.Execute_non_Query(sql) = True Then
Refresh_Licence(True) Refresh_Licence(True)
End If End If
@ -71,7 +71,7 @@ Public Class frmLicense
LICENSE_SAP_Connect = False LICENSE_SAP_Connect = False
chkSAPConnect.Checked = False chkSAPConnect.Checked = False
End Try End Try
chkSite.Checked = LICENSE_SITE chkSiteProxy.Checked = LICENSE_SITE_PROXY
If Neu = True Then If Neu = True Then
If CInt(LICENSE_COUNT) > 0 Then If CInt(LICENSE_COUNT) > 0 Then
Dim msg As String = "Die Lizenz wurde aktualisiert!" & vbNewLine & Now Dim msg As String = "Die Lizenz wurde aktualisiert!" & vbNewLine & Now

2
app/DD-Record-Organiser/frmLicense_User.vb
View File

@ -49,7 +49,7 @@
Else Else
chkSAP.Checked = False chkSAP.Checked = False
End If End If
If (CBool(LICENSE_SITE) = True) Then If (CBool(LICENSE_SITE_PROXY) = True) Then
chkSite.Checked = True chkSite.Checked = True
Else Else
chkSite.Checked = False chkSite.Checked = False

2
app/DD-Record-Organiser/frmLogRecord.Designer.vb generated
View File

@ -325,7 +325,7 @@ Partial Class frmLogRecord
Me.TableAdapterManager.TBDD_INDEX_AUTOMTableAdapter = Nothing Me.TableAdapterManager.TBDD_INDEX_AUTOMTableAdapter = Nothing
Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Nothing Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Nothing
Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FILES_USERTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FOLLOW_UP_EMAILTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FOLLOW_UP_EMAILTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FOLLUPEMAIL_USERTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FOLLUPEMAIL_USERTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = Nothing

64
app/DD-Record-Organiser/frmMain.Designer.vb generated
View File

@ -36,9 +36,10 @@ Partial Class frmMain
Me.ribbonMain = New DevExpress.XtraBars.Ribbon.RibbonControl() Me.ribbonMain = New DevExpress.XtraBars.Ribbon.RibbonControl()
Me.MainMenu = New DevExpress.XtraBars.Ribbon.ApplicationMenu(Me.components) Me.MainMenu = New DevExpress.XtraBars.Ribbon.ApplicationMenu(Me.components)
Me.itemSettings = New DevExpress.XtraBars.BarButtonItem() Me.itemSettings = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem19 = New DevExpress.XtraBars.BarButtonItem()
Me.itemRefreshProxy = New DevExpress.XtraBars.BarButtonItem()
Me.itemInfo = New DevExpress.XtraBars.BarButtonItem() Me.itemInfo = New DevExpress.XtraBars.BarButtonItem()
Me.itemAbout = New DevExpress.XtraBars.BarButtonItem() Me.itemAbout = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem19 = New DevExpress.XtraBars.BarButtonItem()
Me.itemExit = New DevExpress.XtraBars.BarButtonItem() Me.itemExit = New DevExpress.XtraBars.BarButtonItem()
Me.LabelMachine = New DevExpress.XtraBars.BarStaticItem() Me.LabelMachine = New DevExpress.XtraBars.BarStaticItem()
Me.LabelLoggedIn = New DevExpress.XtraBars.BarStaticItem() Me.LabelLoggedIn = New DevExpress.XtraBars.BarStaticItem()
@ -100,26 +101,26 @@ Partial Class frmMain
'NotifyIcon 'NotifyIcon
' '
Me.NotifyIcon.BalloonTipIcon = System.Windows.Forms.ToolTipIcon.Info Me.NotifyIcon.BalloonTipIcon = System.Windows.Forms.ToolTipIcon.Info
resources.ApplyResources(Me.NotifyIcon, "NotifyIcon")
Me.NotifyIcon.ContextMenuStrip = Me.cmsSystray Me.NotifyIcon.ContextMenuStrip = Me.cmsSystray
resources.ApplyResources(Me.NotifyIcon, "NotifyIcon")
' '
'cmsSystray 'cmsSystray
' '
resources.ApplyResources(Me.cmsSystray, "cmsSystray")
Me.cmsSystray.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ADDIBeendenToolStripMenuItem, Me.CockpitAnzeigenToolStripMenuItem}) Me.cmsSystray.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ADDIBeendenToolStripMenuItem, Me.CockpitAnzeigenToolStripMenuItem})
Me.cmsSystray.Name = "cmsSystray" Me.cmsSystray.Name = "cmsSystray"
resources.ApplyResources(Me.cmsSystray, "cmsSystray")
' '
'ADDIBeendenToolStripMenuItem 'ADDIBeendenToolStripMenuItem
' '
resources.ApplyResources(Me.ADDIBeendenToolStripMenuItem, "ADDIBeendenToolStripMenuItem")
Me.ADDIBeendenToolStripMenuItem.Image = Global.DD_Record_Organiser.My.Resources.Resources.cancel1 Me.ADDIBeendenToolStripMenuItem.Image = Global.DD_Record_Organiser.My.Resources.Resources.cancel1
Me.ADDIBeendenToolStripMenuItem.Name = "ADDIBeendenToolStripMenuItem" Me.ADDIBeendenToolStripMenuItem.Name = "ADDIBeendenToolStripMenuItem"
resources.ApplyResources(Me.ADDIBeendenToolStripMenuItem, "ADDIBeendenToolStripMenuItem")
' '
'CockpitAnzeigenToolStripMenuItem 'CockpitAnzeigenToolStripMenuItem
' '
resources.ApplyResources(Me.CockpitAnzeigenToolStripMenuItem, "CockpitAnzeigenToolStripMenuItem")
Me.CockpitAnzeigenToolStripMenuItem.Image = Global.DD_Record_Organiser.My.Resources.Resources.WebUserControl_ascx__11270_16x Me.CockpitAnzeigenToolStripMenuItem.Image = Global.DD_Record_Organiser.My.Resources.Resources.WebUserControl_ascx__11270_16x
Me.CockpitAnzeigenToolStripMenuItem.Name = "CockpitAnzeigenToolStripMenuItem" Me.CockpitAnzeigenToolStripMenuItem.Name = "CockpitAnzeigenToolStripMenuItem"
resources.ApplyResources(Me.CockpitAnzeigenToolStripMenuItem, "CockpitAnzeigenToolStripMenuItem")
' '
'TimerTasks 'TimerTasks
' '
@ -153,7 +154,7 @@ Partial Class frmMain
Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Nothing Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Nothing
Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_CONSTRUCTOR_USER_SQLTableAdapter = Nothing Me.TableAdapterManager.TBPMO_CONSTRUCTOR_USER_SQLTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FILES_USERTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FOLLOW_UP_EMAILTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FOLLOW_UP_EMAILTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FOLLUPEMAIL_USERTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FOLLUPEMAIL_USERTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = Nothing
@ -183,12 +184,12 @@ Partial Class frmMain
' '
'ribbonMain 'ribbonMain
' '
resources.ApplyResources(Me.ribbonMain, "ribbonMain")
Me.ribbonMain.ApplicationButtonDropDownControl = Me.MainMenu Me.ribbonMain.ApplicationButtonDropDownControl = Me.MainMenu
Me.ribbonMain.BackColor = System.Drawing.Color.DarkGray Me.ribbonMain.BackColor = System.Drawing.Color.DarkGray
Me.ribbonMain.ExpandCollapseItem.Id = 0 Me.ribbonMain.ExpandCollapseItem.Id = 0
Me.ribbonMain.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.ribbonMain.ExpandCollapseItem, Me.LabelMachine, Me.LabelLoggedIn, Me.LabelVersion, Me.itemInfo, Me.itemExit, Me.BarButtonItem1, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.BarButtonItem6, Me.BarButtonItem7, Me.itemSettings, Me.BarButtonItem2, Me.BarButtonItem10, Me.BarButtonItem12, Me.BarButtonItem13, Me.BarButtonItemConnections, Me.BarButtonItem15, Me.BarButtonItem16, Me.BarButtonItem17, Me.BarButtonItem18, Me.LabelLanguage, Me.BarButtonItem20, Me.BarButtonItemSAPConnect, Me.BarButtonItemStructureNOdes, Me.BarSubItem1, Me.BarButtonItem14, Me.BarButtonItem21, Me.BarButtonItem22, Me.BarButtonItem8, Me.BarButtonItem9, Me.itemAbout, Me.BarButtonItem19, Me.btnGlobalSearch, Me.LabelUser, Me.bbtnItemViewsUser, Me.BarButtonItem23}) Me.ribbonMain.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.ribbonMain.ExpandCollapseItem, Me.LabelMachine, Me.LabelLoggedIn, Me.LabelVersion, Me.itemInfo, Me.itemExit, Me.BarButtonItem1, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.BarButtonItem6, Me.BarButtonItem7, Me.itemSettings, Me.BarButtonItem2, Me.BarButtonItem10, Me.BarButtonItem12, Me.BarButtonItem13, Me.BarButtonItemConnections, Me.BarButtonItem15, Me.BarButtonItem16, Me.BarButtonItem17, Me.BarButtonItem18, Me.LabelLanguage, Me.BarButtonItem20, Me.BarButtonItemSAPConnect, Me.BarButtonItemStructureNOdes, Me.BarSubItem1, Me.BarButtonItem14, Me.BarButtonItem21, Me.BarButtonItem22, Me.BarButtonItem8, Me.BarButtonItem9, Me.itemAbout, Me.BarButtonItem19, Me.btnGlobalSearch, Me.LabelUser, Me.bbtnItemViewsUser, Me.BarButtonItem23, Me.itemRefreshProxy})
Me.ribbonMain.MaxItemId = 10 resources.ApplyResources(Me.ribbonMain, "ribbonMain")
Me.ribbonMain.MaxItemId = 1
Me.ribbonMain.Name = "ribbonMain" Me.ribbonMain.Name = "ribbonMain"
Me.ribbonMain.PageCategories.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageCategory() {Me.RibbonPageCategory1}) Me.ribbonMain.PageCategories.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageCategory() {Me.RibbonPageCategory1})
Me.ribbonMain.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.pageHome, Me.pageForms, Me.pageAdmin}) Me.ribbonMain.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.pageHome, Me.pageForms, Me.pageAdmin})
@ -199,14 +200,11 @@ Partial Class frmMain
'MainMenu 'MainMenu
' '
Me.MainMenu.ItemLinks.Add(Me.itemSettings) Me.MainMenu.ItemLinks.Add(Me.itemSettings)
Me.MainMenu.ItemLinks.Add(Me.BarButtonItem19)
Me.MainMenu.ItemLinks.Add(Me.itemRefreshProxy)
Me.MainMenu.ItemLinks.Add(Me.itemInfo) Me.MainMenu.ItemLinks.Add(Me.itemInfo)
Me.MainMenu.ItemLinks.Add(Me.itemAbout) Me.MainMenu.ItemLinks.Add(Me.itemAbout)
Me.MainMenu.ItemLinks.Add(Me.BarButtonItem19)
Me.MainMenu.ItemLinks.Add(Me.itemExit) Me.MainMenu.ItemLinks.Add(Me.itemExit)
Me.MainMenu.MenuAppearance.HeaderItemAppearance.FontSizeDelta = CType(resources.GetObject("MainMenu.MenuAppearance.HeaderItemAppearance.FontSizeDelta"), Integer)
Me.MainMenu.MenuAppearance.HeaderItemAppearance.FontStyleDelta = CType(resources.GetObject("MainMenu.MenuAppearance.HeaderItemAppearance.FontStyleDelta"), System.Drawing.FontStyle)
Me.MainMenu.MenuAppearance.HeaderItemAppearance.GradientMode = CType(resources.GetObject("MainMenu.MenuAppearance.HeaderItemAppearance.GradientMode"), System.Drawing.Drawing2D.LinearGradientMode)
Me.MainMenu.MenuAppearance.HeaderItemAppearance.Image = CType(resources.GetObject("MainMenu.MenuAppearance.HeaderItemAppearance.Image"), System.Drawing.Image)
Me.MainMenu.Name = "MainMenu" Me.MainMenu.Name = "MainMenu"
Me.MainMenu.Ribbon = Me.ribbonMain Me.MainMenu.Ribbon = Me.ribbonMain
' '
@ -217,6 +215,20 @@ Partial Class frmMain
Me.itemSettings.Id = 21 Me.itemSettings.Id = 21
Me.itemSettings.Name = "itemSettings" Me.itemSettings.Name = "itemSettings"
' '
'BarButtonItem19
'
resources.ApplyResources(Me.BarButtonItem19, "BarButtonItem19")
Me.BarButtonItem19.Glyph = CType(resources.GetObject("BarButtonItem19.Glyph"), System.Drawing.Image)
Me.BarButtonItem19.Id = 47
Me.BarButtonItem19.Name = "BarButtonItem19"
'
'itemRefreshProxy
'
resources.ApplyResources(Me.itemRefreshProxy, "itemRefreshProxy")
Me.itemRefreshProxy.Glyph = CType(resources.GetObject("itemRefreshProxy.Glyph"), System.Drawing.Image)
Me.itemRefreshProxy.Id = 1
Me.itemRefreshProxy.Name = "itemRefreshProxy"
'
'itemInfo 'itemInfo
' '
resources.ApplyResources(Me.itemInfo, "itemInfo") resources.ApplyResources(Me.itemInfo, "itemInfo")
@ -231,13 +243,6 @@ Partial Class frmMain
Me.itemAbout.Id = 46 Me.itemAbout.Id = 46
Me.itemAbout.Name = "itemAbout" Me.itemAbout.Name = "itemAbout"
' '
'BarButtonItem19
'
resources.ApplyResources(Me.BarButtonItem19, "BarButtonItem19")
Me.BarButtonItem19.Glyph = CType(resources.GetObject("BarButtonItem19.Glyph"), System.Drawing.Image)
Me.BarButtonItem19.Id = 47
Me.BarButtonItem19.Name = "BarButtonItem19"
'
'itemExit 'itemExit
' '
resources.ApplyResources(Me.itemExit, "itemExit") resources.ApplyResources(Me.itemExit, "itemExit")
@ -424,10 +429,6 @@ Partial Class frmMain
resources.ApplyResources(Me.BarSubItem1, "BarSubItem1") resources.ApplyResources(Me.BarSubItem1, "BarSubItem1")
Me.BarSubItem1.Id = 38 Me.BarSubItem1.Id = 38
Me.BarSubItem1.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem14), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem21), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem22), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem8), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem9), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem23)}) Me.BarSubItem1.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem14), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem21), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem22), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem8), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem9), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem23)})
Me.BarSubItem1.MenuAppearance.HeaderItemAppearance.FontSizeDelta = CType(resources.GetObject("BarSubItem1.MenuAppearance.HeaderItemAppearance.FontSizeDelta"), Integer)
Me.BarSubItem1.MenuAppearance.HeaderItemAppearance.FontStyleDelta = CType(resources.GetObject("BarSubItem1.MenuAppearance.HeaderItemAppearance.FontStyleDelta"), System.Drawing.FontStyle)
Me.BarSubItem1.MenuAppearance.HeaderItemAppearance.GradientMode = CType(resources.GetObject("BarSubItem1.MenuAppearance.HeaderItemAppearance.GradientMode"), System.Drawing.Drawing2D.LinearGradientMode)
Me.BarSubItem1.MenuAppearance.HeaderItemAppearance.Image = CType(resources.GetObject("BarSubItem1.MenuAppearance.HeaderItemAppearance.Image"), System.Drawing.Image)
Me.BarSubItem1.Name = "BarSubItem1" Me.BarSubItem1.Name = "BarSubItem1"
Me.BarSubItem1.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large Me.BarSubItem1.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large
' '
@ -534,10 +535,6 @@ Partial Class frmMain
'pageForms 'pageForms
' '
Me.pageForms.Appearance.BackColor = CType(resources.GetObject("pageForms.Appearance.BackColor"), System.Drawing.Color) Me.pageForms.Appearance.BackColor = CType(resources.GetObject("pageForms.Appearance.BackColor"), System.Drawing.Color)
Me.pageForms.Appearance.FontSizeDelta = CType(resources.GetObject("pageForms.Appearance.FontSizeDelta"), Integer)
Me.pageForms.Appearance.FontStyleDelta = CType(resources.GetObject("pageForms.Appearance.FontStyleDelta"), System.Drawing.FontStyle)
Me.pageForms.Appearance.GradientMode = CType(resources.GetObject("pageForms.Appearance.GradientMode"), System.Drawing.Drawing2D.LinearGradientMode)
Me.pageForms.Appearance.Image = CType(resources.GetObject("pageForms.Appearance.Image"), System.Drawing.Image)
Me.pageForms.Appearance.Options.UseBackColor = True Me.pageForms.Appearance.Options.UseBackColor = True
Me.pageForms.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.groupQuickAccessForm2}) Me.pageForms.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.groupQuickAccessForm2})
Me.pageForms.Image = Global.DD_Record_Organiser.My.Resources.Resources.application_form Me.pageForms.Image = Global.DD_Record_Organiser.My.Resources.Resources.application_form
@ -599,12 +596,12 @@ Partial Class frmMain
' '
'RibbonStatusBar1 'RibbonStatusBar1
' '
resources.ApplyResources(Me.RibbonStatusBar1, "RibbonStatusBar1")
Me.RibbonStatusBar1.ItemLinks.Add(Me.LabelMachine) Me.RibbonStatusBar1.ItemLinks.Add(Me.LabelMachine)
Me.RibbonStatusBar1.ItemLinks.Add(Me.LabelUser) Me.RibbonStatusBar1.ItemLinks.Add(Me.LabelUser)
Me.RibbonStatusBar1.ItemLinks.Add(Me.LabelLoggedIn) Me.RibbonStatusBar1.ItemLinks.Add(Me.LabelLoggedIn)
Me.RibbonStatusBar1.ItemLinks.Add(Me.LabelVersion) Me.RibbonStatusBar1.ItemLinks.Add(Me.LabelVersion)
Me.RibbonStatusBar1.ItemLinks.Add(Me.LabelLanguage) Me.RibbonStatusBar1.ItemLinks.Add(Me.LabelLanguage)
resources.ApplyResources(Me.RibbonStatusBar1, "RibbonStatusBar1")
Me.RibbonStatusBar1.Name = "RibbonStatusBar1" Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
Me.RibbonStatusBar1.Ribbon = Me.ribbonMain Me.RibbonStatusBar1.Ribbon = Me.ribbonMain
' '
@ -638,14 +635,10 @@ Partial Class frmMain
' '
'frmMain 'frmMain
' '
resources.ApplyResources(Me, "$this")
Me.Appearance.BackColor = CType(resources.GetObject("frmMain.Appearance.BackColor"), System.Drawing.Color) Me.Appearance.BackColor = CType(resources.GetObject("frmMain.Appearance.BackColor"), System.Drawing.Color)
Me.Appearance.FontSizeDelta = CType(resources.GetObject("frmMain.Appearance.FontSizeDelta"), Integer)
Me.Appearance.FontStyleDelta = CType(resources.GetObject("frmMain.Appearance.FontStyleDelta"), System.Drawing.FontStyle)
Me.Appearance.GradientMode = CType(resources.GetObject("frmMain.Appearance.GradientMode"), System.Drawing.Drawing2D.LinearGradientMode)
Me.Appearance.Image = CType(resources.GetObject("frmMain.Appearance.Image"), System.Drawing.Image)
Me.Appearance.Options.UseBackColor = True Me.Appearance.Options.UseBackColor = True
Me.Appearance.Options.UseFont = True Me.Appearance.Options.UseFont = True
resources.ApplyResources(Me, "$this")
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Controls.Add(Me.RibbonStatusBar1) Me.Controls.Add(Me.RibbonStatusBar1)
Me.Controls.Add(Me.ribbonMain) Me.Controls.Add(Me.ribbonMain)
@ -730,6 +723,7 @@ Partial Class frmMain
Friend WithEvents BarStaticItem1 As DevExpress.XtraBars.BarStaticItem Friend WithEvents BarStaticItem1 As DevExpress.XtraBars.BarStaticItem
Friend WithEvents bbtnItemViewsUser As DevExpress.XtraBars.BarButtonItem Friend WithEvents bbtnItemViewsUser As DevExpress.XtraBars.BarButtonItem
Friend WithEvents BarButtonItem23 As DevExpress.XtraBars.BarButtonItem Friend WithEvents BarButtonItem23 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents itemRefreshProxy As DevExpress.XtraBars.BarButtonItem
End Class End Class

54
app/DD-Record-Organiser/frmMain.en-US.resx
View File

@ -1295,20 +1295,6 @@
yfvkPPhE1Ql+k9vzOv3/P/ifoPoeVeUDAqiG6o3/Nb1j0KB/AMYUfCkDw9hpAAAAAElFTkSuQmCC yfvkPPhE1Ql+k9vzOv3/P/ifoPoeVeUDAqiG6o3/Nb1j0KB/AMYUfCkDw9hpAAAAAElFTkSuQmCC
</value> </value>
</data> </data>
<assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="MainMenu.MenuAppearance.HeaderItemAppearance.FontSizeDelta" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="MainMenu.MenuAppearance.HeaderItemAppearance.FontStyleDelta" type="System.Drawing.FontStyle, System.Drawing">
<value>Regular</value>
</data>
<data name="MainMenu.MenuAppearance.HeaderItemAppearance.GradientMode" type="System.Drawing.Drawing2D.LinearGradientMode, System.Drawing">
<value>Horizontal</value>
</data>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="MainMenu.MenuAppearance.HeaderItemAppearance.Image" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="BarButtonItem1.Caption" xml:space="preserve"> <data name="BarButtonItem1.Caption" xml:space="preserve">
<value>Calendar</value> <value>Calendar</value>
</data> </data>
@ -2112,18 +2098,6 @@
qy3lS/H/Rm5QvyqWfPjLAcv+Bd859emhr0AKAAAAAElFTkSuQmCC qy3lS/H/Rm5QvyqWfPjLAcv+Bd859emhr0AKAAAAAElFTkSuQmCC
</value> </value>
</data> </data>
<data name="BarSubItem1.MenuAppearance.HeaderItemAppearance.FontSizeDelta" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="BarSubItem1.MenuAppearance.HeaderItemAppearance.FontStyleDelta" type="System.Drawing.FontStyle, System.Drawing">
<value>Regular</value>
</data>
<data name="BarSubItem1.MenuAppearance.HeaderItemAppearance.GradientMode" type="System.Drawing.Drawing2D.LinearGradientMode, System.Drawing">
<value>Horizontal</value>
</data>
<data name="BarSubItem1.MenuAppearance.HeaderItemAppearance.Image" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="btnGlobalSearch.Caption" xml:space="preserve"> <data name="btnGlobalSearch.Caption" xml:space="preserve">
<value>global search</value> <value>global search</value>
</data> </data>
@ -2241,18 +2215,6 @@
<data name="pageHome.Text" xml:space="preserve"> <data name="pageHome.Text" xml:space="preserve">
<value>Home - Main Views</value> <value>Home - Main Views</value>
</data> </data>
<data name="pageForms.Appearance.FontSizeDelta" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="pageForms.Appearance.FontStyleDelta" type="System.Drawing.FontStyle, System.Drawing">
<value>Regular</value>
</data>
<data name="pageForms.Appearance.GradientMode" type="System.Drawing.Drawing2D.LinearGradientMode, System.Drawing">
<value>Horizontal</value>
</data>
<data name="pageForms.Appearance.Image" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="pageForms.Text" xml:space="preserve"> <data name="pageForms.Text" xml:space="preserve">
<value>Other Views</value> <value>Other Views</value>
</data> </data>
@ -2268,17 +2230,17 @@
<data name="RibbonPageGroup1.Text" xml:space="preserve"> <data name="RibbonPageGroup1.Text" xml:space="preserve">
<value>SQL Configuration</value> <value>SQL Configuration</value>
</data> </data>
<data name="frmMain.Appearance.FontSizeDelta" type="System.Int32, mscorlib"> <data name="ribbonMain.Size" type="System.Drawing.Size, System.Drawing">
<value>0</value> <value>1436, 150</value>
</data> </data>
<data name="frmMain.Appearance.FontStyleDelta" type="System.Drawing.FontStyle, System.Drawing"> <data name="RibbonStatusBar1.Location" type="System.Drawing.Point, System.Drawing">
<value>Regular</value> <value>0, 763</value>
</data> </data>
<data name="frmMain.Appearance.GradientMode" type="System.Drawing.Drawing2D.LinearGradientMode, System.Drawing"> <data name="RibbonStatusBar1.Size" type="System.Drawing.Size, System.Drawing">
<value>Horizontal</value> <value>1436, 23</value>
</data> </data>
<data name="frmMain.Appearance.Image" type="System.Resources.ResXNullRef, System.Windows.Forms"> <data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
<value /> <value>1436, 786</value>
</data> </data>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>

5142
app/DD-Record-Organiser/frmMain.resx
View File

File diff suppressed because it is too large Load Diff

22
app/DD-Record-Organiser/frmMain.vb
View File

@ -21,7 +21,7 @@ Public Class frmMain
ClassLogger.Add(">> SCAN PATH '" & CURRENT_SCAN_FOLDERWATCH & "'not accessable!", False) ClassLogger.Add(">> SCAN PATH '" & CURRENT_SCAN_FOLDERWATCH & "'not accessable!", False)
Exit Sub Exit Sub
End If End If
TIMER_SCAN.Interval = 10000 TIMER_SCAN.Interval = 30000
TIMER_SCAN.Enabled = True TIMER_SCAN.Enabled = True
AddHandler TIMER_SCAN.Tick, AddressOf Scan_TickHandler AddHandler TIMER_SCAN.Tick, AddressOf Scan_TickHandler
Else Else
@ -39,8 +39,7 @@ Public Class frmMain
End Sub End Sub
Private Shared Sub Scan_TickHandler(sender As Object, e As EventArgs) Private Shared Sub Scan_TickHandler(sender As Object, e As EventArgs)
Try Try
Dim sql1 As String = String.Format("select * from TBPMO_FILES_USER where HANDLE_TYPE = 'SCAN' and WORKED = 0 AND UPPER(USER_WORK) = '{0}'", USER_USERNAME) Dim DT As DataTable = ClassFolderWatcher.Check_Scan_Files
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql1, "Load ScanFiles")
If Not IsNothing(DT) Then If Not IsNothing(DT) Then
CURRENT_SCAN_TABLE = DT CURRENT_SCAN_TABLE = DT
If DT.Rows.Count > 0 Then If DT.Rows.Count > 0 Then
@ -120,6 +119,12 @@ Public Class frmMain
Catch ex As Exception Catch ex As Exception
MsgBox("Error in Load Form:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("Error in Load Form:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try End Try
If ClassProxy.MyPROXYConnectionString <> "" Then
itemRefreshProxy.Visibility = BarItemVisibility.Always
Else
itemRefreshProxy.Visibility = BarItemVisibility.Never
End If
End If End If
@ -605,6 +610,17 @@ Public Class frmMain
Private Sub itemSettings_ItemClick(sender As Object, e As ItemClickEventArgs) Handles itemSettings.ItemClick Private Sub itemSettings_ItemClick(sender As Object, e As ItemClickEventArgs) Handles itemSettings.ItemClick
Load_ConfigBasic() Load_ConfigBasic()
End Sub End Sub
Private Sub itemRefreshProxy_ItemClick(sender As Object, e As ItemClickEventArgs) Handles itemRefreshProxy.ItemClick
Me.Cursor = Cursors.WaitCursor
ClassProxy.Refresh_Object_Data()
ClassProxy.Refresh_Doc_Data()
Dim msg = "Die Proxydaten wurden erfolgreich synchronisiert!"
If USER_LANGUAGE <> "de-DE" Then
msg = "All proxydata was refreshed successfully!"
End If
MsgBox(msg, MsgBoxStyle.Information)
Me.Cursor = Cursors.Default
End Sub
Sub Load_ConfigBasic() Sub Load_ConfigBasic()
frmConfig_Basic.ShowDialog() frmConfig_Basic.ShowDialog()
If LANGUAGE_CHANGED = True Then If LANGUAGE_CHANGED = True Then

6
app/DD-Record-Organiser/frmMass_Change.vb
View File

@ -65,7 +65,7 @@
Else Else
For Each Record As String In MASS_RECORD_IDs2CHANGE For Each Record As String In MASS_RECORD_IDs2CHANGE
Dim del = String.Format("DELETE FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = {0} AND RECORD_ID = {1}", control_Id, CInt(Record)) Dim del = String.Format("DELETE FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = {0} AND RECORD_ID = {1}", control_Id, CInt(Record))
ClassDatabase.Execute_non_Query(del) ClassDatabase.Execute_non_Query(del, False)
Next Next
End If End If
@ -79,12 +79,12 @@
If Not IsNothing(ex_GUID) Then If Not IsNothing(ex_GUID) Then
SQL = String.Format("UPDATE TBPMO_CONTROL_VALUE SET VALUE = '{0}',CHANGED_WHO = '{1}' WHERE GUID = {2}", val, USER_USERNAME, ex_GUID) SQL = String.Format("UPDATE TBPMO_CONTROL_VALUE SET VALUE = '{0}',CHANGED_WHO = '{1}' WHERE GUID = {2}", val, USER_USERNAME, ex_GUID)
If ClassDatabase.Execute_non_Query(SQL) = False Then If ClassDatabase.Execute_non_Query(SQL, False) = False Then
MsgBox("Error in updating the value for Record: " & Record & vbNewLine & "Please check the logfile.", MsgBoxStyle.Exclamation) MsgBox("Error in updating the value for Record: " & Record & vbNewLine & "Please check the logfile.", MsgBoxStyle.Exclamation)
End If End If
Else Else
SQL = String.Format("INSERT INTO TBPMO_CONTROL_VALUE (CONTROL_ID, RECORD_ID, VALUE, ADDED_WHO) VALUES ({0},{1},'{2}','{3}')", control_Id, CInt(Record), val, USER_USERNAME) SQL = String.Format("INSERT INTO TBPMO_CONTROL_VALUE (CONTROL_ID, RECORD_ID, VALUE, ADDED_WHO) VALUES ({0},{1},'{2}','{3}')", control_Id, CInt(Record), val, USER_USERNAME)
If ClassDatabase.Execute_non_Query(SQL) = False Then If ClassDatabase.Execute_non_Query(SQL, False) = False Then
MsgBox("Error in inserting the value for Record: " & Record & vbNewLine & "Please check the logfile.", MsgBoxStyle.Exclamation) MsgBox("Error in inserting the value for Record: " & Record & vbNewLine & "Please check the logfile.", MsgBoxStyle.Exclamation)
End If End If
End If End If

6
app/DD-Record-Organiser/frmNewKombiForm.en-US.resx
View File

@ -122,15 +122,15 @@
</data> </data>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" /> <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="Label1.Size" type="System.Drawing.Size, System.Drawing"> <data name="Label1.Size" type="System.Drawing.Size, System.Drawing">
<value>241, 13</value> <value>245, 13</value>
</data> </data>
<data name="Label1.Text" xml:space="preserve"> <data name="Label1.Text" xml:space="preserve">
<value>Please insert the name of the new Combiform</value> <value>Please insert the name of the new Constructor</value>
</data> </data>
<data name="TextBox1.Text" xml:space="preserve"> <data name="TextBox1.Text" xml:space="preserve">
<value>New Formname</value> <value>New Formname</value>
</data> </data>
<data name="$this.Text" xml:space="preserve"> <data name="$this.Text" xml:space="preserve">
<value>New Combiform</value> <value>New Constructor</value>
</data> </data>
</root> </root>

227
app/DD-Record-Organiser/frmNewKombiForm.resx
View File

@ -117,172 +117,169 @@
<resheader name="writer"> <resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader> </resheader>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="TableLayoutPanel1.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Bottom, Right</value>
</data>
<assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" /> <assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="TableLayoutPanel1.ColumnCount" type="System.Int32, mscorlib"> <data name="TableLayoutPanel1.ColumnCount" type="System.Int32, mscorlib">
<value>2</value> <value>2</value>
</data> </data>
<data name="Cancel_Button.Text" xml:space="preserve"> <data name="OK_Button.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Abbrechen</value> <value>None</value>
</data>
<data name="&gt;&gt;Cancel_Button.ZOrder" xml:space="preserve">
<value>1</value>
</data> </data>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" /> <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="$this.AutoScaleDimensions" type="System.Drawing.SizeF, System.Drawing"> <data name="OK_Button.Location" type="System.Drawing.Point, System.Drawing">
<value>6, 13</value> <value>6, 3</value>
</data>
<data name="&gt;&gt;OK_Button.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="TextBox1.Size" type="System.Drawing.Size, System.Drawing">
<value>315, 22</value>
</data> </data>
<data name="OK_Button.Size" type="System.Drawing.Size, System.Drawing"> <data name="OK_Button.Size" type="System.Drawing.Size, System.Drawing">
<value>74, 23</value> <value>74, 23</value>
</data> </data>
<data name="TableLayoutPanel1.TabIndex" type="System.Int32, mscorlib"> <data name="OK_Button.TabIndex" type="System.Int32, mscorlib">
<value>0</value> <value>0</value>
</data> </data>
<data name="&gt;&gt;TextBox1.Parent" xml:space="preserve"> <data name="OK_Button.Text" xml:space="preserve">
<value>$this</value> <value>OK</value>
</data> </data>
<data name="&gt;&gt;TableLayoutPanel1.Name" xml:space="preserve"> <data name="&gt;&gt;OK_Button.Name" xml:space="preserve">
<value>TableLayoutPanel1</value> <value>OK_Button</value>
</data>
<data name="Label1.Size" type="System.Drawing.Size, System.Drawing">
<value>318, 13</value>
</data>
<data name="&gt;&gt;Cancel_Button.Name" xml:space="preserve">
<value>Cancel_Button</value>
</data>
<data name="Label1.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
<value>338, 108</value>
</data>
<data name="Label1.Location" type="System.Drawing.Point, System.Drawing">
<value>9, 20</value>
</data>
<data name="&gt;&gt;OK_Button.Parent" xml:space="preserve">
<value>TableLayoutPanel1</value>
</data> </data>
<data name="&gt;&gt;OK_Button.Type" xml:space="preserve"> <data name="&gt;&gt;OK_Button.Type" xml:space="preserve">
<value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data> </data>
<data name="OK_Button.TabIndex" type="System.Int32, mscorlib"> <data name="&gt;&gt;OK_Button.Parent" xml:space="preserve">
<value>TableLayoutPanel1</value>
</data>
<data name="&gt;&gt;OK_Button.ZOrder" xml:space="preserve">
<value>0</value> <value>0</value>
</data> </data>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" /> <data name="Cancel_Button.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<data name="OK_Button.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>None</value> <value>None</value>
</data> </data>
<data name="&gt;&gt;TableLayoutPanel1.ZOrder" xml:space="preserve"> <data name="Cancel_Button.Location" type="System.Drawing.Point, System.Drawing">
<value>2</value> <value>89, 3</value>
</data> </data>
<data name="TableLayoutPanel1.Size" type="System.Drawing.Size, System.Drawing"> <data name="Cancel_Button.Size" type="System.Drawing.Size, System.Drawing">
<value>172, 29</value> <value>80, 23</value>
</data> </data>
<data name="Cancel_Button.TabIndex" type="System.Int32, mscorlib"> <data name="Cancel_Button.TabIndex" type="System.Int32, mscorlib">
<value>1</value> <value>1</value>
</data> </data>
<data name="TableLayoutPanel1.RowCount" type="System.Int32, mscorlib"> <data name="Cancel_Button.Text" xml:space="preserve">
<value>Abbrechen</value>
</data>
<data name="&gt;&gt;Cancel_Button.Name" xml:space="preserve">
<value>Cancel_Button</value>
</data>
<data name="&gt;&gt;Cancel_Button.Type" xml:space="preserve">
<value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;Cancel_Button.Parent" xml:space="preserve">
<value>TableLayoutPanel1</value>
</data>
<data name="&gt;&gt;Cancel_Button.ZOrder" xml:space="preserve">
<value>1</value> <value>1</value>
</data> </data>
<data name="TableLayoutPanel1.Location" type="System.Drawing.Point, System.Drawing"> <data name="TableLayoutPanel1.Location" type="System.Drawing.Point, System.Drawing">
<value>154, 67</value> <value>154, 67</value>
</data> </data>
<data name="Cancel_Button.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms"> <data name="TableLayoutPanel1.RowCount" type="System.Int32, mscorlib">
<value>None</value>
</data>
<data name="$this.StartPosition" type="System.Windows.Forms.FormStartPosition, System.Windows.Forms">
<value>CenterParent</value>
</data>
<data name="Cancel_Button.Location" type="System.Drawing.Point, System.Drawing">
<value>89, 3</value>
</data>
<data name="&gt;&gt;Label1.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="TextBox1.Location" type="System.Drawing.Point, System.Drawing">
<value>12, 36</value>
</data>
<data name="&gt;&gt;TextBox1.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="&gt;&gt;TableLayoutPanel1.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="TextBox1.TabIndex" type="System.Int32, mscorlib">
<value>2</value>
</data>
<data name="&gt;&gt;$this.Type" xml:space="preserve">
<value>System.Windows.Forms.Form, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;Cancel_Button.Parent" xml:space="preserve">
<value>TableLayoutPanel1</value>
</data>
<data name="&gt;&gt;$this.Name" xml:space="preserve">
<value>frmNewKombiForm</value>
</data>
<data name="&gt;&gt;Label1.Type" xml:space="preserve">
<value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="Label1.Text" xml:space="preserve">
<value>BItte bestimmen Sie den Namen des Neuen Kombiformulares</value>
</data>
<data name="TableLayoutPanel1.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Bottom, Right</value>
</data>
<data name="&gt;&gt;OK_Button.Name" xml:space="preserve">
<value>OK_Button</value>
</data>
<data name="TextBox1.Text" xml:space="preserve">
<value>Neuer Formularname</value>
</data>
<data name="&gt;&gt;TextBox1.Type" xml:space="preserve">
<value>System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;Label1.ZOrder" xml:space="preserve">
<value>1</value> <value>1</value>
</data> </data>
<data name="TableLayoutPanel1.LayoutSettings" type="System.Windows.Forms.TableLayoutSettings, System.Windows.Forms"> <data name="TableLayoutPanel1.Size" type="System.Drawing.Size, System.Drawing">
<value>&lt;?xml version="1.0" encoding="utf-16"?&gt;&lt;TableLayoutSettings&gt;&lt;Controls&gt;&lt;Control Name="OK_Button" Row="0" RowSpan="1" Column="0" ColumnSpan="1" /&gt;&lt;Control Name="Cancel_Button" Row="0" RowSpan="1" Column="1" ColumnSpan="1" /&gt;&lt;/Controls&gt;&lt;Columns Styles="Percent,50,Percent,50" /&gt;&lt;Rows Styles="Percent,50" /&gt;&lt;/TableLayoutSettings&gt;</value> <value>172, 29</value>
</data>
<data name="TableLayoutPanel1.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="&gt;&gt;TableLayoutPanel1.Name" xml:space="preserve">
<value>TableLayoutPanel1</value>
</data> </data>
<data name="&gt;&gt;TableLayoutPanel1.Type" xml:space="preserve"> <data name="&gt;&gt;TableLayoutPanel1.Type" xml:space="preserve">
<value>System.Windows.Forms.TableLayoutPanel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Windows.Forms.TableLayoutPanel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data> </data>
<data name="&gt;&gt;Label1.Name" xml:space="preserve"> <data name="&gt;&gt;TableLayoutPanel1.Parent" xml:space="preserve">
<value>Label1</value> <value>$this</value>
</data> </data>
<data name="&gt;&gt;Cancel_Button.Type" xml:space="preserve"> <data name="&gt;&gt;TableLayoutPanel1.ZOrder" xml:space="preserve">
<value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>2</value>
</data> </data>
<data name="OK_Button.Location" type="System.Drawing.Point, System.Drawing"> <data name="TableLayoutPanel1.LayoutSettings" type="System.Windows.Forms.TableLayoutSettings, System.Windows.Forms">
<value>6, 3</value> <value>&lt;?xml version="1.0" encoding="utf-16"?&gt;&lt;TableLayoutSettings&gt;&lt;Controls&gt;&lt;Control Name="OK_Button" Row="0" RowSpan="1" Column="0" ColumnSpan="1" /&gt;&lt;Control Name="Cancel_Button" Row="0" RowSpan="1" Column="1" ColumnSpan="1" /&gt;&lt;/Controls&gt;&lt;Columns Styles="Percent,50,Percent,50" /&gt;&lt;Rows Styles="Percent,50" /&gt;&lt;/TableLayoutSettings&gt;</value>
</data>
<data name="Label1.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="Label1.Location" type="System.Drawing.Point, System.Drawing">
<value>9, 20</value>
</data>
<data name="Label1.Size" type="System.Drawing.Size, System.Drawing">
<value>257, 13</value>
</data> </data>
<data name="Label1.TabIndex" type="System.Int32, mscorlib"> <data name="Label1.TabIndex" type="System.Int32, mscorlib">
<value>1</value> <value>1</value>
</data> </data>
<data name="Cancel_Button.Size" type="System.Drawing.Size, System.Drawing"> <data name="Label1.Text" xml:space="preserve">
<value>80, 23</value> <value>BItte bestimmen Sie den Namen der neuen Sicht:</value>
</data>
<data name="&gt;&gt;Label1.Name" xml:space="preserve">
<value>Label1</value>
</data>
<data name="&gt;&gt;Label1.Type" xml:space="preserve">
<value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;Label1.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;Label1.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<data name="TextBox1.Location" type="System.Drawing.Point, System.Drawing">
<value>12, 36</value>
</data>
<data name="TextBox1.Size" type="System.Drawing.Size, System.Drawing">
<value>315, 22</value>
</data>
<data name="TextBox1.TabIndex" type="System.Int32, mscorlib">
<value>2</value>
</data>
<data name="TextBox1.Text" xml:space="preserve">
<value>Neuer Formularname</value>
</data> </data>
<data name="&gt;&gt;TextBox1.Name" xml:space="preserve"> <data name="&gt;&gt;TextBox1.Name" xml:space="preserve">
<value>TextBox1</value> <value>TextBox1</value>
</data> </data>
<data name="$this.Font" type="System.Drawing.Font, System.Drawing"> <data name="&gt;&gt;TextBox1.Type" xml:space="preserve">
<value>Segoe UI, 8.25pt</value> <value>System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data> </data>
<data name="$this.Text" xml:space="preserve"> <data name="&gt;&gt;TextBox1.Parent" xml:space="preserve">
<value>Neues Kombiformular</value> <value>$this</value>
</data> </data>
<data name="OK_Button.Text" xml:space="preserve"> <data name="&gt;&gt;TextBox1.ZOrder" xml:space="preserve">
<value>OK</value> <value>0</value>
</data> </data>
<metadata name="$this.Localizable" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"> <metadata name="$this.Localizable" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value> <value>True</value>
</metadata> </metadata>
<metadata name="$this.Language" type="System.Globalization.CultureInfo, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"> <data name="$this.AutoScaleDimensions" type="System.Drawing.SizeF, System.Drawing">
<value>en-US</value> <value>6, 13</value>
</metadata> </data>
<data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
<value>338, 108</value>
</data>
<data name="$this.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 8.25pt</value>
</data>
<data name="$this.StartPosition" type="System.Windows.Forms.FormStartPosition, System.Windows.Forms">
<value>CenterParent</value>
</data>
<data name="$this.Text" xml:space="preserve">
<value>Neue Sicht</value>
</data>
<data name="&gt;&gt;$this.Name" xml:space="preserve">
<value>frmNewKombiForm</value>
</data>
<data name="&gt;&gt;$this.Type" xml:space="preserve">
<value>System.Windows.Forms.Form, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
</root> </root>

6
app/DD-Record-Organiser/frmNewKombiForm.vb
View File

@ -7,15 +7,15 @@ Public Class frmNewKombiForm
STRING1 = Me.TextBox1.Text STRING1 = Me.TextBox1.Text
Dim Sql = "select count(*) from TBPMO_FORM_CONSTRUCTOR where UPPER(FORM_TITLE) = UPPER('" & STRING1 & "')" Dim Sql = "select count(*) from TBPMO_FORM_CONSTRUCTOR where UPPER(FORM_TITLE) = UPPER('" & STRING1 & "')"
Dim exists As Integer = ClassDatabase.Execute_Scalar(sql, True) Dim exists As Integer = ClassDatabase.Execute_Scalar(Sql)
If exists = 1 Then If exists = 1 Then
MsgBox("Achtung: Dieser Name existiert bereits!" & vbNewLine & "Bitte wählen Sie einen anderen Namen!", MsgBoxStyle.Exclamation) MsgBox("Achtung: Dieser Name existiert bereits!" & vbNewLine & "Bitte wählen Sie einen anderen Namen!", MsgBoxStyle.Exclamation)
Exit Sub Exit Sub
End If End If
Sql = "EXEC [PRPMO_CREATE_CONSTRUCTOR] " & INTEGER1.ToString & ", '" & STRING1 & "'" Sql = "EXEC [PRPMO_CREATE_CONSTRUCTOR] " & INTEGER1.ToString & ", '" & STRING1 & "'"
If ClassDatabase.Execute_non_Query(Sql, True) = True Then If ClassDatabase.Execute_non_Query(Sql) = True Then
Dim result As MsgBoxResult = MsgBox("Das Kombiformular wurde erfolgreich erzeugt!" & vbNewLine & "Wollen Sie die Konfiguration anzeigen?", MsgBoxStyle.YesNo, "Frage:") Dim result As MsgBoxResult = MsgBox("Die neue Sicht wurde erfolgreich erzeugt!" & vbNewLine & "Wollen Sie die Konfiguration anzeigen?", MsgBoxStyle.YesNo, "Frage:")
If result = MsgBoxResult.Yes Then If result = MsgBoxResult.Yes Then
Dim frm As New frmConstructorDesigner Dim frm As New frmConstructorDesigner
frm.MdiParent = frmMain frm.MdiParent = frmMain

3
app/DD-Record-Organiser/frmQuickStart_Images.vb
View File

@ -41,7 +41,6 @@
cmd.Parameters.Add("@GUID", SqlDbType.Int).Value = guid cmd.Parameters.Add("@GUID", SqlDbType.Int).Value = guid
conn.Open() conn.Open()
'ClassDatabase.Execute_non_Query(SQL, True)
cmd.ExecuteNonQuery() cmd.ExecuteNonQuery()
conn.Close() conn.Close()
@ -99,7 +98,7 @@
Dim column = e.Column.FieldName Dim column = e.Column.FieldName
Dim id = gvMainView.GetFocusedRowCellValue(gvMainView.Columns("GUID")) Dim id = gvMainView.GetFocusedRowCellValue(gvMainView.Columns("GUID"))
Dim sql = String.Format("UPDATE TBPMO_FORM_CONSTRUCTOR SET {0} = '{1}',CHANGED_WHO = '{2}',LANGUAGE = '{3}' where GUID = {4}", column, e.Value, USER_USERNAME, USER_LANGUAGE, id) Dim sql = String.Format("UPDATE TBPMO_FORM_CONSTRUCTOR SET {0} = '{1}',CHANGED_WHO = '{2}',LANGUAGE = '{3}' where GUID = {4}", column, e.Value, USER_USERNAME, USER_LANGUAGE, id)
If ClassDatabase.Execute_non_Query(sql) = False Then If ClassDatabase.Execute_non_Query(sql, False) = False Then
MsgBox("Update Value not successfull. Check logfile", MsgBoxStyle.Critical) MsgBox("Update Value not successfull. Check logfile", MsgBoxStyle.Critical)
End If End If

4
app/DD-Record-Organiser/frmRecOrgConfig_Basic.vb
View File

@ -127,7 +127,7 @@ Public Class frmRecOrgConfig_Basic
Dim pw As String = cipherText Dim pw As String = cipherText
Dim upd = String.Format("UPDATE TBPMO_SERVICE_RIGHT_CONFIG SET AD_DOMAIN = '{0}', AD_USER = '{1}', AD_USER_PW = '{2}', AD_SERVER = '{3}', CHANGED_WHO = '{4}' WHERE GUID = 1", Me.txtDomäne.Text, Me.txtUser.Text, pw, Me.txtServername.Text, USER_USERNAME) Dim upd = String.Format("UPDATE TBPMO_SERVICE_RIGHT_CONFIG SET AD_DOMAIN = '{0}', AD_USER = '{1}', AD_USER_PW = '{2}', AD_SERVER = '{3}', CHANGED_WHO = '{4}' WHERE GUID = 1", Me.txtDomäne.Text, Me.txtUser.Text, pw, Me.txtServername.Text, USER_USERNAME)
ClassDatabase.Execute_non_Query(upd) ClassDatabase.Execute_non_Query(upd, False)
btnsave.Enabled = False btnsave.Enabled = False
End If End If
@ -170,7 +170,7 @@ Public Class frmRecOrgConfig_Basic
Dim pw As String = cipherText Dim pw As String = cipherText
Dim upd = String.Format("UPDATE TBPMO_SERVICE_RIGHT_CONFIG SET AD_DOMAIN = '{0}', AD_USER = '{1}', AD_USER_PW = '{2}', AD_SERVER = '{3}', CHANGED_WHO = '{4}' WHERE GUID = 1", Me.txtDomäne.Text, Me.txtUser.Text, pw, Me.txtServername.Text, USER_USERNAME) Dim upd = String.Format("UPDATE TBPMO_SERVICE_RIGHT_CONFIG SET AD_DOMAIN = '{0}', AD_USER = '{1}', AD_USER_PW = '{2}', AD_SERVER = '{3}', CHANGED_WHO = '{4}' WHERE GUID = 1", Me.txtDomäne.Text, Me.txtUser.Text, pw, Me.txtServername.Text, USER_USERNAME)
ClassDatabase.Execute_non_Query(upd) ClassDatabase.Execute_non_Query(upd, False)
btnsave.Enabled = False btnsave.Enabled = False
Else Else
MsgBox("The persionalized connection to windream could NOT be created." & vbNewLine & "Please check the User-Data!", MsgBoxStyle.Critical) MsgBox("The persionalized connection to windream could NOT be created." & vbNewLine & "Please check the User-Data!", MsgBoxStyle.Critical)

40
app/DD-Record-Organiser/frmRecordView.Designer.vb generated
View File

@ -76,11 +76,6 @@ Partial Class frmRecordView
Me.GridControlDocSearch = New DevExpress.XtraGrid.GridControl() Me.GridControlDocSearch = New DevExpress.XtraGrid.GridControl()
Me.ContextMenuStripResultFiles = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ContextMenuStripResultFiles = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.DateiÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.DateiÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator7 = New System.Windows.Forms.ToolStripSeparator()
Me.CopyToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator8 = New System.Windows.Forms.ToolStripSeparator()
Me.DeleteToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator9 = New System.Windows.Forms.ToolStripSeparator()
Me.PropertiesToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.PropertiesToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.GridViewDoc_Search = New DevExpress.XtraGrid.Views.Grid.GridView() Me.GridViewDoc_Search = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.ToolStrip2 = New System.Windows.Forms.ToolStrip() Me.ToolStrip2 = New System.Windows.Forms.ToolStrip()
@ -525,7 +520,7 @@ Partial Class frmRecordView
' '
'ContextMenuStripResultFiles 'ContextMenuStripResultFiles
' '
Me.ContextMenuStripResultFiles.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiÖffnenToolStripMenuItem, Me.ToolStripSeparator7, Me.CopyToolStripMenuItem, Me.ToolStripSeparator8, Me.DeleteToolStripMenuItem, Me.ToolStripSeparator9, Me.PropertiesToolStripMenuItem}) Me.ContextMenuStripResultFiles.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiÖffnenToolStripMenuItem, Me.PropertiesToolStripMenuItem})
Me.ContextMenuStripResultFiles.Name = "ContextMenuStripResultFiles" Me.ContextMenuStripResultFiles.Name = "ContextMenuStripResultFiles"
resources.ApplyResources(Me.ContextMenuStripResultFiles, "ContextMenuStripResultFiles") resources.ApplyResources(Me.ContextMenuStripResultFiles, "ContextMenuStripResultFiles")
' '
@ -534,33 +529,6 @@ Partial Class frmRecordView
Me.DateiÖffnenToolStripMenuItem.Name = "DateiÖffnenToolStripMenuItem" Me.DateiÖffnenToolStripMenuItem.Name = "DateiÖffnenToolStripMenuItem"
resources.ApplyResources(Me.DateiÖffnenToolStripMenuItem, "DateiÖffnenToolStripMenuItem") resources.ApplyResources(Me.DateiÖffnenToolStripMenuItem, "DateiÖffnenToolStripMenuItem")
' '
'ToolStripSeparator7
'
Me.ToolStripSeparator7.Name = "ToolStripSeparator7"
resources.ApplyResources(Me.ToolStripSeparator7, "ToolStripSeparator7")
'
'CopyToolStripMenuItem
'
Me.CopyToolStripMenuItem.Image = Global.DD_Record_Organiser.My.Resources.Resources.Copy_6524
Me.CopyToolStripMenuItem.Name = "CopyToolStripMenuItem"
resources.ApplyResources(Me.CopyToolStripMenuItem, "CopyToolStripMenuItem")
'
'ToolStripSeparator8
'
Me.ToolStripSeparator8.Name = "ToolStripSeparator8"
resources.ApplyResources(Me.ToolStripSeparator8, "ToolStripSeparator8")
'
'DeleteToolStripMenuItem
'
Me.DeleteToolStripMenuItem.Image = Global.DD_Record_Organiser.My.Resources.Resources.delete
Me.DeleteToolStripMenuItem.Name = "DeleteToolStripMenuItem"
resources.ApplyResources(Me.DeleteToolStripMenuItem, "DeleteToolStripMenuItem")
'
'ToolStripSeparator9
'
Me.ToolStripSeparator9.Name = "ToolStripSeparator9"
resources.ApplyResources(Me.ToolStripSeparator9, "ToolStripSeparator9")
'
'PropertiesToolStripMenuItem 'PropertiesToolStripMenuItem
' '
Me.PropertiesToolStripMenuItem.Image = Global.DD_Record_Organiser.My.Resources.Resources.PropertyGridEditorPart_6041 Me.PropertiesToolStripMenuItem.Image = Global.DD_Record_Organiser.My.Resources.Resources.PropertyGridEditorPart_6041
@ -940,7 +908,6 @@ Partial Class frmRecordView
Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Nothing Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Nothing
Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_CONSTRUCTOR_USER_SQLTableAdapter = Nothing Me.TableAdapterManager.TBPMO_CONSTRUCTOR_USER_SQLTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FILES_USERTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FOLLOW_UP_EMAILTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FOLLOW_UP_EMAILTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FOLLUPEMAIL_USERTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FOLLUPEMAIL_USERTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = Nothing
@ -1053,11 +1020,6 @@ Partial Class frmRecordView
Friend WithEvents SplitContainerMain As System.Windows.Forms.SplitContainer Friend WithEvents SplitContainerMain As System.Windows.Forms.SplitContainer
Friend WithEvents ContextMenuStripResultFiles As System.Windows.Forms.ContextMenuStrip Friend WithEvents ContextMenuStripResultFiles As System.Windows.Forms.ContextMenuStrip
Friend WithEvents DateiÖffnenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents DateiÖffnenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ToolStripSeparator7 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents CopyToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ToolStripSeparator8 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents DeleteToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ToolStripSeparator9 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents PropertiesToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents PropertiesToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents Panel1 As System.Windows.Forms.Panel Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.Grid.GridView Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.Grid.GridView

1315
app/DD-Record-Organiser/frmRecordView.resx
View File

File diff suppressed because it is too large Load Diff

137
app/DD-Record-Organiser/frmRecordView.vb
View File

@ -54,15 +54,15 @@ Public Class frmRecordView
'Titel updaten 'Titel updaten
Me.Text &= " " + JUMP_RECORD_ID.ToString() Me.Text &= " " + JUMP_RECORD_ID.ToString()
Dim sql = "SELECT FORM_ID FROM TBPMO_RECORD WHERE GUID = " & JUMP_RECORD_ID Dim sql = "SELECT FORM_ID FROM TBPMO_RECORD WHERE GUID = " & JUMP_RECORD_ID
ENTITY_ID = ClassDatabase.Execute_Scalar(sql) ENTITY_ID = ClassDatabase.Execute_Scalar(sql, True)
sql = String.Format("select * from TBPMO_DOCSEARCH_VARIABLE_CONTROLS WHERE ENTITY_ID = {0}", ENTITY_ID) 'TBPMO_WINDREAM_RESULTLIST_CONFIG" sql = String.Format("select * from TBPMO_DOCSEARCH_VARIABLE_CONTROLS WHERE ENTITY_ID = {0}", ENTITY_ID) 'TBPMO_WINDREAM_RESULTLIST_CONFIG"
DT_RESULTLIST_OPTIONS = ClassDatabase.Return_Datatable(sql, "GETVARIABLE CONTROLS") DT_RESULTLIST_OPTIONS = ClassDatabase.Return_Datatable(sql, True)
sql = String.Format("select * from TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE VISIBLE = 1 AND ENTITY_ID = {0} AND LANGUAGE = '{1}' AND COLUMN_VIEW LIKE 'VALUE%'", ENTITY_ID, USER_LANGUAGE) sql = String.Format("select * from TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE VISIBLE = 1 AND ENTITY_ID = {0} AND LANGUAGE = '{1}' AND COLUMN_VIEW LIKE 'VALUE%'", ENTITY_ID, USER_LANGUAGE)
DT_RESULTLIST_VARIABLE_VALUE = ClassDatabase.Return_Datatable(sql, "GETVARIABLE VALUES") DT_RESULTLIST_VARIABLE_VALUE = ClassDatabase.Return_Datatable(sql, True)
Dim sql_ResultList = String.Format("select * from TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE ENTITY_ID = {0} AND LANGUAGE = '{1}'", ENTITY_ID, USER_LANGUAGE) 'TBPMO_WINDREAM_RESULTLIST_CONFIG" Dim sql_ResultList = String.Format("select * from TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE ENTITY_ID = {0} AND LANGUAGE = '{1}'", ENTITY_ID, USER_LANGUAGE) 'TBPMO_WINDREAM_RESULTLIST_CONFIG"
DT_WINDREAM_RESULTLIST = ClassDatabase.Return_Datatable(sql_ResultList, "GETRESULTLIST KONFIG") DT_WINDREAM_RESULTLIST = ClassDatabase.Return_Datatable(sql_ResultList, True)
sql_ResultList = String.Format("select * from TBPMO_DOCRESULT_DROPDOWN_ITEMS WHERE CONFIG_ID IN (SELECT GUID FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE ENTITY_ID = {0} AND TYPE_ID = 4 AND LANGUAGE = '{1}')", ENTITY_ID, USER_LANGUAGE) sql_ResultList = String.Format("select * from TBPMO_DOCRESULT_DROPDOWN_ITEMS WHERE CONFIG_ID IN (SELECT GUID FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE ENTITY_ID = {0} AND TYPE_ID = 4 AND LANGUAGE = '{1}')", ENTITY_ID, USER_LANGUAGE)
DT_DOCRESULT_DROPDOWN_ITEMS = ClassDatabase.Return_Datatable(sql_ResultList, "GETRESULT_DROPDOWN_ITEMS") DT_DOCRESULT_DROPDOWN_ITEMS = ClassDatabase.Return_Datatable(sql_ResultList, True)
TBPMO_WORKFLOW_TASK_HISTORYTableAdapter.Connection.ConnectionString = MyConnectionString TBPMO_WORKFLOW_TASK_HISTORYTableAdapter.Connection.ConnectionString = MyConnectionString
ClassWindowLocation.LoadFormLocationSize(Me, 0, CURRENT_SCREEN_ID, "frmRecordView") ClassWindowLocation.LoadFormLocationSize(Me, 0, CURRENT_SCREEN_ID, "frmRecordView")
@ -86,7 +86,7 @@ Public Class frmRecordView
Dim user As String = USER_USERNAME Dim user As String = USER_USERNAME
Dim Sql As String = String.Format("EXEC PRPMO_DOC_VALUE {0}, {1}, '{2}', '{3}'", docId, configId, value, USER_USERNAME) Dim Sql As String = String.Format("EXEC PRPMO_DOC_VALUE {0}, {1}, '{2}', '{3}'", docId, configId, value, USER_USERNAME)
ClassDatabase.Execute_non_Query(Sql) ClassDatabase.Execute_non_Query(Sql, False)
Catch ex As Exception Catch ex As Exception
MsgBox("Error:" & vbNewLine & ex.Message) MsgBox("Error:" & vbNewLine & ex.Message)
End Try End Try
@ -104,7 +104,7 @@ Public Class frmRecordView
Dim dateString = value.ToString("yyyy-MM-dd") 'hh:mm:ss.fff Dim dateString = value.ToString("yyyy-MM-dd") 'hh:mm:ss.fff
Dim Sql As String = String.Format("EXEC PRPMO_DOC_VALUE {0}, {1}, '{2}', '{3}'", docId, configId, dateString, user) Dim Sql As String = String.Format("EXEC PRPMO_DOC_VALUE {0}, {1}, '{2}', '{3}'", docId, configId, dateString, user)
ClassDatabase.Execute_non_Query(Sql) ClassDatabase.Execute_non_Query(Sql, False)
Catch ex As Exception Catch ex As Exception
MsgBox("Error in OnDateSelectedValueChanged:" & vbNewLine & ex.Message) MsgBox("Error in OnDateSelectedValueChanged:" & vbNewLine & ex.Message)
End Try End Try
@ -120,7 +120,7 @@ Public Class frmRecordView
Dim user As String = USER_USERNAME Dim user As String = USER_USERNAME
Dim Sql As String = String.Format("EXEC PRPMO_DOC_VALUE {0}, {1}, '{2}', '{3}'", docId, configId, value, user) Dim Sql As String = String.Format("EXEC PRPMO_DOC_VALUE {0}, {1}, '{2}', '{3}'", docId, configId, value, user)
ClassDatabase.Execute_non_Query(Sql) ClassDatabase.Execute_non_Query(Sql, False)
Catch ex As Exception Catch ex As Exception
MsgBox("Error in OnTextSelectedValueChanged:" & vbNewLine & ex.Message) MsgBox("Error in OnTextSelectedValueChanged:" & vbNewLine & ex.Message)
End Try End Try
@ -136,7 +136,7 @@ Public Class frmRecordView
Dim sw As New Stopwatch Dim sw As New Stopwatch
sw.Start() sw.Start()
Dim elapsed As Double Dim elapsed As Double
Dim DT_RESULT As DataTable = ClassDOC_SEARCH.Get_DOC_RESULTTABLE(DT_RESULTLIST_OPTIONS, DT_RESULTLIST_VARIABLE_VALUE, DT_WINDREAM_RESULTLIST, ENTITY_ID, JUMP_RECORD_ID, "RECORD") Dim DT_RESULT As DataTable = ClassDOC_SEARCH.Get_DOC_RESULTTABLE(DT_RESULTLIST_OPTIONS, DT_RESULTLIST_VARIABLE_VALUE, DT_WINDREAM_RESULTLIST, ENTITY_ID, JUMP_RECORD_ID)
If IsNothing(DT_RESULT) Then If IsNothing(DT_RESULT) Then
Dim msg = "wrong DocSearch-Configuration - Check logfile and contact Digital Data" Dim msg = "wrong DocSearch-Configuration - Check logfile and contact Digital Data"
tslblWindreamView.Text = msg tslblWindreamView.Text = msg
@ -195,9 +195,9 @@ Public Class frmRecordView
End If End If
Dim Sql = "SELECT GUID FROM TBPMO_FORM_VIEW WHERE SCREEN_ID = 1 AND FORM_ID = " & ENTITY_ID Dim Sql = "SELECT GUID FROM TBPMO_FORM_VIEW WHERE SCREEN_ID = 1 AND FORM_ID = " & ENTITY_ID
FORMVIEW_ID = ClassDatabase.Execute_Scalar(Sql) FORMVIEW_ID = ClassDatabase.Execute_Scalar(Sql, True)
Sql = "SELECT PARENT_ID FROM TBPMO_FORM WHERE GUID = " & ENTITY_ID Sql = "SELECT PARENT_ID FROM TBPMO_FORM WHERE GUID = " & ENTITY_ID
PARENT_ENTITY_ID = ClassDatabase.Execute_Scalar(Sql) PARENT_ENTITY_ID = ClassDatabase.Execute_Scalar(Sql, True)
Catch ex As Exception Catch ex As Exception
MsgBox("Error in Load_Tasks:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("Error in Load_Tasks:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try End Try
@ -220,7 +220,7 @@ Public Class frmRecordView
Try Try
If WF_IDTextBox.Text <> "" Then If WF_IDTextBox.Text <> "" Then
' Me.TBPMO_WORKFLOW_TASK_STATETableAdapter.FillBy(Me.DD_DMSDataSet.TBPMO_WORKFLOW_TASK_STATE, USER_LANGUAGE, WF_IDTextBox.Text, ENTITY_ID) ' Me.TBPMO_WORKFLOW_TASK_STATETableAdapter.FillBy(Me.DD_DMSDataSet.TBPMO_WORKFLOW_TASK_STATE, USER_LANGUAGE, WF_IDTextBox.Text, ENTITY_ID)
Dim sel = ClassDatabase.Execute_Scalar("SELECT USER_SELECT FROM TBPMO_WORKFLOW_TASK WHERE GUID = " & WF_TASK_ID) Dim sel = ClassDatabase.Execute_Scalar("SELECT USER_SELECT FROM TBPMO_WORKFLOW_TASK WHERE GUID = " & WF_TASK_ID, True)
If Not IsNothing(sel) Then If Not IsNothing(sel) Then
Load_Selectable_Users(sel) Load_Selectable_Users(sel)
End If End If
@ -252,7 +252,7 @@ Public Class frmRecordView
Sub Check_end() Sub Check_end()
Try Try
Dim sql As String = String.Format("SELECT FINISHED FROM TBPMO_WORKFLOW_TASK WHERE GUID = {0}", WF_TASK_ID) Dim sql As String = String.Format("SELECT FINISHED FROM TBPMO_WORKFLOW_TASK WHERE GUID = {0}", WF_TASK_ID)
Dim finished = ClassDatabase.Execute_Scalar(sql) Dim finished = ClassDatabase.Execute_Scalar(sql, True)
If Not IsNothing(finished) Then If Not IsNothing(finished) Then
If CBool(finished) = True Then If CBool(finished) = True Then
lblTaskState.Text = "Workflow-Ende erreicht!" lblTaskState.Text = "Workflow-Ende erreicht!"
@ -280,7 +280,7 @@ Public Class frmRecordView
Dim sql As String = String.Format("SELECT STATE_ID, dbo.FNPMO_GETOBJECTCAPTION('{0}', 'WF_STATE_TITLE' + CONVERT(VARCHAR(5), STATE_ID), 1) AS STATE_DESC FROM TBPMO_WORKFLOW_ENTITY_STATE WHERE " & Dim sql As String = String.Format("SELECT STATE_ID, dbo.FNPMO_GETOBJECTCAPTION('{0}', 'WF_STATE_TITLE' + CONVERT(VARCHAR(5), STATE_ID), 1) AS STATE_DESC FROM TBPMO_WORKFLOW_ENTITY_STATE WHERE " &
"INACTIVE = 0 AND ENTITY_ID = {1} AND STATE_ID NOT IN (" & _ "INACTIVE = 0 AND ENTITY_ID = {1} AND STATE_ID NOT IN (" & _
"SELECT STATE_ID FROM TBPMO_WORKFLOW_TASK_HISTORY WHERE WF_TASK_ID = {2})", USER_LANGUAGE, ENTITY_ID, WF_TASK_ID) "SELECT STATE_ID FROM TBPMO_WORKFLOW_TASK_HISTORY WHERE WF_TASK_ID = {2})", USER_LANGUAGE, ENTITY_ID, WF_TASK_ID)
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql, "States WF") Dim DT As DataTable = ClassDatabase.Return_Datatable(sql, True)
If DT.Rows.Count > 0 Then If DT.Rows.Count > 0 Then
STATE_IDComboBox.Enabled = True STATE_IDComboBox.Enabled = True
STATE_IDComboBox.DataSource = DT STATE_IDComboBox.DataSource = DT
@ -304,7 +304,7 @@ Public Class frmRecordView
Sub Load_Selectable_Users(sel As String) Sub Load_Selectable_Users(sel As String)
Try Try
DD_ECMAdmin.TBAD_Users.Clear() DD_ECMAdmin.TBAD_Users.Clear()
Dim DT As DataTable = ClassDatabase.Return_Datatable(sel) Dim DT As DataTable = ClassDatabase.Return_Datatable(sel, True)
For Each userrow As DataRow In DT.Rows For Each userrow As DataRow In DT.Rows
Dim newUserRow As DD_ECMAdmin.TBAD_UsersRow Dim newUserRow As DD_ECMAdmin.TBAD_UsersRow
newUserRow = DD_ECMAdmin.TBAD_Users.NewTBAD_UsersRow newUserRow = DD_ECMAdmin.TBAD_Users.NewTBAD_UsersRow
@ -341,6 +341,7 @@ Public Class frmRecordView
STATE_IDComboBox.SelectedIndex = -1 STATE_IDComboBox.SelectedIndex = -1
End If End If
If ClassDatabase.Execute_non_Query(upd, True) Then If ClassDatabase.Execute_non_Query(upd, True) Then
ClassProxy.Refresh_Workflow_Data()
Load_Tasks() Load_Tasks()
Load_States() Load_States()
Check_end() Check_end()
@ -406,66 +407,6 @@ Public Class frmRecordView
Next Next
End Sub End Sub
Private Sub CopyToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CopyToolStripMenuItem.Click
If IsNothing(ClassWindreamDocGrid.DT_RESULTFILES) Then
MsgBox("Could not read File Parameters(DoubleClick)!", MsgBoxStyle.Exclamation)
Exit Sub
End If
For Each row As DataRow In ClassWindreamDocGrid.DT_RESULTFILES.Rows
If row.Item("DOC_PATH") <> "" Then
Try
Dim selectedfile(0) As String
selectedfile(0) = row.Item("DOC_PATH")
Dim dataobj As New DataObject
dataobj.SetData(DataFormats.FileDrop, True, selectedfile)
Clipboard.Clear()
Clipboard.SetDataObject(dataobj, True)
Exit For
Catch ex As Exception
MsgBox("Unexpected Error in Copy file:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
Cursor = Cursors.Default
End If
Next
End Sub
Private Sub DeleteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DeleteToolStripMenuItem.Click
If IsNothing(ClassWindreamDocGrid.DT_RESULTFILES) Then
MsgBox("Could not read File Parameters(DoubleClick)!", MsgBoxStyle.Exclamation)
Exit Sub
End If
For Each row As DataRow In ClassWindreamDocGrid.DT_RESULTFILES.Rows
If row.Item("DOC_PATH") <> "" Then
Dim msg = "Sind Sie sicher, dass Sie die Datei löschen wollen?"
If USER_LANGUAGE <> "de-DE" Then
msg = "Are You sure You want to delete this file?"
End If
Dim result As MsgBoxResult
result = MessageBox.Show(msg, "Confirmation:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = MsgBoxResult.Yes Then
Try
Dim FileToDelete As String
FileToDelete = row.Item("DOC_PATH")
If System.IO.File.Exists(FileToDelete) = True Then
System.IO.File.Delete(FileToDelete)
RUN_WDSEARCH_GRID()
End If
Catch ex As Exception
MsgBox("Unexpected Error in Delete file:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End If
End If
Next
End Sub
Private Sub PropertiesToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PropertiesToolStripMenuItem.Click Private Sub PropertiesToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PropertiesToolStripMenuItem.Click
If IsNothing(ClassWindreamDocGrid.DT_RESULTFILES) Then If IsNothing(ClassWindreamDocGrid.DT_RESULTFILES) Then
MsgBox("Could not read File Parameters(Properties RecordView)!", MsgBoxStyle.Exclamation) MsgBox("Could not read File Parameters(Properties RecordView)!", MsgBoxStyle.Exclamation)
@ -563,7 +504,7 @@ Public Class frmRecordView
ClassLogger.Add(">> Check_Dropped_Files:" & Str.ToString, False) ClassLogger.Add(">> Check_Dropped_Files:" & Str.ToString, False)
Dim CURRENT_WORKFILE = Str.Substring(Str.LastIndexOf("@") + 1) Dim CURRENT_WORKFILE = Str.Substring(Str.LastIndexOf("@") + 1)
Dim insert = String.Format("INSERT INTO TBPMO_FILES_USER(FILENAME2WORK, USER_WORK, HANDLE_TYPE) VALUES('{0}','{1}','{2}')", CURRENT_WORKFILE, USER_USERNAME, DropType) Dim insert = String.Format("INSERT INTO TBPMO_FILES_USER(FILENAME2WORK, USER_WORK, HANDLE_TYPE) VALUES('{0}','{1}','{2}')", CURRENT_WORKFILE, USER_USERNAME, DropType)
If ClassDatabase.Execute_non_Query(insert) = False Then If ClassDatabase.Execute_non_Query(insert, True) = False Then
Exit Sub Exit Sub
End If End If
End If End If
@ -572,18 +513,18 @@ Public Class frmRecordView
Next Next
Dim sql = "select count(*) from VWPMO_DOKUMENTTYPES where FORMVIEW_ID = " & FORMVIEW_ID Dim sql = "select count(*) from VWPMO_DOKUMENTTYPES where FORMVIEW_ID = " & FORMVIEW_ID
If ClassDatabase.Execute_Scalar(sql, True) >= 1 Then If ClassDatabase.Execute_Scalar(sql, True) >= 1 Then
Dim sql1 = String.Format("SELECT GUID, FILENAME2WORK, USER_WORK, HANDLE_TYPE, WORKED, ADDED_WHEN FROM TBPMO_FILES_USER WHERE (UPPER(USER_WORK) = UPPER('{0}')) AND WORKED = 0", USER_USERNAME) sql = String.Format("SELECT * FROM TBPMO_FILES_USER WHERE (UPPER(USER_WORK) = UPPER('{0}')) AND WORKED = 0", USER_USERNAME)
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql1) CURRENT_TBPMO_FILES_USER = ClassDatabase.Return_Datatable(sql, True)
If Not IsNothing(DT) Then If Not IsNothing(CURRENT_TBPMO_FILES_USER) Then
If DT.Rows.Count > 0 Then If CURRENT_TBPMO_FILES_USER.Rows.Count > 0 Then
For Each Filerow As DataRow In DT.Rows For Each Filerow As DataRow In CURRENT_TBPMO_FILES_USER.Rows
'Dim datei = Str.ToString.Replace("@DROPFROMFSYSTEM@", "") 'Dim datei = Str.ToString.Replace("@DROPFROMFSYSTEM@", "")
CURRENT_FILEID = Filerow.Item(0) CURRENT_FILEID = Filerow.Item("GUID")
CURRENT_PARENT_ENTITY_ID = PARENT_ENTITY_ID CURRENT_PARENT_ENTITY_ID = PARENT_ENTITY_ID
CURRENT_RECORD_ID = JUMP_RECORD_ID CURRENT_RECORD_ID = JUMP_RECORD_ID
CURRENT_ENTITY_ID = ENTITY_ID CURRENT_ENTITY_ID = ENTITY_ID
CURRENT_FORMVIEW_ID = FORMVIEW_ID CURRENT_FORMVIEW_ID = FORMVIEW_ID
If ClassDatabase.Execute_Scalar("SELECT COUNT(*) FROM TBPMO_FILES_USER WHERE GUID = " & CURRENT_FILEID & " AND WORKED = 0") = 1 Then If CURRENT_TBPMO_FILES_USER.Rows.Count = 1 Then
frmWD_IndexFile.ShowDialog() frmWD_IndexFile.ShowDialog()
Else Else
If LogErrorsOnly = False Then ClassLogger.Add(" >> File was deleted or worked meanwhile!") If LogErrorsOnly = False Then ClassLogger.Add(" >> File was deleted or worked meanwhile!")
@ -606,12 +547,13 @@ Public Class frmRecordView
For Each row As DataRow In DD_ECMAdmin.TBAD_Users.Rows For Each row As DataRow In DD_ECMAdmin.TBAD_Users.Rows
If row.Item(0) = CBool(True) Then If row.Item(0) = CBool(True) Then
Dim sql = "select count(*) from TBPMO_WORKFLOW_TASK_USER Where USER_ID = " & row.Item(5) & " AND WF_TASK_ID = " & WF_TASK_ID Dim sql = "select count(*) from TBPMO_WORKFLOW_TASK_USER Where USER_ID = " & row.Item(5) & " AND WF_TASK_ID = " & WF_TASK_ID
If ClassDatabase.Execute_Scalar(sql) = 0 Then If ClassDatabase.Execute_Scalar(sql, True) = 0 Then
'## '##
Dim Ins = "Insert INTO TBPMO_WORKFLOW_TASK_USER (WF_TASK_ID,[USER_ID],ADDED_WHO) VALUES (" & WF_TASK_ID & ", " & row.Item(5) & ",'" & USER_USERNAME & "')" Dim Ins = "Insert INTO TBPMO_WORKFLOW_TASK_USER (WF_TASK_ID,[USER_ID],ADDED_WHO) VALUES (" & WF_TASK_ID & ", " & row.Item(5) & ",'" & USER_USERNAME & "')"
If ClassDatabase.Execute_non_Query(Ins) = False Then If ClassDatabase.Execute_non_Query(Ins, False) = False Then
MsgBox(String.Format("Error in Adding User {0} to Task", row.Item(1)), MsgBoxStyle.Critical) MsgBox(String.Format("Error in Adding User {0} to Task", row.Item(1)), MsgBoxStyle.Critical)
Else Else
ClassProxy.Refresh_Workflow_Data()
Load_TASK_USER() Load_TASK_USER()
End If End If
@ -626,7 +568,7 @@ Public Class frmRecordView
Try Try
'Dim sql = "SELECT * FROM VWPMO_WF_USER WHERE LOWER(USERNAME) = '" & USER_USERNAME & "' AND WF_TASK_ID = " & Me.GUIDTextBox.Text 'Dim sql = "SELECT * FROM VWPMO_WF_USER WHERE LOWER(USERNAME) = '" & USER_USERNAME & "' AND WF_TASK_ID = " & Me.GUIDTextBox.Text
Dim sql = "SELECT * FROM VWPMO_WF_USER WHERE WF_TASK_ID = " & WF_TASK_ID Dim sql = "SELECT * FROM VWPMO_WF_USER WHERE WF_TASK_ID = " & WF_TASK_ID
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql) Dim DT As DataTable = ClassDatabase.Return_Datatable(sql, True)
Dim count As Integer = 0 Dim count As Integer = 0
If DT Is Nothing = False Then If DT Is Nothing = False Then
ListViewExclusiveUser.Items.Clear() ListViewExclusiveUser.Items.Clear()
@ -666,7 +608,7 @@ Public Class frmRecordView
Sub Get_Description() Sub Get_Description()
Try Try
Dim sql = String.Format("SELECT COMMENT FROM TBPMO_WORKFLOW_ENTITY_STATE WHERE WF_ID = {0} AND STATE_ID = {1} AND ENTITY_ID = {2}", WF_IDTextBox.Text, STATE_IDComboBox.SelectedValue, ENTITY_ID) Dim sql = String.Format("SELECT COMMENT FROM TBPMO_WORKFLOW_ENTITY_STATE WHERE WF_ID = {0} AND STATE_ID = {1} AND ENTITY_ID = {2}", WF_IDTextBox.Text, STATE_IDComboBox.SelectedValue, ENTITY_ID)
Dim result = ClassDatabase.Execute_Scalar(sql) Dim result = ClassDatabase.Execute_Scalar(sql, True)
txtDescriptionStep.Text = result txtDescriptionStep.Text = result
Catch ex As Exception Catch ex As Exception
@ -717,7 +659,8 @@ Public Class frmRecordView
Try Try
If (Me.ListViewExclusiveUser.SelectedItems.Count > 0) Then If (Me.ListViewExclusiveUser.SelectedItems.Count > 0) Then
Dim sql = "DELETE FROM TBPMO_WORKFLOW_TASK_USER WHERE GUID = " & Me.ListViewExclusiveUser.SelectedItems.Item(0).Text Dim sql = "DELETE FROM TBPMO_WORKFLOW_TASK_USER WHERE GUID = " & Me.ListViewExclusiveUser.SelectedItems.Item(0).Text
ClassDatabase.Execute_non_Query(sql) ClassDatabase.Execute_non_Query(sql, False)
ClassProxy.Refresh_Workflow_Data()
Load_TASK_USER() Load_TASK_USER()
End If End If
Catch ex As Exception Catch ex As Exception
@ -751,4 +694,22 @@ Public Class frmRecordView
Next Next
End Sub End Sub
Private Sub ContextMenuStripResultFiles_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles ContextMenuStripResultFiles.Opening
ClassWindreamDocGrid.GetDocItems(GridViewDoc_Search)
Dim Result = ClassWindream.Get_File_Rights(ClassWindreamDocGrid.SELECTED_DOC_PATH)
If Not IsNothing(Result) Then
Select Case Result.ToString
Case "R"
PropertiesToolStripMenuItem.Enabled = False
Case "RW"
PropertiesToolStripMenuItem.Enabled = True
Case "RWA"
PropertiesToolStripMenuItem.Enabled = True
End Select
Else
PropertiesToolStripMenuItem.Enabled = True
End If
End Sub
End Class End Class

2
app/DD-Record-Organiser/frmRecord_Changes.Designer.vb generated
View File

@ -243,7 +243,7 @@ Partial Class frmRecord_Changes
Me.TableAdapterManager.TBDD_INDEX_AUTOMTableAdapter = Nothing Me.TableAdapterManager.TBDD_INDEX_AUTOMTableAdapter = Nothing
Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Nothing Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Nothing
Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FILES_USERTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FOLLOW_UP_EMAILTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FOLLOW_UP_EMAILTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FOLLUPEMAIL_USERTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FOLLUPEMAIL_USERTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = Nothing

2
app/DD-Record-Organiser/frmRight_Management.Designer.vb generated
View File

@ -756,7 +756,7 @@ Partial Class frmRight_Management
Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Me.TBDD_USER_GROUPSTableAdapter Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Me.TBDD_USER_GROUPSTableAdapter
Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_CONSTRUCTOR_USER_SQLTableAdapter = Nothing Me.TableAdapterManager.TBPMO_CONSTRUCTOR_USER_SQLTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FILES_USERTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FOLLOW_UP_EMAILTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FOLLOW_UP_EMAILTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FOLLUPEMAIL_USERTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FOLLUPEMAIL_USERTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = Nothing

1
app/DD-Record-Organiser/frmSQLEditor.Designer.vb generated
View File

@ -112,7 +112,6 @@ Partial Class frmSQLEditor
Me.TableAdapterManager.TBDD_INDEX_AUTOMTableAdapter = Nothing Me.TableAdapterManager.TBDD_INDEX_AUTOMTableAdapter = Nothing
Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Nothing Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Nothing
Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FILES_USERTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FOLLOW_UP_EMAILTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FOLLOW_UP_EMAILTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FOLLUPEMAIL_USERTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FOLLUPEMAIL_USERTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = Nothing

2
app/DD-Record-Organiser/frmScanFiles.Designer.vb generated
View File

@ -70,6 +70,7 @@ Partial Class frmScanFiles
Me.btndelete = New System.Windows.Forms.Button() Me.btndelete = New System.Windows.Forms.Button()
Me.chkInFront = New System.Windows.Forms.CheckBox() Me.chkInFront = New System.Windows.Forms.CheckBox()
Me.Timer1 = New System.Windows.Forms.Timer(Me.components) Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
Me.Timer2 = New System.Windows.Forms.Timer(Me.components)
Me.Panel1.SuspendLayout() Me.Panel1.SuspendLayout()
Me.StatusStrip2.SuspendLayout() Me.StatusStrip2.SuspendLayout()
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
@ -435,4 +436,5 @@ Partial Class frmScanFiles
Friend WithEvents chkInFront As System.Windows.Forms.CheckBox Friend WithEvents chkInFront As System.Windows.Forms.CheckBox
Private WithEvents ListView1 As System.Windows.Forms.ListView Private WithEvents ListView1 As System.Windows.Forms.ListView
Friend WithEvents Timer1 As System.Windows.Forms.Timer Friend WithEvents Timer1 As System.Windows.Forms.Timer
Friend WithEvents Timer2 As System.Windows.Forms.Timer
End Class End Class

25
app/DD-Record-Organiser/frmScanFiles.resx
View File

@ -118,7 +118,7 @@
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader> </resheader>
<data name="ColumnHeader2.Text" xml:space="preserve"> <data name="ColumnHeader2.Text" xml:space="preserve">
<value>Scandatei - Drag and Drop fähig</value> <value>Scandatei - Ziehen Sie diese Datei auf einen Datensatz</value>
</data> </data>
<assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" /> <assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="ColumnHeader2.Width" type="System.Int32, mscorlib"> <data name="ColumnHeader2.Width" type="System.Int32, mscorlib">
@ -136,7 +136,7 @@
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADm ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADm
BwAAAk1TRnQBSQFMAwEBAAH0AQAB9AEAARABAAEQAQAE/wEJAQAI/wFCAU0BNgEEBgABNgEEAgABKAMA BwAAAk1TRnQBSQFMAwEBAAH8AQAB/AEAARABAAEQAQAE/wEJAQAI/wFCAU0BNgEEBgABNgEEAgABKAMA
AUADAAEQAwABAQEAAQgGAAEEGAABgAIAAYADAAKAAQABgAMAAYABAAGAAQACgAIAA8ABAAHAAdwBwAEA AUADAAEQAwABAQEAAQgGAAEEGAABgAIAAYADAAKAAQABgAMAAYABAAGAAQACgAIAA8ABAAHAAdwBwAEA
AfABygGmAQABMwUAATMBAAEzAQABMwEAAjMCAAMWAQADHAEAAyIBAAMpAQADVQEAA00BAANCAQADOQEA AfABygGmAQABMwUAATMBAAEzAQABMwEAAjMCAAMWAQADHAEAAyIBAAMpAQADVQEAA00BAANCAQADOQEA
AYABfAH/AQACUAH/AQABkwEAAdYBAAH/AewBzAEAAcYB1gHvAQAB1gLnAQABkAGpAa0CAAH/ATMDAAFm AYABfAH/AQACUAH/AQABkwEAAdYBAAH/AewBzAEAAcYB1gHvAQAB1gLnAQABkAGpAa0CAAH/ATMDAAFm
@ -194,7 +194,7 @@
<value>4</value> <value>4</value>
</data> </data>
<metadata name="StatusStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="StatusStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1212, 173</value> <value>127, 17</value>
</metadata> </metadata>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" /> <assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="Panel1.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms"> <data name="Panel1.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
@ -282,7 +282,7 @@
<value>0</value> <value>0</value>
</data> </data>
<metadata name="StatusStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="StatusStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1212, 173</value> <value>127, 17</value>
</metadata> </metadata>
<data name="StatusStrip2.Location" type="System.Drawing.Point, System.Drawing"> <data name="StatusStrip2.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 531</value> <value>0, 531</value>
@ -375,10 +375,10 @@
<value>3</value> <value>3</value>
</data> </data>
<metadata name="PdfBarController1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="PdfBarController1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 212</value> <value>244, 17</value>
</metadata> </metadata>
<metadata name="PdfBarController2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="PdfBarController2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>165, 212</value> <value>392, 17</value>
</metadata> </metadata>
<data name="btndelete.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing"> <data name="btndelete.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
<value>MiddleRight</value> <value>MiddleRight</value>
@ -438,7 +438,10 @@
<value>0</value> <value>0</value>
</data> </data>
<metadata name="Timer1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="Timer1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>313, 212</value> <value>540, 17</value>
</metadata>
<metadata name="Timer2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>629, 17</value>
</metadata> </metadata>
<metadata name="$this.Localizable" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"> <metadata name="$this.Localizable" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value> <value>True</value>
@ -902,7 +905,7 @@
</value> </value>
</data> </data>
<data name="$this.Text" xml:space="preserve"> <data name="$this.Text" xml:space="preserve">
<value>Inbox - Scan</value> <value>Scanmonitor - Unbearbeitete gescannte Dateien</value>
</data> </data>
<data name="&gt;&gt;ColumnHeader2.Name" xml:space="preserve"> <data name="&gt;&gt;ColumnHeader2.Name" xml:space="preserve">
<value>ColumnHeader2</value> <value>ColumnHeader2</value>
@ -1132,6 +1135,12 @@
<data name="&gt;&gt;Timer1.Type" xml:space="preserve"> <data name="&gt;&gt;Timer1.Type" xml:space="preserve">
<value>System.Windows.Forms.Timer, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Windows.Forms.Timer, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data> </data>
<data name="&gt;&gt;Timer2.Name" xml:space="preserve">
<value>Timer2</value>
</data>
<data name="&gt;&gt;Timer2.Type" xml:space="preserve">
<value>System.Windows.Forms.Timer, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;$this.Name" xml:space="preserve"> <data name="&gt;&gt;$this.Name" xml:space="preserve">
<value>frmScanFiles</value> <value>frmScanFiles</value>
</data> </data>

12
app/DD-Record-Organiser/frmScanFiles.vb
View File

@ -21,8 +21,7 @@ Public Class frmScanFiles
End Sub End Sub
Sub Load_Files() Sub Load_Files()
Try Try
Dim sql1 As String = String.Format("select * from TBPMO_FILES_USER where HANDLE_TYPE = 'SCAN' and WORKED = 0 AND UPPER(USER_WORK) = '{0}'", USER_USERNAME) Dim DT As DataTable = ClassFolderWatcher.Check_Scan_Files
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql1, "Load ScanFiles")
If Not IsNothing(DT) Then If Not IsNothing(DT) Then
CURRENT_SCAN_TABLE = DT CURRENT_SCAN_TABLE = DT
ListView1.Items.Clear() ListView1.Items.Clear()
@ -112,8 +111,6 @@ Public Class frmScanFiles
If MouseIsDown Then If MouseIsDown Then
'Initiate dragging. 'Initiate dragging.
ListView1.DoDragDrop(DragID, DragDropEffects.Copy) ListView1.DoDragDrop(DragID, DragDropEffects.Copy)
Timer1.Start()
'Console.WriteLine("Dragging")
End If End If
MouseIsDown = False MouseIsDown = False
End Sub End Sub
@ -161,12 +158,17 @@ Public Class frmScanFiles
Private Sub frmScanFiles_Shown(sender As Object, e As EventArgs) Handles Me.Shown Private Sub frmScanFiles_Shown(sender As Object, e As EventArgs) Handles Me.Shown
Me.BringToFront() Me.BringToFront()
Timer1.Start()
End Sub End Sub
Private Sub chkInFront_CheckedChanged(sender As Object, e As EventArgs) Handles chkInFront.CheckedChanged Private Sub chkInFront_CheckedChanged(sender As Object, e As EventArgs) Handles chkInFront.CheckedChanged
My.Settings.Save() My.Settings.Save()
End Sub End Sub
Private Sub Timer1_Tick_1(sender As Object, e As EventArgs) Handles Timer1.Tick Private Sub Timer1_Tick_1(sender As Object, e As EventArgs) Handles Timer1.Tick
Load_Files() Dim DT As DataTable = ClassFolderWatcher.Check_Scan_Files
If DT.Rows.Count <> ListView1.Items.Count Then
Load_Files()
End If
End Sub End Sub
End Class End Class

1
app/DD-Record-Organiser/frmStructureNodeConfig.Designer.vb generated
View File

@ -495,7 +495,6 @@ Partial Class frmStructureNodeConfig
Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Nothing Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Nothing
Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_CONSTRUCTOR_USER_SQLTableAdapter = Nothing Me.TableAdapterManager.TBPMO_CONSTRUCTOR_USER_SQLTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FILES_USERTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FOLLOW_UP_EMAILTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FOLLOW_UP_EMAILTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FOLLUPEMAIL_USERTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FOLLUPEMAIL_USERTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = Nothing

2
app/DD-Record-Organiser/frmStructureNodeConfig.vb
View File

@ -365,7 +365,7 @@
pbBackground.ImageLocation = Nothing pbBackground.ImageLocation = Nothing
pbBackground.Image = Nothing pbBackground.Image = Nothing
Dim sql As String = String.Format("UPDATE TBPMO_STRUCTURE_NODES_CONFIGURATION SET NODE_IMAGE = NULL WHERE GUID = {0}", Me.GUIDTextBox.Text) Dim sql As String = String.Format("UPDATE TBPMO_STRUCTURE_NODES_CONFIGURATION SET NODE_IMAGE = NULL WHERE GUID = {0}", Me.GUIDTextBox.Text)
If ClassDatabase.Execute_non_Query(sql) = True Then If ClassDatabase.Execute_non_Query(sql, False) = True Then
setimageNull = False setimageNull = False
End If End If
Catch ex As Exception Catch ex As Exception

2
app/DD-Record-Organiser/frmTask_Editor.Designer.vb generated
View File

@ -186,7 +186,7 @@ Partial Class frmTask_Editor
Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Nothing Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Nothing
Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_CONSTRUCTOR_USER_SQLTableAdapter = Nothing Me.TableAdapterManager.TBPMO_CONSTRUCTOR_USER_SQLTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FILES_USERTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FOLLOW_UP_EMAILTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FOLLOW_UP_EMAILTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FOLLUPEMAIL_USERTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FOLLUPEMAIL_USERTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = Nothing

14
app/DD-Record-Organiser/frmTask_Editor.vb
View File

@ -60,7 +60,7 @@ Public Class frmTask_Editor
Sub Load_Following() Sub Load_Following()
Try Try
Dim sql = "select WF_TASK_ID, dbo.FNPMO_GETOBJECTCAPTION('{0}', 'TASK_TITLE' + CONVERT(VARCHAR(5), WF_ID), 1) AS [Workflow-Title] from VWPMO_WF_ACTIVE where WF_TASK_ID <> " & Me.GUIDTextBox.Text & " AND RECORD_ID = " & CURRENT_RECORD_ID Dim sql = "select WF_TASK_ID, dbo.FNPMO_GETOBJECTCAPTION('{0}', 'TASK_TITLE' + CONVERT(VARCHAR(5), WF_ID), 1) AS [Workflow-Title] from VWPMO_WF_ACTIVE where WF_TASK_ID <> " & Me.GUIDTextBox.Text & " AND RECORD_ID = " & CURRENT_RECORD_ID
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql, "GET FOLLOWING TASKS") Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
Dim msg As String = " nachfolgender Task" Dim msg As String = " nachfolgender Task"
If USER_LANGUAGE <> "de-DE" Then If USER_LANGUAGE <> "de-DE" Then
msg = " following task:" msg = " following task:"
@ -173,7 +173,7 @@ Public Class frmTask_Editor
Try Try
If e.Data.GetData(DataFormats.Text) Is Nothing = False Then If e.Data.GetData(DataFormats.Text) Is Nothing = False Then
Dim sql = "Insert INTO TBPMO_WORKFLOW_TASK_USER (WF_TASK_ID,[USER_ID]) VALUES (" & Me.GUIDTextBox.Text & ", " & e.Data.GetData(DataFormats.Text) & ")" Dim sql = "Insert INTO TBPMO_WORKFLOW_TASK_USER (WF_TASK_ID,[USER_ID]) VALUES (" & Me.GUIDTextBox.Text & ", " & e.Data.GetData(DataFormats.Text) & ")"
If ClassDatabase.Execute_non_Query(sql) = True Then If ClassDatabase.Execute_non_Query(sql, False) = True Then
Load_TASK_USER() Load_TASK_USER()
End If End If
End If End If
@ -186,7 +186,7 @@ Public Class frmTask_Editor
Try Try
If (Me.ListViewExclusiveUser.SelectedItems.Count > 0) Then If (Me.ListViewExclusiveUser.SelectedItems.Count > 0) Then
Dim sql = "DELETE FROM TBPMO_WORKFLOW_TASK_USER WHERE GUID = " & Me.ListViewExclusiveUser.SelectedItems.Item(0).Text Dim sql = "DELETE FROM TBPMO_WORKFLOW_TASK_USER WHERE GUID = " & Me.ListViewExclusiveUser.SelectedItems.Item(0).Text
ClassDatabase.Execute_non_Query(sql) ClassDatabase.Execute_non_Query(sql, False)
Load_TASK_USER() Load_TASK_USER()
End If End If
@ -200,9 +200,9 @@ Public Class frmTask_Editor
Dim result As MsgBoxResult = MsgBox("Sind Sie sicher das Sie diesen Task löschen wollen??", MsgBoxStyle.YesNo, "Bestätigung erforderlich:") Dim result As MsgBoxResult = MsgBox("Sind Sie sicher das Sie diesen Task löschen wollen??", MsgBoxStyle.YesNo, "Bestätigung erforderlich:")
If result = MsgBoxResult.Yes Then If result = MsgBoxResult.Yes Then
Dim sql = "DELETE FROM TBPMO_WORKFLOW_TASK_USER WHERE WF_TASK_ID = " & Me.GUIDTextBox.Text Dim sql = "DELETE FROM TBPMO_WORKFLOW_TASK_USER WHERE WF_TASK_ID = " & Me.GUIDTextBox.Text
If ClassDatabase.Execute_non_Query(sql, True) Then If ClassDatabase.Execute_non_Query(sql) Then
sql = "DELETE FROM TBPMO_WORKFLOW_TASK WHERE GUID = " & Me.GUIDTextBox.Text sql = "DELETE FROM TBPMO_WORKFLOW_TASK WHERE GUID = " & Me.GUIDTextBox.Text
If ClassDatabase.Execute_non_Query(sql, True) Then If ClassDatabase.Execute_non_Query(sql) Then
Load_Task() Load_Task()
Load_Following() Load_Following()
Load_TASK_USER() Load_TASK_USER()
@ -232,7 +232,7 @@ Public Class frmTask_Editor
Dim result As MsgBoxResult = MsgBox("Sind Sie sicher das Sie diesen nachfolgenden Task löschen wollen??", MsgBoxStyle.YesNo, "Bestätigung erforderlich:") Dim result As MsgBoxResult = MsgBox("Sind Sie sicher das Sie diesen nachfolgenden Task löschen wollen??", MsgBoxStyle.YesNo, "Bestätigung erforderlich:")
If result = MsgBoxResult.Yes Then If result = MsgBoxResult.Yes Then
Dim sql = "DELETE FROM TBPMO_WORKFLOW_TASK WHERE GUID = " & ID Dim sql = "DELETE FROM TBPMO_WORKFLOW_TASK WHERE GUID = " & ID
If ClassDatabase.Execute_non_Query(sql, True) = True Then If ClassDatabase.Execute_non_Query(sql) = True Then
Load_Task() Load_Task()
Load_Following() Load_Following()
Load_TASK_USER() Load_TASK_USER()
@ -254,7 +254,7 @@ Public Class frmTask_Editor
Try Try
If ListBoxUser.SelectedIndex <> -1 And ListBoxUser.SelectedValue > 0 Then If ListBoxUser.SelectedIndex <> -1 And ListBoxUser.SelectedValue > 0 Then
Dim sql = "Insert INTO TBPMO_WORKFLOW_TASK_USER (WF_TASK_ID,[USER_ID]) VALUES (" & Me.GUIDTextBox.Text & ", " & ListBoxUser.SelectedValue & ")" Dim sql = "Insert INTO TBPMO_WORKFLOW_TASK_USER (WF_TASK_ID,[USER_ID]) VALUES (" & Me.GUIDTextBox.Text & ", " & ListBoxUser.SelectedValue & ")"
If ClassDatabase.Execute_non_Query(sql) = True Then If ClassDatabase.Execute_non_Query(sql, False) = True Then
Load_TASK_USER() Load_TASK_USER()
End If End If
End If End If

2
app/DD-Record-Organiser/frmTask_Management.designer.vb generated
View File

@ -750,7 +750,7 @@ Partial Class frmTask_Management
Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Nothing Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Nothing
Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_CONSTRUCTOR_USER_SQLTableAdapter = Nothing Me.TableAdapterManager.TBPMO_CONSTRUCTOR_USER_SQLTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FILES_USERTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FOLLOW_UP_EMAILTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FOLLOW_UP_EMAILTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FOLLUPEMAIL_USERTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FOLLUPEMAIL_USERTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = Nothing

8
app/DD-Record-Organiser/frmTask_Management.vb
View File

@ -288,7 +288,7 @@
If DataGridView1.Item(0, i).Value Is Nothing = False Then If DataGridView1.Item(0, i).Value Is Nothing = False Then
Dim i1 = DataGridView1.Item(0, i).Value Dim i1 = DataGridView1.Item(0, i).Value
Dim del = "DELETE FROM TBPMO_WORKFLOW_ENTITY_STATE WHERE GUID = " & i1 Dim del = "DELETE FROM TBPMO_WORKFLOW_ENTITY_STATE WHERE GUID = " & i1
If ClassDatabase.Execute_non_Query(del) Then If ClassDatabase.Execute_non_Query(del, False) Then
Load_ENTITY_States("ENT") Load_ENTITY_States("ENT")
End If End If
End If End If
@ -334,7 +334,7 @@
sql = String.Format("SELECT GUID as ID,dbo.FNPMO_GETOBJECTCAPTION('{0}', 'FORMVIEW_TITLE' + CONVERT(VARCHAR(5),FV_ID), 1) AS Entity,dbo.FNPMO_GETOBJECTCAPTION('{0}', 'TASK_TITLE' + CONVERT(VARCHAR(5),WF_ID), 1) AS [Task/Workflow],dbo.FNPMO_GETOBJECTCAPTION('{0}', 'WF_STATE_TITLE' + CONVERT(VARCHAR(5),STATE_ID), 1) AS [State],Final FROM VWPMO_WORKFLOW_ENTITY_STATE WHERE STATE_ID = {1}", USER_LANGUAGE, GUIDTextBox.Text) sql = String.Format("SELECT GUID as ID,dbo.FNPMO_GETOBJECTCAPTION('{0}', 'FORMVIEW_TITLE' + CONVERT(VARCHAR(5),FV_ID), 1) AS Entity,dbo.FNPMO_GETOBJECTCAPTION('{0}', 'TASK_TITLE' + CONVERT(VARCHAR(5),WF_ID), 1) AS [Task/Workflow],dbo.FNPMO_GETOBJECTCAPTION('{0}', 'WF_STATE_TITLE' + CONVERT(VARCHAR(5),STATE_ID), 1) AS [State],Final FROM VWPMO_WORKFLOW_ENTITY_STATE WHERE STATE_ID = {1}", USER_LANGUAGE, GUIDTextBox.Text)
End Select End Select
' Dim sql = String.Format("SELECT T.GUID,T1.STATE_DESC FROM TBPMO_WORKFLOW_ENTITY_STATE T, TBPMO_WORKFLOW_TASK_STATE T1 WHERE T.STATE_ID = T1.GUID AND T.WF_ID = {0} AND T.ENTITY_ID = {1}", Workflow_ID, _ENTITYID) ' Dim sql = String.Format("SELECT T.GUID,T1.STATE_DESC FROM TBPMO_WORKFLOW_ENTITY_STATE T, TBPMO_WORKFLOW_TASK_STATE T1 WHERE T.STATE_ID = T1.GUID AND T.WF_ID = {0} AND T.ENTITY_ID = {1}", Workflow_ID, _ENTITYID)
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql, "Get Entity-States") Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
DataGridView1.DataSource = DT DataGridView1.DataSource = DT
lblSelection.Text = txtlbl lblSelection.Text = txtlbl
DataGridView1.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells DataGridView1.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells
@ -498,7 +498,7 @@
End Select End Select
Dim ins = String.Format("INSERT INTO TBPMO_WORKFLOW_ENTITY_STATE (WF_ID,ENTITY_ID,STATE_ID,ADDED_WHO,FINAL) VALUES({0},{1},{2},'{3}',{4})", GUIDTextBox1.Text, txtEntity.Tag, txtState.Tag, USER_USERNAME, final) Dim ins = String.Format("INSERT INTO TBPMO_WORKFLOW_ENTITY_STATE (WF_ID,ENTITY_ID,STATE_ID,ADDED_WHO,FINAL) VALUES({0},{1},{2},'{3}',{4})", GUIDTextBox1.Text, txtEntity.Tag, txtState.Tag, USER_USERNAME, final)
If ClassDatabase.Execute_non_Query(ins) Then If ClassDatabase.Execute_non_Query(ins, False) Then
Dim txt As String = "Der Datensatz wurde erfolgreich hinzugefügt - " & Now Dim txt As String = "Der Datensatz wurde erfolgreich hinzugefügt - " & Now
If USER_LANGUAGE <> "de-DE" Then If USER_LANGUAGE <> "de-DE" Then
txt = "The record was added successfully - " & Now txt = "The record was added successfully - " & Now
@ -552,7 +552,7 @@
If DataGridView1.Item(0, i).Value Is Nothing = False Then If DataGridView1.Item(0, i).Value Is Nothing = False Then
Dim i1 = DataGridView1.Item(0, i).Value Dim i1 = DataGridView1.Item(0, i).Value
Dim upd = "UPDATE TBPMO_WORKFLOW_ENTITY_STATE SET COMMENT = '" & txtComment.Text & "' WHERE GUID = " & i1 Dim upd = "UPDATE TBPMO_WORKFLOW_ENTITY_STATE SET COMMENT = '" & txtComment.Text & "' WHERE GUID = " & i1
If ClassDatabase.Execute_non_Query(upd) = False Then If ClassDatabase.Execute_non_Query(upd, False) = False Then
MsgBox("Workflow Comment could not be updated -Check log", MsgBoxStyle.Critical) MsgBox("Workflow Comment could not be updated -Check log", MsgBoxStyle.Critical)
End If End If
End If End If

2
app/DD-Record-Organiser/frmTask_Overview.designer.vb generated
View File

@ -110,7 +110,7 @@ Partial Class frmTask_Overview
Me.TableAdapterManager.TBDD_INDEX_AUTOMTableAdapter = Nothing Me.TableAdapterManager.TBDD_INDEX_AUTOMTableAdapter = Nothing
Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Nothing Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Nothing
Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FILES_USERTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FOLLOW_UP_EMAILTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FOLLOW_UP_EMAILTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FOLLUPEMAIL_USERTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FOLLUPEMAIL_USERTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = Nothing

2
app/DD-Record-Organiser/frmTemplates.Designer.vb generated
View File

@ -249,7 +249,7 @@ Partial Class frmTemplates
Me.TableAdapterManager.TBDD_INDEX_AUTOMTableAdapter = Nothing Me.TableAdapterManager.TBDD_INDEX_AUTOMTableAdapter = Nothing
Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Nothing Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Nothing
Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FILES_USERTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FOLLOW_UP_EMAILTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FOLLOW_UP_EMAILTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FOLLUPEMAIL_USERTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FOLLUPEMAIL_USERTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = Nothing

6
app/DD-Record-Organiser/frmTemplates.vb
View File

@ -36,7 +36,7 @@
Try Try
Dim sql As String = "SELECT T.GUID, T2.FORM_TITLE, T.ENTITY_ID FROM TBPMO_TEMPLATE_ENTITY T, TBPMO_FORM T1, TBPMO_FORM_VIEW T2 " & _ Dim sql As String = "SELECT T.GUID, T2.FORM_TITLE, T.ENTITY_ID FROM TBPMO_TEMPLATE_ENTITY T, TBPMO_FORM T1, TBPMO_FORM_VIEW T2 " & _
"WHERE T.ENTITY_ID = T1.GUID And T1.GUID = T2.FORM_ID And T2.SCREEN_ID = 1 And T.TEMPLATE_ID = " & ID "WHERE T.ENTITY_ID = T1.GUID And T1.GUID = T2.FORM_ID And T2.SCREEN_ID = 1 And T.TEMPLATE_ID = " & ID
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql, "Load_Template_Entity") Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
If DT.Rows.Count > 0 Then If DT.Rows.Count > 0 Then
ListBox_Entity.DataSource = DT ListBox_Entity.DataSource = DT
ListBox_Entity.DisplayMember = DT.Columns(1).ColumnName ListBox_Entity.DisplayMember = DT.Columns(1).ColumnName
@ -165,7 +165,7 @@
Private Function Pattern_exists(name As String) Private Function Pattern_exists(name As String)
Try Try
Dim sql = "select count(*) from TBPMO_TEMPLATE_PATTERN where UPPER(NAME_PATTERN) = UPPER('" & name & "') AND TEMPLATE_ENT_ID = " & _TEMPLATE_ENTITY_ID Dim sql = "select count(*) from TBPMO_TEMPLATE_PATTERN where UPPER(NAME_PATTERN) = UPPER('" & name & "') AND TEMPLATE_ENT_ID = " & _TEMPLATE_ENTITY_ID
Dim result = ClassDatabase.Execute_Scalar(sql, True) Dim result = ClassDatabase.Execute_Scalar(sql)
If IsNothing(result) Then If IsNothing(result) Then
Return False Return False
ElseIf result = 1 Then ElseIf result = 1 Then
@ -256,7 +256,7 @@
If cmbControls.SelectedIndex <> -1 Then If cmbControls.SelectedIndex <> -1 Then
Dim ctrlstring = cmbControls.SelectedValue.ToString Dim ctrlstring = cmbControls.SelectedValue.ToString
Dim sql = String.Format("UPDATE TBPMO_TEMPLATE_PATTERN SET FIXED_VALUE = '{0}',CHANGED_WHO = '{1}' WHERE GUID = {2}", ctrlstring, USER_USERNAME, GUIDTextBox2.Text) Dim sql = String.Format("UPDATE TBPMO_TEMPLATE_PATTERN SET FIXED_VALUE = '{0}',CHANGED_WHO = '{1}' WHERE GUID = {2}", ctrlstring, USER_USERNAME, GUIDTextBox2.Text)
If ClassDatabase.Execute_non_Query(sql, True) Then If ClassDatabase.Execute_non_Query(sql) Then
FIXED_VALUETextBox.Text = ctrlstring FIXED_VALUETextBox.Text = ctrlstring
lblSavePattern.Visible = True lblSavePattern.Visible = True
Else Else

2
app/DD-Record-Organiser/frmUserKonfig.Designer.vb generated
View File

@ -466,7 +466,7 @@ Partial Class frmUserKonfig
Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Nothing Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Nothing
Me.TableAdapterManager.TBDD_USERTableAdapter = Me.TBDD_USERTableAdapter Me.TableAdapterManager.TBDD_USERTableAdapter = Me.TBDD_USERTableAdapter
Me.TableAdapterManager.TBPMO_CONSTRUCTOR_USER_SQLTableAdapter = Nothing Me.TableAdapterManager.TBPMO_CONSTRUCTOR_USER_SQLTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FILES_USERTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FOLLOW_UP_EMAILTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FOLLOW_UP_EMAILTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FOLLUPEMAIL_USERTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FOLLUPEMAIL_USERTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = Nothing

Some files were not shown because too many files have changed in this diff Show More