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

Compare commits

base: AppStd:aa7c68a4ced6237fc1d19f8cd80b5ed0978db204
Branches Tags
AppStd:master AppStd:RibbonForm
...
compare: AppStd:ea5ea5f2054cdeff85bef6349680836e72a9cacc
Branches Tags
AppStd:master AppStd:RibbonForm

3 Commits
aa7c68a4ce ... ea5ea5f205

Author SHA1 Message Date
SchreiberM
ea5ea5f205 MS 2023-07-20 14:12:24 +02:00
SchreiberM
c2deb54f11 DAtabase integriert 2023-05-22 16:55:44 +02:00
SchreiberM
2db575d944 MS 2023-04-13 17:11:20 +02:00
144 changed files with 17152 additions and 26835 deletions
Expand all files Collapse all files

6
app/DD-Record-Organizer.sln
View File

@@ -1,9 +1,9 @@
Microsoft Visual Studio Solution File, Format Version 12.00
# Visual Studio Version 16
VisualStudioVersion = 16.0.29728.190
# Visual Studio Version 17
VisualStudioVersion = 17.3.32929.385
MinimumVisualStudioVersion = 10.0.40219.1
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "DD-Record-Organizer", "DD-Record-Organizer\DD-Record-Organizer.vbproj", "{BDCC148B-4C84-4A48-80CF-4C56057294E0}"
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "OrgFlow", "DD-Record-Organizer\OrgFlow.vbproj", "{BDCC148B-4C84-4A48-80CF-4C56057294E0}"
EndProject
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "RecordOrganizer_RightManager", "RecordOrganizer_RightManager\RecordOrganizer_RightManager.vbproj", "{F1C8A9DF-2452-4E3B-9C32-0C792F6ED2E6}"
EndProject

2
app/DD-Record-Organizer/Classes/ClassAsyncReturnDT.vb
View File

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

2
app/DD-Record-Organizer/Classes/ClassAsyncSQL.vb
View File

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

6
app/DD-Record-Organizer/Classes/ClassConstructors.vb
View File

@@ -6,14 +6,14 @@
Dim sql = String.Format("Select DISTINCT T.GUID, T2.ENTITY_ID FROM TBPMO_FORM_CONSTRUCTOR T, TBPMO_FORM_CONSTRUCTOR_DETAIL T1, " &
"TBPMO_STRUCTURE_NODES_CONFIGURATION T2 WHERE T.GUID = T1.CONSTRUCT_ID And T1.FORM_ID = T2.ENTITY_ID " &
"And T.GUID In (Select CONSTRUCT_ID FROM TBPMO_CONSTRUCTOR_USER WHERE USER_ID = {0})", USER_GUID)
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql, True)
Dim DT As DataTable = MYDB_ECM.GetDatatable(sql)
For Each rowconstruct As DataRow In DT.Rows
Try
Dim sqlnodes = String.Format("select * from VWPMO_STRUCTURE_NODES where ENTITY_ID IN (SELECT FORM_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = {0})", rowconstruct.Item(0))
Dim DTNODES As DataTable = ClassDatabase.Return_Datatable(sqlnodes, True)
Dim DTNODES As DataTable = MYDB_ECM.GetDatatable(sqlnodes)
Dim sqlimage = String.Format("select * from TBPMO_STRUCTURE_NODES_CONFIGURATION where ENTITY_ID IN (SELECT FORM_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = {0})", rowconstruct.Item(0))
Dim DT_TREEVIEW_CONFIGURATION = ClassDatabase.Return_Datatable(sql)
Dim DT_TREEVIEW_CONFIGURATION = MYDB_ECM.GetDatatable(sql)
Dim TREEVIEW_IMAGELIST = New ImageList
For Each row As DataRow In DT_TREEVIEW_CONFIGURATION.Rows

8
app/DD-Record-Organizer/Classes/ClassConverter.vb
View File

@@ -84,11 +84,5 @@
' ------------- TYPE TO STRING -------------
Public Shared Function SQLValueToString(value As SQLValue) As String
Dim cmd As String = value.Value
If cmd.Contains("'") Then
cmd = cmd.Replace("'", "''")
End If
Return cmd
End Function
End Class

60
app/DD-Record-Organizer/Classes/ClassDOC_SEARCH.vb
View File

@@ -32,7 +32,7 @@ Public Class ClassDOC_SEARCH
OPTION4 = DT_RESULTLIST_OPTIONS.Rows(0).Item("OPTION4_CTRL")
OPTION5 = DT_RESULTLIST_OPTIONS.Rows(0).Item("OPTION5_CTRL")
End If
LOGGER.Info("DT_RESULTLIST_SEL_VALUES.Rows.Count: " & DT_RESULTLIST_SEL_VALUES.Rows.Count, False)
LOGGER.Info("DT_RESULTLIST_SEL_VALUES.Rows.Count: " & DT_RESULTLIST_SEL_VALUES.Rows.Count)
For Each oRow As DataRow In DT_RESULTLIST_SEL_VALUES.Rows
If oRow.Item("COLUMN_VIEW").ToString = "VALUE1" Then
@@ -222,7 +222,7 @@ Public Class ClassDOC_SEARCH
"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
LOGGER.Debug("SQL_DOC_SEARCH: " & SQL_DOC_SEARCH, False)
LOGGER.Debug("SQL_DOC_SEARCH: " & SQL_DOC_SEARCH)
If BG = True And CURRENT_SEARCH_TYPE = "ENTITY" Then
If Not IsNothing(CURRENT_DT_DOC_ENTITY_SEARCH) Then
Return CURRENT_DT_DOC_ENTITY_SEARCH
@@ -241,7 +241,7 @@ Public Class ClassDOC_SEARCH
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error Async DTFILE_RESULT_ASYNC", ex.Message, ex.StackTrace)
End Try
Return DTFILE_RESULT_ASYNC 'ClassDatabase.Return_Datatable(SQL_DOC_SEARCH, True)
Return DTFILE_RESULT_ASYNC
Catch ex As Exception
LOGGER.Error("Unexpected Error in GET_DOCSEARCH_DATATABLE: " & ex.Message)
Return Nothing
@@ -266,7 +266,8 @@ Public Class ClassDOC_SEARCH
Dim DT_FILE_RESULT As DataTable = GET_DOCSEARCH_DATATABLE(BG)
CURRENT_DOC_RESULTS = DT_FILE_RESULT
If IsNothing(DT_FILE_RESULT) Then
LOGGER.Warn("ATTENTION: GET_DOCSEARCH_DATATABLE IS NOTHING!!", False)
' MsgBox("ATTENTION: GET_DOCSEARCH_DATATABLE IS NOTHING" & vbNewLine & "Please inform Your Sysadmin", MsgBoxStyle.Exclamation, "Attention")
LOGGER.Warn("ATTENTION: GET_DOCSEARCH_DATATABLE IS NOTHING!!")
Return Nothing
End If
sw.Done()
@@ -445,7 +446,7 @@ Public Class ClassDOC_SEARCH
rowvalue = ""
End If
_step = "9.1 rowvalue for Colname [" & Colname & "]: [" & rowvalue.ToString & "]"
LOGGER.Debug("rowvalue for Colname [" & Colname & "]: [" & rowvalue.ToString & "]", False)
LOGGER.Debug("rowvalue for Colname [" & Colname & "]: [" & rowvalue.ToString & "]")
Catch ex As Exception
If CURRENT_SEARCH_TYPE = "RECORD" Then
LOGGER.Warn("Unexpected Error in GetVariableValue for Column [" & Colname & "] - Error: " & ex.Message)
@@ -462,11 +463,11 @@ Public Class ClassDOC_SEARCH
End If
End Try
_step = "9.2 now: NewRow.Item(i) = rowvalue.ToString..."
'LOGGER.Debug("9.2 now: NewRow.Item(i) = rowvalue.ToString...", False)
'LOGGER.Debug("9.2 now: NewRow.Item(i) = rowvalue.ToString...")
Try
Dim oType = oDTGrid.Columns(i).DataType.ToString
If oType = "System.DateTime" And Len(rowvalue) = 0 Then
LOGGER.Debug("rowvalue Is empty and Column is Datetime...", False)
LOGGER.Debug("rowvalue Is empty and Column is Datetime...")
rowvalue = "2099-12-31"
ElseIf oType = "System.Boolean" Then
@@ -489,9 +490,9 @@ Public Class ClassDOC_SEARCH
End If
Catch ex As Exception
LOGGER.Warn("Error in advising rowvalue to rowitem: " + ex.Message, False)
LOGGER.Error("Error in advising rowvalue to rowitem: " + ex.Message, False)
LOGGER.Warn("Type of column: " + oDTGrid.Columns(i).DataType.ToString(), False)
LOGGER.Warn("Error in advising rowvalue to rowitem: " + ex.Message)
LOGGER.Error("Error in advising rowvalue to rowitem: " + ex.Message)
LOGGER.Warn("Type of column: " + oDTGrid.Columns(i).DataType.ToString())
End Try
i += 1
@@ -516,10 +517,10 @@ Public Class ClassDOC_SEARCH
Public Shared Function CREATE_DOC_RELATED_LINKS(DOC_ID As Integer, RECORD_ID As Integer)
Try
Dim execute = String.Format("EXEC [dbo].[PRPMO_DOC_CREATE_NEW_DOC] {0},{1},'{2}'", DOC_ID, RECORD_ID, USER_USERNAME)
If ClassDatabase.Execute_non_Query(execute) = True Then
If MYDB_ECM.ExecuteNonQuery(execute) = True Then
If LICENSE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then
execute = String.Format("EXEC [dbo].[PRPROXY_DOC_CREATE_NEW_DOC] {0},{1},'{2}'", DOC_ID, RECORD_ID, USER_USERNAME)
ClassDatabase.Execute_non_Query(execute, True)
MYDB_ECM.ExecuteNonQuery(execute)
End If
Return True
Else
@@ -536,7 +537,7 @@ Public Class ClassDOC_SEARCH
MsgBox("No Record selected - Please select one!", MsgBoxStyle.Exclamation)
Return False
End If
LOGGER.Debug("#### SETTING RIGHTS FOR FILE ######", False)
LOGGER.Debug("#### SETTING RIGHTS FOR FILE ######")
If ClassWDRights.Init = True Then
If ClassWDRights.Doc_Renew_Rights(RESULT_DOCID, RESULT_DOC_PATH, DeleteRightsBefore) Then
If ClassWDRights.MSG_RESULT <> "" Then
@@ -554,33 +555,7 @@ Public Class ClassDOC_SEARCH
MsgBox("Could not initialize right-module - Check the log!", MsgBoxStyle.Exclamation)
Return False
End If
'DD_Rights.clsLogger.Init(Application.UserAppDataPath() & "\Log", USER_USERNAME)
'If DD_Rights.clsDatabase.Init(MyConnectionString) = 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.File_DeleteAndSetRight(RESULT_DOCID, RESULT_DOC_PATH, True) Then
' If DD_Rights.ClassRights.MSG_RESULT <> "" Then
' Dim msg = "Achtung: einige Rechte konnten nicht gesetzt werden: " & vbNewLine & DD_Rights.ClassRights.MSG_RESULT
' If USER_LANGUAGE <> "de-DE" Then
' msg = "Attention: some rights could not be set: " & vbNewLine & DD_Rights.ClassRights.MSG_RESULT
' End If
' MsgBox(msg, MsgBoxStyle.Exclamation)
' Return True
' Else
' Return True
' End If
' Else
' Return False
' End If
' Else
' Return False
' End If
' Else
' Return False
' End If
'Else
' Return False
'End If
Catch ex As Exception
MsgBox("Unexpected Error in SET_WD_RIGHTS: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Return False
@@ -594,8 +569,11 @@ Public Class ClassDOC_SEARCH
''' <remarks></remarks>
Public Shared Function Get_File_Rights(DOC_ID As Integer)
Try
If DOC_ID = 0 Then
Return "R"
End If
Dim sql = String.Format("SELECT dwAccessRight FROM VWPMO_WD_OBJECT_RIGHTS WHERE dwObjectID = {0} and dwUserOrGroupID = {1}", DOC_ID, USERID_FK_INT_ECM)
Dim result = clsDatabase.Execute_Scalar(sql, True)
Dim result = MYDB_ECM.GetScalarValue(sql)
If IsNothing(result) Or IsDBNull(result) Then
Return Nothing
End If

498
app/DD-Record-Organizer/Classes/ClassDatabase.vb
View File

@@ -1,498 +0,0 @@
Imports Oracle.ManagedDataAccess.Client
Imports System.Data.Odbc
Imports System.Data.SqlClient
Public Class ClassDatabase
Private Shared connectionString As String
Public Shared Function Init()
Try
connectionString = MyConnectionString
Dim SQLconnect As New SqlClient.SqlConnection
SQLconnect.ConnectionString = connectionString
SQLconnect.Open()
SQLconnect.Close()
Return True
Catch ex As Exception
LOGGER.Warn("Error in DatabaseInit: " & ex.Message)
Return False
End Try
End Function
Public Shared Function GetConnectionString(id As Integer)
Dim connectionString As String = ""
Try
'Me.TBCONNECTIONTableAdapter.FillByID(Me.DD_DMSLiteDataSet.TBCONNECTION, id)
Dim DTConnection As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBDD_CONNECTION WHERE GUID = " & id, True)
If DTConnection.Rows.Count = 1 Then
Select Case DTConnection.Rows(0).Item("SQL_PROVIDER")
Case "MS-SQL"
If DTConnection.Rows(0).Item("USERNAME") = "WINAUTH" Then
connectionString = "Server=" & DTConnection.Rows(0).Item("SERVER") & ";Database=" & DTConnection.Rows(0).Item("DATENBANK") & ";Trusted_Connection=True;"
Else
connectionString = "Server=" & DTConnection.Rows(0).Item("SERVER") & ";Database=" & DTConnection.Rows(0).Item("DATENBANK") & ";User Id=" & DTConnection.Rows(0).Item("USERNAME") & ";Password=" & DTConnection.Rows(0).Item("USERNAME") & ";Password=" & DTConnection.Rows(0).Item("PASSWORD") & ";"
End If
' connectionString = "Server=" & DTConnection.Rows(0).Item("SERVER") & ";Database=" & DTConnection.Rows(0).Item("DATENBANK") & ";User Id=" & DTConnection.Rows(0).Item("USERNAME") & ";Password=" & DTConnection.Rows(0).Item("PASSWORD") & ";"
Case "MS-SQLServer"
If DTConnection.Rows(0).Item("USERNAME") = "WINAUTH" Then
connectionString = "Server=" & DTConnection.Rows(0).Item("SERVER") & ";Database=" & DTConnection.Rows(0).Item("DATENBANK") & ";Trusted_Connection=True;"
Else
connectionString = "Server=" & DTConnection.Rows(0).Item("SERVER") & ";Database=" & DTConnection.Rows(0).Item("DATENBANK") & ";User Id=" & DTConnection.Rows(0).Item("USERNAME") & ";Password=" & DTConnection.Rows(0).Item("USERNAME") & ";Password=" & DTConnection.Rows(0).Item("PASSWORD") & ";"
End If
Case "Oracle"
If DTConnection.Rows(0).Item("BEMERKUNG").ToString.Contains("without tnsnames") Then
connectionString = "Data Source=(DESCRIPTION=(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=" & DTConnection.Rows(0).Item("SERVER") & ")(PORT=1521)))(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME=" &
DTConnection.Rows(0).Item("DATENBANK") & ")));User Id=" & DTConnection.Rows(0).Item("USERNAME") & ";Password=" & DTConnection.Rows(0).Item("PASSWORD") & ";"
Else
connectionString = "Data Source=" & DTConnection.Rows(0).Item("SERVER") & ";Persist Security Info=True;User Id=" & DTConnection.Rows(0).Item("USERNAME") & ";Password=" & DTConnection.Rows(0).Item("PASSWORD") & ";Unicode=True"
End If
Case "ODBC"
Dim conn As New OdbcConnection("dsn=" & DTConnection.Rows(0).Item("SERVER") & ";uid=" & DTConnection.Rows(0).Item("USERNAME") & ";pwd=" + DTConnection.Rows(0).Item("PASSWORD"))
connectionString = conn.ConnectionString
Case Else
LOGGER.Warn("ConnectionType nicht integriert")
MsgBox("ConnectionType nicht integriert", MsgBoxStyle.Critical, "Bitte Konfiguration Connection überprüfen!")
End Select
Else
LOGGER.Warn(" No entry for Connection-ID: " & id.ToString)
End If
Catch ex As Exception
LOGGER.Warn(" - Error in bei GetConnectionString - Fehler: " & vbNewLine & ex.Message)
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in GetConnectionString:")
End Try
Return connectionString
End Function
Public Shared Function Return_Datatable(Select_anweisung As String, Optional USE_PROXY As Boolean = False)
Try
Dim sw As New SW("Return_Datatable: " & Select_anweisung)
Dim SQLconnect As New SqlClient.SqlConnection
Dim SQLcommand As SqlClient.SqlCommand
If USE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then
SQLconnect.ConnectionString = ClassProxy.MyPROXYConnectionString
Else
SQLconnect.ConnectionString = connectionString
End If
LOGGER.Debug("Return_Datatable-Return_Datatable_CS: '" & Select_anweisung & "'")
If USE_PROXY = False Then
Console.WriteLine(Select_anweisung)
End If
SQLconnect.Open()
SQLcommand = SQLconnect.CreateCommand
SQLcommand.CommandText = Select_anweisung
SQLcommand.CommandTimeout = 360
Dim adapter1 As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(SQLcommand)
Dim dt As DataTable = New DataTable()
adapter1.Fill(dt)
SQLconnect.Close()
sw.Done()
Return dt
Catch ex As Exception
MsgBox("Error in Return_Datatable: " & ex.Message & vbNewLine & vbNewLine & Select_anweisung, MsgBoxStyle.Critical)
' ClassHelper.InsertEssential_Log(CURRENT_RECORD_ID, "RECORD-ID", ex.Message & " - SQL: " & Select_anweisung)
LOGGER.Warn("Error in Return_Datatable: " & ex.Message)
LOGGER.Warn("SQL: " & Select_anweisung)
If (ex.Message.Contains("Ungültiger Objektname") Or ex.Message.Contains("Invalid Object Name")) And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then
MsgBox("A database-object could not be found but synchronization of Proxyserver might be in action! So please try again in a few seconds/minutes!", MsgBoxStyle.Exclamation)
End If
Return Nothing
End Try
End Function
Public Shared Function MSSQL_ReturnDTWithConnection(connectionId As Integer, sql As String)
Try
Dim regex As New System.Text.RegularExpressions.Regex("(@(\d+)@)")
Dim match As System.Text.RegularExpressions.Match = regex.Match(sql)
If match.Success Then
'Return Nothing
End If
Dim connectionString As String
connectionString = ClassDatabase.GetConnectionString(connectionId)
If connectionString <> "" Then
Dim SQLconnect As New SqlClient.SqlConnection
Dim SQLcommand As SqlClient.SqlCommand
SQLconnect.ConnectionString = connectionString
SQLconnect.Open()
SQLcommand = SQLconnect.CreateCommand
LOGGER.Debug("MSSQL_ReturnDTWithConnection-Return_Datatable_CS: '" & sql & "'")
SQLcommand.CommandText = sql
Dim adapter1 As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(SQLcommand)
Dim dt As DataTable = New DataTable()
adapter1.Fill(dt)
SQLconnect.Close()
Return dt
Else
MsgBox("No Connection received for ID: " & connectionId.ToString, MsgBoxStyle.Exclamation)
Return Nothing
End If
Catch ex As Exception
LOGGER.Warn("Unexpected Error in MSSQL_ReturnDTWithConnection: " & vbNewLine & ex.Message & vbNewLine & vbNewLine & sql)
MsgBox("Unexpected Error in MSSQL_ReturnDTWithConnection:" & vbNewLine & ex.Message & vbNewLine & vbNewLine & sql, MsgBoxStyle.Critical)
Return Nothing
End Try
End Function
Public Shared Function Return_Datatable_CS(Select_anweisung As String, ConString As String, Optional userInput As Boolean = False)
Try
Dim sw As New SW("Return_Datatable_CS: " & Select_anweisung)
Dim SQLconnect As New SqlClient.SqlConnection
Dim SQLcommand As SqlClient.SqlCommand
SQLconnect.ConnectionString = ConString
SQLconnect.Open()
SQLcommand = SQLconnect.CreateCommand
SQLcommand.CommandText = Select_anweisung
LOGGER.Debug("Return_Datatable_Connection-Return_Datatable_CS: '" & Select_anweisung & "'")
Dim adapter1 As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(SQLcommand)
Dim dt As DataTable = New DataTable()
adapter1.Fill(dt)
SQLconnect.Close()
sw.Done()
Return dt
Catch ex As Exception
If userInput = True Then
MsgBox("Error in Return_Datatable_CS - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & Select_anweisung, MsgBoxStyle.Critical)
End If
LOGGER.Warn("Error in Return_Datatable_CS: " & ex.Message)
LOGGER.Warn("#SQL: " & Select_anweisung)
Return Nothing
End Try
End Function
Public Shared Function Return_Datatable_Connection(Select_anweisung As String, connectionId As Integer, Optional userInput As Boolean = False)
Try
Dim sw As New SW("Return_Datatable_Connection: " & Select_anweisung)
Dim connectionString As String
connectionString = ClassDatabase.GetConnectionString(connectionId)
If connectionString <> "" Then
Dim SQLconnect As New SqlClient.SqlConnection
Dim SQLcommand As SqlClient.SqlCommand
SQLconnect.ConnectionString = connectionString
SQLconnect.Open()
SQLcommand = SQLconnect.CreateCommand
SQLcommand.CommandText = Select_anweisung
LOGGER.Debug("Return_Datatable_Connection-Command: '" & Select_anweisung & "'")
Dim adapter1 As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(SQLcommand)
Dim dt As DataTable = New DataTable()
adapter1.Fill(dt)
SQLconnect.Close()
sw.Done()
Return dt
Else
Return Nothing
End If
Catch ex As Exception
If userInput = True Then
MsgBox("Error in Return_Datatable_Connection - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & Select_anweisung, MsgBoxStyle.Critical)
End If
LOGGER.Warn("Error in Return_Datatable_Connection: " & ex.Message)
LOGGER.Warn("#SQL: " & Select_anweisung)
Return Nothing
End Try
End Function
Public Shared Function Execute_non_Query(ExecuteCMD As String, Optional USE_PROXY As Boolean = False)
Try
Dim sw As New SW("Execute_non_Query: " & ExecuteCMD)
Dim SQLconnect As New SqlClient.SqlConnection
Dim SQLcommand As SqlClient.SqlCommand
If USE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then
SQLconnect.ConnectionString = ClassProxy.MyPROXYConnectionString
Else
SQLconnect.ConnectionString = connectionString
End If
SQLconnect.Open()
SQLcommand = SQLconnect.CreateCommand
LOGGER.Debug("Execute_non_Query-Command: '" & ExecuteCMD & "'")
'Update Last Created Record in Foo
SQLcommand.CommandText = ExecuteCMD
SQLcommand.CommandTimeout = 120
SQLcommand.ExecuteNonQuery()
SQLcommand.Dispose()
SQLconnect.Close()
sw.Done()
Return True
Catch ex As Exception
'If Userinput = True Then
' MsgBox("Error in Execute_non_Query: " & ex.Message & vbNewLine & vbNewLine & ExecuteCMD, MsgBoxStyle.Critical)
'End If
LOGGER.Warn("Error in Execute_non_Query: " & ex.Message)
LOGGER.Warn("SQL: " & ExecuteCMD)
Return False
End Try
End Function
Public Shared Function Execute_non_Query_withConn(ExecuteCMD As String, ConnID As Integer)
Try
Dim sw As New SW("Execute_non_Query_withConn: " & ExecuteCMD)
Dim connectionString As String
connectionString = ClassDatabase.GetConnectionString(ConnID)
If connectionString <> "" Then
Dim SQLconnect As New SqlClient.SqlConnection
Dim SQLcommand As SqlClient.SqlCommand
SQLconnect.ConnectionString = connectionString
SQLconnect.Open()
SQLcommand = SQLconnect.CreateCommand
'Update Last Created Record in Foo
SQLcommand.CommandText = ExecuteCMD
LOGGER.Debug("Execute_non_Query_withConn-Command: '" & ExecuteCMD & "'")
SQLcommand.CommandTimeout = 120
SQLcommand.ExecuteNonQuery()
SQLcommand.Dispose()
SQLconnect.Close()
sw.Done()
Return True
Else
MsgBox("No ConnectionID for Conn-ID: " & ConnID.ToString, MsgBoxStyle.Exclamation)
Return Nothing
End If
Catch ex As Exception
LOGGER.Warn("Error in Execute_non_Query_withConn: " & ex.Message)
LOGGER.Warn("SQL: " & ExecuteCMD)
Return False
End Try
End Function
Public Shared Function Execute_non_Query_withConnString(ExecuteCMD As String, theconnstring As String)
Try
Dim sw As New SW("Execute_non_Query_withConnString: " & ExecuteCMD)
Dim SQLconnect As New SqlClient.SqlConnection
Dim SQLcommand As SqlClient.SqlCommand
SQLconnect.ConnectionString = theconnstring
SQLconnect.Open()
SQLcommand = SQLconnect.CreateCommand
'Update Last Created Record in Foo
SQLcommand.CommandText = ExecuteCMD
LOGGER.Debug("Execute_non_Query_withConnString-Command: '" & ExecuteCMD & "'")
SQLcommand.CommandTimeout = 120
SQLcommand.ExecuteNonQuery()
SQLcommand.Dispose()
SQLconnect.Close()
sw.Done()
Return True
Catch ex As Exception
LOGGER.Warn("Error in Execute_non_Query_withConnString: " & ex.Message)
LOGGER.Warn("SQL: " & ExecuteCMD)
Return False
End Try
End Function
'TODO: Asynchrone Abfrage möglich machen
Public Shared Sub Execute_non_Query_Async(ExecuteCMD As String, Optional Userinput As Boolean = False)
Dim SQLconnect As New SqlClient.SqlConnection
Dim SQLcommand As SqlClient.SqlCommand
Dim callback As New AsyncCallback(AddressOf Execute_non_Query_Async_Callback)
Try
SQLconnect.ConnectionString = connectionString
SQLconnect.Open()
SQLcommand = SQLconnect.CreateCommand()
'Update Last Created Record in Foo
SQLcommand.CommandText = ExecuteCMD
SQLcommand.CommandTimeout = 120
LOGGER.Debug("Execute_non_Query_Async-Command: '" & ExecuteCMD & "'")
SQLcommand.BeginExecuteNonQuery(callback, SQLcommand)
Catch ex As Exception
If Userinput = True Then
MsgBox("Error in Execute_non_Query_Async: " & ex.Message & vbNewLine & vbNewLine & ExecuteCMD, MsgBoxStyle.Critical)
End If
LOGGER.Warn("Error in Execute_non_Query_Async: " & ex.Message)
LOGGER.Warn("SQL: " & ExecuteCMD)
Finally
SQLcommand.Dispose()
SQLconnect.Close()
End Try
End Sub
Private Shared Sub Execute_non_Query_Async_Callback(ByVal result As IAsyncResult)
Dim command As SqlClient.SqlCommand = CType(result.AsyncState, SqlClient.SqlCommand)
Dim res = command.EndExecuteNonQuery(result)
LOGGER.Warn(String.Format("Finished executing Async database operation: {0}", command.CommandText))
End Sub
Public Shared Function Execute_Scalar(cmdscalar As String, Optional USE_PROXY As Boolean = False)
Dim result
Try
Dim sw As New SW("Execute_Scalar: " & cmdscalar)
Dim SQLconnect As New SqlClient.SqlConnection
Dim SQLcommand As SqlClient.SqlCommand
If USE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED 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()
SQLcommand = SQLconnect.CreateCommand
'Update Last Created Record in Foo
SQLcommand.CommandText = cmdscalar
SQLcommand.CommandTimeout = 120
LOGGER.Debug("Execute_Scalar-Command: '" & cmdscalar & "'")
result = SQLcommand.ExecuteScalar()
SQLcommand.Dispose()
SQLconnect.Close()
sw.Done()
Return result
Catch ex As Exception
'If Userinput = True Then
' MsgBox("Error in Execute_Scalar: " & ex.Message & vbNewLine & vbNewLine & cmdscalar, MsgBoxStyle.Critical)
'End If
LOGGER.Warn("Error in Execute_Scalar: " & ex.Message)
LOGGER.Warn("SQL: " & cmdscalar)
Return Nothing
End Try
End Function
Public Shared Function Execute_ScalarWithConnection(connectionId As Integer, cmdscalar As String)
Dim result
Try
Dim connectionString As String
connectionString = ClassDatabase.GetConnectionString(connectionId)
If connectionString <> "" Then
Dim SQLconnect As New SqlClient.SqlConnection
Dim SQLcommand As SqlClient.SqlCommand
SQLconnect.ConnectionString = connectionString
SQLconnect.Open()
SQLcommand = SQLconnect.CreateCommand
'Update Last Created Record in Foo
SQLcommand.CommandText = cmdscalar
SQLcommand.CommandTimeout = 120
result = SQLcommand.ExecuteScalar()
SQLcommand.Dispose()
SQLconnect.Close()
Return result
Else
MsgBox("No Connection for ID: " & connectionId & " - ExecuteScalar: " & cmdscalar, MsgBoxStyle.Exclamation)
LOGGER.Warn("No Connection for ID: " & connectionId & " - ExecuteScalar: " & cmdscalar)
Return Nothing
End If
Catch ex As Exception
LOGGER.Warn("Error in Execute_ScalarWithConnection: " & ex.Message)
LOGGER.Warn("SQL: " & cmdscalar)
Return Nothing
End Try
End Function
Public Shared Function Execute_ScalarWithConnectionString(connectionString As String, cmdscalar As String)
Dim result
Try
Dim SQLconnect As New SqlClient.SqlConnection
Dim SQLcommand As SqlClient.SqlCommand
SQLconnect.ConnectionString = connectionString
SQLconnect.Open()
SQLcommand = SQLconnect.CreateCommand
'Update Last Created Record in Foo
SQLcommand.CommandText = cmdscalar
SQLcommand.CommandTimeout = 120
result = SQLcommand.ExecuteScalar()
SQLcommand.Dispose()
SQLconnect.Close()
Return result
Catch ex As Exception
LOGGER.Warn("Error in Execute_ScalarWithConnectionString: " & ex.Message)
LOGGER.Warn("SQL: " & cmdscalar)
Return Nothing
End Try
End Function
Public Shared Function OracleExecute_Scalar(cmdscalar As String, OracleConnection As String)
Dim result
Try
Dim SQLconnect As New OracleConnection
Dim SQLcommand As New OracleCommand
SQLconnect.ConnectionString = OracleConnection
SQLconnect.Open()
SQLcommand = SQLconnect.CreateCommand
'Update Last Created Record in Foo
SQLcommand.CommandText = cmdscalar
result = SQLcommand.ExecuteScalar()
SQLcommand.Dispose()
SQLconnect.Close()
Return result
Catch ex As Exception
LOGGER.Warn("Error in OracleExecute_Scalar: " & ex.Message)
LOGGER.Warn("#SQL: " & cmdscalar)
Return Nothing
End Try
End Function
Public Shared Function OracleExecute_non_Query(ExecuteCMD As String, OracleConnection As String, Optional userInput As Boolean = False)
Try
Dim SQLconnect As New OracleConnection
Dim SQLcommand As OracleCommand
SQLconnect.ConnectionString = OracleConnection
SQLconnect.Open()
SQLcommand = SQLconnect.CreateCommand
'Update Last Created Record in Foo
SQLcommand.CommandText = ExecuteCMD
SQLcommand.ExecuteNonQuery()
SQLcommand.Dispose()
SQLconnect.Close()
Return True
Catch ex As Exception
If userInput = True Then
MsgBox("Error in OracleExecute_non_Query - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & ExecuteCMD, MsgBoxStyle.Critical)
End If
LOGGER.Warn("Error in OracleExecute_non_Query: " & ex.Message)
LOGGER.Warn("#SQL: " & ExecuteCMD)
Return False
End Try
End Function
Public Shared Function Oracle_Return_Datatable(Select_anweisung As String, OracleConnection As String, Optional userInput As Boolean = False)
Try
Dim SQLconnect As New OracleConnection
Dim SQLcommand As OracleCommand
SQLconnect.ConnectionString = OracleConnection
SQLconnect.Open()
SQLcommand = SQLconnect.CreateCommand
SQLcommand.CommandText = Select_anweisung
Dim adapter1 As OracleDataAdapter = New OracleDataAdapter(SQLcommand)
Dim dt As DataTable = New DataTable()
adapter1.Fill(dt)
SQLconnect.Close()
Return dt
Catch ex As Exception
If userInput = True Then
MsgBox("Error in Oracle Return Datatable - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & Select_anweisung, MsgBoxStyle.Critical)
End If
LOGGER.Warn("Error in Oracle_Return_Datatable: " & ex.Message)
LOGGER.Warn("#SQL: " & Select_anweisung)
Return Nothing
End Try
End Function
End Class

2
app/DD-Record-Organizer/Classes/ClassDragDrop.vb
View File

@@ -9,7 +9,7 @@ Public Class ClassDragDrop
files_dropped = Nothing
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, True)
MYDB_ECM.ExecuteNonQuery(sql)
If e.Data.GetDataPresent(DataFormats.FileDrop) Then

2
app/DD-Record-Organizer/Classes/ClassEmail.vb
View File

@@ -87,7 +87,7 @@ Public Class ClassEmail
'*Send the message */
emailClient.Send(message)
'Logger.Warn("Support/Log Email erfolgreich an " & _mailempfaenger & " versendet!", False)
'Logger.Warn("Support/Log Email erfolgreich an " & _mailempfaenger & " versendet!")
Next
Return True
Catch ex As Exception

34
app/DD-Record-Organizer/Classes/ClassFileResult.vb
View File

@@ -10,9 +10,9 @@
Else
upd = String.Format("UPDATE TBPMO_DOCRESULT_LIST SET Change_DateTime = GETDATE(), IN_WORK = {0}, IN_WORK_USER = '{1}', IN_WORK_COMMENT = '{2}' WHERE DocID = {3}", state, USER_USERNAME, comment, DocID)
End If
If ClassDatabase.Execute_non_Query(upd) = True Then
If MYDB_ECM.ExecuteNonQuery(upd) = True Then
If LICENSE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then
ClassDatabase.Execute_non_Query(upd, True)
MYDB_ECM.ExecuteNonQuery(upd)
End If
InWork = True
Return True
@@ -28,9 +28,9 @@
Try
Dim upd As String
upd = String.Format("UPDATE TBPMO_DOCRESULT_LIST SET DISPLAY_NAME = '{0}',Change_DateTime = GETDATE() WHERE DocID = {1}", Displayname, DocID)
If ClassDatabase.Execute_non_Query(upd) = True Then
If MYDB_ECM.ExecuteNonQuery(upd) = True Then
If LICENSE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then
ClassDatabase.Execute_non_Query(upd, True)
MYDB_ECM.ExecuteNonQuery(upd)
End If
Return True
Else
@@ -44,8 +44,8 @@
Public Shared Function GET_DATATABLE_INDICES_PMO()
Try
Dim sql = String.Format("SELECT * FROM TBPMO_INDEX_MAN WHERE ACTIVE = 1 AND ENTITY_ID = (SELECT CASE REDUNDANT_ENTITY WHEN 0 THEN GUID ELSE REDUNDANT_ENTITY END AS ENTITY_ID FROM TBPMO_FORM WHERE GUID = {0}) AND DOCTYPE_ID = {1}", CURRENT_ENTITY_ID, CURRENT_DOKARTID)
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql, True)
LOGGER.Debug("GET_DATATABLE_INDICES_PMO: " & sql, False)
Dim DT As DataTable = MYDB_ECM.GetDatatable(sql)
LOGGER.Debug("GET_DATATABLE_INDICES_PMO: " & sql)
CURRENT_TBPMO_INDEX_MAN = DT
Return True
Catch ex As Exception
@@ -61,7 +61,7 @@
If row.Item("MAN_VALUE") <> String.Empty Then
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)
MYDB_ECM.ExecuteNonQuery(insert)
End If
Next
@@ -75,7 +75,7 @@
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)
Return MYDB_ECM.ExecuteNonQuery(delete)
Catch ex As Exception
LOGGER.Warn("Unexpected Error in Update_Doc_Indices: " & ex.Message)
Return False
@@ -84,10 +84,10 @@
Public Shared Function Delete_ResultFile(RESULT_DOC_ID, RECORD_ID, DELETE_FILE)
Try
Dim proc = String.Format("EXEC PRPMO_DELETE_RESULTFILE {0},{1},{2}", RESULT_DOC_ID, RECORD_ID, DELETE_FILE)
If ClassDatabase.Execute_non_Query(proc) = True Then
If MYDB_ECM.ExecuteNonQuery(proc) = True Then
If LICENSE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then
proc = String.Format("EXEC PRPROXY_DOC_CHECK_DELETE {0}", RESULT_DOC_ID)
ClassDatabase.Execute_non_Query(proc, True)
MYDB_ECM.ExecuteNonQuery(proc)
End If
Return True
Else
@@ -102,14 +102,14 @@
Public Shared Function CheckWrite_IndexeMan(grbxControls As GroupBox)
'#### Zuerst manuelle Werte indexieren ####
Try
LOGGER.Debug(" >>In CheckWrite_IndexeMan", False)
LOGGER.Debug(" >>In CheckWrite_IndexeMan")
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)
Dim optional_index = ClassMoreMetadata.Return_CURRENT_TBPMO_INDEX_MAN_VALUE(box.Tag, "OPTIONAL")
If Not IsNothing(optional_index) Then
If CBool(optional_index) = False Then
MsgBox("Please insert a value!", MsgBoxStyle.Exclamation, "Missing input:")
@@ -125,7 +125,7 @@
End If
Else
'If Indexwert_checkValueDB(Replace(box.Name, "txt", ""), box.Text) = False Then
' Logger.Warn(" - Der eingegebene Wert wurde nicht in der Datenbank gefunden", False)
' Logger.Warn(" - Der eingegebene Wert wurde nicht in der Datenbank gefunden")
' MsgBox("Der eingegebene Wert wurde nicht in der Datenbank gefunden!", MsgBoxStyle.Exclamation, "Fehlerhafte Indexierung:")
' box.Focus()
' Return False
@@ -145,10 +145,10 @@
For Each row As DataRow In CURRENT_TBPMO_INDEX_MAN.Rows
If row.Item("GUID") = btn.Tag Then
If Not IsDBNull(row.Item("MAN_VALUE")) Then
LOGGER.Debug("we got a value for folder...", False)
LOGGER.Debug("we got a value for folder...")
result = True
Else
LOGGER.Debug("value for folder is missing...", False)
LOGGER.Debug("value for folder is missing...")
MsgBox("Please choose a folder!", MsgBoxStyle.Exclamation, "Missing input:")
Return False
End If
@@ -157,7 +157,7 @@
Next
Else
LOGGER.Debug("value for folder is OPTIONAL...", False)
LOGGER.Debug("value for folder is OPTIONAL...")
SET_CURRENT_TBPMO_INDEX_MAN_VALUE(btn.Tag, "")
result = True
End If
@@ -167,7 +167,7 @@
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)
Dim optional_index = ClassMoreMetadata.Return_CURRENT_TBPMO_INDEX_MAN_VALUE(cmb.Tag, "OPTIONAL")
If Not IsNothing(optional_index) Then
If CBool(optional_index) = False Then
MsgBox("Please choose a value!", MsgBoxStyle.Exclamation, "Missing input:")

14
app/DD-Record-Organizer/Classes/ClassFolderWatcher.vb
View File

@@ -1,7 +1,7 @@
Imports System.IO
Imports Independentsoft
Imports System.Threading
Imports DD_LIB_Standards
Public Class ClassFolderWatcher
Public Shared FolderWatcher_SCAN As FileSystemWatcher
@@ -103,7 +103,7 @@ Public Class ClassFolderWatcher
Dim check As String
Try
check = "SELECT COUNT(*) FROM TBPMO_FILES_USER WHERE UPPER(FILENAME2WORK) = UPPER('" & Filename & "') AND WORKED = 0"
Dim result = ClassDatabase.Execute_Scalar(check, True)
Dim result = MYDB_ECM.GetScalarValue(check)
Return result
Catch ex As Exception
MsgBox("Error in FileExistsinDropTable - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & check, MsgBoxStyle.Critical)
@@ -115,7 +115,7 @@ Public Class ClassFolderWatcher
Try
Dim filename_only As String = Path.GetFileName(filename)
Dim ins As String = String.Format("INSERT INTO TBPMO_FILES_USER (FILENAME2WORK, USER_WORK,HANDLE_TYPE,FILENAME_ONLY) VALUES ('{0}','{1}','{2}','{3}')", filename, USER_USERNAME, handleType, filename_only)
Return ClassDatabase.Execute_non_Query(ins, True)
Return MYDB_ECM.ExecuteNonQuery(ins)
Catch ex As Exception
MsgBox("Unexpected Error in Insert Scan-File: " & ex.Message, MsgBoxStyle.Critical)
Return False
@@ -125,7 +125,7 @@ Public Class ClassFolderWatcher
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)
Return MYDB_ECM.ExecuteNonQuery(del)
Catch ex As Exception
MsgBox("Unexpected Error in DELETE_SCAN_File: " & ex.Message, MsgBoxStyle.Critical)
Return False
@@ -134,7 +134,7 @@ Public Class ClassFolderWatcher
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)
Return MYDB_ECM.ExecuteNonQuery(del)
Catch ex As Exception
MsgBox("Unexpected Error in DELETE_SCAN_File_User: " & ex.Message, MsgBoxStyle.Critical)
Return False
@@ -144,13 +144,13 @@ Public Class ClassFolderWatcher
Public Shared Function Check_Scan_Files()
Try
Dim sql 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 = clsDatabase.Return_Datatable(sql, True)
Dim DT As DataTable = MYDB_ECM.GetDatatable(sql)
For Each row As DataRow In DT.Rows
If System.IO.File.Exists(row.Item("FILENAME2WORK")) = False Then
DELETE_SCAN_File(row.Item("FILENAME2WORK"))
End If
Next
CURRENT_SCAN_TABLE = clsDatabase.Return_Datatable(sql, True)
CURRENT_SCAN_TABLE = MYDB_ECM.GetDatatable(sql)
Catch ex As Exception
MsgBox("Unexpected Error in DELETE_SCAN_File_User: " & ex.Message, MsgBoxStyle.Critical)
Return Nothing

14
app/DD-Record-Organizer/Classes/ClassFormCommands.vb
View File

@@ -3,7 +3,7 @@
Public Shared Function LoadForm(guid) As DataTable
Try
Dim SQL As String = "SELECT NAME, LEVEL FROM TBPMO_FORM WHERE GUID = " & guid
Dim DT As DataTable = ClassDatabase.Return_Datatable(SQL, True)
Dim DT As DataTable = MYDB_ECM.GetDatatable(SQL)
If DT.Rows.Count = 1 Then
Return DT
@@ -19,7 +19,7 @@
Public Shared Function LoadFormView(guid) As DataTable
Try
Dim SQL As String = "SELECT FORM_TITLE FROM TBPMO_FORM_VIEW WHERE FORM_ID = " & guid
Dim DT As DataTable = ClassDatabase.Return_Datatable(SQL, True)
Dim DT As DataTable = MYDB_ECM.GetDatatable(SQL)
If DT.Rows.Count = 1 Then
Return DT
@@ -40,7 +40,7 @@
SQL = "UPDATE TBPMO_FORM SET NAME = '" & NAME & "', LEVEL = " & LEVEL & "WHERE GUID = " & guid
If ClassDatabase.Execute_non_Query(SQL) = True Then
If MYDB_ECM.ExecuteNonQuery(Sql) = True Then
Return SaveFormView(guid, form_title, doc_view)
Else
Throw New Exception()
@@ -60,7 +60,7 @@
SQL = "UPDATE TBPMO_FORM_VIEW SET FORM_TITLE = '" & TITLE & "', DOCUMENT_VIEW = " & DOCUMENT_VIEW & " WHERE FORM_ID = " & guid
If ClassDatabase.Execute_non_Query(SQL) = True Then
If MYDB_ECM.ExecuteNonQuery(Sql) = True Then
Return True
Else
Throw New Exception()
@@ -75,10 +75,10 @@
Public Shared Function DeleteFormView(guid)
Try
Dim SQL As String = "DELETE FROM TBPMO_WD_FORMVIEW_DOKTYPES WHERE FORMVIEW_ID in (SELECT GUID FROM TBPMO_FORM_VIEW WHERE FORM_ID = " & guid & ")"
If ClassDatabase.Execute_non_Query(SQL) = False Then Return False
If MYDB_ECM.ExecuteNonQuery(Sql) = False Then Return False
SQL = "DELETE FROM TBPMO_FORM_VIEW WHERE FORM_ID = " & guid
If ClassDatabase.Execute_non_Query(SQL) = False Then
If MYDB_ECM.ExecuteNonQuery(Sql) = False Then
Return False
Else
Return True
@@ -93,7 +93,7 @@
Try
Dim SQL As String = "SELECT GUID FROM TBPMO_CONTROL WHERE FORM_ID = " & guid
Dim dt As DataTable = ClassDatabase.Return_Datatable(SQL)
Dim dt As DataTable = MYDB_ECM.GetDatatable(SQL)
If dt.Rows.Count > 0 Then
For Each row As DataRow In dt.Rows
Dim controlid As Integer = row.Item(0)

12
app/DD-Record-Organizer/Classes/ClassFunctionCommands.vb
View File

@@ -2,7 +2,7 @@
'Public Shared Function InsertFunction(ControlId As Integer)
' Try
' Dim SQL As String = "INSERT INTO TBPMO_FUNCTION_ADD_APPOINTMENT(CONTROL_ID) VALUES (" & ControlId & ")"
' ClassDatabase.Execute_non_Query(SQL)
' MYDB_ECM.ExecuteNonQuery(Sql)
' Return True
' Catch ex As Exception
' MsgBox("Fehler beim Anlegen der KalenderFunktion:" & vbNewLine & ex.Message)
@@ -13,7 +13,7 @@
Public Shared Function InsertFunction(ControlId As Integer, Method As String)
Try
Dim SQL As String = "INSERT INTO TBPMO_FUNCTION_GENERAL (CONTROL_ID, METHOD) VALUES (" & ControlId & ", '" & Method & "')"
ClassDatabase.Execute_non_Query(SQL)
MYDB_ECM.ExecuteNonQuery(Sql)
Return True
Catch ex As Exception
MsgBox("Fehler beim Anlegen der Funktion " & Method & ":" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
@@ -23,7 +23,7 @@
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
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
If ClassDatabase.Execute_non_Query(SQL) = False Then
If MYDB_ECM.ExecuteNonQuery(Sql) = False Then
Throw New Exception("Datenbankfehler.")
End If
Return True
@@ -36,7 +36,7 @@
Public Shared Function UpdateAddFormDataFunction(ControlId As Integer, FormId As Integer, ScreenId As Integer)
Try
Dim SQL As String = "UPDATE TBPMO_FUNCTION_GENERAL SET INTEGER1 = " & FormId & ", INTEGER2 = " & ScreenId & " WHERE CONTROL_ID = " & ControlId
If ClassDatabase.Execute_non_Query(SQL) = False Then
If MYDB_ECM.ExecuteNonQuery(Sql) = False Then
Throw New Exception("Datenbankfehler.")
End If
Return True
@@ -49,7 +49,7 @@
Public Shared Function LoadFunction(ControlId As Integer) As DataRow
Try
Dim SQL As String = "SELECT * FROM TBPMO_FUNCTION_GENERAL WHERE CONTROL_ID = " & ControlId
Dim dt As DataTable = ClassDatabase.Return_Datatable(SQL)
Dim dt As DataTable = MYDB_ECM.GetDatatable(SQL)
If dt.Rows.Count = 1 Then
Return dt.Rows.Item(0)
@@ -65,7 +65,7 @@
Public Shared Function GETCONTROL_ID_FOR_COL_NAME(FORM_ID As Integer, Column_Name As String)
Try
Dim SQL As String = "SELECT GUID FROM TBPMO_CONTROL WHERE FORM_ID = " & FORM_ID & " AND COL_NAME = '" & Column_Name & "'"
Dim result = ClassDatabase.Execute_Scalar(SQL, True)
Dim result = MYDB_ECM.GetScalarValue(SQL)
Return result
Catch ex As Exception
MsgBox("Error in GETCONTROL_ID_FOR_COL_NAME:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)

10
app/DD-Record-Organizer/Classes/ClassFunctionCommandsUI.vb
View File

@@ -9,7 +9,7 @@ Public Class ClassFunctionCommandsUI
reminder.AlertTime = DueDateTime
apt.Reminders.Add(reminder)
Dim Value = ClassDatabase.Execute_Scalar(SQL, True)
Dim Value = MYDB_ECM.GetScalarValue(SQL)
If Value Is Nothing Then
apt.Subject = Subject & " - " & Value.ToString()
Else
@@ -37,7 +37,7 @@ Public Class ClassFunctionCommandsUI
reminder.AlertTime = DueDateTime
apt.Reminders.Add(reminder)
Dim Value = ClassDatabase.Execute_Scalar(SQL, True)
Dim Value = MYDB_ECM.GetScalarValue(SQL)
apt.Subject = Subject & " - " & Value.ToString()
apt.Description = Description
@@ -55,7 +55,7 @@ Public Class ClassFunctionCommandsUI
Dim controlID = GetControlID_for_Name(ControlName, FormID)
Dim SQL = "SELECT UniqueID FROM TBPMO_APPOINTMENTS WHERE CustomField1 = " & RecordID & " AND CustomField2 = " & controlID
Dim result = ClassDatabase.Execute_Scalar(SQL)
Dim result = MYDB_ECM.GetScalarValue(SQL)
If result Is Nothing Then
NewAppointment(ControlName, FormID, RecordID, PanelControls)
@@ -192,8 +192,8 @@ Public Class ClassFunctionCommandsUI
Dim controlID = GetControlID_for_Name(ControlName, FormID)
' Load All appointments first
frmCalendar.TBPMO_RESOURCESTableAdapter.Connection.ConnectionString = MyConnectionString
frmCalendar.TBPMO_APPOINTMENTSTableAdapter.Connection.ConnectionString = MyConnectionString
frmCalendar.TBPMO_RESOURCESTableAdapter.Connection.ConnectionString = MYDB_ECM.CurrentConnectionString
frmCalendar.TBPMO_APPOINTMENTSTableAdapter.Connection.ConnectionString = MYDB_ECM.CurrentConnectionString
frmCalendar.TBPMO_RESOURCESTableAdapter.Fill(frmCalendar.DD_DMSDataSetCalendar.TBPMO_RESOURCES)
frmCalendar.TBPMO_APPOINTMENTSTableAdapter.Fill(frmCalendar.DD_DMSDataSetCalendar.TBPMO_APPOINTMENTS)

49
app/DD-Record-Organizer/Classes/ClassGridFormatter.vb
View File

@@ -219,52 +219,3 @@ Public Class ClassGridFormatter
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
' Logger.Warn("Attention: Format_GridColumns - Could not load converted datatable: " & ex.Message)
' '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)
' Logger.Warn("Error in Format_GridColumns: " & ex.Message)
' Return Nothing
' End Try
'End Function

28
app/DD-Record-Organizer/Classes/ClassHelper.vb
View File

@@ -1,6 +1,5 @@
Imports System.IO
Imports System.Globalization
Imports DD_LIB_Standards
Imports System.ComponentModel
Public Class ClassHelper
@@ -179,7 +178,7 @@ Public Class ClassHelper
Dim EXT = Path.GetExtension(RESULT_DOC_PATH)
EXT = EXT.Replace(".", "")
Dim sql = String.Format("SELECT VIEWER FROM TBPMO_DOC_USER_VIEW WHERE USER_ID = {0} AND FILE_EXTENSION = '{1}'", USER_GUID, EXT)
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
Dim DT As DataTable = MYDB_ECM.GetDatatable(sql)
If DT.Rows.Count = 1 Then
Select Case DT.Rows(0).Item("VIEWER")
Case "DOC_VIEW"
@@ -271,10 +270,10 @@ Public Class ClassHelper
LOGGER.Debug($"Checking oExtension [{oExtension}]...")
If FILE_FORMATS_CHANGE_DURING_EDIT.Contains(oExtension) Then
oSql = $"SELECT dwVersionID FROM VWPMO_DOC_SEARCH WHERE DocID = {BW_DocID}"
Dim odwVersionId = clsDatabase.Execute_Scalar(oSql, False)
Dim odwVersionId = MYDB_ECM.GetScalarValue(oSql)
Dim oInsert = $"INSERT INTO TBPMO_DOC_ID_CHANGED (USER_ID,PROCESS_ID,VERSION_ID,OLD_DOC_ID,DOC_PATH) VALUES ({USER_GUID},'{ProcID.ToString}',{odwVersionId},{BW_DocID},'{BW_DocPath}')"
clsDatabase.Execute_non_Query(oInsert, False)
MYDB_ECM.ExecuteNonQuery(oInsert)
End If
'oMyProcess.WaitForExit()
@@ -316,7 +315,7 @@ Public Class ClassHelper
COMMENT = COMMENT.Replace("'", "")
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 result = clsDatabase.Execute_non_Query(insert, False)
Dim result = MYDB_ECM.ExecuteNonQuery(insert)
Return result
Catch ex As Exception
LOGGER.Warn("Unexpected Error in InsertEssential_Log: " & ex.Message)
@@ -326,7 +325,7 @@ Public Class ClassHelper
Public Shared Function DeleteRecord(SELECTED_RECORD_ID As Integer, Optional Comment As String = "")
Try
Dim DeleteRecordSQL = String.Format("EXEC [dbo].[PRPMO_DELETE_RECORD] {0}, '{1}','{2}'", SELECTED_RECORD_ID, USER_USERNAME, Comment)
Dim result As Boolean = ClassDatabase.Execute_non_Query_withConn(DeleteRecordSQL, 1)
Dim result As Boolean = MYDB_ECM.ExecuteNonQuery(DeleteRecordSQL)
If result = False Then
Dim msg = "Der Datensatz '" & SELECTED_RECORD_ID & "' konnte nicht gelöscht werden. Überprüfen Sie das log"
If USER_LANGUAGE <> "de-DE" Then
@@ -367,7 +366,7 @@ Public Class ClassHelper
sql = sql.Replace("@USERNAME", USER_USERNAME)
sql = sql.Replace("@USER_NAME", USER_USERNAME)
LOGGER.Debug("RIGHT_ONLY_READ_RECORD_DOC SQL: (When true then disable) '" & sql & "'")
Return CBool(ClassDatabase.Execute_Scalar(sql, True))
Return CBool(MYDB_ECM.GetScalarValue(sql))
Catch ex As Exception
LOGGER.Warn("SQL_RIGHT_READ_AND_VIEW_ONLY: " & sql)
Return False
@@ -386,7 +385,7 @@ Public Class ClassHelper
sql = sql.Replace("@USERNAME", USER_USERNAME)
sql = sql.Replace("@USER_NAME", USER_USERNAME)
LOGGER.Debug("RIGHT_ONLY_READ_COC SQL: (When true then disable) '" & sql & "'")
Return CBool(ClassDatabase.Execute_Scalar(sql, True))
Return CBool(MYDB_ECM.GetScalarValue(sql))
Catch ex As Exception
LOGGER.Warn("RIGHT_WINDREAM_FORBIDDEN: " & sql)
Return False
@@ -395,7 +394,7 @@ Public Class ClassHelper
Public Shared Sub Create_USER_FILE_TABLE()
Try
Dim sql = String.Format("SELECT *, CONVERT(BIT,0) AS DELETE_FILE FROM TBPMO_FILES_USER WHERE (UPPER(USER_WORK) = UPPER('{0}')) AND WORKED = 0", USER_USERNAME)
CURRENT_TBPMO_FILES_USER = ClassDatabase.Return_Datatable(sql, True)
CURRENT_TBPMO_FILES_USER = MYDB_ECM.GetDatatable(sql)
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error while creating User_File_Table")
End Try
@@ -403,7 +402,7 @@ Public Class ClassHelper
Public Shared Function DELETE_PMO_FILE_USER(GUID As Integer)
Try
Dim del As String = String.Format("DELETE FROM TBPMO_FILES_USER WHERE GUID = {0}", GUID)
Return ClassDatabase.Execute_non_Query(del, True)
Return MYDB_ECM.ExecuteNonQuery(del)
Catch ex As Exception
MsgBox("Unexpected Error in DELETE_PMO_FILE_USER: " & ex.Message, MsgBoxStyle.Critical)
Return False
@@ -436,4 +435,13 @@ Public Class ClassHelper
End Try
End Function
Public Shared Function GetDocrecordLinks(pRECORDID As Integer)
Try
Dim oSQL = $"SELECT * FROM TBPMO_DOC_RECORD_LINK WHERE RECORD_ID = {pRECORDID}"
CURRENT_DT_TBPMO_DOC_RECORD_LINK = MYDB_ECM.GetDatatable(oSQL)
Catch ex As Exception
LOGGER.Warn("Unexpected Error in GetDocrecordLinks: " & ex.Message)
Return False
End Try
End Function
End Class

37
app/DD-Record-Organizer/Classes/ClassImport_Windream.vb
View File

@@ -8,7 +8,7 @@ Public Class ClassImport_Windream
Try
Dim err As Boolean = False
CURRENT_FILENAME = QuellDatei_Path
Dim DT_DOCTYPE As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBDD_DOKUMENTART WHERE GUID = " & DOCTYPE_ID, True)
Dim DT_DOCTYPE As DataTable = MYDB_ECM.GetDatatable("SELECT * FROM TBDD_DOKUMENTART WHERE GUID = " & DOCTYPE_ID)
If Not IsNothing(DT_DOCTYPE) Then
Dim Targetpath As String = DT_DOCTYPE.Rows(0).Item("ZIEL_PFAD")
Dim Dokart As String = DT_DOCTYPE.Rows(0).Item("BEZEICHNUNG")
@@ -24,9 +24,9 @@ Public Class ClassImport_Windream
Dim streamresult = clsWD_SET.Stream_File(QuellDatei_Path, Targetpath)
If streamresult = True Then
Dim sql As String = String.Format("SELECT DocID FROM VWPMO_DOC_SYNC WHERE UPPER(FULL_FILENAME) = UPPER('{0}') AND CONVERT(DATE,Change_DateTime) = CONVERT(DATE,GETDATE())", CURRENT_FILEIN_WD)
CURRENT_DOC_ID = ClassDatabase.Execute_Scalar(sql)
CURRENT_DOC_ID = MYDB_ECM.GetScalarValue(SQL)
sql = $"SELECT * FROM TBDD_INDEX_AUTOM WHERE DOCTYPE_ID = {DOCTYPE_ID} AND ENTITY_ID = {CURRENT_ENTITY_ID}"
Dim dt As DataTable = ClassDatabase.Return_Datatable(sql)
Dim dt As DataTable = MYDB_ECM.GetDatatable(sql)
Dim indexierung_erfolgreich As Boolean = False
If dt Is Nothing = False Then
If dt.Rows.Count > 0 Then
@@ -57,7 +57,7 @@ Public Class ClassImport_Windream
End If
''den Entity-Key auslesen
'sql = "Select Top 1 * from TBPMO_WD_OBJECTTYPE where Upper(object_type) = Upper('" & clsWindream.MY_WDOBJECTTYPE & "')"
'dt = ClassDatabase.Return_Datatable(sql, True)
'dt = MYDB_ECM.GetDatatable(sql)
'If Not dt Is Nothing Then
' If dt.Rows.Count = 1 Then
' Dim indexname = dt.Rows(0).Item("IDXNAME_ENTITYID").ToString
@@ -108,14 +108,14 @@ Public Class ClassImport_Windream
Try
Dim FILE_DELIMITER, VERSION_DELIMITER, _WDOBJECTTYPE, _NewFileString As String
Dim sql As String = "select VERSION_DELIMITER, FILE_DELIMITER FROM TBDD_MODULES where UPPER(NAME) = UPPER('Global-Indexer')"
Dim DT1 As DataTable = ClassDatabase.Return_Datatable(sql)
Dim DT1 As DataTable = MYDB_ECM.GetDatatable(sql)
FILE_DELIMITER = DT1.Rows(0).Item("FILE_DELIMITER")
VERSION_DELIMITER = DT1.Rows(0).Item("VERSION_DELIMITER")
Dim err As Boolean = False
Dim oWMTARGET_FOLDER As String
Dim oExtension As String = Path.GetExtension(CURRENT_FILENAME)
Dim oDT As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBDD_DOKUMENTART WHERE GUID = " & DocTypeID, True)
Dim oDT As DataTable = MYDB_ECM.GetDatatable("SELECT * FROM TBDD_DOKUMENTART WHERE GUID = " & DocTypeID)
'sql_history_INSERT_INTO = "INSERT INTO TBGI_HISTORY (FILENAME_ORIGINAL,FILENAME_NEW"
'sql_history_Index_Values = ""
Dim AnzahlIndexe As Integer = 1
@@ -125,7 +125,7 @@ Public Class ClassImport_Windream
oWMTARGET_FOLDER = oDT.Rows(0).Item("ZIEL_PFAD")
sql = $"SELECT * FROM TBPMO_WD_FORMVIEW_DOKTYPES WHERE FORMVIEW_ID = {CURRENT_FORMVIEW_ID} AND DOCTYPE_ID = {DocTypeID}"
Dim oDTFW_DOCTYPES As DataTable = ClassDatabase.Return_Datatable(sql)
Dim oDTFW_DOCTYPES As DataTable = MYDB_ECM.GetDatatable(sql)
Dim oDYNAMIC_FOLDER = oDTFW_DOCTYPES.Rows(0).Item("DYNAMIC_FOLDER")
Dim oNAME_CONVENTION = oDTFW_DOCTYPES.Rows(0).Item("NAME_CONVENTION")
Dim oROOTWM_FOLDER
@@ -140,7 +140,7 @@ Public Class ClassImport_Windream
oWMTARGET_FOLDER = oROOTWM_FOLDER
End If
'ClassDatabase.Execute_Scalar(sql)
'MYDB_ECM.GetScalarValue(SQL)
If Not IsDBNull(oDYNAMIC_FOLDER) Then
If oDYNAMIC_FOLDER <> String.Empty Then
If CREATE_FOLDER_INDEX(oDYNAMIC_FOLDER, DocTypeID) = True And CURRENT_VARIABLE_FOLDER <> "" Then
@@ -226,7 +226,6 @@ Public Class ClassImport_Windream
' Regulären Ausdruck zum Auslesen der Indexe definieren
Dim preg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}"
'Namenkonvention laden
'Dim NameConv = ClassDatabase.Execute_Scalar("SELECT TOP 1 NAME_CONVENTION FROM TBPMO_WD_FORMVIEW_DOKTYPES WHERE DOCTYPE_ID = " & DocTypeID & " AND FORMVIEW_ID = " & CURRENT_FORMVIEW_ID, True)
If IsDBNull(oNAME_CONVENTION) Then
LOGGER.Warn("Achtung: Namenskonvention is DBNull")
oNAME_CONVENTION = Path.GetFileNameWithoutExtension(CURRENT_FILENAME)
@@ -268,7 +267,7 @@ Public Class ClassImport_Windream
'Die GUID des AutoIndex auslesen
Dim INDEX_ID = split(1)
If IsNumeric(INDEX_ID) Then
Dim sql_AUTOindexresult = ClassDatabase.Execute_Scalar("SELECT SQL_RESULT FROM TBDD_INDEX_AUTOM WHERE GUID = " & INDEX_ID, True)
Dim sql_AUTOindexresult = MYDB_ECM.GetScalarValue("SELECT SQL_RESULT FROM TBDD_INDEX_AUTOM WHERE GUID = " & INDEX_ID)
If IsNothing(sql_AUTOindexresult) Then
LOGGER.Debug("unexpected: sql_AUTOindexresult is nothing!!")
value = ""
@@ -277,7 +276,7 @@ Public Class ClassImport_Windream
value = ""
Else
sql_AUTOindexresult = sql_AUTOindexresult.ToString.ToUpper.Replace("@RECORD-ID", CURRENT_RECORD_ID)
Dim AUTOindexresult = ClassDatabase.Execute_Scalar(sql_AUTOindexresult, True)
Dim AUTOindexresult = MYDB_ECM.GetScalarValue(sql_AUTOindexresult)
If IsNothing(AUTOindexresult) Then
LOGGER.Warn("ATTENTION: unexpected: AUTOindexresult is nothing!!")
LOGGER.Warn("" & sql_AUTOindexresult)
@@ -310,7 +309,7 @@ Public Class ClassImport_Windream
Dim CONTROLVALUE = ClassControlValues.Get_Control_Value_for_ID(CONTROL_ID, CURRENT_RECORD_ID)
If IsNothing(CONTROLVALUE) Then
Dim checktype = "SELECT CONTROL_TYPE_ID,SQL_COMMAND_1,CONNECTION_ID_1 FROM TBPMO_CONTROL WHERE GUID = " & CONTROL_ID
Dim DTtype As DataTable = ClassDatabase.Return_Datatable(checktype)
Dim DTtype As DataTable = MYDB_ECM.GetDatatable(checktype)
If DTtype.Rows.Count = 1 Then
Dim lblsql = DTtype.Rows(0).Item(1)
lblsql = lblsql.ToString.ToUpper.Replace("@RECORD_ID", CURRENT_RECORD_ID)
@@ -318,7 +317,7 @@ Public Class ClassImport_Windream
lblsql = lblsql.ToString.ToUpper.Replace("@ENTITY-ID", CURRENT_ENTITY_ID)
lblsql = lblsql.ToString.ToUpper.Replace("@ENTITY_ID", CURRENT_ENTITY_ID)
LOGGER.Debug("variable sql will be used for convention")
Dim result = ClassDatabase.Execute_ScalarWithConnection(DTtype.Rows(0).Item(2), lblsql)
Dim result = MYDB_ECM.GetScalarValue(DTtype.Rows(0).Item(2))
If Not IsNothing(result) Then
value = result.ToString
Else
@@ -338,7 +337,7 @@ Public Class ClassImport_Windream
value = ""
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 DT_FORMAT As DataTable = ClassDatabase.Return_Datatable(sql1, True)
Dim DT_FORMAT As DataTable = MYDB_ECM.GetDatatable(sql1)
If Not IsNothing(DT_FORMAT) Then
If DT_FORMAT.Rows.Count > 0 Then
Dim result
@@ -510,7 +509,7 @@ Public Class ClassImport_Windream
Dim INDEX_ID = split(1)
If IsNumeric(INDEX_ID) Then
Dim sql = "SELECT SQL_RESULT FROM TBDD_INDEX_AUTOM WHERE GUID = " & INDEX_ID
Dim sql_command = ClassDatabase.Execute_Scalar(sql)
Dim sql_command = MYDB_ECM.GetScalarValue(SQL)
If IsNothing(sql_command) Then
LOGGER.Warn("unexpected: SQL_RESULT is nothing!!")
LOGGER.Warn("" & sql)
@@ -522,7 +521,7 @@ Public Class ClassImport_Windream
sql_command = sql_command.ToString.ToUpper.Replace("@RECORD_ID", CURRENT_RECORD_ID)
sql_command = sql_command.ToString.ToUpper.Replace("@ENTITY-ID", CURRENT_ENTITY_ID)
sql_command = sql_command.ToString.ToUpper.Replace("@ENTITY_ID", CURRENT_ENTITY_ID)
Dim AUTOindexresult = ClassDatabase.Execute_Scalar(sql_command, True)
Dim AUTOindexresult = MYDB_ECM.GetScalarValue(sql_command)
If IsNothing(AUTOindexresult) Then
LOGGER.Warn("unexpected: AUTOindexresult is nothing!!")
LOGGER.Warn("" & sql_command)
@@ -640,7 +639,7 @@ Public Class ClassImport_Windream
Dim CONTROLVALUE = ClassControlValues.Get_Control_Value_for_ID(CONTROL_ID, CURRENT_RECORD_ID)
If IsNothing(CONTROLVALUE) Then
Dim checktype = "SELECT CONTROL_TYPE_ID,SQL_COMMAND_1,CONNECTION_ID_1 FROM TBPMO_CONTROL WHERE SQL_COMMAND_1 is not null and SQL_COMMAND_1 <> '' AND GUID = " & CONTROL_ID
Dim DTtype As DataTable = ClassDatabase.Return_Datatable(checktype)
Dim DTtype As DataTable = MYDB_ECM.GetDatatable(checktype)
If DTtype.Rows.Count = 1 Then
Dim lblsql = DTtype.Rows(0).Item(1)
lblsql = lblsql.ToString.ToUpper.Replace("@RECORD_ID", CURRENT_RECORD_ID)
@@ -648,7 +647,7 @@ Public Class ClassImport_Windream
lblsql = lblsql.ToString.ToUpper.Replace("@ENTITY-ID", CURRENT_ENTITY_ID)
lblsql = lblsql.ToString.ToUpper.Replace("@ENTITY_ID", CURRENT_ENTITY_ID)
LOGGER.Debug("variable sql will be used for convention")
Dim result = ClassDatabase.Execute_ScalarWithConnection(DTtype.Rows(0).Item(2), lblsql)
Dim result = MYDB_ECM.GetScalarValue(DTtype.Rows(0).Item(2))
If Not IsNothing(result) Then
FolderConvention = FolderConvention.Replace(element.ToString, result.ToString)
Else
@@ -665,7 +664,7 @@ Public Class ClassImport_Windream
LOGGER.Warn("SQL-Command: " & CURRENT_LAST_SQL)
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 DT_FORMAT As DataTable = ClassDatabase.Return_Datatable(sql1, True)
Dim DT_FORMAT As DataTable = MYDB_ECM.GetDatatable(sql1)
If Not IsNothing(DT_FORMAT) Then
If DT_FORMAT.Rows.Count > 0 Then
Dim result

80
app/DD-Record-Organizer/Classes/ClassInit.vb
View File

@@ -3,6 +3,7 @@ Imports System.IO
Imports DD_LIB_Standards
Imports DevExpress.DataAccess.Native
Imports DigitalData.Modules.Config
Imports DigitalData.Modules.Database
Imports DigitalData.Modules.Logging
Public Class ClassInit
@@ -13,10 +14,10 @@ Public Class ClassInit
Try
LOGCONFIG = New LogConfig(LogConfig.PathType.AppData, Nothing, Nothing,
My.Application.Info.CompanyName,
"ADDI")
"OrgFlow")
LOGGER = LOGCONFIG.GetLogger()
LOGGER.Info("## ADDI started - {0}", Now)
LOGGER.Info("## OrgFlow started - {0}", Now)
Try
Dim directory As New IO.DirectoryInfo(Application.LocalUserAppDataPath & "\Log")
@@ -84,7 +85,7 @@ Public Class ClassInit
End Function
Public Shared Function InitDatabase()
Try
Dim dbResult As Boolean
'Dim dbResult As Boolean
MySettings_Load()
@@ -97,10 +98,14 @@ Public Class ClassInit
MyConnectionString = DecryptConnectionString(CONFIG.Config.ConnectionString)
End If
If MyConnectionString <> String.Empty Then
dbResult = clsDatabase.Init(MyConnectionString)
MYDB_ECM = New MSSQLServer(LOGCONFIG, MyConnectionString)
If MYDB_ECM.DBInitialized = False Then
frmConfig_Basic.ShowDialog()
End If
' dbResult = clsDatabase.Init(MyConnectionString)
Else
frmConfig_Basic.ShowDialog()
dbResult = clsDatabase.Init(MyConnectionString)
' dbResult = clsDatabase.Init(MyConnectionString)
End If
If ClassProxy.MyPROXYConnectionString <> String.Empty Then
If clsDatabase.Init(ClassProxy.MyPROXYConnectionString, True) = False Then
@@ -111,15 +116,19 @@ Public Class ClassInit
ClassHelper.InsertEssential_Log(USER_GUID, "USER-ID", String.Format("Proxy-Server {0} - Database {1} is used", csb.DataSource, csb.InitialCatalog))
End If
End If
ClassDatabase.Init()
If dbResult = False Then
If clsLogger.LOGG_MSG <> String.Empty Then
Throw New Exception("Error while Initializing database:" & vbNewLine & clsLogger.LOGG_MSG)
Else
Throw New Exception("Find more information in the logfile.")
End If
If Not IsNothing(MYDB_ECM) Then
If MYDB_ECM.DBInitialized = False Then
If clsLogger.LOGG_MSG <> String.Empty Then
Throw New Exception("Error while Initializing database:" & vbNewLine & clsLogger.LOGG_MSG)
Else
Throw New Exception("Find more information in the logfile.")
End If
End If
Else
Return False
End If
Return True
Catch ex As Exception
MsgBox("Unexpected Error in Init Database:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
@@ -132,7 +141,7 @@ Public Class ClassInit
Try
Dim CurrentDir As String = My.Application.Info.DirectoryPath
Dim AddonPath As String = MY_ADDON_PATH ' ClassDatabase.Execute_Scalar(Sql)
Dim AddonPath As String = MY_ADDON_PATH ' MYDB_ECM.GetScalarValue(SQL)
Dim Dev_AddonPath As String = System.IO.Path.GetFullPath(System.IO.Path.Combine(CurrentDir, "..\..\..\..\app"))
If AddonPath Is Nothing OrElse AddonPath = "" Then
@@ -178,7 +187,7 @@ Public Class ClassInit
End If
Dim sql = String.Format("SELECT * FROM TBPMO_KONFIGURATION WHERE GUID = 1")
Dim KONFIG_DT As DataTable = ClassDatabase.Return_Datatable(sql, False)
Dim KONFIG_DT As DataTable = MYDB_ECM.GetDatatable(sql)
If KONFIG_DT.Rows.Count = 1 Then
Try
MY_WIKISTRING = KONFIG_DT.Rows(0).Item("WIKI_STRING")
@@ -192,30 +201,32 @@ Public Class ClassInit
WMPATH_PREFIX = KONFIG_DT.Rows(0).Item("WMPATH_PREFIX")
If Not WMPATH_PREFIX.ToUpper.StartsWith("\\WINDREAM\OBJECTS") Then
SHARE_DRIVE_ACTIVE = True
LOGGER.Info("WM SHARE_DRIVE via TBPMO_KONFIGURATION is active")
End If
End If
sql = "SELECT * FROM TBDD_SQL_COMMANDS"
Dim oDTSQL_COMMANDS As DataTable = ClassDatabase.Return_Datatable(sql, True)
Dim oDTSQL_COMMANDS As DataTable = MYDB_ECM.GetDatatable(sql)
For Each oRow As DataRow In oDTSQL_COMMANDS.Rows
If oRow.Item("TITLE") = "ADDI_DOC_SEARCH_RECORD" Then
SQL_DOC_RESULT_RECORD = oRow.Item("SQL_COMMAND")
LOGGER.Debug("SQL_DOC_RESULT_RECORD = " + SQL_DOC_RESULT_RECORD)
End If
Next
sql = "SELECT * FROM TBPMO_CONTROL"
CURRENT_TBPMO_CONTROL = ClassDatabase.Return_Datatable(sql, True)
CURRENT_TBPMO_CONTROL = MYDB_ECM.GetDatatable(sql)
sql = String.Format("SELECT * FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE VISIBLE = 1")
CURRENT_RESULTLIST_CONFIG = ClassDatabase.Return_Datatable(sql, True)
DT_DOCSEARCH_RESULTLIST_CONFIG = MYDB_ECM.GetDatatable(sql)
sql = String.Format("SELECT * FROM TBPMO_DOCSEARCH_VARIABLE_CONTROLS")
CURRENT_VARIABLE_CONTROLS = ClassDatabase.Return_Datatable(sql, True)
CURRENT_VARIABLE_CONTROLS = MYDB_ECM.GetDatatable(sql)
sql = String.Format("SELECT * FROM TBPMO_FORM_VIEW")
CURRENT_TBPMO_FORM_VIEW = ClassDatabase.Return_Datatable(sql, True)
CURRENT_TBPMO_FORM_VIEW = MYDB_ECM.GetDatatable(sql)
sql = String.Format("select T.*, T1.HEADER_CAPTION,T1.TYPE_ID ,T1.ENTITY_ID,T1.LANGUAGE from TBPMO_DOCRESULT_DROPDOWN_ITEMS T, TBPMO_DOCSEARCH_RESULTLIST_CONFIG T1 WHERE T.CONFIG_ID = T1.GUID")
CURRENT_TBPMO_DOCRESULT_DROPDOWN_ITEMS = ClassDatabase.Return_Datatable(sql, True)
CURRENT_TBPMO_DOCRESULT_DROPDOWN_ITEMS = MYDB_ECM.GetDatatable(sql)
clsCURRENT.LOG_ERRORS_ONLY = DEBUG
sql = String.Format("select* from TBPMO_FILE_FORMATS_CHANGE")
Dim oDTFF_CHANGE As DataTable = ClassDatabase.Return_Datatable(sql, True)
Dim oDTFF_CHANGE As DataTable = MYDB_ECM.GetDatatable(sql)
For Each oRow As DataRow In oDTFF_CHANGE.Rows
FILE_FORMATS_CHANGE_DURING_EDIT.Add(oRow.Item("FILE_EXT"))
Next
@@ -231,7 +242,7 @@ Public Class ClassInit
Dim sql = String.Format("SELECT T1.GUID, T.DESCRIPTION, T.SQL_CONNECTION, T.SQL_CONNECTION_PROXY, T.WM_ALIAS,T1.ACTIVE FROM " &
"TBPMO_CLIENT_CONNECTION_SWITCH T, TBPMO_CLIENT_CONN_SWITCH_USER T1 WHERE T.GUID = T1.CONN_SWITCH_ID " &
"And T.ACTIVE = 1 And T1.USER_ID = {0}", USER_GUID)
CURRENT_TBPMO_CONN_SWITCH = ClassDatabase.Return_Datatable(sql)
CURRENT_TBPMO_CONN_SWITCH = MYDB_ECM.GetDatatable(sql)
Catch ex As Exception
LOGGER.Warn("Unexpected Error in Init_CONN_SWITCH: " & ex.Message)
End Try
@@ -250,7 +261,7 @@ Public Class ClassInit
WHERE (USERNAME = '{0}') AND T2.SHORT_NAME = 'ADDI'", USER_USERNAME)
LOGGER.Info("Login at: " & Now.ToString)
LOGGER.Info("Username: " & USER_USERNAME)
Dim USER_DT As DataTable = ClassDatabase.Return_Datatable(sql, True)
Dim USER_DT As DataTable = MYDB_ECM.GetDatatable(sql)
If USER_DT.Rows.Count = 0 Then
LOGGER.Warn(" - User '" & USER_USERNAME & "' not listed in Useradministration!")
@@ -280,7 +291,7 @@ WHERE (USERNAME = '{0}') AND T2.SHORT_NAME = 'ADDI'", USER_USERNAME)
If Right_RO = False Then
LOGGER.Warn("User '" & USER_USERNAME & "' not authorized for using Record-Organizer!")
LOGGER.Warn("User '" & USER_USERNAME & "' not authorized for using OrgFlow!")
'MsgBox("Achtung: Sie sind nicht für die Nutzung dieses Moduls freigeschaltet." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
Dim msg = String.Format("Sie sind nicht für die Nutzung dieses Moduls freigeschaltet." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!")
@@ -292,12 +303,11 @@ WHERE (USERNAME = '{0}') AND T2.SHORT_NAME = 'ADDI'", USER_USERNAME)
'Me.Close()
Else
sql = String.Format("select * from TBPMO_RIGHT_USER WHERE USER_ID = " & USER_GUID)
CURRENT_TBPMO_RIGHT_USER = ClassDatabase.Return_Datatable(sql, True)
CURRENT_TBPMO_RIGHT_USER = MYDB_ECM.GetDatatable(sql)
Init_CONN_SWITCH()
'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, False)
DT_CLIENT_USER = MYDB_ECM.GetDatatable("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)
If DT_CLIENT_USER.Rows.Count > 1 Then
frmClientLogin.ShowDialog()
ElseIf DT_CLIENT_USER.Rows.Count = 1 Then
@@ -317,9 +327,9 @@ WHERE (USERNAME = '{0}') AND T2.SHORT_NAME = 'ADDI'", USER_USERNAME)
ClassLicence.Refresh_Licence(CLIENT_SELECTED)
'Am System anmelden
'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)
MYDB_ECM.ExecuteNonQuery(sql)
sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_GUID & " AND UPPER(MODULE)= UPPER('Record-Organizer')"
If ClassDatabase.Execute_non_Query(sql) = True Then
If MYDB_ECM.ExecuteNonQuery(sql) = True Then
End If
Dim ConStringMain As String
@@ -329,7 +339,7 @@ WHERE (USERNAME = '{0}') AND T2.SHORT_NAME = 'ADDI'", USER_USERNAME)
ConStringMain = "Main: " & MyConnectionString
End If
sql = String.Format("INSERT INTO TBDD_USER_MODULE_LOG_IN (USER_ID,CLIENT_ID,MODULE,VERSION_CLIENT,MACHINE_NAME,CONNECTION_STRING) VALUES ({0},{1},'Record-Organizer','{2}','{3}','{4}')", USER_GUID, CLIENT_SELECTED, My.Application.Info.Version.ToString, Environment.MachineName, ConStringMain)
ClassDatabase.Execute_non_Query(sql)
MYDB_ECM.ExecuteNonQuery(sql)
USER_IS_ADMIN = USER_DT.Rows(0).Item("IS_ADMIN") 'vorher RECORD_ADMIN
If USER_IS_ADMIN = True Then
@@ -361,7 +371,7 @@ WHERE (USERNAME = '{0}') AND T2.SHORT_NAME = 'ADDI'", USER_USERNAME)
If clsWindream.Create_Session = False Then
LOGGER.Warn("Could not create the login for windream - No session created!")
ClassHelper.MSGBOX_Handler("ERROR", "windream-login Error:", "Could not create the login/session!", "ADDI will start anyway but be aware that searching and importing won't be possible!")
ClassHelper.MSGBOX_Handler("ERROR", "windream-login Error:", "Could not create the login/session!", "OrgFlow will start anyway but be aware that searching and importing won't be possible!")
End If
End If
@@ -372,7 +382,7 @@ WHERE (USERNAME = '{0}') AND T2.SHORT_NAME = 'ADDI'", USER_USERNAME)
End Try
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, False)
Dim anzahl = MYDB_ECM.GetScalarValue(sql)
USERS_LOGGED_IN = CInt(anzahl)
LOGGER.Info("User# logged in: " & anzahl.ToString)
LOGGER.Info("LICENSE_COUNT: " & LICENSE_COUNT.ToString)
@@ -390,7 +400,7 @@ WHERE (USERNAME = '{0}') AND T2.SHORT_NAME = 'ADDI'", USER_USERNAME)
If USER_IS_ADMIN = False Then
'Anmeldung wieder herausnehmen
sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_GUID & " AND MODULE= 'Record-Organizer'"
ClassDatabase.Execute_non_Query(sql)
MYDB_ECM.ExecuteNonQuery(sql)
LOGGER.Warn(" - logged out the user")
Return False
End If
@@ -398,7 +408,7 @@ WHERE (USERNAME = '{0}') AND T2.SHORT_NAME = 'ADDI'", USER_USERNAME)
Try
'Die FolderWatch starten
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, False)
Dim folderwatch_SCAN = MYDB_ECM.GetScalarValue(sql1)
If Not folderwatch_SCAN Is Nothing Then
CURRENT_SCAN_FOLDERWATCH = folderwatch_SCAN
@@ -416,7 +426,7 @@ WHERE (USERNAME = '{0}') AND T2.SHORT_NAME = 'ADDI'", USER_USERNAME)
SQL_FULLTEXT = "SELECT DISTINCT [dwDocID] FROM [dbo].FullText WHERE CONTAINS([Text], '""*@FULLTEXT*""') "
End If
Dim oSQL = $"SELECT COUNT(GU.GUID) FROM TBDD_GROUPS_USER GU INNER JOIN TBDD_GROUPS G ON GU.GROUP_ID = G.GUID WHERE G.NAME = 'ORGFLOW-Supervisor' AND GU.USER_ID = {USER_GUID}"
USER_IS_SUPERVISOR = ClassDatabase.Execute_Scalar(oSQL, False)
USER_IS_SUPERVISOR = MYDB_ECM.GetScalarValue(oSQL)
Return True
'LabelLoggedIn.Caption = "Anzahl Angemeldete User: " & anzahl.ToString
End If

3
app/DD-Record-Organizer/Classes/ClassJumpRecord.vb
View File

@@ -45,8 +45,7 @@ Public Class ClassJumpRecord
Public Shared Sub JumpToRecord(STATE_ID As Integer, recordId As Integer)
Try
'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), True)
Dim recordIdExists As Boolean = MYDB_ECM.GetScalarValue(String.Format("SELECT GUID FROM TBPMO_RECORD WHERE GUID = {0}", recordId))
'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")

4
app/DD-Record-Organizer/Classes/ClassLicence.vb
View File

@@ -11,7 +11,7 @@ Public Class ClassLicence
_lizenzManager = New ClassLicenseManager("#DigitalData35452!#", "")
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, False)
Dim lic As String = MYDB_ECM.GetScalarValue(sql)
If lic = "" Then
LICENSE_COUNT = 0
LICENSE_DATE = "1900-01-01"
@@ -56,7 +56,7 @@ Public Class ClassLicence
End If
sql = String.Format("SELECT NAME, VALID_DATE, '' AS State FROM TBDD_LICENSE_ADD_ON WHERE CLIENT_ID = {0} AND MODULE = 'Record-Organizer'", CLIENT_ID)
DT_LICENSE_ADDONS = ClassDatabase.Return_Datatable(sql)
DT_LICENSE_ADDONS = MYDB_ECM.GetDatatable(sql)
For Each license_Row As DataRow In DT_LICENSE_ADDONS.Rows
Dim expired As Boolean = False
LOGGER.Debug("AddOnName: " & license_Row.Item("NAME"))

20
app/DD-Record-Organizer/Classes/ClassNodeNavigation.vb
View File

@@ -9,7 +9,7 @@ Public Class ClassNodeNavigation
Public Shared Function CreateNodeProcedure(RECORD_ID As Integer, NODE_CONFIG_ID As Integer, NODE_CAPTION As String, NODE_ID1 As String, NODE_PARENT_ID As String, ADDED_WHO As String)
Try
Dim connection As New SqlConnection
connection.ConnectionString = MyConnectionString
connection.ConnectionString = MYDB_ECM.CurrentConnectionString
Using cmd As New SqlCommand("PRPMO_CREATE_NODE", connection)
cmd.CommandType = CommandType.StoredProcedure
@@ -96,14 +96,14 @@ Public Class ClassNodeNavigation
Dim NODE_ID
Dim NODE_CONFIG_ID
Dim staticListItems = myTreeNode.Tag.Split("#")
'LOGGER.Debug($"SUB CNCID.myTreeNode.Tag [{myTreeNode.Tag.ToString}]", False)
If staticListItems(0).Contains("NODE-TYPE") Or staticListItems(0).Contains("CONFIG_NODE") Then
' NODE_ID = staticListItems(0).ToString.Replace("NODE-TYPE-", "")
NODE_ID = Return_NODEID_forTag(myTreeNode.Tag)
NODE_CONFIG_ID = Return_NODE_CONFIG_ID_forTag(myTreeNode.Tag)
' LOGGER.Debug($"SUB CNCID.Checking nodeconfig on NODE_ID [{NODE_ID.ToString}] and NODE_CONFIG_ID [{NODE_CONFIG_ID.ToString}]", False)
Else
LOGGER.Debug($"Attention no NODE-TYPE in staticListItems(0) [{staticListItems(0).ToString}]", False)
LOGGER.Debug($"Attention no NODE-TYPE in staticListItems(0) [{staticListItems(0).ToString}]")
End If
If NODE_CONFIGURABLE_NODES_DT.Rows.Count > 0 And IsNumeric(NODE_ID) Then
'Prüfen ob es für dieses Level einen konfigurierbaren Knoten gibt
@@ -127,25 +127,19 @@ Public Class ClassNodeNavigation
If Not IsNothing(ID) Then
'LOGGER.Debug($"SUB CNCID.We have a NODE_CONFIGURABLE_ID [{ID.ToString}]!!", False)
ClassNodeNavigation.NODE_CONFIGURABLE_ID = ID
CURRENT_NODE_CONFIGURABLE_ID = ID
Else
'LOGGER.Debug($"SUB CNCID.NODE_CONFIGURABLE_ID is nothing!!", False)
' LOGGER.Debug("CURRENT_NODE_CONFIGURABLE_ID would be nothing...", False)
CURRENT_NODE_CONFIGURABLE_ID = 0
End If
Else
'If IsNumeric(NODE_ID) = False Then
' ' LOGGER.Debug("SUB CNCID.NODE_ID is not numeric", False)
'Else
' LOGGER.Debug("SUB CNCID.NO NODE_CONFIGURABLE_NODES_DT", False)
'End If
CURRENT_NODE_CONFIGURABLE_ID = 0
End If
Catch ex As Exception
LOGGER.Debug("SUB CNCID.CURRENT_NODE_CONFIGURABLE_ID would be nothing(1)...", False)
LOGGER.Debug("SUB CNCID.CURRENT_NODE_CONFIGURABLE_ID would be nothing(1)...")
ClassNodeNavigation.NODE_CONFIGURABLE_ID = 0
CURRENT_NODE_CONFIGURABLE_ID = 0
End Try

18
app/DD-Record-Organizer/Classes/ClassOfficeTemplate.vb
View File

@@ -3,9 +3,9 @@ Public Class ClassOfficeTemplate
Public Shared Function Open_Word_Template(Template_ID As Integer, Record_ID As Integer)
Try
Dim sql_Template As String = "SELECT * FROM VWPMO_TEMPLATE_ENTITY WHERE TEMPLATE_ID = " & Template_ID
Dim DT_TEMPLATE As System.Data.DataTable = ClassDatabase.Return_Datatable(sql_Template)
Dim DT_TEMPLATE As System.Data.DataTable = MYDB_ECM.GetDatatable(sql_Template)
Dim sql_patterns As String = String.Format("select * from TBPMO_TEMPLATE_PATTERN where TEMPLATE_ENT_ID = (SELECT GUID FROM TBPMO_TEMPLATE_ENTITY WHERE ENTITY_ID = {0} AND TEMPLATE_ID = {1})", CURRENT_ENTITY_ID, Template_ID)
Dim DT_PATTERNS As System.Data.DataTable = ClassDatabase.Return_Datatable(sql_patterns)
Dim DT_PATTERNS As System.Data.DataTable = MYDB_ECM.GetDatatable(sql_patterns)
If IsNothing(DT_PATTERNS) Then
MsgBox("Keine Patterns für diese Vorlage definiert. Bitte prüfen Sie die Konfiguration!", MsgBoxStyle.Critical)
@@ -13,7 +13,7 @@ Public Class ClassOfficeTemplate
End If
Dim Original_Vorlage As String = DT_TEMPLATE.Rows(0).Item("TEMPLATE_PATH")
Dim DOCTYPE_ID As Integer = ClassDatabase.Execute_Scalar("SELECT DOCTYPE_ID FROM TBPMO_TEMPLATE WHERE GUID = " & Template_ID, True)
Dim DOCTYPE_ID As Integer = MYDB_ECM.GetScalarValue("SELECT DOCTYPE_ID FROM TBPMO_TEMPLATE WHERE GUID = " & Template_ID)
If System.IO.File.Exists(Original_Vorlage) = False Then
MsgBox("Achtung: die Vorlage " & vbNewLine & Original_Vorlage & vbNewLine & "existiert nicht!", MsgBoxStyle.Critical)
@@ -41,7 +41,7 @@ Public Class ClassOfficeTemplate
' word.Visible = (True) 'Word sichtbar
For Each cc In doc.ContentControls
LOGGER.Debug("Office-Pattern: " & cc.Tag, False)
LOGGER.Debug("Office-Pattern: " & cc.Tag)
For Each patternrow As System.Data.DataRow In DT_PATTERNS.Rows
If patternrow.Item("NAME_PATTERN").ToString.ToUpper = cc.Tag.ToString.ToUpper Then
If Not IsDBNull(patternrow.Item("FIXED_VALUE")) Then
@@ -53,8 +53,8 @@ Public Class ClassOfficeTemplate
Dim Control_ID = fvalue '.Replace("@CONTROLID:", "")
Try
If CInt(Control_ID) Then
LOGGER.Debug("Get Value for Control-ID: " & Control_ID.ToString, False)
Dim value_akt = ClassDatabase.Execute_Scalar("SELECT VALUE FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = " & Control_ID & " AND RECORD_ID = " & Record_ID)
LOGGER.Debug("Get Value for Control-ID: " & Control_ID.ToString)
Dim value_akt = MYDB_ECM.GetScalarValue("SELECT VALUE FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = " & Control_ID & " AND RECORD_ID = " & Record_ID)
If Not IsNothing(value_akt) Then
cc.Range.Text = value_akt.ToString
Else
@@ -64,11 +64,7 @@ Public Class ClassOfficeTemplate
Catch ex As Exception
LOGGER.Warn("Unerwarteter Fehler beim Auslesen eines Control-Wertes in Pattern-For: " & ex.Message)
End Try
'End If
'Else
' LOGGER.Debug("Pattern wird mit festem Wert '" & patternrow.Item("FIXED_VALUE") & "' gefüllt!", False)
' cc.Range.Text = patternrow.Item("FIXED_VALUE").ToString
'End If
End If
Else 'Kein Fixed Value, also wohl eher sql-result
If Not IsDBNull(patternrow.Item("CONNECTION_ID")) Then

6
app/DD-Record-Organizer/Classes/ClassPosGrid.vb
View File

@@ -31,7 +31,7 @@ Public Class ClassPosGrid
Dim DT As DataTable
Try
DT = ClassDatabase.Return_Datatable(sqlCommand)
DT = MYDB_ECM.GetDatatable(sqlCommand)
Catch ex As Exception
LOGGER.Warn("Error in FormatComboColumn: " & ex.Message)
Exit Sub
@@ -52,7 +52,7 @@ Public Class ClassPosGrid
End Sub
Private Shared Sub FormatTextColumn(grid As GridView, column As GridColumn, controlId As Integer)
Dim format As String = ClassDatabase.Execute_Scalar("SELECT FORMAT_TYPE FROM TBPMO_CONTROL WHERE GUID = " & controlId)
Dim format As String = MYDB_ECM.GetScalarValue("SELECT FORMAT_TYPE FROM TBPMO_CONTROL WHERE GUID = " & controlId)
If IsNothing(format) Then
Exit Sub
@@ -69,7 +69,7 @@ Public Class ClassPosGrid
Shared Sub FormatColumns(grid As GridView, formId As Integer)
' Dim SQL As String = String.Format("SELECT CONTROL_ID, CONTROL_COL_NAME, CTRLTYPE_ID, CONTROL_SQLCOMMAND_1 AS CONTROL_SQL, CONTROL_STATIC_LIST, CONTROL_SHOW_COLUMN FROM VWPMO_CONTROL_SCREEN WHERE CTRLTYPE_ID IN (3,4,10,11) AND FORM_ID = {0}", formId)
Dim Expression As String = String.Format("CTRLTYPE_ID IN (3,4,10,11) AND FORM_ID = {0}", formId)
Dim DT As DataTable = ClassHelper.FILTER_DATATABLE(DT_VWPMO_CONTROL_SCREEN, Expression, "") 'ClassDatabase.Return_Datatable(SQL)
Dim DT As DataTable = ClassHelper.FILTER_DATATABLE(DT_VWPMO_CONTROL_SCREEN, Expression, "")
Dim dateEdit As New RepositoryItemDateEdit()
Dim comboEdit As New RepositoryItemComboBox()

24
app/DD-Record-Organizer/Classes/ClassProxy.vb
View File

@@ -9,7 +9,7 @@ Public Class ClassProxy
Dim sel = "DECLARE @return_value int" & vbNewLine &
"EXEC @return_value = [dbo].[PRPROXY_SYNC_OBJECTS]" & vbNewLine &
"SELECT 'Return Value' = @return_value"
Dim Result As DataTable = ClassDatabase.Return_Datatable(sel, True)
Dim Result As DataTable = MYDB_ECM.GetDatatable(sel)
If Not IsNothing(Result) Then
If Result.Rows(0).Item(0) = 0 Then
Return True
@@ -27,7 +27,7 @@ Public Class ClassProxy
Dim sel = "DECLARE @return_value int" & vbNewLine &
"EXEC @return_value = [dbo].[PRPROXY_SYNC_DOC_OBJECTS]" & vbNewLine &
"SELECT 'Return Value' = @return_value"
Dim Result As DataTable = ClassDatabase.Return_Datatable(sel, True)
Dim Result As DataTable = MYDB_ECM.GetDatatable(sel)
If Not IsNothing(Result) Then
If Result.Rows(0).Item(0) = 0 Then
Return True
@@ -45,7 +45,7 @@ Public Class ClassProxy
Dim sel = String.Format("DECLARE @return_value int" & vbNewLine &
"EXEC @return_value = [dbo].[PRPROXY_RECORD_DEL] {0},{1} " & vbNewLine &
"SELECT 'Return Value' = @return_value", RECID, ENTITY_ID)
Dim Result As DataTable = ClassDatabase.Return_Datatable(sel, True)
Dim Result As DataTable = MYDB_ECM.GetDatatable(sel)
If Not IsNothing(Result) Then
If Result.Rows(0).Item(0) = 0 Then
Return True
@@ -63,7 +63,7 @@ Public Class ClassProxy
Dim sel = String.Format("DECLARE @return_value int" & vbNewLine &
"EXEC @return_value = [dbo].[PRPROXY_RECORD_UPD_INS] {0},{1} " & vbNewLine &
"SELECT 'Return Value' = @return_value", ENT_ID, RECID)
Dim Result As DataTable = ClassDatabase.Return_Datatable(sel, True)
Dim Result As DataTable = MYDB_ECM.GetDatatable(sel)
If Not IsNothing(Result) Then
If Result.Rows(0).Item(0) = 0 Then
Return True
@@ -81,7 +81,7 @@ Public Class ClassProxy
Dim sel = String.Format("DECLARE @return_value int" & vbNewLine &
"EXEC @return_value = [dbo].[PRPROXY_RECORD_CONNECT] {0},{1} " & vbNewLine &
"SELECT 'Return Value' = @return_value", PARENT_RECID, RECID)
Dim Result As DataTable = ClassDatabase.Return_Datatable(sel, True)
Dim Result As DataTable = MYDB_ECM.GetDatatable(sel)
If Not IsNothing(Result) Then
If Result.Rows(0).Item(0) = 0 Then
Return True
@@ -99,7 +99,7 @@ Public Class ClassProxy
Dim sel = String.Format("DECLARE @return_value int" & vbNewLine &
"EXEC @return_value = [dbo].[PRPROXY_CONTROL_DEL] {0},{1},{2}" & vbNewLine &
"SELECT 'Return Value' = @return_value", REC_ID, ENT_ID, CONTROL_ID)
Dim Result As DataTable = ClassDatabase.Return_Datatable(sel, True)
Dim Result As DataTable = MYDB_ECM.GetDatatable(sel)
If Not IsNothing(Result) Then
If Result.Rows(0).Item(0) = 0 Then
Return True
@@ -117,7 +117,7 @@ Public Class ClassProxy
Dim sel = "DECLARE @return_value int" & vbNewLine &
"EXEC @return_value = [dbo].[PRPROXY_SYNC_WORKFLOWS]" & vbNewLine &
"SELECT 'Return Value' = @return_value"
Dim Result As DataTable = ClassDatabase.Return_Datatable(sel, True)
Dim Result As DataTable = MYDB_ECM.GetDatatable(sel)
If Not IsNothing(Result) Then
If Result.Rows(0).Item(0) = 0 Then
Return True
@@ -135,7 +135,7 @@ Public Class ClassProxy
Dim sel = "DECLARE @return_value int" & vbNewLine &
"EXEC @return_value = [dbo].[PRPROXY_SYNC_DETAIL_OBJECT] '" & Objectname & "'" & vbNewLine &
"SELECT 'Return Value' = @return_value"
Dim Result As DataTable = ClassDatabase.Return_Datatable(sel, True)
Dim Result As DataTable = MYDB_ECM.GetDatatable(sel)
If Not IsNothing(Result) Then
If Result.Rows(0).Item(0) = 0 Then
Return True
@@ -153,7 +153,7 @@ Public Class ClassProxy
Dim sel = String.Format("DECLARE @return_value int" & vbNewLine &
"EXEC @return_value = [dbo].[PRPROXY_CONTROL_VALUE_UPD_INS] {0},{1},{2},'{3}','{4}'" & vbNewLine &
"SELECT 'Return Value' = @return_value", EntityID, ControlID, RecordID, Value, USER_USERNAME)
Dim Result As DataTable = ClassDatabase.Return_Datatable(sel, True)
Dim Result As DataTable = MYDB_ECM.GetDatatable(sel)
If Not IsNothing(Result) Then
If Result.Rows(0).Item(0) = 0 Then
Return True
@@ -171,7 +171,7 @@ Public Class ClassProxy
Dim sel = String.Format("DECLARE @return_value int" & vbNewLine &
"EXEC @return_value = [dbo].[PRPROXY_CONTROL_VALUE_RENEW] {0}" & vbNewLine &
"SELECT 'Return Value' = @return_value", RecordID)
Dim Result As DataTable = ClassDatabase.Return_Datatable(sel, True)
Dim Result As DataTable = MYDB_ECM.GetDatatable(sel)
If Not IsNothing(Result) Then
If Result.Rows(0).Item(0) = 0 Then
Return True
@@ -188,7 +188,7 @@ Public Class ClassProxy
End If
Dim sql = "SELECT SYNC_RUNNING FROM TBPROXY_CONFIG WHERE GUID = 1"
Dim BUSY
BUSY = clsDatabase.Execute_Scalar(sql, True)
BUSY = MYDB_ECM.GetScalarValue(sql)
If IsNothing(BUSY) Then
Return True
Else
@@ -202,7 +202,7 @@ Public Class ClassProxy
Dim sel = String.Format("DECLARE @return_value int" & vbNewLine &
"EXEC @return_value = [dbo].[PRPROXY_DOC_VALUES_UPD] {0}, {1} " & vbNewLine &
"SELECT 'Return Value' = @return_value", DocID, RecId)
Dim Result As DataTable = ClassDatabase.Return_Datatable(sel, True)
Dim Result As DataTable = MYDB_ECM.GetDatatable(sel)
If Not IsNothing(Result) Then
If Result.Rows(0).Item(0) = 0 Then
Return True

12
app/DD-Record-Organizer/Classes/ClassRecordCommands.vb
View File

@@ -6,7 +6,7 @@ Public Class ClassRecordCommands
Try
Dim connection As New SqlConnection
connection.ConnectionString = MyConnectionString
connection.ConnectionString = MYDB_ECM.CurrentConnectionString
Using cmd As New SqlCommand("PRPMO_CREATE_RECORD", connection)
@@ -39,22 +39,22 @@ 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)
Return MYDB_ECM.ExecuteNonQuery(Sql)
End Function
Public Shared Function GetLastRecord()
Dim SQL = String.Format("SELECT MAX(GUID) FROM TBPMO_RECORD where PARENT_RECORD = 0 AND FORM_ID = {0} AND UPPER(ADDED_WHO) = UPPER('{1}') AND DELETED = 0", CURRENT_ENTITY_ID, USER_USERNAME)
Return ClassDatabase.Execute_Scalar(SQL)
Return MYDB_ECM.GetScalarValue(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 & "')"
LOGGER.Debug("ConnectRecord SQL: " & SQL, False)
Return ClassDatabase.Execute_non_Query(SQL)
LOGGER.Debug("ConnectRecord SQL: " & SQL)
Return MYDB_ECM.ExecuteNonQuery(Sql)
End Function
Public Shared Function CHECK_RECORD_FINAL(RecordId As Integer, IsInsert As Boolean)
If RecordId = 0 Then Return True
Dim SQL = String.Format("EXEC PRPMO_RECORD_CHECK_INTEGRITY {0},'{1}',{2}", RecordId, Environment.UserName, IsInsert)
Return ClassDatabase.Execute_non_Query(SQL)
Return MYDB_ECM.ExecuteNonQuery(Sql)
End Function
End Class

10
app/DD-Record-Organizer/Classes/ClassRecordState.vb
View File

@@ -7,9 +7,9 @@
End If
Dim SQL As String = String.Format("UPDATE TBPMO_RECORD SET IN_WORK = 1, IN_WORK_WHO = '{0}' WHERE GUID = {1}", USER_USERNAME, RecordId)
If DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then
ClassDatabase.Execute_non_Query(SQL, True)
MYDB_ECM.ExecuteNonQuery(SQL)
End If
ClassDatabase.Execute_non_Query(SQL)
MYDB_ECM.ExecuteNonQuery(Sql)
Catch ex As Exception
MsgBox("Error in LockRecord: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
@@ -26,9 +26,9 @@
End If
Dim SQL As String = String.Format("UPDATE TBPMO_RECORD SET IN_WORK = 0, IN_WORK_WHO = NULL WHERE GUID = {0}", RecordId)
If DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then
ClassDatabase.Execute_non_Query(SQL, True)
MYDB_ECM.ExecuteNonQuery(SQL)
End If
ClassDatabase.Execute_non_Query(SQL)
MYDB_ECM.ExecuteNonQuery(Sql)
Catch ex As Exception
MsgBox("Error in UnlockRecord: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
@@ -37,7 +37,7 @@
Public Shared Function IsRecordLocked(RecordId As Integer) As String
Try
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, True)
Dim dt As DataTable = MYDB_ECM.GetDatatable(sql)
If dt.Rows.Count = 1 Then

12
app/DD-Record-Organizer/Classes/ClassRecordView.vb
View File

@@ -42,7 +42,7 @@ Public Class ClassRecordView
Private Function GetEntityId() As Integer
Dim SQL = String.Format("SELECT FORM_ID FROM TBPMO_RECORD WHERE GUID = {0}", RecordId)
Me.Entity_ID = ClassDatabase.Execute_Scalar(SQL, True)
Me.Entity_ID = MYDB_ECM.GetScalarValue(SQL)
Return Me.Entity_ID
End Function
@@ -151,14 +151,14 @@ Public Class ClassRecordView
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 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, True) 'Get the actual value
Dim controlValue = MYDB_ECM.GetScalarValue(controlSQL) 'Get the actual value
sqlcommand = sqlcommand.Replace(match, controlValue.ToString()) 'Replace the actual value with the placeholder string/match
End If
' Replace Static Placeholders like @RECORD_ID@
sqlcommand = ReplaceStaticPlaceholders(sqlcommand)
sqllist = ClassDatabase.Return_Datatable(sqlcommand)
sqllist = MYDB_ECM.GetDatatable(sqlcommand)
Return sqllist
End Function
@@ -190,7 +190,7 @@ Public Class ClassRecordView
Private Sub LoadControls()
Try
Dim controls As New List(Of Control)
DTControls = ClassDatabase.Return_Datatable(String.Format("SELECT * FROM VWPMO_CONTROL_SCREEN WHERE FORM_ID = {0}", GetEntityId()), True)
DTControls = MYDB_ECM.GetDatatable(String.Format("SELECT * FROM VWPMO_CONTROL_SCREEN WHERE FORM_ID = {0}", GetEntityId()))
For Each row As DataRow In DTControls.Rows
Dim props As ControlProps = MapRowToProps(row)
@@ -255,7 +255,7 @@ Public Class ClassRecordView
Private Sub LoadValues(controlCollection As Control.ControlCollection)
Try
Dim controls As New List(Of Control)
DTValues = ClassDatabase.Return_Datatable(String.Format("SELECT * FROM VWPMO_VALUES WHERE RECORD_ID = {0}", Me.RecordId), True)
DTValues = MYDB_ECM.GetDatatable(String.Format("SELECT * FROM VWPMO_VALUES WHERE RECORD_ID = {0}", Me.RecordId), True)
' ControlCollection in eine List<Of Control> konvertieren
controls = controlCollection.Cast(Of Control)().ToList()
@@ -363,7 +363,7 @@ Public Class ClassRecordView
Dim pb As PictureBox = DirectCast(control, PictureBox)
Dim controlId As Integer = DirectCast(control.Tag, ControlProps).Id
Dim sql = String.Format("SELECT IMG FROM TBPMO_CONTROL_IMAGE WHERE RECORD_ID = {0} AND CONTROL_ID = {1}", Me.RecordId, controlId)
Dim bimg() As Byte = ClassDatabase.Execute_Scalar(sql)
Dim bimg() As Byte = MYDB_ECM.GetScalarValue(SQL)
If Not IsNothing(bimg) Then
Dim img As Bitmap = ByteArrayToBitmap(bimg)

4
app/DD-Record-Organizer/Classes/ClassRightManagement.vb
View File

@@ -35,9 +35,9 @@
If DT_RIGHTS_USER Is Nothing Or DT_RIGHTS_GROUP Is Nothing Then
Dim Sql As String
Sql = String.Format("select * from TBPMO_RIGHT_USER WHERE USER_ID = {0} AND ENTITY_ID = {1}", USER_GUID, ENTITY_ID)
DT_RIGHTS_USER = ClassDatabase.Return_Datatable(Sql, True)
DT_RIGHTS_USER = MYDB_ECM.GetDatatable(sql)
Sql = String.Format("SELECT DISTINCT EDIT_REC,ADD_REC,DELETE_REC,ADD_DOC,VIEW_DOC,DELETE_DOC FROM TBPMO_RIGHT_GROUP WHERE ENTITY_ID = {0} AND GROUP_ID IN (SELECT GROUP_ID FROM TBDD_GROUPS_USER WHERE USER_ID = {1})", ENTITY_ID, USER_GUID)
DT_RIGHTS_GROUP = ClassDatabase.Return_Datatable(Sql, True)
DT_RIGHTS_GROUP = MYDB_ECM.GetDatatable(sql)
End If
'Definition der Rechte erfolgt über UserGroupstable......wenn gefüllt

66
app/DD-Record-Organizer/Classes/ClassSAP.vb
View File

@@ -8,16 +8,16 @@ Public Class ClassSAP
Private Shared NewDatatable As DataTable
Public Shared Function ConnectionInit(Host As String, SysNumber As String, Username As String, PW As String, Client As String, Lang As String)
Try
LOGGER.Debug("", False)
LOGGER.Debug("SAP Connect started:", False)
LOGGER.Debug("")
LOGGER.Debug("SAP Connect started:")
SAPConnectionString = String.Format("USER={0} LANG={1} CLIENT={2} SYSNR={3} ASHOST={4} PASSWD={5}", Username, Lang, Client, SysNumber, Host, PW)
Dim con As New R3Connection()
ERPConnect.LIC.SetLic("W86DWC992C")
LOGGER.Debug("SAP Connectionstring: " & SAPConnectionString, False)
LOGGER.Debug("SAP Connectionstring: " & SAPConnectionString)
con.Open(SAPConnectionString)
SAP_CONNECTION.Open(SAPConnectionString)
LOGGER.Debug("SAP-Connection created!", False)
LOGGER.Debug("", False)
LOGGER.Debug("SAP-Connection created!")
LOGGER.Debug("")
Return True
Catch ex As Exception
MsgBox("Error in SAP ConnectionInit: " & ex.Message, MsgBoxStyle.Critical)
@@ -29,29 +29,29 @@ Public Class ClassSAP
Try
Dim RESULT_TABLE As DataTable = New DataTable
LOGGER.Debug("Get data from FuBa-Function", False)
LOGGER.Debug("Get data from FuBa-Function")
Dim func As RFCFunction
Try
func = SAP_CONNECTION.CreateFunction(FuBaName)
LOGGER.Debug("func.Execute", False)
LOGGER.Debug("func.Execute")
func.Execute()
LOGGER.Debug("function was executed", False)
LOGGER.Debug("function was executed")
Catch ex As Exception
LOGGER.Warn("Unexpected Error in Create SAP Function: " & ex.Message, False)
LOGGER.Warn("Unexpected Error in Create SAP Function: " & ex.Message)
MsgBox("Error in Create SAP Function: " & ex.Message, MsgBoxStyle.Critical)
Return Nothing
End Try
Dim FUNCT_ROW_COUNT As Integer = 1
Dim RowMaskresult As String = ""
Try
LOGGER.Debug("Checking FunctionExecute", False)
LOGGER.Debug("Checking FunctionExecute")
'Den ersten Wert ausgeben lassen um die Spalten zu splitten
For Each row As RFCStructure In func.Tables("T_INDEX").Rows
Try
If row.Item(1).ToString.Contains(SplitCharacter) Then
RowMaskresult = row.Item(1).ToString
LOGGER.Debug("RowMask result: " & RowMaskresult, False)
LOGGER.Debug("RowMask result: " & RowMaskresult)
FUNCT_ROW_COUNT = 2
End If
Catch ex As Exception
@@ -60,7 +60,7 @@ Public Class ClassSAP
If FUNCT_ROW_COUNT = 2 Then Exit For
Next
Catch ex As Exception
LOGGER.Warn("Unexpected Error in Checking FunctionExecute: " & ex.Message, False)
LOGGER.Warn("Unexpected Error in Checking FunctionExecute: " & ex.Message)
MsgBox("Error in Checking FunctionExecute: " & ex.Message, MsgBoxStyle.Critical)
SAP_CONNECTION.Close()
Return Nothing
@@ -69,16 +69,16 @@ Public Class ClassSAP
Dim ColCount As Integer
If SplitCharacter <> "" And RowMaskresult.Contains(SplitCharacter) Then
Try
LOGGER.Debug("Define Datatable with SplitCharacter method", False)
LOGGER.Debug("Define Datatable with SplitCharacter method")
Dim split() = RowMaskresult.Split(SplitCharacter)
If split.Length > 0 Then
ColCount = split.Length - 1
CURRENT_COL_COUNT = ColCount
LOGGER.Debug("ColCount: " & ColCount.ToString, False)
LOGGER.Debug("Split-Results: ", False)
LOGGER.Debug("ColCount: " & ColCount.ToString)
LOGGER.Debug("Split-Results: ")
For Each s As String In split
LOGGER.Debug(" # " & s, False)
LOGGER.Debug(" # " & s)
Next
For x = 0 To ColCount
@@ -90,14 +90,14 @@ Public Class ClassSAP
column.ColumnName = "Column " & x.ToString
RESULT_TABLE.Columns.Add(column)
Next
LOGGER.Debug("Datatable Columns after Split created", False)
LOGGER.Debug("Datatable Columns after Split created")
' Create new DataRow objects and add to DataTable.
'Jetzt die Zeilen der Function durchlaufen
For Each row As RFCStructure In func.Tables("T_INDEX").Rows
Dim new_row As DataRow
If RowLimit <> 0 Then
If RowLimit = FUNCT_ROW_COUNT Then
LOGGER.Debug("RowCount limited to" & RowLimit.ToString & " rows. Exit SAP Function", False)
LOGGER.Debug("RowCount limited to" & RowLimit.ToString & " rows. Exit SAP Function")
Exit For
End If
End If
@@ -114,13 +114,13 @@ Public Class ClassSAP
RESULT_TABLE.Rows.Add(new_row)
End If
Next
LOGGER.Debug("RowCount FuBa: " & RESULT_TABLE.Rows.Count.ToString, False)
LOGGER.Debug("RowCount FuBa: " & RESULT_TABLE.Rows.Count.ToString)
Return RESULT_TABLE
Else
Return Nothing
End If
Catch ex As Exception
LOGGER.Warn("Unexpected Error in Create Datatable with split-method: " & ex.Message, False)
LOGGER.Warn("Unexpected Error in Create Datatable with split-method: " & ex.Message)
MsgBox("Unexpected Error in Create Datatable with split-method: " & ex.Message, MsgBoxStyle.Critical)
SAP_CONNECTION.Close()
Return Nothing
@@ -129,13 +129,13 @@ Public Class ClassSAP
Return Nothing
End If
Catch ex As Exception
LOGGER.Warn("Unexpected Error in Function FuBa_ReturnDatatable Seperated: " & ex.Message, False)
LOGGER.Warn("Unexpected Error in Function FuBa_ReturnDatatable Seperated: " & ex.Message)
MsgBox("Unexpected Error in Function FuBa_ReturnDatatable Seperated: " & ex.Message, MsgBoxStyle.Critical)
Return Nothing
End Try
End Function
Private Shared WithEvents read As New ReadTable(SAPConnectionString)
Private Shared Sub OnIncomingPackage(ByVal Sender As ReadTable, ByVal PackageResult As DataTable) Handles read.IncomingPackage
Private Shared WithEvents oReadTbl As New ReadTable(SAPConnectionString)
Private Shared Sub OnIncomingPackage(ByVal Sender As ReadTable, ByVal PackageResult As DataTable) Handles oReadTbl.IncomingPackage
Try
LOGGER.Debug("Processing data package with " +
PackageResult.Rows.Count.ToString() + " rows")
@@ -165,14 +165,14 @@ Public Class ClassSAP
If RowLimit <> 0 Then
oReadTable.RowCount = RowLimit
End If
LOGGER.Debug("Table.Run executing.....", False)
read = oReadTable
read.Run()
LOGGER.Debug("Table.Run executing.....")
oReadTbl = oReadTable
oReadTbl.Run()
LOGGER.Debug("Table.Run executed", False)
RESULT_TABLE = read.Result
LOGGER.Debug("Table.Run executed")
RESULT_TABLE = oReadTbl.Result
If Not IsNothing(NewDatatable) Then
LOGGER.Debug($"Got [{NewDatatable.Rows.Count}] rows", False)
LOGGER.Debug($"Got [{NewDatatable.Rows.Count}] rows")
End If
SAP_CONNECTION.Close()
@@ -188,7 +188,7 @@ Public Class ClassSAP
Public Shared Function LINK_ARC_OBJECT(table As String, barcode As String, contrep As String, docid As String, ardate As String, doctype As String)
Try
LOGGER.Debug("CREATE_ARC_OBJECT", False)
LOGGER.Debug("CREATE_ARC_OBJECT")
Dim sapfunc As RFCFunction = SAP_CONNECTION.CreateFunction("BAPI_BARCODE_SENDLIST")
'Create and fill the frist row
@@ -213,14 +213,14 @@ Public Class ClassSAP
End If
Catch ex As Exception
LOGGER.Warn("Unexpected Error in SAP Table Result: " & ex.Message, False)
LOGGER.Warn("Unexpected Error in SAP Table Result: " & ex.Message)
MsgBox("Unexpected Error in CREATE_ARC_OBJECT: " & ex.Message, MsgBoxStyle.Critical)
Return ex.Message
End Try
End Function
Public Shared Function INSERT_ARCHIVE_OBJECT(ARCHIV_ID As String, ARC_DOC_ID As String, AR_OBJECT As String, OBJECT_ID As String, SAP_OBJECT As String, DOC_TYPE As String, table As String)
Try
LOGGER.Debug("INSERT_ARCHIVE_OBJECT", False)
LOGGER.Debug("INSERT_ARCHIVE_OBJECT")
Dim sapfunc As RFCFunction = SAP_CONNECTION.CreateFunction("ARCHIV_CONNECTION_INSERT")
'Create and fill the frist row
@@ -250,7 +250,7 @@ Public Class ClassSAP
Return ""
Catch ex As Exception
LOGGER.Warn("Unexpected Error in INSERT_ARCHIVE_OBJECT: " & ex.Message, False)
LOGGER.Warn("Unexpected Error in INSERT_ARCHIVE_OBJECT: " & ex.Message)
MsgBox("Unexpected Error in INSERT_ARCHIVE_OBJECT: " & ex.Message, MsgBoxStyle.Critical)
Return ex.Message
End Try

20
app/DD-Record-Organizer/Classes/ClassSQLEditor.vb
View File

@@ -16,17 +16,17 @@ Public Class ClassSQLEditor
Dim svc As IWindowsFormsEditorService = TryCast(provider.GetService(GetType(IWindowsFormsEditorService)), IWindowsFormsEditorService)
Dim SQLSTring As String = DirectCast(value, SQLValue).Value
If svc IsNot Nothing AndAlso SQLSTring IsNot Nothing Then
Using Form As New frmSQLEditor()
Form.Value = SQLSTring
If svc.ShowDialog(Form) = DialogResult.OK Then
Dim sql As New SQLValue(Form.Value)
value = sql
End If
End Using
End If
'If svc IsNot Nothing AndAlso SQLSTring IsNot Nothing Then
' Using Form As New frmSQLEditor()
' Form.Value = SQLSTring
' If svc.ShowDialog(Form) = DialogResult.OK Then
' Dim sql As New SQLValue(Form.Value)
' value = sql
' End If
' End Using
'End If
Return value
Return ""
End Function
End Class

83
app/DD-Record-Organizer/Classes/ClassUpdate.vb
View File

@@ -1,5 +1,4 @@
Imports System.IO
Imports DD_LIB_Standards
Public Class ClassUpdate
Public Shared MyServer_UpdatePath As String
@@ -26,7 +25,7 @@ Public Class ClassUpdate
Public Shared Function Init()
Try
Dim sql = String.Format("SELECT * FROM TBDD_MODULES WHERE UPPER(NAME) = UPPER('Record-Organizer')")
Dim KONFIG_DT As DataTable = clsDatabase.Return_Datatable(sql, False)
Dim KONFIG_DT As DataTable = MYDB_ECM.GetDatatable(sql)
If KONFIG_DT.Rows.Count = 1 Then
MyServer_UpdatePath = KONFIG_DT.Rows(0).Item("VERSION_UPATE_PATH")
MIN_REQUIRED_VERSION = KONFIG_DT.Rows(0).Item("MIN_REQUIRED_VERSION")
@@ -37,7 +36,7 @@ Public Class ClassUpdate
End Try
End If
sql = String.Format("Select * FROM TBDD_VERSION_UPDATE WHERE GUID = (Select MAX(GUID) FROM TBDD_VERSION_UPDATE WHERE UPPER(MODULE_NAME) = UPPER('{0}'))", "Record-Organizer")
DT_UPDATE = clsDatabase.Return_Datatable(sql)
DT_UPDATE = MYDB_ECM.GetDatatable(sql)
If Not IsNothing(DT_UPDATE) Then
If DT_UPDATE.Rows.Count = 1 Then
UPDATE_ID = DT_UPDATE.Rows(0).Item("GUID")
@@ -46,7 +45,7 @@ Public Class ClassUpdate
VERSIONS_FOR_FORCE_UPDATE = DT_UPDATE.Rows(0).Item("VERSION_FORCE_UPD")
ALL_USERS = DT_UPDATE.Rows(0).Item("ALL_USERS")
sql = String.Format("SELECT * FROM TBDD_VERSION_ITEMS WHERE UPDATE_ID = {0} AND [INFO1] IS NOT NULL ORDER BY GUID", UPDATE_ID)
DT_UPDATE_ITEMS = clsDatabase.Return_Datatable(sql)
DT_UPDATE_ITEMS = MYDB_ECM.GetDatatable(sql)
LOGGER.Info(String.Format("{0} items need to be updated!", DT_UPDATE_ITEMS.Rows.Count.ToString))
Else
LOGGER.Info("No Updates Configured!")
@@ -89,7 +88,7 @@ Public Class ClassUpdate
For Each d In Directory.GetDirectories(sDir)
If d.Contains("$Recycle") = False Or d.Contains("System Volume") = False Then
If RecExe_found = False Then
For Each f In Directory.GetFiles(d, "DD-Record-Organizer.exe")
For Each f In Directory.GetFiles(d, "DD-OrgFlow.exe")
RecExe_found = True
MY_INSTALL_PATH = Path.GetDirectoryName(f)
Exit Sub
@@ -110,7 +109,7 @@ Public Class ClassUpdate
Dim sql = ""
USER_USERNAME = Environment.UserName
sql = String.Format("SELECT * FROM TBDD_USER WHERE (LOWER(USERNAME) = LOWER('{0}'))", USER_USERNAME)
Dim USER_DT As DataTable = clsDatabase.Return_Datatable(sql, True)
Dim USER_DT As DataTable = MYDB_ECM.GetDatatable(sql)
If USER_DT.Rows.Count = 0 Then
LOGGER.Warn(" - User '" & USER_USERNAME & "' not listed in Useradministration!")
'MsgBox("Achtung: Sie sind nicht in der Userverwaltung hinterlegt." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
@@ -122,14 +121,14 @@ Public Class ClassUpdate
USER_GUID = USER_DT.Rows(0).Item("GUID")
USER_LANGUAGE = USER_DT.Rows(0).Item("LANGUAGE")
sql = String.Format("SELECT UPDATE_PATH,TEMPPATH,INFO1,INFO2,INFO3 FROM TBDD_VERSION_USER_UPDATE_PATH WHERE USER_ID = {0} AND UPPER(MODULE_NAME) = UPPER('{1}')", USER_GUID, "Record-Organizer")
DT_USER_DATA = clsDatabase.Return_Datatable(sql)
DT_USER_DATA = MYDB_ECM.GetDatatable(sql)
MyServer_UpdatePath = DT_USER_DATA.Rows(0).Item("UPDATE_PATH")
sql = String.Format("SELECT CASE VERSION_CLIENT WHEN '' THEN '{3}' ELSE VERSION_CLIENT END AS VERSION_CLIENT FROM VWDD_LOGIN_USER_HISTORY WHERE GUID = (select MAX(GUID) from VWDD_LOGIN_USER_HISTORY where USER_ID = {0} AND VERSION_CLIENT <> '' AND UPPER(MACHINE_NAME) = UPPER('{1}') AND UPPER(MODULE) = UPPER('{2}'))", USER_GUID, Environment.MachineName, "Record-Organizer", VERSION_SERVER)
VERSION_USER = clsDatabase.Execute_Scalar(sql)
VERSION_USER = MYDB_ECM.GetScalarValue(sql)
If IsNothing(VERSION_USER) Then
sql = String.Format("SELECT CASE VERSION_CLIENT WHEN '' THEN '{2}' ELSE VERSION_CLIENT END AS VERSION_CLIENT FROM VWDD_LOGIN_USER_HISTORY WHERE GUID = (select MAX(GUID) from VWDD_LOGIN_USER_HISTORY where USER_ID = {0} AND VERSION_CLIENT <> '' AND UPPER(MODULE) = UPPER('{1}'))", USER_GUID, "Record-Organizer", VERSION_SERVER)
VERSION_USER = clsDatabase.Execute_Scalar(sql)
VERSION_USER = MYDB_ECM.GetScalarValue(sql)
If IsNothing(VERSION_USER) Then
VERSION_USER = "1.0.0.0"
End If
@@ -182,35 +181,17 @@ Public Class ClassUpdate
If UPDATE_NECESSARY = False Then
Exit Sub
End If
'If FORCE_UPDATE = False Then
' If VERSIONS_FOR_FORCE_UPDATE.Contains(VERSION_USER) Then
' Logger.Warn(String.Format("VersionChecker: ForceUpdate for User as Version '{0}' is used!", VERSION_USER), False)
' ClassHelper.InsertEssential_Log(USER_GUID, "USER-ID", String.Format("VersionChecker: ForceUpdate for User as Version '{0}' is used!", VERSION_USER))
' FORCE_UPDATE = True
' End If
'End If
'If FORCE_UPDATE = False Then
' If ALL_USERS = False Then
' sql = String.Format("SELECT COUNT(GUID) FROM TBDD_VERSION_USER_UPDATE WHERE USER_ID = {0} AND UPDATE_ID = {1}", USER_GUID, UPDATE_ID)
' If clsDatabase.Execute_Scalar(sql) = 0 Then
' Logger.Warn(String.Format("VersionChecker: User is not part of update-group - UPDATE-ID: {0}", UPDATE_ID), False)
' ClassHelper.InsertEssential_Log(USER_GUID, "USER-ID", String.Format("VersionChecker: User is not part of update-group - UPDATE-ID: {0}", UPDATE_ID))
' Exit Sub
' End If
' End If
Dim msg = "Auf dem Server liegt ein Update für ein ADDI-AddOn bereit!" & vbNewLine & "Wollen Sie das Update nun durchführen? Die Dauer ist abhängig von Ihrer Netzwerkverbindung!"
Dim msg = "Auf dem Server liegt ein Update für ein OrgFlow-AddOn bereit!" & vbNewLine & "Wollen Sie das Update nun durchführen? Die Dauer ist abhängig von Ihrer Netzwerkverbindung!"
If USER_LANGUAGE <> "de-DE" Then
msg = "There is a new release available for an ADDI-AddOn!" & vbNewLine & "Would You like to install the update now? This might take some time minute(s)!"
msg = "There is a new release available for an OrgFlow-AddOn!" & vbNewLine & "Would You like to install the update now? This might take some time minute(s)!"
End If
Dim result As MsgBoxResult
result = MessageBox.Show(msg, "Confirmation:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = MsgBoxResult.No Then
UPDATE_CANCELLED = True
Exit Sub
End If
result = MessageBox.Show(msg, CAPTION_CONFIRMATION, MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = MsgBoxResult.No Then
UPDATE_CANCELLED = True
Exit Sub
End If
'End If
If FOLDER_TEMP <> String.Empty Then
@@ -243,22 +224,22 @@ Public Class ClassUpdate
targetfile = Path.Combine(MY_INSTALL_PATH, Upd_item.Item("ITEM_INFO"))
Else
If Upd_item.Item("INFO1") <> String.Empty Then
targetfile = Path.Combine(MY_INSTALL_PATH, Upd_item.Item("INFO1"), Upd_item.Item("ITEM_INFO"))
Else
targetfile = Path.Combine(MY_INSTALL_PATH, Upd_item.Item("ITEM_INFO"))
End If
targetfile = Path.Combine(MY_INSTALL_PATH, Upd_item.Item("INFO1"), Upd_item.Item("ITEM_INFO"))
Else
targetfile = Path.Combine(MY_INSTALL_PATH, Upd_item.Item("ITEM_INFO"))
End If
targetfile = targetfile.ToString.Replace("//", "/")
End If
targetfile = targetfile.ToString.Replace("//", "/")
LOGGER.Info(String.Format("...replacing targetfile '{0}': ", targetfile))
Try
' Replace the file.
If File.Exists(targetfile) Then
If File_Rename(targetfile, BackUpOfFileToReplace) = True Then
' Replace the file.
If File.Exists(targetfile) Then
If File_Rename(targetfile, BackUpOfFileToReplace) = True Then
If File.Exists(BackUpOfFileToReplace) Then
If KEEP_TEMPPATH Then
If CopyFile(sourcefile, targetfile) = True Then
File_Delete(BackUpOfFileToReplace)
LOGGER.Warn(String.Format("...targetfile '{0}' was copied! ", targetfile), False)
LOGGER.Warn(String.Format("...targetfile '{0}' was copied! ", targetfile))
Dim updinfo
If USER_INFO1 <> "" Then
updinfo = USER_INFO1 & ";" & Upd_item.Item("INFO1") & "V" & Upd_item.Item("INFO2")
@@ -266,7 +247,7 @@ Public Class ClassUpdate
updinfo = Upd_item.Item("INFO1") & "V" & Upd_item.Item("INFO2")
End If
Dim _Sql = String.Format("Update TBDD_VERSION_USER_UPDATE_PATH SET INFO1 = '{2}' WHERE USER_ID = {0} AND UPPER(MODULE_NAME) = UPPER('{1}')", USER_GUID, "Record-Organizer", updinfo)
clsDatabase.Execute_non_Query(_Sql)
MYDB_ECM.ExecuteNonQuery(_Sql)
End If
Else
If MoveFile(sourcefile, targetfile) = True Then
@@ -279,7 +260,7 @@ Public Class ClassUpdate
updinfo = Upd_item.Item("INFO1") & "V" & Upd_item.Item("INFO2")
End If
Dim _Sql = String.Format("Update TBDD_VERSION_USER_UPDATE_PATH SET INFO1 = '{2}' WHERE USER_ID = {0} AND UPPER(MODULE_NAME) = UPPER('{1}')", USER_GUID, "Record-Organizer", updinfo)
clsDatabase.Execute_non_Query(_Sql)
MYDB_ECM.ExecuteNonQuery(_Sql)
Else
LOGGER.Warn(String.Format("MoveFile was not successfull! BackupFile will be activated!"))
'Verschieben hat nicht geklappt also die Backupdatei wieder umbenennen!
@@ -290,16 +271,16 @@ Public Class ClassUpdate
End If
End If
Else
Else
End If
Catch ex As Exception
Catch ex As Exception
LOGGER.Warn(String.Format("Error while copying file {0} to {1}: " & ex.Message, sourcefile, targetfile))
error_while_replacing = True
UPDATE_ERROR = True
End Try
UPDATE_ERROR = True
End Try
@@ -312,13 +293,13 @@ Public Class ClassUpdate
Next
Dim upd = String.Format("Update TBDD_VERSION_USER_UPDATE_PATH SET TEMPPATH = '' WHERE USER_ID = {0} AND UPPER(MODULE_NAME) = UPPER('{1}')", USER_GUID, "Record-Organizer")
clsDatabase.Execute_non_Query(upd)
MYDB_ECM.ExecuteNonQuery(upd)
Try
If KEEP_TEMPPATH = False Then
'Delete the tempfolder and all data
System.IO.Directory.Delete(FOLDER_TEMP, True)
Else
LOGGER.Info(String.Format("TEMP FOLDER SHALL BE KEPT..."), False)
LOGGER.Info(String.Format("TEMP FOLDER SHALL BE KEPT..."))
End If
Catch ex As Exception

2
app/DD-Record-Organizer/Classes/ClassUser.vb
View File

@@ -4,7 +4,7 @@
Try
Dim SQL
SQL = $"DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = {USER_GUID} AND MODULE = 'Record-Organizer'"
ClassDatabase.Execute_non_Query(sql)
MYDB_ECM.ExecuteNonQuery(SQL)
Catch ex As Exception
LOGGER.Warn("Error while logging out user: " & ex.Message)
End Try

8
app/DD-Record-Organizer/Classes/ClassWDRights.vb
View File

@@ -38,7 +38,7 @@ Public Class ClassWDRights
Try
MSG_RESULT = ""
LOGGER.Debug(String.Format("Init ClassWDRights started - " & Now & " ..."))
Dim DT_KONFIG As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBPMO_SERVICE_RIGHT_CONFIG WHERE GUID = 1")
Dim DT_KONFIG As DataTable = MYDB_ECM.GetDatatable("SELECT * FROM TBPMO_SERVICE_RIGHT_CONFIG WHERE GUID = 1")
AD_DOMAIN = DT_KONFIG.Rows(0).Item("AD_DOMAIN")
AD_USER = DT_KONFIG.Rows(0).Item("AD_USER")
WD_RIGHT_ADMIN = DT_KONFIG.Rows(0).Item("WD_RIGHT")
@@ -91,9 +91,9 @@ Public Class ClassWDRights
If Not IsNothing(oSession) Then
LOGGER.Debug("Session created.")
Dim sql = String.Format("SELECT * FROM [dbo].[FNPMO_GET_RIGHTS_FOR_DOC] ({0}) where USER_OR_GROUP = 'USER'", doc_id)
DT_USER_RIGHT = clsDatabase.Return_Datatable(sql)
DT_USER_RIGHT = MYDB_ECM.GetDatatable(sql)
sql = String.Format("SELECT * FROM [dbo].[FNPMO_GET_RIGHTS_FOR_DOC] ({0}) where USER_OR_GROUP = 'GROUP'", doc_id)
DT_GROUP_RIGHT = clsDatabase.Return_Datatable(sql)
DT_GROUP_RIGHT = MYDB_ECM.GetDatatable(sql)
If IsNothing(DT_USER_RIGHT) Then
Dim msg = "Error while receiving rights for DocID"
clsLogger.Add(msg)
@@ -190,7 +190,7 @@ Public Class ClassWDRights
Err.Clear()
' Wenn ALLE Rechteträger entfernt werden (FOR EACH),
' dann muss mindestens EIN Rechteträger mit dem Recht zur Rechteänderung
' wieder zugefügt werden!!!!! Dies ist der ADDI-Right User!
' wieder zugefügt werden!!!!! Dies ist der OrgFlow-Right User!
'Für jeden User das Recht einzeln hinzufügen
For Each User_Row As DataRow In DT_USER_RIGHT.Rows
Dim fileright 'Recht als Integer

40
app/DD-Record-Organizer/Classes/ClassWindreamDocGrid.vb
View File

@@ -60,8 +60,14 @@ Public Class ClassWindreamDocGrid
Dim newRow As DataRow = DT_RESULTFILES.NewRow()
Try
Dim DOC_ID = gridView.GetRowCellValue(row, "DocID")
SELECTED_DOC_ID = DOC_ID
newRow("DOC_ID") = gridView.GetRowCellValue(row, "DocID")
Dim CHeckDT As DataTable = ClassHelper.FILTER_DATATABLE(CURRENT_DT_TBPMO_DOC_RECORD_LINK, "DOC_ID = " + DOC_ID.ToString, "")
If CHeckDT.Rows.Count = 1 Then
SELECTED_DOC_ID = DOC_ID
newRow("DOC_ID") = gridView.GetRowCellValue(row, "DocID")
Else
Continue For
End If
Catch ex As Exception
newRow("DOC_ID") = 0
SELECTED_DOC_ID = 0
@@ -71,7 +77,7 @@ Public Class ClassWindreamDocGrid
newRow("INWORK") = False
SELECTED_INWORK = False
Dim oSQL = "Select IN_WORK,IN_WORK_USER FROM TBPMO_DOCRESULT_LIST where DocID = " + SELECTED_DOC_ID
Dim oDT As DataTable = ClassDatabase.Return_Datatable(oSQL)
Dim oDT As DataTable = MYDB_ECM.GetDatatable(oSQL)
If Not IsNothing(oDT) Then
If oDT.Rows.Count = 1 Then
newRow("INWORK") = CBool(oDT.Rows(0).Item("IN_WORK"))
@@ -218,7 +224,7 @@ Public Class ClassWindreamDocGrid
End Select
'"FROM TBPMO_DOC_VALUES T INNER JOIN TBPMO_DOCSEARCH_RESULTLIST_CONFIG T1 ON T.CONFIG_ID = T1.GUID WHERE T1.ENTITY_ID = {0} AND T1.LANGUAGE = '{1}' AND T.RECORD_ID = {2} ORDER BY T.DocID, T1.SEQUENCE", CURRENT_ENTITY_ID, USER_LANGUAGE, RECORD_ID)
Dim DT_DETAILS As DataTable = ClassDatabase.Return_Datatable(DT_DETAILS_SQL, True)
Dim DT_DETAILS As DataTable = MYDB_ECM.GetDatatable(DT_DETAILS_SQL)
Dim docId As Integer
Dim configId As Integer
Dim recordId As Integer
@@ -234,7 +240,7 @@ Public Class ClassWindreamDocGrid
Dim value As String = ""
Try
value = ClassDatabase.Execute_Scalar(String.Format("SELECT VALUE FROM TBPMO_DOC_VALUES WHERE CONFIG_ID = {0} AND DocID = {1} AND RECORD_ID = {2}", configId, docId, RECORD_ID))
value = MYDB_ECM.GetScalarValue(String.Format("SELECT VALUE FROM TBPMO_DOC_VALUES WHERE CONFIG_ID = {0} AND DocID = {1} AND RECORD_ID = {2}", configId, docId, RECORD_ID))
Catch ex As Exception
LOGGER.Warn(String.Format("Attention: Could not get Value from TBPMO_DOC_VALUES for ConfigId[{0}], DocId[{1}]: ", configId, docId) & ex.Message)
End Try
@@ -411,22 +417,22 @@ Public Class ClassWindreamDocGrid
AddHandler dateedit.EditValueChanged, _datepickerValueChangedHandler
e.RepositoryItem = dateedit
'ElseIf typeId = 4 And editable = F Then
' Dim dropdown As New RepositoryItemComboBox()
' Dim matchingRows() As DataRow = DT_DROPDOWN_ITEMS.Select(String.Format("CONFIG_ID = {0}", configId), "SEQUENCE")
ElseIf typeId = 10 And editable = True Then
Dim dropdown As New RepositoryItemComboBox()
Dim matchingRows() As DataRow = DT_DROPDOWN_ITEMS.Select(String.Format("CONFIG_ID = {0}", configId), "SEQUENCE")
' For Each matchingRow As DataRow In matchingRows
' Dim item As New WindreamDocGridComboboxItem()
' item.ConfigID = matchingRow.Item("CONFIG_ID")
' item.Value = matchingRow.Item("VALUE")
' dropdown.Items.Add(item)
' Next
For Each matchingRow As DataRow In matchingRows
Dim item As New WindreamDocGridComboboxItem()
item.ConfigID = matchingRow.Item("CONFIG_ID")
item.Value = matchingRow.Item("VALUE")
dropdown.Items.Add(item)
Next
' AddHandler dropdown.SelectedValueChanged, _dropdownValueChangedHandler
AddHandler dropdown.SelectedValueChanged, _dropdownValueChangedHandler
e.RepositoryItem = dropdown
' e.RepositoryItem = dropdown
'End If
ElseIf typeId = 4 And editable Then
Dim textedit As New RepositoryItemTextEdit()

2
app/DD-Record-Organizer/Classes/ClassWorkflow.vb
View File

@@ -5,7 +5,7 @@
"dbo.FNPMO_GETOBJECTCAPTION('{0}', 'FORMVIEW_TITLE' + CONVERT(VARCHAR(5), FORM_VIEW_ID), 1) AS 'ENTITY_TITLE', COMMENT, DUE_DATE, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, TASK_DATE, FINAL, COLOR, " & _
"'{1}' AS USERNAME, dbo.FNPMO_GET_ENTITY_COLUMN_CONTENT(RECORD_ID) AS RECORD_DESCRIPTION, DESCRIPTION, RECORD_DESCRIPTION AS Expr1, FINISHED, MANUALLY, " & _
"CREATE_ON_REC_CREATE, CREATE_ON_FOLL_UP FROM VWPMO_WF_ACTIVE AS T", USER_LANGUAGE, USER_USERNAME)
CURRENT_VWPMO_WF_ACTIVE = ClassDatabase.Return_Datatable(sql, True)
CURRENT_VWPMO_WF_ACTIVE = MYDB_ECM.GetDatatable(sql)
End Sub
End Class

117
app/DD-Record-Organizer/Classes/Controls/ClassControlBuilder.vb
View File

@@ -283,7 +283,7 @@ Public Class ClassControlBuilder
For Each row As DataRow In TableResult.Rows
Dim sqlcommand As String = row.Item("SQL_COMMAND_2")
Dim msg = String.Format("Working on enabling control {0} - SQL: {1}", CONTROL_ID.ToString, sqlcommand)
LOGGER.Debug(msg, False)
LOGGER.Debug(msg)
If IsNothing(sqlcommand) Then
Continue For
End If
@@ -291,7 +291,7 @@ Public Class ClassControlBuilder
' Versuchen, die RecordId zu ersetzen, falls eine existiert
sqlcommand = sqlcommand.ToUpper.Replace("@RECORD_ID", CURRENT_RECORD_ID)
msg = String.Format("sqlcommand-replaced1: {0}", sqlcommand)
LOGGER.Debug(msg, False)
LOGGER.Debug(msg)
' ControlId Platzhalter suchen und ersetzen
Dim regex As New System.Text.RegularExpressions.Regex("(@(\d+)@)")
Dim match As System.Text.RegularExpressions.Match = regex.Match(sqlcommand)
@@ -306,11 +306,11 @@ Public Class ClassControlBuilder
End Function).SingleOrDefault()
' Wir ersetzen den platzhalter im sql command mit dem übergebenen wert
sqlcommand = sqlcommand.Replace(match.Groups(1).Value, value)
LOGGER.Debug("" & String.Format("Executing SQL_COMMAND: {0} for controlID {1}", sqlcommand, dependingControlId), False)
LOGGER.Debug("" & String.Format("Executing SQL_COMMAND: {0} for controlID {1}", sqlcommand, dependingControlId))
' Jetzt wird das SQL Command ausgeführt, es MUSS einen Boolschen Wert zurückgeben, True, False, 0, 1
Dim dt_result As DataTable = Nothing
dt_result = ClassDatabase.Return_Datatable(sqlcommand)
dt_result = MYDB_ECM.GetDatatable(sqlcommand)
If dt_result.Rows.Count = 1 Then
Dim enabled As Boolean = True
@@ -324,14 +324,14 @@ Public Class ClassControlBuilder
If enabled = False Then
msg = String.Format("Control {0} will be disabled." & vbNewLine, dependingControlId.ToString)
LOGGER.Debug(msg, False)
LOGGER.Debug(msg)
Else
msg = String.Format("Control {0} will be enabled." & vbNewLine, dependingControlId.ToString)
LOGGER.Debug(msg, False)
LOGGER.Debug(msg)
End If
dependingControl.Enabled = enabled
Else
LOGGER.Warn("Attention: RowCount for enabling control (" & dependingControlId.ToString & ") was '" & dt_result.Rows.Count.ToString & "' and not 1 as expected - Check SQL: '" & sqlcommand & "'", False)
LOGGER.Warn("Attention: RowCount for enabling control (" & dependingControlId.ToString & ") was '" & dt_result.Rows.Count.ToString & "' and not 1 as expected - Check SQL: '" & sqlcommand & "'")
End If
End If
@@ -381,7 +381,7 @@ Public Class ClassControlBuilder
End If
LOGGER.Debug("DependingControls - For Each row As DataRow In TableResult.Rows", False, False)
LOGGER.Debug("DependingControls - For Each row As DataRow In TableResult.Rows")
For Each row As DataRow In TableResult.Rows
Dim sqlcommand As String = row.Item("SQL_COMMAND_1")
@@ -394,7 +394,7 @@ Public Class ClassControlBuilder
Dim match As System.Text.RegularExpressions.Match = regex.Match(sqlcommand)
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 ctrlvalID = ClassDatabase.Execute_Scalar(sqlguid, True)
Dim ctrlvalID = MYDB_ECM.ExecuteNonQuery(sqlguid)
' Diese Abfrage verhindert, dass Werte, die aus z.B. CheckedListBoxen kommen,
' nicht überschrieben werden. Diese Werte werden bereits mit UpdateMultipleValues gespeichert
@@ -402,15 +402,15 @@ Public Class ClassControlBuilder
If Not IsNothing(ctrlvalID) Then
If ClassControlCommandsUI.UpdateControlValue(CONTROL_ID, CURRENT_RECORD_ID, value.ToString, CURRENT_ENTITY_ID) = False Then
LOGGER.Warn(String.Format("ClassControlCommandsUI.UpdateControlValue (1) was not successfull - ControlID: {0},RecordID: {1},value: {2}'", CONTROL_ID, CURRENT_RECORD_ID, value), False)
LOGGER.Warn(String.Format("ClassControlCommandsUI.UpdateControlValue (1) was not successfull - ControlID: {0},RecordID: {1},value: {2}'", CONTROL_ID, CURRENT_RECORD_ID, value))
Else
ControlsChanged.Remove(CONTROL_ID)
End If
Else
LOGGER.Debug("ctrlvalID is Nothing - Attention.....", False, False)
LOGGER.Debug("ctrlvalID is Nothing - Attention.....")
If CURRENT_RECORD_ID <> 0 Then
If ClassControlCommandsUI.CreateControlProcedure(CONTROL_ID, CURRENT_RECORD_ID, value, CURRENT_ENTITY_ID) = 0 Then
LOGGER.Warn(String.Format("ClassControlCommandsUI.CreateControlProcedure (1) was not successfull - ControlID: {0},RecordID: {1},value: {2}'", CONTROL_ID, CURRENT_RECORD_ID, value), False)
LOGGER.Warn(String.Format("ClassControlCommandsUI.CreateControlProcedure (1) was not successfull - ControlID: {0},RecordID: {1},value: {2}'", CONTROL_ID, CURRENT_RECORD_ID, value))
Else
ControlsChanged.Remove(CONTROL_ID)
End If
@@ -421,7 +421,7 @@ Public Class ClassControlBuilder
' DependingControlId bezeichnet das Control, das die Abhängigkeit enthält
Dim dependingControlId As Integer = row.Item("GUID")
If dependingControlId > 0 Then
LOGGER.Debug("dependingControlId: " + dependingControlId.ToString, False, False)
LOGGER.Debug("dependingControlId: " + dependingControlId.ToString)
End If
Dim panel As Panel = Me.MasterPanel
'Dim panel As Panel = DirectCast(control.Parent, Panel)
@@ -435,9 +435,9 @@ Public Class ClassControlBuilder
End If
sqlcommand = sqlcommand.Replace(match.Groups(1).Value, value)
LOGGER.Debug("" & String.Format("Executing SQL_COMMAND: '{0}' for controlID '{1}'", sqlcommand, dependingControlId), False)
LOGGER.Debug("" & String.Format("Executing SQL_COMMAND: '{0}' for controlID '{1}'", sqlcommand, dependingControlId))
Dim dt As DataTable = ClassDatabase.Return_Datatable(sqlcommand, True)
Dim dt As DataTable = MYDB_ECM.GetDatatable(sqlcommand)
Dim type = dependingControl.GetType().Name
Select Case type
@@ -457,23 +457,23 @@ Public Class ClassControlBuilder
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 id = ClassDatabase.Execute_Scalar(sql1, True)
Dim id = MYDB_ECM.ExecuteNonQuery(sql1)
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)
If ClassControlCommandsUI.UpdateControlValue(dependingControlId, CURRENT_RECORD_ID, dateValue, CURRENT_ENTITY_ID) = True Then
ControlsChanged.Remove(dependingControlId)
LOGGER.Debug("Value was not nothing - Updated the ControlValue'", False) '" & upd)
LOGGER.Debug("Value was not nothing - Updated the ControlValue'") '" & upd)
Else
LOGGER.Warn("Check Update depending control (DateEdit) value as it was nothing and Update was not successful - Update-Command '", False) ' & upd & "'")
LOGGER.Warn("Check Update depending control (DateEdit) value as it was nothing and Update was not successful - Update-Command '") ' & upd & "'")
End If
Else
If ClassControlCommandsUI.CreateControlProcedure(dependingControlId, CURRENT_RECORD_ID, dateValue, CURRENT_ENTITY_ID) = 1 Then
ControlsChanged.Remove(dependingControlId)
LOGGER.Debug("Value was nothing - Inserted the ControlValue (DateEdit)!", False)
LOGGER.Debug("Value was nothing - Inserted the ControlValue (DateEdit)!")
Else
LOGGER.Warn(String.Format("ClassControlCommandsUI.InsertControlValue (DateEdit) was not successfull - ControlID: {0},RecordID: {1},value: {2}'", CONTROL_ID, CURRENT_RECORD_ID, dateValue), False)
LOGGER.Warn(String.Format("ClassControlCommandsUI.InsertControlValue (DateEdit) was not successfull - ControlID: {0},RecordID: {1},value: {2}'", CONTROL_ID, CURRENT_RECORD_ID, dateValue))
End If
@@ -488,10 +488,10 @@ Public Class ClassControlBuilder
Case "CustomComboBox"
ControlLoader.Combobox.SetDataSource(DirectCast(dependingControl, CustomComboBox), dt)
Case "CheckedListBoxControl"
LOGGER.Debug("DependingControls - CheckedListBoxControl", False, False)
LOGGER.Debug("DependingControls - CheckedListBoxControl")
Dim checkedlistbox = DirectCast(dependingControl, DevExpress.XtraEditors.CheckedListBoxControl)
If IsNothing(checkedlistbox) Then
LOGGER.Debug("checkedlistbox is Nothing - Attention.....", False, False)
LOGGER.Debug("checkedlistbox is Nothing - Attention.....")
End If
ControlLoader.CheckedListBox.SetDataSource(checkedlistbox, dt)
@@ -520,17 +520,17 @@ Public Class ClassControlBuilder
Dim value1 As String = dt.Rows(0).Item(0)
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 id = ClassDatabase.Execute_Scalar(sqltextbox, True)
Dim id = MYDB_ECM.ExecuteNonQuery(sqltextbox)
If Not IsNothing(id) Then
If ClassControlCommandsUI.UpdateControlValue(dependingControlId, CURRENT_RECORD_ID, value1, CURRENT_ENTITY_ID) = True Then
LOGGER.Debug("Value was not nothing - Updated the ControlValue'", False) '" & upd)
LOGGER.Debug("Value was not nothing - Updated the ControlValue'") '" & upd)
ControlsChanged.Remove(dependingControlId)
Else
LOGGER.Warn(String.Format("ClassControlCommandsUI.UpdateControlValue (TextBox) was not successfull - ControlID: {0},RecordID: {1},value: {2}'", CONTROL_ID, CURRENT_RECORD_ID, value1), False)
LOGGER.Warn(String.Format("ClassControlCommandsUI.UpdateControlValue (TextBox) was not successfull - ControlID: {0},RecordID: {1},value: {2}'", CONTROL_ID, CURRENT_RECORD_ID, value1))
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 MYDB_ECM.ExecuteNonQuery(upd) = True Then
' LOGGER.Debug("Value was not nothing - Updated the ControlValue '" & upd)
'Else
' Logger.Warn("Check Update depending control value as it was nothing and Update was not successful - Update-Command '" & upd & "'")
@@ -539,9 +539,9 @@ Public Class ClassControlBuilder
Else
If ClassControlCommandsUI.CreateControlProcedure(dependingControlId, CURRENT_RECORD_ID, value1, CURRENT_ENTITY_ID) = 1 Then
ControlsChanged.Remove(dependingControlId)
LOGGER.Debug("Value was nothing - Inserted the ControlValue (TextBox)!", False)
LOGGER.Debug("Value was nothing - Inserted the ControlValue (TextBox)!")
Else
LOGGER.Warn(String.Format("ClassControlCommandsUI.InsertControlValue (TextBox) was not successfull - ControlID: {0},RecordID: {1},value: {2}'", CONTROL_ID, CURRENT_RECORD_ID, value1), False)
LOGGER.Warn(String.Format("ClassControlCommandsUI.InsertControlValue (TextBox) was not successfull - ControlID: {0},RecordID: {1},value: {2}'", CONTROL_ID, CURRENT_RECORD_ID, value1))
End If
@@ -593,8 +593,8 @@ Public Class ClassControlBuilder
Exit Sub
End If
Dim datatable As DataTable = ClassDatabase.Return_Datatable(SQL)
Dim datatable1 As DataTable = ClassDatabase.Return_Datatable(SQLenable)
Dim datatable As DataTable = MYDB_ECM.GetDatatable(SQL)
Dim datatable1 As DataTable = MYDB_ECM.GetDatatable(SQLenable)
Depending_Controls(control, datatable, value)
Enable_Controls(control, datatable1, value)
@@ -702,8 +702,8 @@ Public Class ClassControlBuilder
Exit Sub
End If
Dim datatable As DataTable = ClassDatabase.Return_Datatable(SQL)
Dim datatable1 As DataTable = ClassDatabase.Return_Datatable(SQLenable)
Dim datatable As DataTable = MYDB_ECM.GetDatatable(SQL)
Dim datatable1 As DataTable = MYDB_ECM.GetDatatable(SQLenable)
Depending_Controls(control, datatable, value)
Enable_Controls(control, datatable1, value)
@@ -785,11 +785,11 @@ Public Class ClassControlBuilder
'End If
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, True)
Dim DT_ControlValues As DataTable = MYDB_ECM.GetDatatable(SQL1)
CURRENT_CONTROL_VALUES = DT_ControlValues
Dim datatable As DataTable = ClassDatabase.Return_Datatable(SQL, True)
Dim datatable1 As DataTable = ClassDatabase.Return_Datatable(SQLenable, True)
Dim datatable As DataTable = MYDB_ECM.GetDatatable(SQL)
Dim datatable1 As DataTable = MYDB_ECM.GetDatatable(SQLenable)
Depending_Controls(control, datatable, CONTROL_VALUE)
If IsNothing(CONTROL_VALUE) Then
Exit Sub
@@ -874,11 +874,11 @@ Public Class ClassControlBuilder
'End If
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, True)
Dim DT_ControlValues As DataTable = MYDB_ECM.GetDatatable(SQL1)
CURRENT_CONTROL_VALUES = DT_ControlValues
Dim datatable As DataTable = ClassDatabase.Return_Datatable(SQL)
Dim datatable1 As DataTable = ClassDatabase.Return_Datatable(SQLenable)
Dim datatable As DataTable = MYDB_ECM.GetDatatable(SQL)
Dim datatable1 As DataTable = MYDB_ECM.GetDatatable(SQLenable)
Depending_Controls(control, datatable, CONTROL_VALUE)
If IsNothing(CONTROL_VALUE) Then
Exit Sub
@@ -907,7 +907,7 @@ Public Class ClassControlBuilder
If filter.IsEmpty Then
Try
Dim sql As String = $"SELECT VALUE FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = {controlId} AND RECORD_ID = {recordId}"
Dim dt As DataTable = ClassDatabase.Return_Datatable(sql)
Dim dt As DataTable = MYDB_ECM.GetDatatable(sql)
Dim values As New List(Of Object)
For Each row As DataRow In dt.Rows
@@ -952,39 +952,10 @@ Public Class ClassControlBuilder
'End If
Dim datatable1 As DataTable = ClassDatabase.Return_Datatable(SQLenable)
Dim datatable1 As DataTable = MYDB_ECM.GetDatatable(SQLenable)
Enable_Controls(control, datatable1, checkstate)
'Dim sqlcommand As String = datatable.Rows(0).Item("SQL_COMMAND_1")
'If IsNothing(sqlcommand) Then
' Exit Sub
'End If
'If String.IsNullOrEmpty(value) Then
' Exit Sub
'End If
'Dim regex As New System.Text.RegularExpressions.Regex("(@(\d+)@)")
'Dim match As System.Text.RegularExpressions.Match = regex.Match(sqlcommand)
'If match.Success Then
' ' DependingControlId bezeichnet das Control, das die Abhängigkeit enthält
' Dim dependingControlId As Integer = datatable.Rows(0).Item("GUID")
' Dim panel As Panel = DirectCast(control.Parent, Panel)
' ' Über die Id das Control finden
' Dim dependingControl As CustomComboBox = panel.Controls.OfType(Of CustomComboBox)().Where(Function(c As CustomComboBox)
' Return DirectCast(c.Tag, ClassControlMetadata).Id = dependingControlId
' End Function).SingleOrDefault()
' sqlcommand = sqlcommand.Replace(match.Groups(1).Value, value)
' Console.WriteLine("Executing SQL_COMMAND: {0}", sqlcommand)
' Dim dt As DataTable = ClassDatabase.Return_Datatable(sqlcommand)
' ControlLoader.Combobox.SetDataSource(dependingControl, dt)
'End If
Console.WriteLine("value changed")
Catch ex As Exception
@@ -1503,7 +1474,7 @@ Public Class ClassControlBuilder
If sqlcommand.Contains("@RECORD_ID") Or sqlcommand.Contains("@RECORDID") Or sqlcommand.Contains("@ENTITY_ID") Or sqlcommand.Contains("@PARENTRECORD_ID") Or sqlcommand.Contains("@PARENTRECORDID") Then
result = Nothing
Else
result = ClassDatabase.Execute_Scalar(sqlcommand, True)
result = MYDB_ECM.ExecuteNonQuery(sqlcommand)
End If
If Not IsNothing(result) Then
If Not IsDBNull(result) Then
@@ -1622,7 +1593,7 @@ Public Class ClassControlBuilder
control.AutoCompleteSource = AutoCompleteSource.CustomSource
Dim suggestSource As New AutoCompleteStringCollection()
Dim dt As DataTable = ClassDatabase.Return_Datatable($"SELECT DISTINCT VALUE FROM VWPMO_VALUES WHERE CONTROL_ID = {id}")
Dim dt As DataTable = MYDB_ECM.GetDatatable($"SELECT DISTINCT VALUE FROM VWPMO_VALUES WHERE CONTROL_ID = {id}")
For Each row As DataRow In dt.Rows
suggestSource.Add(row.Item("VALUE"))
@@ -2528,7 +2499,7 @@ Public Class ClassControlBuilder
'Ja also überprüfen ob parametrisiert??
If Not sqlcommand.ToString.Contains("@") Then
'SQL-Command vorhanden also Ausführen des SQL
Dim DT_ListBox As DataTable = ClassDatabase.Return_Datatable(sqlcommand)
Dim DT_ListBox As DataTable = MYDB_ECM.GetDatatable(sqlcommand)
If DT_ListBox Is Nothing = False Then
If DT_ListBox.Rows.Count > 0 Then
control.DataSource = DT_ListBox
@@ -2638,7 +2609,7 @@ Public Class ClassControlBuilder
If sqlcommand.Length > 1 Then
If Not sqlcommand.ToString.Contains("@") Then
'SQL-Command vorhanden also Ausführen des SQL
Dim DT_ListBox As DataTable = ClassDatabase.Return_Datatable(sqlcommand)
Dim DT_ListBox As DataTable = MYDB_ECM.GetDatatable(sqlcommand)
If DT_ListBox Is Nothing = False Then
If DT_ListBox.Rows.Count > 0 Then
control.DataSource = DT_ListBox

38
app/DD-Record-Organizer/Classes/Controls/ClassControlCommands.vb
View File

@@ -54,7 +54,7 @@
Public Shared Function GetParentRecordId(RecordId As Integer) As Integer
Try
Dim parentId = ClassDatabase.Execute_Scalar("SELECT RECORD1_ID FROM TBPMO_RECORD_CONNECT WHERE RECORD2_ID = " & RecordId, True)
Dim parentId = MYDB_ECM.ExecuteNonQuery("SELECT RECORD1_ID FROM TBPMO_RECORD_CONNECT WHERE RECORD2_ID = " & RecordId)
If IsNothing(parentId) Then
Return 0
Else
@@ -67,7 +67,7 @@
Public Shared Function GetFormId(RecordId As Integer) As Integer
Try
Dim FormId = ClassDatabase.Execute_Scalar("SELECT FORM_ID FROM VWPMO_VALUES WHERE RECORD_ID = " & RecordId, True)
Dim FormId = MYDB_ECM.ExecuteNonQuery("SELECT FORM_ID FROM VWPMO_VALUES WHERE RECORD_ID = " & RecordId)
Return FormId
Catch ex As Exception
MsgBox("Error in GetFormId:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
@@ -77,7 +77,7 @@
Public Shared Function GetControlGuid(name As String)
Try
Dim sql = "SELECT GUID FROM TBPMO_CONTROL WHERE UPPER(NAME) = UPPER('" & name & "')"
Return ClassDatabase.Execute_Scalar(sql, True)
Return MYDB_ECM.ExecuteNonQuery(sql)
Catch ex As Exception
Return -1
End Try
@@ -107,9 +107,9 @@
SQL = $"INSERT INTO TBPMO_CONTROL (FORM_ID, CONTROL_TYPE_ID, DEFAULT_VALUE, NAME, COL_NAME, PARENT_CONTROL_ID, SQL_COMMAND_1) VALUES ({CURRENT_ENTITY_ID}, {CONTROL_TYPE_ID}, '', '{NAME}', '{NAME}', {PARENT_CONTROL_ID}, '')"
'LOGGER.Debug(SQL)
If ClassDatabase.Execute_non_Query(SQL) = True Then
If MYDB_ECM.ExecuteNonQuery(SQL) = True Then
SQL = "SELECT MAX(GUID) FROM TBPMO_CONTROL"
Dim GUID = ClassDatabase.Execute_Scalar(SQL)
Dim GUID = MYDB_ECM.GetScalarValue(SQL)
Return InsertControlScreen(GUID, control, CURRENT_ENTITY_ID)
Else
@@ -138,7 +138,7 @@
'Dim TAB_INDEX
'SQL = "SELECT MAX(TAB_INDEX) FROM TBPMO_CONTROL_SCREEN WHERE CONTROL_ID IN (SELECT GUID FROM TBPMO_CONTROL WHERE CURRENT_ENTITY_ID = " & CURRENT_ENTITY_ID & ")"
'TAB_INDEX = ClassDatabase.Execute_Scalar(SQL)
'TAB_INDEX = MYDB_ECM.GetScalarValue(SQL)
'If Not TAB_INDEX Is Nothing Then
' If IsDBNull(TAB_INDEX) Then
' TAB_INDEX = 1
@@ -152,16 +152,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 & ")"
If ClassDatabase.Execute_non_Query(SQL) Then
If MYDB_ECM.ExecuteNonQuery(SQL) Then
' Die Guid in die Metadaten des Controls zurückschreiben
Dim metadata = DirectCast(control.Tag, ClassControlMetadata)
metadata.Id = guid
control.Tag = metadata
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)
Dim ctrl_screen_Id = MYDB_ECM.GetScalarValue(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)
ClassDatabase.Execute_non_Query(SQL)
MYDB_ECM.ExecuteNonQuery(SQL)
Return True
Else
Throw New Exception()
@@ -187,7 +187,7 @@
Dim SQL = "UPDATE TBPMO_CONTROL_SCREEN SET X_LOC = " & x & ", Y_LOC = " & y & ", CHANGED_WHO = '" & USER_USERNAME & "' WHERE CONTROL_ID = " & CONTROL_ID
If ClassDatabase.Execute_non_Query(SQL) = True Then
If MYDB_ECM.ExecuteNonQuery(SQL) = True Then
Return True
Else
Throw New Exception()
@@ -365,7 +365,7 @@
AUTO_SUGGEST = {AUTO_SUGGEST}
WHERE GUID = {CURRENT_CONTROL_ID}"
If ClassDatabase.Execute_non_Query(SQL) = True Then
If MYDB_ECM.ExecuteNonQuery(SQL) = True Then
Return UpdateControlScreen(control, properties)
Else
Throw New Exception()
@@ -444,11 +444,11 @@
End If
SQL = "UPDATE TBPMO_CONTROL_SCREEN SET TAB_INDEX = " & TAB_INDEX & ", TAB_STOP = " & TAB_STOP & ", X_LOC = " & X_LOC & ", Y_LOC = " & Y_LOC & ", HEIGHT = " & HEIGHT & ", WIDTH = " & WIDTH & ", CONTROL_TEXT = '" & CONTROL_TEXT & "', CHANGED_WHO = '" & CHANGED_WHO & "', FONT_COLOR = " & FONT_COLOR & ", FONT_SIZE = " & FONT_SIZE & ", FONT_STYLE = " & FONT_STYLE & ", FONT_FAMILY = '" & FONT_FAMILY & "' , BACK_COLOR = " & BACK_COLOR & " WHERE CONTROL_ID = " & CURRENT_CONTROL_ID & " AND SCREEN_ID = " & CURRENT_SCREEN_ID
If ClassDatabase.Execute_non_Query(SQL) = True Then
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 = " & _
If MYDB_ECM.ExecuteNonQuery(SQL) = True Then
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 = " &
CURRENT_CONTROL_ID & " AND SCREEN_ID = " & CURRENT_SCREEN_ID & ")", CONTROL_TEXT, HINT, USER_LANGUAGE)
ClassDatabase.Execute_non_Query(upd)
MYDB_ECM.ExecuteNonQuery(upd)
If CurrentType.Contains("Button") Then
'If control.Tag = "ADDAPPOINTMENT" Then
If control.Name.Contains("f_addappointment") Then
@@ -528,7 +528,7 @@
Public Shared Function DeleteControl(ID As Integer)
Try
Dim del = "EXEC [dbo].[PRPMO_DELETE_CONTROL] " & ID.ToString
If ClassDatabase.Execute_non_Query(del) = True Then
If MYDB_ECM.ExecuteNonQuery(del) = True Then
Return True
Else
Return False
@@ -542,9 +542,9 @@
Public Shared Function DeleteControlScreen(id As Integer)
Try
Dim SQL = "DELETE FROM TBPMO_CONTROL_LANGUAGE WHERE CONTROL_SCREEN_ID IN (SELECT GUID FROM TBPMO_CONTROL_SCREEN WHERE CONTROL_ID = " & id & ")"
If ClassDatabase.Execute_non_Query(SQL) = True Then
If MYDB_ECM.ExecuteNonQuery(SQL) = True Then
SQL = "DELETE FROM TBPMO_CONTROL_SCREEN WHERE CONTROL_ID = " & id
If ClassDatabase.Execute_non_Query(SQL) = True Then
If MYDB_ECM.ExecuteNonQuery(SQL) = True Then
Return True
Else
Throw New Exception()
@@ -564,7 +564,7 @@
Try
Dim SQL = "DELETE FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = " & id
If ClassDatabase.Execute_non_Query(SQL) = True Then
If MYDB_ECM.ExecuteNonQuery(SQL) = True Then
Return True
Else
Throw New Exception()

70
app/DD-Record-Organizer/Classes/Controls/ClassControlCommandsUI.vb
View File

@@ -1,4 +1,4 @@
Imports DD_Record_Organizer.ClassDatabase
Imports DD_Record_Organizer.ClassControlBuilder
Imports DD_LIB_Standards
Imports System.Data.SqlClient
@@ -53,7 +53,7 @@ Public Class ClassControlCommandsUI
'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 expression As String = String.Format("SCREEN_ID = {0} AND FORM_ID = {1} AND CONTROL_VISIBLE = 1", CURRENT_SCREEN_ID, FormId)
Dim DT As DataTable = ClassHelper.FILTER_DATATABLE(DT_VWPMO_CONTROL_SCREEN, expression, "") ' ClassDatabase.Return_Datatable(Sql, True)
Dim DT As DataTable = ClassHelper.FILTER_DATATABLE(DT_VWPMO_CONTROL_SCREEN, expression, "")
For Each dr As DataRow In DT.Rows
Dim parent As GroupBox = Nothing
@@ -346,7 +346,7 @@ Public Class ClassControlCommandsUI
Function SaveRecord(RecordID As Integer, FormID As Integer) As String
Try
Dim ADDED_WHO As String = USER_USERNAME
LOGGER.Debug("(SaveRecord) Update RecordID: " & RecordID, False)
LOGGER.Debug("(SaveRecord) Update RecordID: " & RecordID)
If UpdateAllControls(FormID, RecordID, _CtrlBuilder.AllControls) = True Then
Return "Datensatz aktualisiert - " & Now
Else
@@ -394,7 +394,7 @@ Public Class ClassControlCommandsUI
Private Sub UpsertImage(ControlID As Integer, RecordID As Integer, image As Bitmap)
Dim existsSQL As String = "SELECT GUID FROM TBPMO_CONTROL_IMAGE WHERE CONTROL_ID = " & ControlID & " AND RECORD_ID = " & RecordID
Dim exists = ClassDatabase.Execute_Scalar(existsSQL)
Dim exists = MYDB_ECM.ExecuteNonQuery(existsSQL)
If IsNothing(exists) Then
InsertImage(ControlID, RecordID, image)
@@ -436,10 +436,10 @@ Public Class ClassControlCommandsUI
Private Sub LinkImage(ControlID As Integer, RecordID As Integer)
Try
Dim SQL = String.Format("SELECT GUID FROM TBPMO_CONTROL_IMAGE WHERE CONTROL_ID = {0} AND RECORD_ID = {1}", ControlID, RecordID)
Dim ImageID As Integer = ClassDatabase.Execute_Scalar(SQL)
Dim ImageID As Integer = MYDB_ECM.GetScalarValue(SQL)
SQL = String.Format("SELECT GUID FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = {0} AND RECORD_ID = {1}", ControlID, RecordID)
Dim valueExists = ClassDatabase.Execute_Scalar(SQL)
Dim valueExists = MYDB_ECM.GetScalarValue(SQL)
Dim VALUE = "%%" & ImageID.ToString & "%%"
@@ -448,7 +448,7 @@ Public Class ClassControlCommandsUI
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)
End If
ClassDatabase.Execute_non_Query(SQL)
MYDB_ECM.ExecuteNonQuery(SQL)
Catch ex As Exception
MsgBox("Error in LinkImage: " & vbNewLine & ex.Message)
End Try
@@ -489,11 +489,11 @@ Public Class ClassControlCommandsUI
Try
' Delete Image
Dim SQL = String.Format("DELETE FROM TBPMO_CONTROL_IMAGE WHERE CONTROL_ID = {0} AND RECORD_ID = {1}", ControlID, RecordID)
Dim result = ClassDatabase.Execute_non_Query(SQL)
Dim result = MYDB_ECM.ExecuteNonQuery(SQL)
' Delete Value
SQL = String.Format("DELETE FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = {0} AND RECORD_ID = {1}", ControlID, RecordID)
result = ClassDatabase.Execute_non_Query(SQL)
result = MYDB_ECM.ExecuteNonQuery(SQL)
Catch ex As Exception
MsgBox("Fehler beim löschen des Bildes:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
@@ -504,16 +504,16 @@ Public Class ClassControlCommandsUI
Dim _error As Boolean = False
Dim sw As New SW("UpdateAllControls")
Dim del = String.Format("DELETE FROM TBPMO_CONTROL_VALUE_CHANGE_HISTORY WHERE UPPER(ADDED_WHO) = '{0}'", USER_USERNAME.ToUpper)
ClassDatabase.Execute_non_Query(del)
MYDB_ECM.ExecuteNonQuery(del)
CURRENT_CHANGE_STEP += 1
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)
Dim VALUE_EXISTS_DT As DataTable = MYDB_ECM.GetDatatable(sel)
For Each ctrl As Control In controls
Console.WriteLine("Updating Control " + ctrl.Name)
Dim CONTROL_ID As Integer = DirectCast(ctrl.Tag, ClassControlMetadata).Id 'GetControlID_for_RecordID(ctrl.Name, RecordID)
LOGGER.Debug("CONTROL_ID: " & CONTROL_ID, False)
LOGGER.Debug("CONTROL_ID: " & CONTROL_ID)
Dim CONTROL_VALUE As String = GetControlValue(ctrl)
Dim controltype = ctrl.GetType.ToString
If TypeOf ctrl Is PictureBox Then
@@ -542,7 +542,7 @@ Public Class ClassControlCommandsUI
Continue For
End If
'Dim ValueExists = ClassDatabase.Execute_Scalar(String.Format("SELECT RECORD_ID FROM VWPMO_VALUES WHERE RECORD_ID = {0} AND CONTROL_ID = {1}", RecordID, CONTROL_ID))
Dim ValueExists = VALUE_EXISTS_DT.Select(String.Format("CONTROL_ID = {0}", CONTROL_ID))
Dim ValueChanged As Boolean = _CtrlBuilder.ControlsChanged.Contains(CONTROL_ID)
@@ -554,7 +554,7 @@ Public Class ClassControlCommandsUI
'If CONTROL_ID = 995 Or CONTROL_ID = 996 Or CONTROL_ID = 997 Or CONTROL_ID = 810 Then
' Console.WriteLine("sdasd")
'End If
LOGGER.Debug("InsertControlValue: " & CONTROL_ID & "|" & RecordID & "|" & CONTROL_VALUE, False)
LOGGER.Debug("InsertControlValue: " & CONTROL_ID & "|" & RecordID & "|" & CONTROL_VALUE)
If Not IsNothing(CONTROL_VALUE) Then
If TypeOf ctrl Is CustomComboBox And CONTROL_VALUE = "" Then
'Exit Sub - Zuviel des guten
@@ -577,9 +577,9 @@ Public Class ClassControlCommandsUI
If (isDateEdit Or isTextBox Or isComboBox) And isEmptyValue Then
Dim sql As String = $"DELETE FROM TBPMO_CONTROL_VALUE WHERE RECORD_ID = {RecordID} AND CONTROL_ID = {CONTROL_ID}"
If ClassDatabase.Execute_non_Query(sql) = True Then
If MYDB_ECM.ExecuteNonQuery(sql) = True Then
If LICENSE_PROXY = True Or clsDatabase.DB_PROXY_INITIALIZED = True Then
ClassDatabase.Execute_non_Query(sql, True)
MYDB_ECM.ExecuteNonQuery(sql, True)
End If
End If
@@ -612,7 +612,7 @@ Public Class ClassControlCommandsUI
Public Shared Sub UpdateMultipleValues(ControlId As Integer, RecordId As Integer, value As String)
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(val, True)
Dim dt As DataTable = MYDB_ECM.GetDatatable(val)
If IsNothing(dt) Then
Exit Sub
End If
@@ -644,7 +644,7 @@ Public Class ClassControlCommandsUI
End If
Next
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))
MYDB_ECM.ExecuteNonQuery(String.Format("DELETE FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = {0} AND RECORD_ID = {1} AND VALUE = '{2}'", ControlId, RecordId, v))
' ClassProxy.PRPROXY_CONTROL_DEL(RecordId, CURRENT_ENTITY_ID, ControlId)
Next
ClassProxy.PRPROXY_CONTROL_VALUE_UPD_INS(CURRENT_ENTITY_ID, ControlId, RecordId, "")
@@ -657,14 +657,14 @@ Public Class ClassControlCommandsUI
Dim type = ctrl.GetType().Name
Dim CONTROL_ID As Integer = DirectCast(ctrl.Tag, ClassControlMetadata).Id ' GetControlID_for_RecordID(ctrl.Name, CURRENT_RECORD_ID)
LOGGER.Debug("GetControlValue CONTROL_ID: " & CONTROL_ID, False)
LOGGER.Debug("GetControlValue CONTROL_ID: " & CONTROL_ID)
Dim CONTROL_VALUE As String = Nothing
LOGGER.Debug("type = " & type.ToString, False)
LOGGER.Debug("type = " & type.ToString)
Select Case type
Case "TextBox"
Return DirectCast(ctrl, TextBox).Text
Case "CustomComboBox"
LOGGER.Debug("Return Value: " & DirectCast(ctrl, CustomComboBox).Text, False)
LOGGER.Debug("Return Value: " & DirectCast(ctrl, CustomComboBox).Text)
Return DirectCast(ctrl, CustomComboBox).Text
Case "CheckBox"
Return DirectCast(ctrl, CheckBox).Checked.ToString()
@@ -689,7 +689,7 @@ Public Class ClassControlCommandsUI
Case "CheckedListBoxControl"
Dim chklbx As 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, True)
Dim SQL_COMAMND = MYDB_ECM.ExecuteNonQuery("SELECT UPPER(SQL_COMMAND_1) FROM TBPMO_CONTROL WHERE GUID = " & CONTROL_ID)
'TODO: Wenn keine Datasource vorhanden, angecheckte einträge als string speichern
If IsNothing(chklbx.DataSource) Then
@@ -718,10 +718,10 @@ Public Class ClassControlCommandsUI
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, True) = 1 Then
If MYDB_ECM.ExecuteNonQuery(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
LOGGER.Debug("TBPMO_RECORD_CONNECT-Entry after 'deselect CheckedListBox' deleted", False)
If MYDB_ECM.ExecuteNonQuery(SQL) = True Then
LOGGER.Debug("TBPMO_RECORD_CONNECT-Entry after 'deselect CheckedListBox' deleted")
End If
End If
End If
@@ -744,12 +744,12 @@ Public Class ClassControlCommandsUI
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, True) = 0 Then
If MYDB_ECM.ExecuteNonQuery(SQL, True) = 0 Then
If CURRENT_RECORD_ID = 0 Then
MsgBox("Attention: no current record Selected!", MsgBoxStyle.Exclamation)
Else
If ClassRecordCommands.ConnectRecord(CURRENT_RECORD_ID, CInt(row(0)), "CheckedListBox;" & ctrl.Name) = True Then
LOGGER.Debug("Checked ListBox record '" & rid.ToString & "' was linked successfully.", False)
LOGGER.Debug("Checked ListBox record '" & rid.ToString & "' was linked successfully.")
End If
End If
@@ -779,7 +779,7 @@ Public Class ClassControlCommandsUI
' Ü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
'If MYDB_ECM.GetScalarValue(SQL) = 0 Then
' InsertControlValue(CONTROL_ID, CURRENT_RECORD_ID, "")
'End If
Return checked_result_string
@@ -792,7 +792,7 @@ Public Class ClassControlCommandsUI
Dim chk_grid As DevExpress.XtraGrid.GridControl
chk_grid = DirectCast(ctrl, DevExpress.XtraGrid.GridControl)
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, True)
Dim SQL_COMAMND = MYDB_ECM.ExecuteNonQuery("SELECT UPPER(SQL_COMMAND_1) FROM TBPMO_CONTROL WHERE GUID = " & CONTROL_ID)
Dim result As New List(Of String)
Dim result_string As String
@@ -891,7 +891,7 @@ Public Class ClassControlCommandsUI
Dim converted_value = Check_and_Format_Value(ControlID, RecordID, Value)
If Not IsNothing(converted_value) Then
Dim connection As New SqlConnection
connection.ConnectionString = MyConnectionString
connection.ConnectionString = MYDB_ECM.CurrentConnectionString
Using cmd As New SqlCommand("PRPMO_CREATE_CONTROL_VALUE", connection)
cmd.CommandType = CommandType.StoredProcedure
cmd.Parameters.AddWithValue("@pRECORD_ID", RecordID)
@@ -913,7 +913,7 @@ Public Class ClassControlCommandsUI
_result = 0
End If
Catch ex As Exception
Dim name = clsDatabase.Execute_Scalar("SELECT NAME FROM TBPMO_CONTROL WHERE GUID = " & ControlID, True)
Dim name = MYDB_ECM.GetScalarValue("SELECT NAME FROM TBPMO_CONTROL WHERE GUID = " & ControlID)
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in CreateControlProcedure für Control: " & name)
LOGGER.Warn("Error in CreateControlProcedure: " & ex.Message, True)
Return 0
@@ -927,13 +927,13 @@ Public Class ClassControlCommandsUI
converted_value = converted_value.Replace("'", "´")
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, converted_value, AddedWho)
If LICENSE_PROXY = True Or clsDatabase.DB_PROXY_INITIALIZED = True Then
If ClassDatabase.Execute_non_Query(ins) = True Then
If MYDB_ECM.ExecuteNonQuery(ins) = True Then
Return ClassProxy.PRPROXY_CONTROL_VALUE_UPD_INS(ENTITY_ID, ControlID, RecordID, converted_value)
Else
Return False
End If
Else
Return ClassDatabase.Execute_non_Query(ins)
Return MYDB_ECM.ExecuteNonQuery(ins)
End If
Else
Return False
@@ -957,13 +957,13 @@ Public Class ClassControlCommandsUI
LOGGER.Warn(upd)
End If
If LICENSE_PROXY = True Or clsDatabase.DB_PROXY_INITIALIZED = True Then
If ClassDatabase.Execute_non_Query(upd) = True Then
If MYDB_ECM.ExecuteNonQuery(upd) = True Then
Return ClassProxy.PRPROXY_CONTROL_VALUE_UPD_INS(ENTITY_ID, ControlID, RecordID, converted_value)
Else
Return False
End If
Else
Return ClassDatabase.Execute_non_Query(upd)
Return MYDB_ECM.ExecuteNonQuery(upd)
End If
Catch ex As Exception
LOGGER.Warn("Unerwarteter Fehler in UpdateControlValue: " & ex.Message)

62
app/DD-Record-Organizer/Classes/Controls/ClassControlLoader.vb
View File

@@ -18,20 +18,20 @@
Try
Dim AutoValue As String = String.Empty
Dim ControlId As Integer = DirectCast(control.Tag, ClassControlMetadata).Id
Dim CONNID = ClassDatabase.Execute_Scalar(String.Format("SELECT CONNECTION_ID_1 FROM TBPMO_CONTROL WHERE GUID = {0}", ControlId))
Dim SQL As String = ClassDatabase.Execute_Scalar(String.Format("SELECT SQL_COMMAND_1 FROM TBPMO_CONTROL WHERE GUID = {0}", ControlId))
Dim CONNID = MYDB_ECM.GetScalarValue(String.Format("SELECT CONNECTION_ID_1 FROM TBPMO_CONTROL WHERE GUID = {0}", ControlId))
Dim SQL As String = MYDB_ECM.GetScalarValue(String.Format("SELECT SQL_COMMAND_1 FROM TBPMO_CONTROL WHERE GUID = {0}", ControlId))
SQL = ClassControlValues.ReplaceSqlCommandPlaceholders(SQL, RecordId, ParentRecordId, entity_ID)
If SQL = "" Or IsDBNull(SQL) Then
Return Nothing
End If
If Not IsNothing(CONNID) Then
AutoValue = ClassDatabase.Execute_ScalarWithConnection(CONNID, SQL)
Else
AutoValue = ClassDatabase.Execute_Scalar(SQL, True)
End If
' AutoValue = ClassDatabase.Execute_Scalar(SQL)
'If Not IsNothing(CONNID) Then
' AutoValue = ClassDatabase.Execute_ScalarWithConnection(CONNID, SQL)
'Else
AutoValue = MYDB_ECM.GetScalarValue(SQL)
' End If
' AutoValue = MYDB_ECM.GetScalarValue(SQL)
If String.IsNullOrEmpty(AutoValue) Or IsDBNull(AutoValue) Then
Return Nothing
@@ -64,7 +64,7 @@
' 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 STATIC_LIST FROM TBPMO_CONTROL WHERE GUID = {0}", controlId)
Dim staticList As String = ClassDatabase.Execute_Scalar(SQL, True)
Dim staticList As String = MYDB_ECM.GetScalarValue(SQL)
If IsNothing(staticList) Or String.IsNullOrWhiteSpace(staticList) Then
Return Nothing
@@ -87,11 +87,11 @@
Dim final As DataTable
If cached Is Nothing Then
If Not IsDBNull(connection_Id) Then
final = ClassDatabase.MSSQL_ReturnDTWithConnection(connection_Id, sqlCommand)
Else
final = ClassDatabase.Return_Datatable(sqlCommand)
End If
'If Not IsDBNull(connection_Id) Then
' final = ClassDatabase.MSSQL_ReturnDTWithConnection(connection_Id, sqlCommand)
'Else
final = MYDB_ECM.GetDatatable(sqlCommand)
'End If
ClassControlValueCache.SaveToCache(sqlCommand, final)
Console.WriteLine("CACHE MISS")
Else
@@ -123,7 +123,7 @@
'Jetzt noch den Columnname ändern
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), True)
Dim caption As String = MYDB_ECM.GetScalarValue(String.Format("SELECT COL_NAME FROM TBPMO_CONTROL WHERE GUID = {0}", DirectCast(control.Tag, ClassControlMetadata).Id))
gridview.Columns(0).Caption = caption
Catch ex As Exception
MsgBox("Error in SetDataSource - GridControl: " & ex.Message, MsgBoxStyle.Critical)
@@ -234,22 +234,22 @@
ID = drarray(0)("CONNECTION_ID").ToString
End Try
If Not IsNothing(ID) Then
Sql = drarray(0)("SQL_COMMAND_1").ToString
Sql = ClassControlValues.ReplaceSqlCommandPlaceholders(Sql, recordId, parentRecordId, entity_ID)
autoValue = ClassDatabase.Execute_ScalarWithConnection(ID, Sql)
Else
autoValue = ClassDatabase.Execute_Scalar(Sql, True)
End If
'If Not IsNothing(ID) Then
' Sql = drarray(0)("SQL_COMMAND_1").ToString
' Sql = ClassControlValues.ReplaceSqlCommandPlaceholders(Sql, recordId, parentRecordId, entity_ID)
' autoValue = ClassDatabase.Execute_ScalarWithConnection(ID, Sql)
'Else
autoValue = MYDB_ECM.GetScalarValue(Sql)
'End If
If IsNothing(autoValue) Then
If VARIABLE_VALUE = True Then
control.Text = value
Else
Sql = String.Format("SELECT GUID FROM TBPMO_CONTROL_SCREEN WHERE CONTROL_ID = {0} AND SCREEN_ID = {1}", ControlId, CURRENT_SCREEN_ID)
Dim ctrl_screen_id = ClassDatabase.Execute_Scalar(Sql, True)
Dim ctrl_screen_id = MYDB_ECM.GetScalarValue(Sql)
If ctrl_screen_id > 0 Then
Sql = String.Format("SELECT CAPTION FROM TBPMO_CONTROL_LANGUAGE WHERE CONTROL_SCREEN_ID = {0} AND LANGUAGE_TYPE = '{1}'", ctrl_screen_id, USER_LANGUAGE)
Dim labelText As String = ClassDatabase.Execute_Scalar(Sql)
Dim labelText As String = MYDB_ECM.GetScalarValue(SQL)
control.Text = labelText
End If
End If
@@ -265,7 +265,7 @@
Catch ex As Exception
MsgBox("Unexpected Error in LoadValueMain:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
LOGGER.Warn("Unexpected Error in LoadValueMain: " & ex.Message)
LOGGER.Warn(String.Format("ControlID: {0}" & vbNewLine & "recordid: {1}" & vbNewLine & "parentRecordId: {2}" & vbNewLine & "value: {3}" & vbNewLine & "entity_ID: {4}" & vbNewLine & "VARIABLE_VALUE: {5}", ControlId, recordId, parentRecordId, value, entity_ID, VARIABLE_VALUE), False)
LOGGER.Warn(String.Format("ControlID: {0}" & vbNewLine & "recordid: {1}" & vbNewLine & "parentRecordId: {2}" & vbNewLine & "value: {3}" & vbNewLine & "entity_ID: {4}" & vbNewLine & "VARIABLE_VALUE: {5}", ControlId, recordId, parentRecordId, value, entity_ID, VARIABLE_VALUE))
End Try
End Sub
@@ -338,12 +338,12 @@
Dim Sql = drarray(0)("SQL_COMMAND").ToString
If Not IsNothing(ID) Then
autoValue = ClassDatabase.Execute_ScalarWithConnection(ID, Sql)
Else
autoValue = ClassDatabase.Execute_Scalar(Sql, True)
End If
' AutoValue = ClassDatabase.Execute_Scalar(SQL)
'If Not IsNothing(ID) Then
' autoValue = ClassDatabase.Execute_ScalarWithConnection(ID, Sql)
'Else
autoValue = MYDB_ECM.GetScalarValue(Sql)
'End If
' AutoValue = MYDB_ECM.GetScalarValue(SQL)
If String.IsNullOrEmpty(autoValue) Or IsDBNull(autoValue) Then
control.Text = value

158
app/DD-Record-Organizer/Classes/Controls/ClassControlValues.vb
View File

@@ -157,7 +157,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 RECORD_ID = {0}", RecordId)
Dim DT_ControlValues As DataTable = ClassDatabase.Return_Datatable(SQL, True)
Dim DT_ControlValues As DataTable = MYDB_ECM.GetDatatable(SQL)
CURRENT_CONTROL_VALUES = DT_ControlValues
sw.Done()
@@ -174,7 +174,7 @@ Public Class ClassControlValues
sw = New SW("LoadControlValues2")
' Load all Hints for controls
Dim SQLHint = "SELECT * FROM VWPMO_CONTROL_HINT WHERE FORM_ID = " & FormId
Dim DT_Hints As DataTable = ClassDatabase.Return_Datatable(SQLHint, True)
Dim DT_Hints As DataTable = MYDB_ECM.GetDatatable(SQLHint)
' ' Hint in DT_Hints suchen der zur aktuellen controlId passt
For Each row As DataRow In DT_Hints.Rows
ClassControlValueCache.SaveHint(row.Item(1), row.Item(2))
@@ -214,7 +214,7 @@ Public Class ClassControlValues
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 VALUE FROM VWPMO_VALUES WHERE RECORD_ID = {0} AND CONTROL_ID = {1}", RecordId, CONTROL_ID)
Dim RESULT = ClassDatabase.Execute_Scalar(SQL, True)
Dim RESULT = MYDB_ECM.ExecuteNonQuery(SQL)
If IsNothing(RESULT) Then
Return Nothing
ElseIf RESULT = "" Then
@@ -235,7 +235,7 @@ Public Class ClassControlValues
Dim id As Integer = DirectCast(c.Tag, ClassControlMetadata).Id
Dim sql As String = String.Format("SELECT HINT FROM TBPMO_CONTROL_LANGUAGE WHERE CONTROL_SCREEN_ID = (SELECT GUID FROM TBPMO_CONTROL_SCREEN WHERE CONTROL_ID = {0} AND SCREEN_ID = 1) AND LANGUAGE_TYPE = '{1}' AND HINT IS NOT NULL", id, USER_LANGUAGE)
Dim hint = ClassDatabase.Execute_Scalar(sql)
Dim hint = MYDB_ECM.GetScalarValue(sql)
If IsNothing(hint) Then
Continue For
@@ -251,64 +251,64 @@ Public Class ClassControlValues
' Für die meisten Controls wird nur das erste Element der Liste benötigt
Dim value As String = Nothing
If values.Count > 0 Then
value = values.Item(0)
End If
Select Case control.GetType()
Case GetType(TextBox)
If CURRENT_CONTROL_ID = 272 Then
Console.WriteLine("272")
End If
Dim textbox As TextBox = DirectCast(control, TextBox)
ControlLoader.TextBox.LoadValue(textbox, recordId, parentRecordId, value, entity_ID)
If values.Count > 0 Then
value = values.Item(0)
End If
Select Case control.GetType()
Case GetType(TextBox)
If CURRENT_CONTROL_ID = 272 Then
Console.WriteLine("272")
End If
Dim textbox As TextBox = DirectCast(control, TextBox)
ControlLoader.TextBox.LoadValue(textbox, recordId, parentRecordId, value, entity_ID)
Case GetType(Label)
Dim label As Label = DirectCast(control, Label)
ControlLoader.Label.LoadValue(label, recordId, parentRecordId, value, entity_ID)
Case GetType(Label)
Dim label As Label = DirectCast(control, Label)
ControlLoader.Label.LoadValue(label, recordId, parentRecordId, value, entity_ID)
Case GetType(CustomComboBox)
Case GetType(CustomComboBox)
Dim combobox As CustomComboBox = DirectCast(control, CustomComboBox)
ControlLoader.Combobox.LoadValue(combobox, recordId, parentRecordId, value)
Dim combobox As CustomComboBox = DirectCast(control, CustomComboBox)
ControlLoader.Combobox.LoadValue(combobox, recordId, parentRecordId, value)
Case GetType(CheckBox)
Dim checkbox As CheckBox = DirectCast(control, CheckBox)
ControlLoader.Checkbox.LoadValue(checkbox, value)
Case GetType(CheckBox)
Dim checkbox As CheckBox = DirectCast(control, CheckBox)
ControlLoader.Checkbox.LoadValue(checkbox, value)
Case GetType(RadioButton)
LOGGER.Debug("Sub LoadControlValueNeu - GetType(RadioButton) ", False)
Case GetType(RadioButton)
LOGGER.Debug("Sub LoadControlValueNeu - GetType(RadioButton) ")
Dim radiobutton As RadioButton = DirectCast(control, RadioButton)
ControlLoader.RadioButton.LoadValue(radiobutton, value)
ControlLoader.RadioButton.LoadValue(radiobutton, value)
Case GetType(DevExpress.XtraEditors.DateEdit)
Dim datepicker As DevExpress.XtraEditors.DateEdit = DirectCast(control, DevExpress.XtraEditors.DateEdit)
ControlLoader.DateTimePicker.LoadValue(datepicker, value)
Case GetType(DevExpress.XtraEditors.DateEdit)
Dim datepicker As DevExpress.XtraEditors.DateEdit = DirectCast(control, DevExpress.XtraEditors.DateEdit)
ControlLoader.DateTimePicker.LoadValue(datepicker, value)
Case GetType(DevExpress.XtraEditors.ListBoxControl)
Dim listbox As DevExpress.XtraEditors.ListBoxControl = DirectCast(control, DevExpress.XtraEditors.ListBoxControl)
ControlLoader.ListBox.LoadValue(listbox, value)
Case GetType(DevExpress.XtraEditors.ListBoxControl)
Dim listbox As DevExpress.XtraEditors.ListBoxControl = DirectCast(control, DevExpress.XtraEditors.ListBoxControl)
ControlLoader.ListBox.LoadValue(listbox, value)
Case GetType(DevExpress.XtraEditors.CheckedListBoxControl)
Dim checkedlistbox As DevExpress.XtraEditors.CheckedListBoxControl = DirectCast(control, DevExpress.XtraEditors.CheckedListBoxControl)
ControlLoader.CheckedListBox.LoadValue(checkedlistbox, values)
Case GetType(DevExpress.XtraEditors.CheckedListBoxControl)
Dim checkedlistbox As DevExpress.XtraEditors.CheckedListBoxControl = DirectCast(control, DevExpress.XtraEditors.CheckedListBoxControl)
ControlLoader.CheckedListBox.LoadValue(checkedlistbox, values)
Case GetType(PictureBox)
Dim picturebox = DirectCast(control, PictureBox)
LoadImage(recordId, controlId, picturebox)
Case GetType(PictureBox)
Dim picturebox = DirectCast(control, PictureBox)
LoadImage(recordId, controlId, picturebox)
Case GetType(DataGridView)
Dim gridview = DirectCast(control, DataGridView)
ControlLoader.DataGridView.LoadValue(gridview, values)
Case GetType(DataGridView)
Dim gridview = DirectCast(control, DataGridView)
ControlLoader.DataGridView.LoadValue(gridview, values)
Case GetType(DevExpress.XtraGrid.GridControl)
Dim gridcontrol As DevExpress.XtraGrid.GridControl = DirectCast(control, DevExpress.XtraGrid.GridControl)
ControlLoader.DataGridViewCheckable.LoadValue(gridcontrol, values)
Case Else
If GetType(Control).ToString() <> "System.Windows.Forms.Control" Then
LOGGER.Warn("Sub LoadControlValue - Control-Type nicht berücksichtigt: " & GetType(Control).ToString(), False)
Case GetType(DevExpress.XtraGrid.GridControl)
Dim gridcontrol As DevExpress.XtraGrid.GridControl = DirectCast(control, DevExpress.XtraGrid.GridControl)
ControlLoader.DataGridViewCheckable.LoadValue(gridcontrol, values)
Case Else
If GetType(Control).ToString() <> "System.Windows.Forms.Control" Then
LOGGER.Warn("Sub LoadControlValue - Control-Type nicht berücksichtigt: " & GetType(Control).ToString())
End If
End Select
End Select
'Catch ex As Exception
' Logger.Warn("Unexpected Error in LoadControlValue: " & ex.Message)
' MsgBox("Error in LoadControlValue:" & vbNewLine & ex.Message)
@@ -332,7 +332,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 NOT LIKE '%@%'", FormID)
Dim Sql = String.Format("FORM_ID = {0} AND CONTROL_SQLCOMMAND_1 NOT LIKE '%@%'", FormID)
Dim dt As DataTable = ClassHelper.FILTER_DATATABLE(DT_VWPMO_CONTROL_SCREEN, Sql, "") 'ClassDatabase.Return_Datatable(SQL, True)
Dim dt As DataTable = ClassHelper.FILTER_DATATABLE(DT_VWPMO_CONTROL_SCREEN, Sql, "")
sw.Done()
@@ -400,7 +400,7 @@ Public Class ClassControlValues
Dim commands As New List(Of String)
Dim expression As String = String.Format("FORM_ID = {0} AND CONTROL_SQLCOMMAND_1 <> '' AND CONTROL_SQLCOMMAND_1 LIKE '%@%'", FormId)
Dim dt As DataTable = ClassHelper.FILTER_DATATABLE(DT_VWPMO_CONTROL_SCREEN, expression, "") 'ClassDatabase.Return_Datatable(SQL, True)
Dim dt As DataTable = ClassHelper.FILTER_DATATABLE(DT_VWPMO_CONTROL_SCREEN, expression, "")
If dt.Rows.Count = 0 Then
Exit Sub
@@ -421,7 +421,7 @@ Public Class ClassControlValues
'eigentlich sollte eine Parent_RecordID da sein
Try
Dim _SQL = String.Format("SELECT RECORD1_ID FROM TBPMO_RECORD_CONNECT WHERE RECORD2_ID = {0}", RecordId)
Dim ParentRec = ClassDatabase.Execute_Scalar(_SQL)
Dim ParentRec = MYDB_ECM.ExecuteNonQuery(_SQL)
If Not IsNothing(ParentRec) Then
If ParentRec > 0 Then
ParentRecordId = ParentRec
@@ -482,7 +482,7 @@ Public Class ClassControlValues
& "AND LEN(SQL_COMMAND_2) > 10 AND SQL_COMMAND_2 LIKE '%@%@%'", FormId)
Dim sw As New SW("Enable_Depending_Controls")
Dim commands As New List(Of String)
Dim dt As DataTable = ClassDatabase.Return_Datatable(SQL)
Dim dt As DataTable = MYDB_ECM.GetDatatable(SQL)
If dt.Rows.Count = 0 Then
Exit Sub
@@ -491,11 +491,11 @@ Public Class ClassControlValues
' Durchlaufe alle Controls, die eine Abhängigheit haben
For Each row As DataRow In dt.Rows
Dim msg = String.Format("Working on Depending Control-ID: {0}", row.Item("GUID").ToString)
LOGGER.Debug(msg, False)
LOGGER.Debug(msg)
Dim DependingControlId As Integer = row.Item("GUID")
Dim DependingControlSQL As String = row.Item("SQL_COMMAND_2")
msg = String.Format("SQL: {0}", DependingControlSQL)
LOGGER.Debug(msg, False)
LOGGER.Debug(msg)
Dim DependingControl As Control = controls.OfType(Of Control)().Where(Function(c As Control)
Return DirectCast(c.Tag, ClassControlMetadata).Id = DependingControlId
End Function).SingleOrDefault()
@@ -526,27 +526,27 @@ Public Class ClassControlValues
Select Case otherControlType
Case "CheckBox"
msg = String.Format("CheckBox-CtrlID: {0}", otherControlId)
LOGGER.Debug(msg, False)
LOGGER.Debug(msg)
value = DirectCast(otherControl, CheckBox).Checked
Case "TextBox"
msg = String.Format("TextBox-CtrlID: {0}", otherControlId)
LOGGER.Debug(msg, False)
LOGGER.Debug(msg)
value = DirectCast(otherControl, TextBox).Text
Case "CustomComboBox"
msg = String.Format("CustomComboBox-CtrlID: {0}", otherControlId)
LOGGER.Debug(msg, False)
LOGGER.Debug(msg)
value = DirectCast(otherControl, CustomComboBox).Text
Case "DateEdit"
msg = String.Format("DateEdit-CtrlID: {0}", otherControlId)
LOGGER.Debug(msg, False)
LOGGER.Debug(msg)
value = DirectCast(otherControl, DevExpress.XtraEditors.DateEdit).EditValue
End Select
' Jetzt ersetzen wir den Platzhalter im SQL Command
DependingControlSQL = regex.Replace(DependingControlSQL, value)
msg = String.Format("DependingControlSQL: {0}", DependingControlSQL)
LOGGER.Debug(msg, False)
Dim enableDT As DataTable = ClassDatabase.Return_Datatable(DependingControlSQL)
LOGGER.Debug(msg)
Dim enableDT As DataTable = MYDB_ECM.GetDatatable(DependingControlSQL)
If IsNothing(enableDT) Then
msg = String.Format("enableDT is nothing!! CHECK SQL {0}." & vbNewLine, DependingControlSQL)
LOGGER.Warn(msg)
@@ -564,10 +564,10 @@ Public Class ClassControlValues
DependingControl.Enabled = enabled
If enabled = False Then
msg = String.Format("Control {0} will be disabled." & vbNewLine, DependingControlId.ToString)
LOGGER.Debug(msg, False)
LOGGER.Debug(msg)
Else
msg = String.Format("Control {0} will be enabled." & vbNewLine, DependingControlId.ToString)
LOGGER.Debug(msg, False)
LOGGER.Debug(msg)
End If
Else
@@ -576,7 +576,7 @@ Public Class ClassControlValues
End If
Next
sw.done
sw.Done()
Catch ex As Exception
LOGGER.Warn("Unexpected Error in Enable_Depending_Controls: " & ex.Message, True)
MsgBox("Unexpected Error in Enable_Depending_Controls:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
@@ -612,7 +612,7 @@ Public Class ClassControlValues
Public Shared Sub LoadImage(RecordID As Integer, ControlID As Integer, control As Control)
Dim picbox As PictureBox = DirectCast(control, PictureBox)
Dim SQL As String = String.Format("SELECT IMG FROM TBPMO_CONTROL_IMAGE WHERE RECORD_ID = {0} AND CONTROL_ID = {1}", RecordID, ControlID)
Dim bimage As Byte() = ClassDatabase.Execute_Scalar(SQL)
Dim bimage As Byte() = MYDB_ECM.GetScalarValue(SQL)
If Not IsNothing(bimage) Then
picbox.BackgroundImage = ByteArrayToBitmap(bimage)
@@ -713,9 +713,9 @@ Public Class ClassControlValues
ClearControlValues(controls)
' 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)
Dim DEFAULT_VALUE_DT As DataTable = ClassDatabase.Return_Datatable(SQL, True)
Dim DEFAULT_VALUE_DT As DataTable = MYDB_ECM.GetDatatable(SQL)
For Each row As DataRow In DEFAULT_VALUE_DT.Rows
@@ -726,7 +726,7 @@ Public Class ClassControlValues
Try
Dim control As Control = controls.Find(controlName, False)(0)
LoadDefaultValue(controlId, RecordID, Control, parentRecordID, EntityID, defaultValue)
LoadDefaultValue(controlId, RecordID, control, parentRecordID, EntityID, defaultValue)
Catch ex As Exception
LOGGER.Warn("Unexpected Error in getting default value for control '" & controlName & " - " & ex.Message, True)
End Try
@@ -777,10 +777,10 @@ Public Class ClassControlValues
Public Shared Sub LoadDefaultValue(ControlID As Integer, RecordID As Integer, control As Control, ParentRecordId As Integer, entity_ID As Integer, defaultValue As Object)
Try
'Dim SQL = String.Format("SELECT CONTROL_DEF_VALUE FROM VWPMO_CONTROL_SCREEN WHERE CONTROL_ID = {0} and CONTROL_DEF_VALUE <> ''", ControlID)
'Dim defaultValue = ClassDatabase.Execute_Scalar(SQL)
'Dim defaultValue = MYDB_ECM.GetScalarValue(SQL)
'Dim SQL = "SELECT * FROM VWPMO_CONTROL_SCREEN WHERE CONTROL_ID = " & ControlID
'Dim DT As DataTable = ClassDatabase.Return_Datatable(SQL)
'Dim DT As DataTable = MYDB_ECM.GetDatatable(SQL)
'Dim result = DT.Rows(0).Item("CONTROL_DEF_VALUE")
Select Case control.GetType()
@@ -799,7 +799,7 @@ Public Class ClassControlValues
vorgabe = vorgabe.Replace("@RECORD_ID", CURRENT_RECORD_ID)
vorgabe = vorgabe.Replace("@RECORDID", CURRENT_RECORD_ID)
vorgabe = vorgabe.Replace("@PARENTRECORD_ID", CURRENT_PARENT_RECORD_ID)
defaultValue = ClassDatabase.Execute_Scalar(vorgabe.ToString, True)
defaultValue = MYDB_ECM.ExecuteNonQuery(vorgabe.ToString)
If IsNothing(vorgabe) Then
textbox.Text = ""
End If
@@ -850,8 +850,8 @@ Public Class ClassControlValues
datepicker.EditValue = defaultValue
Case GetType(Label)
Dim lbl As Label = DirectCast(control, Label)
Dim CONNID = ClassDatabase.Execute_Scalar(String.Format("SELECT CONNECTION_ID_1 FROM TBPMO_CONTROL WHERE GUID = {0}", ControlID))
'Dim SQL_AUTOVALUE As String = ClassDatabase.Execute_Scalar(String.Format("SELECT SQL_COMMAND_1 FROM TBPMO_CONTROL WHERE GUID = {0}", ControlID))
Dim CONNID = MYDB_ECM.ExecuteNonQuery(String.Format("SELECT CONNECTION_ID_1 FROM TBPMO_CONTROL WHERE GUID = {0}", ControlID))
defaultValue = ClassControlValues.ReplaceSqlCommandPlaceholders(defaultValue, RecordID, ParentRecordId, entity_ID)
@@ -859,12 +859,12 @@ Public Class ClassControlValues
Exit Sub
End If
If Not IsNothing(CONNID) Then
defaultValue = ClassDatabase.Execute_ScalarWithConnection(CONNID, defaultValue)
Else
defaultValue = ClassDatabase.Execute_Scalar(defaultValue, True)
End If
' AutoValue = ClassDatabase.Execute_Scalar(SQL)
'If Not IsNothing(CONNID) Then
' defaultValue = ClassDatabase.Execute_ScalarWithConnection(CONNID, defaultValue)
'Else
defaultValue = MYDB_ECM.ExecuteNonQuery(defaultValue)
'End If
' AutoValue = MYDB_ECM.GetScalarValue(SQL)
If Not IsNothing(defaultValue) And Not IsDBNull(defaultValue) Then
lbl.Text = defaultValue
@@ -882,7 +882,7 @@ Public Class ClassControlValues
Try
Dim sql = "SELECT VALUE FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = " & Control_ID & " AND RECORD_ID = " & Record_ID
CURRENT_LAST_SQL = sql
Return ClassDatabase.Execute_Scalar(sql)
Return MYDB_ECM.GetScalarValue(sql)
Catch ex As Exception
LOGGER.Warn("Unexpected Error in GetControlValueForControlID: " & ex.Message)
MsgBox("Error in GetControlValueForControlID:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)

402
app/DD-Record-Organizer/DD_DMSDataSet.Designer.vb generated
View File

@@ -8957,14 +8957,6 @@ Partial Public Class DD_DMSDataSet
Private columnEMAIL As Global.System.Data.DataColumn
Private columnLOGGED_IN As Global.System.Data.DataColumn
Private columnLOGGED_WHERE As Global.System.Data.DataColumn
Private columnLOG_IN_WHEN As Global.System.Data.DataColumn
Private columnLOG_OUT_WHEN As Global.System.Data.DataColumn
Private columnADDED_WHO As Global.System.Data.DataColumn
Private columnADDED_WHEN As Global.System.Data.DataColumn
@@ -9060,38 +9052,6 @@ Partial Public Class DD_DMSDataSet
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property LOGGED_INColumn() As Global.System.Data.DataColumn
Get
Return Me.columnLOGGED_IN
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property LOGGED_WHEREColumn() As Global.System.Data.DataColumn
Get
Return Me.columnLOGGED_WHERE
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property LOG_IN_WHENColumn() As Global.System.Data.DataColumn
Get
Return Me.columnLOG_IN_WHEN
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property LOG_OUT_WHENColumn() As Global.System.Data.DataColumn
Get
Return Me.columnLOG_OUT_WHEN
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn
@@ -9209,27 +9169,9 @@ Partial Public Class DD_DMSDataSet
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Overloads Function AddTBDD_USERRow( _
ByVal PRENAME As String, _
ByVal NAME As String, _
ByVal USERNAME As String, _
ByVal EMAIL As String, _
ByVal LOGGED_IN As Boolean, _
ByVal LOGGED_WHERE As String, _
ByVal LOG_IN_WHEN As Date, _
ByVal LOG_OUT_WHEN As Date, _
ByVal ADDED_WHO As String, _
ByVal ADDED_WHEN As Date, _
ByVal CHANGED_WHO As String, _
ByVal CHANGED_WHEN As Date, _
ByVal LANGUAGE As String, _
ByVal COMMENT As String, _
ByVal SHORTNAME As String, _
ByVal WAN_ENVIRONMENT As Boolean, _
ByVal DATE_FORMAT As String, _
ByVal GENERAL_VIEWER As String) As TBDD_USERRow
Public Overloads Function AddTBDD_USERRow(ByVal PRENAME As String, ByVal NAME As String, ByVal USERNAME As String, ByVal EMAIL As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal LANGUAGE As String, ByVal COMMENT As String, ByVal SHORTNAME As String, ByVal WAN_ENVIRONMENT As Boolean, ByVal DATE_FORMAT As String, ByVal GENERAL_VIEWER As String) As TBDD_USERRow
Dim rowTBDD_USERRow As TBDD_USERRow = CType(Me.NewRow,TBDD_USERRow)
Dim columnValuesArray() As Object = New Object() {Nothing, PRENAME, NAME, USERNAME, EMAIL, LOGGED_IN, LOGGED_WHERE, LOG_IN_WHEN, LOG_OUT_WHEN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, LANGUAGE, COMMENT, SHORTNAME, WAN_ENVIRONMENT, DATE_FORMAT, GENERAL_VIEWER}
Dim columnValuesArray() As Object = New Object() {Nothing, PRENAME, NAME, USERNAME, EMAIL, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, LANGUAGE, COMMENT, SHORTNAME, WAN_ENVIRONMENT, DATE_FORMAT, GENERAL_VIEWER}
rowTBDD_USERRow.ItemArray = columnValuesArray
Me.Rows.Add(rowTBDD_USERRow)
Return rowTBDD_USERRow
@@ -9263,10 +9205,6 @@ Partial Public Class DD_DMSDataSet
Me.columnNAME = MyBase.Columns("NAME")
Me.columnUSERNAME = MyBase.Columns("USERNAME")
Me.columnEMAIL = MyBase.Columns("EMAIL")
Me.columnLOGGED_IN = MyBase.Columns("LOGGED_IN")
Me.columnLOGGED_WHERE = MyBase.Columns("LOGGED_WHERE")
Me.columnLOG_IN_WHEN = MyBase.Columns("LOG_IN_WHEN")
Me.columnLOG_OUT_WHEN = MyBase.Columns("LOG_OUT_WHEN")
Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO")
Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN")
Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO")
@@ -9292,14 +9230,6 @@ Partial Public Class DD_DMSDataSet
MyBase.Columns.Add(Me.columnUSERNAME)
Me.columnEMAIL = New Global.System.Data.DataColumn("EMAIL", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnEMAIL)
Me.columnLOGGED_IN = New Global.System.Data.DataColumn("LOGGED_IN", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnLOGGED_IN)
Me.columnLOGGED_WHERE = New Global.System.Data.DataColumn("LOGGED_WHERE", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnLOGGED_WHERE)
Me.columnLOG_IN_WHEN = New Global.System.Data.DataColumn("LOG_IN_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnLOG_IN_WHEN)
Me.columnLOG_OUT_WHEN = New Global.System.Data.DataColumn("LOG_OUT_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnLOG_OUT_WHEN)
Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnADDED_WHO)
Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
@@ -9330,9 +9260,6 @@ Partial Public Class DD_DMSDataSet
Me.columnUSERNAME.AllowDBNull = false
Me.columnUSERNAME.MaxLength = 50
Me.columnEMAIL.MaxLength = 100
Me.columnLOGGED_IN.AllowDBNull = false
Me.columnLOGGED_IN.DefaultValue = CType(false,Boolean)
Me.columnLOGGED_WHERE.MaxLength = 50
Me.columnADDED_WHO.AllowDBNull = false
Me.columnADDED_WHO.MaxLength = 50
Me.columnCHANGED_WHO.MaxLength = 50
@@ -9833,6 +9760,14 @@ Partial Public Class DD_DMSDataSet
Private columnCOMMENT As Global.System.Data.DataColumn
Private columnECM_FK_ID As Global.System.Data.DataColumn
Private columnAD_SYNC As Global.System.Data.DataColumn
Private columnINTERNAL As Global.System.Data.DataColumn
Private columnACTIVE As Global.System.Data.DataColumn
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub New()
@@ -9924,6 +9859,38 @@ Partial Public Class DD_DMSDataSet
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property ECM_FK_IDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnECM_FK_ID
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property AD_SYNCColumn() As Global.System.Data.DataColumn
Get
Return Me.columnAD_SYNC
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property INTERNALColumn() As Global.System.Data.DataColumn
Get
Return Me.columnINTERNAL
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnACTIVE
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Browsable(false)> _
@@ -9961,9 +9928,9 @@ Partial Public Class DD_DMSDataSet
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Overloads Function AddTBDD_USER_GROUPSRow(ByVal NAME As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal COMMENT As String) As TBDD_USER_GROUPSRow
Public Overloads Function AddTBDD_USER_GROUPSRow(ByVal NAME As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal COMMENT As String, ByVal ECM_FK_ID As Integer, ByVal AD_SYNC As Boolean, ByVal INTERNAL As Boolean, ByVal ACTIVE As Boolean) As TBDD_USER_GROUPSRow
Dim rowTBDD_USER_GROUPSRow As TBDD_USER_GROUPSRow = CType(Me.NewRow,TBDD_USER_GROUPSRow)
Dim columnValuesArray() As Object = New Object() {Nothing, NAME, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COMMENT}
Dim columnValuesArray() As Object = New Object() {Nothing, NAME, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COMMENT, ECM_FK_ID, AD_SYNC, INTERNAL, ACTIVE}
rowTBDD_USER_GROUPSRow.ItemArray = columnValuesArray
Me.Rows.Add(rowTBDD_USER_GROUPSRow)
Return rowTBDD_USER_GROUPSRow
@@ -9999,6 +9966,10 @@ Partial Public Class DD_DMSDataSet
Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO")
Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN")
Me.columnCOMMENT = MyBase.Columns("COMMENT")
Me.columnECM_FK_ID = MyBase.Columns("ECM_FK_ID")
Me.columnAD_SYNC = MyBase.Columns("AD_SYNC")
Me.columnINTERNAL = MyBase.Columns("INTERNAL")
Me.columnACTIVE = MyBase.Columns("ACTIVE")
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@@ -10018,6 +9989,14 @@ Partial Public Class DD_DMSDataSet
MyBase.Columns.Add(Me.columnCHANGED_WHEN)
Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnCOMMENT)
Me.columnECM_FK_ID = New Global.System.Data.DataColumn("ECM_FK_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnECM_FK_ID)
Me.columnAD_SYNC = New Global.System.Data.DataColumn("AD_SYNC", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnAD_SYNC)
Me.columnINTERNAL = New Global.System.Data.DataColumn("INTERNAL", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnINTERNAL)
Me.columnACTIVE = New Global.System.Data.DataColumn("ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnACTIVE)
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true))
Me.columnGUID.AutoIncrement = true
Me.columnGUID.AutoIncrementSeed = -1
@@ -10026,10 +10005,13 @@ Partial Public Class DD_DMSDataSet
Me.columnGUID.ReadOnly = true
Me.columnGUID.Unique = true
Me.columnNAME.MaxLength = 50
Me.columnADDED_WHO.AllowDBNull = false
Me.columnADDED_WHO.MaxLength = 50
Me.columnCHANGED_WHO.MaxLength = 50
Me.columnCOMMENT.MaxLength = 200
Me.columnECM_FK_ID.AllowDBNull = false
Me.columnAD_SYNC.AllowDBNull = false
Me.columnINTERNAL.AllowDBNull = false
Me.columnACTIVE.AllowDBNull = false
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@@ -26913,62 +26895,6 @@ Partial Public Class DD_DMSDataSet
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Property LOGGED_IN() As Boolean
Get
Return CType(Me(Me.tableTBDD_USER.LOGGED_INColumn),Boolean)
End Get
Set
Me(Me.tableTBDD_USER.LOGGED_INColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Property LOGGED_WHERE() As String
Get
Try
Return CType(Me(Me.tableTBDD_USER.LOGGED_WHEREColumn),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte LOGGED_WHERE in Tabelle TBDD_USER ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBDD_USER.LOGGED_WHEREColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Property LOG_IN_WHEN() As Date
Get
Try
Return CType(Me(Me.tableTBDD_USER.LOG_IN_WHENColumn),Date)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte LOG_IN_WHEN in Tabelle TBDD_USER ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBDD_USER.LOG_IN_WHENColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Property LOG_OUT_WHEN() As Date
Get
Try
Return CType(Me(Me.tableTBDD_USER.LOG_OUT_WHENColumn),Date)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte LOG_OUT_WHEN in Tabelle TBDD_USER ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBDD_USER.LOG_OUT_WHENColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Property ADDED_WHO() As String
@@ -27135,42 +27061,6 @@ Partial Public Class DD_DMSDataSet
Me(Me.tableTBDD_USER.EMAILColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function IsLOGGED_WHERENull() As Boolean
Return Me.IsNull(Me.tableTBDD_USER.LOGGED_WHEREColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub SetLOGGED_WHERENull()
Me(Me.tableTBDD_USER.LOGGED_WHEREColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function IsLOG_IN_WHENNull() As Boolean
Return Me.IsNull(Me.tableTBDD_USER.LOG_IN_WHENColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub SetLOG_IN_WHENNull()
Me(Me.tableTBDD_USER.LOG_IN_WHENColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function IsLOG_OUT_WHENNull() As Boolean
Return Me.IsNull(Me.tableTBDD_USER.LOG_OUT_WHENColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub SetLOG_OUT_WHENNull()
Me(Me.tableTBDD_USER.LOG_OUT_WHENColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function IsADDED_WHENNull() As Boolean
@@ -27437,7 +27327,11 @@ Partial Public Class DD_DMSDataSet
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Property ADDED_WHO() As String
Get
Return CType(Me(Me.tableTBDD_USER_GROUPS.ADDED_WHOColumn),String)
Try
Return CType(Me(Me.tableTBDD_USER_GROUPS.ADDED_WHOColumn),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHO in Tabelle TBDD_USER_GROUPS ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBDD_USER_GROUPS.ADDED_WHOColumn) = value
@@ -27504,6 +27398,50 @@ Partial Public Class DD_DMSDataSet
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Property ECM_FK_ID() As Integer
Get
Return CType(Me(Me.tableTBDD_USER_GROUPS.ECM_FK_IDColumn),Integer)
End Get
Set
Me(Me.tableTBDD_USER_GROUPS.ECM_FK_IDColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Property AD_SYNC() As Boolean
Get
Return CType(Me(Me.tableTBDD_USER_GROUPS.AD_SYNCColumn),Boolean)
End Get
Set
Me(Me.tableTBDD_USER_GROUPS.AD_SYNCColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Property INTERNAL() As Boolean
Get
Return CType(Me(Me.tableTBDD_USER_GROUPS.INTERNALColumn),Boolean)
End Get
Set
Me(Me.tableTBDD_USER_GROUPS.INTERNALColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Property ACTIVE() As Boolean
Get
Return CType(Me(Me.tableTBDD_USER_GROUPS.ACTIVEColumn),Boolean)
End Get
Set
Me(Me.tableTBDD_USER_GROUPS.ACTIVEColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function IsNAMENull() As Boolean
@@ -27516,6 +27454,18 @@ Partial Public Class DD_DMSDataSet
Me(Me.tableTBDD_USER_GROUPS.NAMEColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function IsADDED_WHONull() As Boolean
Return Me.IsNull(Me.tableTBDD_USER_GROUPS.ADDED_WHOColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub SetADDED_WHONull()
Me(Me.tableTBDD_USER_GROUPS.ADDED_WHOColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function IsADDED_WHENNull() As Boolean
@@ -42125,10 +42075,6 @@ Namespace DD_DMSDataSetTableAdapters
tableMapping.ColumnMappings.Add("NAME", "NAME")
tableMapping.ColumnMappings.Add("USERNAME", "USERNAME")
tableMapping.ColumnMappings.Add("EMAIL", "EMAIL")
tableMapping.ColumnMappings.Add("LOGGED_IN", "LOGGED_IN")
tableMapping.ColumnMappings.Add("LOGGED_WHERE", "LOGGED_WHERE")
tableMapping.ColumnMappings.Add("LOG_IN_WHEN", "LOG_IN_WHEN")
tableMapping.ColumnMappings.Add("LOG_OUT_WHEN", "LOG_OUT_WHEN")
tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO")
tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN")
tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO")
@@ -42149,24 +42095,25 @@ Namespace DD_DMSDataSetTableAdapters
Me._adapter.InsertCommand.Connection = Me.Connection
Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PRENAME, NAME, USERNAME, EMAIL, "& _
"LOGGED_IN, ADDED_WHO, LANGUAGE, SHORTNAME, COMMENT, WAN_ENVIRONMENT, DATE_FORMAT"& _
", GENERAL_VIEWER)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@PRENAME,@NAME,@USERNAME,@EMAIL,@LOGGED_IN, 0,"& _
"@ADDED_WHO, 1,@LANGUAG,@SHORTNAME,@COMMENT,@WAN_ENVIRONMENT,@DATE_FORMAT,@GENERA"& _
"L_VIEWER); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PRENAME, NAME, USERNAME, EMAIL, LOGGED_IN, LOGGE"& _
"D_WHERE, LOG_IN_WHEN, LOG_OUT_WHEN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_"& _
"WHEN FROM TBDD_USER WHERE (GUID = SCOPE_IDENTITY())"
", GENERAL_VIEWER, MODULE_WD_GLOBALHOOK, MODULE_DDCBSEARCHER)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@PR"& _
"ENAME,@NAME,@USERNAME,@EMAIL,@LOGGED_IN, 0,@ADDED_WHO, 1,@LANGUAG,@SHORTNAME,@CO"& _
"MMENT,@WAN_ENVIRONMENT,@DATE_FORMAT,@GENERAL_VIEWER); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PREN"& _
"AME, NAME, USERNAME, EMAIL, LOGGED_IN, LOGGED_WHERE, LOG_IN_WHEN, LOG_OUT_WHEN, "& _
"ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_USER WHERE (GUID = SC"& _
"OPE_IDENTITY())"
Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRENAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "PRENAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LOGGED_IN", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LOGGED_IN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAG", Global.System.Data.SqlDbType.VarChar, 5, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SHORTNAME", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORTNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 200, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WAN_ENVIRONMENT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "WAN_ENVIRONMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DATE_FORMAT", Global.System.Data.SqlDbType.VarChar, 10, Global.System.Data.ParameterDirection.Input, 0, 0, "DATE_FORMAT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GENERAL_VIEWER", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "GENERAL_VIEWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 5, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAG", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SHORTNAME", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "WAN_ENVIRONMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 10, Global.System.Data.ParameterDirection.Input, 0, 0, "DATE_FORMAT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WAN_ENVIRONMENT", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "GENERAL_VIEWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DATE_FORMAT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "MODULE_WD_GLOBALHOOK", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GENERAL_VIEWER", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "MODULE_DDCBSEARCHER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
Me._adapter.UpdateCommand.Connection = Me.Connection
Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET PRENAME = @PRENAME, NAME = @NAME, USER"& _
@@ -42205,14 +42152,13 @@ Namespace DD_DMSDataSetTableAdapters
Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
Me._commandCollection(0).Connection = Me.Connection
Me._commandCollection(0).CommandText = ""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SELECT T.GUID, T.PRENAME, T.NAME, T.USERNAME, T.EM"& _
"AIL, T.LOGGED_IN, T.LOGGED_WHERE, T.LOG_IN_WHEN, T.LOG_OUT_WHEN, T.ADDED_WHO, T."& _
"ADDED_WHEN, T.CHANGED_WHO, T.CHANGED_WHEN,"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" T.LANGUAGE, T."& _
"COMMENT, T.SHORTNAME, T.WAN_ENVIRONMENT, T.DATE_FORMAT, T.GENERAL_VIEWER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
" FROM TBDD_USER T INNER JOIN TBDD_USER_MODULES T1 ON T"& _
".GUID = T1.USER_ID INNER JOIN TBDD_MODULES T2 ON T1.MODULE_ID = T2.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
" WHERE T2.SHORT_NAME = 'ADDI'"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ORDER BY USER"& _
"NAME"
Me._commandCollection(0).CommandText = "SELECT T.GUID, T.PRENAME, T.NAME, T.USERNAME, T.EMAIL, T.ADDED_WHO, T.ADDE"& _
"D_WHEN, T.CHANGED_WHO, T.CHANGED_WHEN, T.LANGUAGE, T.COMMENT, T.SHORTNAME, T.WAN"& _
"_ENVIRONMENT, T.DATE_FORMAT, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" T.GENERAL_VIEWER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _
" TBDD_USER AS T INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBDD_USER_MODULES "& _
"AS T1 ON T.GUID = T1.USER_ID INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBDD_MODULES A"& _
"S T2 ON T1.MODULE_ID = T2.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (T2.SHORT_NAME = 'ADDI')"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY "& _
"T.USERNAME"
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
End Sub
@@ -42293,7 +42239,7 @@ Namespace DD_DMSDataSetTableAdapters
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
Public Overloads Overridable Function Insert(ByVal PRENAME As String, ByVal NAME As String, ByVal USERNAME As String, ByVal EMAIL As String, ByVal LOGGED_IN As Boolean, ByVal ADDED_WHO As String, ByVal LANGUAG As String, ByVal SHORTNAME As String, ByVal COMMENT As String, ByVal WAN_ENVIRONMENT As Boolean, ByVal DATE_FORMAT As String, ByVal GENERAL_VIEWER As String) As Integer
Public Overloads Overridable Function Insert(ByVal PRENAME As String, ByVal NAME As String, ByVal USERNAME As String, ByVal EMAIL As String, ByVal LOGGED_IN As Boolean, ByVal ADDED_WHO As String, ByVal LANGUAG As String, ByVal SHORTNAME As Boolean, ByVal COMMENT As String, ByVal WAN_ENVIRONMENT As String, ByVal DATE_FORMAT As Boolean, ByVal GENERAL_VIEWER As Boolean) As Integer
If (PRENAME Is Nothing) Then
Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value
Else
@@ -42321,31 +42267,23 @@ Namespace DD_DMSDataSetTableAdapters
Me.Adapter.InsertCommand.Parameters(5).Value = CType(ADDED_WHO,String)
End If
If (LANGUAG Is Nothing) Then
Throw New Global.System.ArgumentNullException("LANGUAG")
Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value
Else
Me.Adapter.InsertCommand.Parameters(6).Value = CType(LANGUAG,String)
End If
If (SHORTNAME Is Nothing) Then
Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value
Else
Me.Adapter.InsertCommand.Parameters(7).Value = CType(SHORTNAME,String)
End If
Me.Adapter.InsertCommand.Parameters(7).Value = CType(SHORTNAME,Boolean)
If (COMMENT Is Nothing) Then
Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value
Throw New Global.System.ArgumentNullException("COMMENT")
Else
Me.Adapter.InsertCommand.Parameters(8).Value = CType(COMMENT,String)
End If
Me.Adapter.InsertCommand.Parameters(9).Value = CType(WAN_ENVIRONMENT,Boolean)
If (DATE_FORMAT Is Nothing) Then
Throw New Global.System.ArgumentNullException("DATE_FORMAT")
If (WAN_ENVIRONMENT Is Nothing) Then
Throw New Global.System.ArgumentNullException("WAN_ENVIRONMENT")
Else
Me.Adapter.InsertCommand.Parameters(10).Value = CType(DATE_FORMAT,String)
End If
If (GENERAL_VIEWER Is Nothing) Then
Throw New Global.System.ArgumentNullException("GENERAL_VIEWER")
Else
Me.Adapter.InsertCommand.Parameters(11).Value = CType(GENERAL_VIEWER,String)
Me.Adapter.InsertCommand.Parameters(9).Value = CType(WAN_ENVIRONMENT,String)
End If
Me.Adapter.InsertCommand.Parameters(10).Value = CType(DATE_FORMAT,Boolean)
Me.Adapter.InsertCommand.Parameters(11).Value = CType(GENERAL_VIEWER,Boolean)
Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
<> Global.System.Data.ConnectionState.Open) Then
@@ -42923,6 +42861,10 @@ Namespace DD_DMSDataSetTableAdapters
tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO")
tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN")
tableMapping.ColumnMappings.Add("COMMENT", "COMMENT")
tableMapping.ColumnMappings.Add("ECM_FK_ID", "ECM_FK_ID")
tableMapping.ColumnMappings.Add("AD_SYNC", "AD_SYNC")
tableMapping.ColumnMappings.Add("INTERNAL", "INTERNAL")
tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE")
Me._adapter.TableMappings.Add(tableMapping)
Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
Me._adapter.DeleteCommand.Connection = Me.Connection
@@ -42931,20 +42873,20 @@ Namespace DD_DMSDataSetTableAdapters
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
Me._adapter.InsertCommand.Connection = Me.Connection
Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_USER_GROUPS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (NAME, ADDED_WHO, COMMENT)"& _
""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@NAME,@ADDED_WHO,@COMMENT); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, ADDED_WHO, AD"& _
"DED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_USER_GROUPS WHERE (GUID = SCOPE_ID"& _
"ENTITY())"
Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_GROUPS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (NAME, ADDED_WHO, COMMENT)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VAL"& _
"UES (@NAME,@ADDED_WHO,@COMMENT); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, ADDED_WHO, ADDED_"& _
"WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_USER_GROUPS WHERE (GUID = SCOPE_IDENTI"& _
"TY())"
Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 200, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
Me._adapter.UpdateCommand.Connection = Me.Connection
Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_USER_GROUPS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET NAME = @NAME, CHANGED_WHO = @CH"& _
"ANGED_WHO, COMMENT = @COMMENT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT G"& _
"UID, NAME, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_USER_GROUP"& _
"S WHERE (GUID = @GUID)"
Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_GROUPS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET NAME = @NAME, CHANGED_WHO = @CHANGED"& _
"_WHO, COMMENT = @COMMENT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID,"& _
" NAME, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_USER_GROUPS WH"& _
"ERE (GUID = @GUID)"
Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
@@ -42967,7 +42909,8 @@ Namespace DD_DMSDataSetTableAdapters
Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
Me._commandCollection(0).Connection = Me.Connection
Me._commandCollection(0).CommandText = "SELECT GUID, NAME, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COMME"& _
"NT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_USER_GROUPS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY NAME"
"NT, ECM_FK_ID, AD_SYNC, INTERNAL, ACTIVE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_GROUPS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY "& _
"NAME"
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
End Sub
@@ -43055,7 +42998,7 @@ Namespace DD_DMSDataSetTableAdapters
Me.Adapter.InsertCommand.Parameters(0).Value = CType(NAME,String)
End If
If (ADDED_WHO Is Nothing) Then
Throw New Global.System.ArgumentNullException("ADDED_WHO")
Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value
Else
Me.Adapter.InsertCommand.Parameters(1).Value = CType(ADDED_WHO,String)
End If
@@ -51935,11 +51878,10 @@ Namespace DD_DMSDataSetTableAdapters
Me._commandCollection(0).Connection = Me.Connection
Me._commandCollection(0).CommandText = "SELECT GUID, ENTITY_ID, TYPE_NODE, NODE_IMAGE, CREATE_RECORD, ADDED_WHO, A"& _
"DDED_WHEN, CHANGED_WHO, CHANGED_WHEN, NAME, COMMENT, PARENT_NODE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _
" TBPMO_STRUCTURE_NODES_CONFIGURATION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (ENTITY_ID in (SELECT FORM_I"& _
"D FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE CONSTRUCT_ID = @CONSTRUCT_ID ))"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORD"& _
"ER BY ENTITY_ID, TYPE_NODE"
" TBPMO_STRUCTURE_NODES_CONFIGURATION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (ENTITY_ID = @ENTITY_ID)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"OR"& _
"DER BY ENTITY_ID, TYPE_NODE"
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONSTRUCT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ENTITY_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ENTITY_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand()
Me._commandCollection(1).Connection = Me.Connection
Me._commandCollection(1).CommandText = "SELECT GUID, ENTITY_ID, TYPE_NODE, NODE_IMAGE, CREATE_RECORD, ADDED_WHO, A"& _
@@ -51953,9 +51895,9 @@ Namespace DD_DMSDataSetTableAdapters
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_STRUCTURE_NODES_CONFIGURATIONDataTable, ByVal CONSTRUCT_ID As Integer) As Integer
Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_STRUCTURE_NODES_CONFIGURATIONDataTable, ByVal ENTITY_ID As Integer) As Integer
Me.Adapter.SelectCommand = Me.CommandCollection(0)
Me.Adapter.SelectCommand.Parameters(0).Value = CType(CONSTRUCT_ID,Integer)
Me.Adapter.SelectCommand.Parameters(0).Value = CType(ENTITY_ID,Integer)
If (Me.ClearBeforeFill = true) Then
dataTable.Clear
End If
@@ -51967,9 +51909,9 @@ Namespace DD_DMSDataSetTableAdapters
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
Public Overloads Overridable Function GetData(ByVal CONSTRUCT_ID As Integer) As DD_DMSDataSet.TBPMO_STRUCTURE_NODES_CONFIGURATIONDataTable
Public Overloads Overridable Function GetData(ByVal ENTITY_ID As Integer) As DD_DMSDataSet.TBPMO_STRUCTURE_NODES_CONFIGURATIONDataTable
Me.Adapter.SelectCommand = Me.CommandCollection(0)
Me.Adapter.SelectCommand.Parameters(0).Value = CType(CONSTRUCT_ID,Integer)
Me.Adapter.SelectCommand.Parameters(0).Value = CType(ENTITY_ID,Integer)
Dim dataTable As DD_DMSDataSet.TBPMO_STRUCTURE_NODES_CONFIGURATIONDataTable = New DD_DMSDataSet.TBPMO_STRUCTURE_NODES_CONFIGURATIONDataTable()
Me.Adapter.Fill(dataTable)
Return dataTable

34
app/DD-Record-Organizer/DD_DMSDataSet.xsc
View File

@@ -98,16 +98,6 @@
</TableUISetting>
<TableUISetting Name="TBDD_USER">
<ColumnUISettings>
<ColumnUISetting Name="LOG_IN_WHEN">
<ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<BindableControlInfo Name="TextBox" Type="System.Windows.Forms.TextBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
</ControlSetting></ControlSettings>
</ColumnUISetting>
<ColumnUISetting Name="LOG_OUT_WHEN">
<ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<BindableControlInfo Name="TextBox" Type="System.Windows.Forms.TextBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
</ControlSetting></ControlSettings>
</ColumnUISetting>
<ColumnUISetting Name="ADDED_WHEN">
<ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<BindableControlInfo Name="TextBox" Type="System.Windows.Forms.TextBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
@@ -371,24 +361,32 @@
<TableUISetting Name="TBPMO_STRUCTURE_NODES_CONFIGURATION">
<ColumnUISettings>
<ColumnUISetting Name="ENTITY_ID">
<ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<ControlSettings>
<ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form">
<BindableControlInfo Name="ComboBox" Type="System.Windows.Forms.ComboBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
</ControlSetting></ControlSettings>
</ControlSetting>
</ControlSettings>
</ColumnUISetting>
<ColumnUISetting Name="TYPE_NODE">
<ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<ControlSettings>
<ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form">
<BindableControlInfo Name="NumericUpDown" Type="System.Windows.Forms.NumericUpDown" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
</ControlSetting></ControlSettings>
</ControlSetting>
</ControlSettings>
</ColumnUISetting>
<ColumnUISetting Name="ADDED_WHEN">
<ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<ControlSettings>
<ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form">
<BindableControlInfo Name="TextBox" Type="System.Windows.Forms.TextBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
</ControlSetting></ControlSettings>
</ControlSetting>
</ControlSettings>
</ColumnUISetting>
<ColumnUISetting Name="CHANGED_WHEN">
<ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<ControlSettings>
<ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form">
<BindableControlInfo Name="TextBox" Type="System.Windows.Forms.TextBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
</ControlSetting></ControlSettings>
</ControlSetting>
</ControlSettings>
</ColumnUISetting>
</ColumnUISettings>
</TableUISetting>

1529
app/DD-Record-Organizer/DD_DMSDataSet.xsd
View File

File diff suppressed because it is too large Load Diff

50
app/DD-Record-Organizer/DD_DMSDataSet.xss
View File

@@ -4,59 +4,59 @@
Changes to this file may cause incorrect behavior and will be lost if
the code is regenerated.
</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="-56" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
<DiagramLayout xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" ex:showrelationlabel="False" ViewPortX="-10" ViewPortY="-52" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
<Shapes>
<Shape ID="DesignTable:TBPMO_FORM" ZOrder="33" 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="16" 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="10" X="493" Y="68" Height="324" Width="265" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:VWPMO_CONTROL_SCREEN" ZOrder="18" 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="12" X="493" Y="68" Height="324" Width="265" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBPMO_RECORD" ZOrder="55" X="875" Y="408" Height="172" Width="242" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="121" />
<Shape ID="DesignTable:VWPMO_DOKUMENTTYPES" ZOrder="15" X="556" Y="357" Height="286" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="197" />
<Shape ID="DesignTable:VWPMO_DOKUMENTTYPES" ZOrder="17" 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_WORKFLOW_TASK" ZOrder="54" 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="28" 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="51" X="395" Y="443" Height="134" Width="207" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="83" />
<Shape ID="DesignTable:TBPMO_WORKFLOW" ZOrder="29" 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="53" X="877" Y="44" Height="210" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" />
<Shape ID="DesignTable:TBDD_DOKUMENTART" ZOrder="2" X="1349" Y="450" Height="344" Width="278" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBDD_DOKUMENTART" ZOrder="5" 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_INDEX_AUTOM" ZOrder="46" 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_KONFIGURATION" ZOrder="65" X="1644" Y="247" Height="168" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="78" />
<Shape ID="DesignTable:TBDD_USER" ZOrder="17" X="1632" Y="12" Height="243" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="59" />
<Shape ID="DesignTable:TBDD_USER" ZOrder="2" 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:TBDD_USER_GROUPS" ZOrder="24" 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="1" 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:TBDD_GROUPS_USER" ZOrder="35" 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:TBPMO_FORM_CONSTRUCTOR" ZOrder="7" 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="9" X="-2" Y="1" Height="229" Width="293" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="178" />
<Shape ID="DesignTable:TBPMO_FOLLOW_UP_EMAIL" ZOrder="4" X="903" Y="388" Height="204" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="136" />
<Shape ID="DesignTable:TBPMO_FORM_CONSTRUCTOR" ZOrder="9" 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="11" X="-2" Y="1" Height="229" Width="293" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="178" />
<Shape ID="DesignTable:TBPMO_FOLLOW_UP_EMAIL" ZOrder="7" 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="58" 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="52" 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="56" 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="6" 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="3" X="844" Y="43" Height="267" Width="285" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="216" />
<Shape ID="DesignTable:TBDD_CONNECTION" ZOrder="50" 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="1" 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="4" X="1246" Y="352" Height="324" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:VWDDINDEX_AUTOM" ZOrder="47" X="1300" Y="812" Height="305" Width="272" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBPMO_TEMPLATE" ZOrder="45" 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="44" 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="41" X="2348" Y="521" Height="286" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="216" />
<Shape ID="DesignTable:TBTEMP_QUICKDISPLAY" ZOrder="39" 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="12" 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="14" X="1161" Y="308" Height="267" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="216" />
<Shape ID="DesignTable:TBDD_CLIENT" ZOrder="36" 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="30" 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="34" 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="32" 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="8" 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="10" 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="27" 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="23" 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="110" Y="24" Height="324" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBWH_ENTITY" ZOrder="22" 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="21" 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="18" 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="14" 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="3" X="638" Y="1079" Height="306" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="226" />
<Shape ID="DesignTable:TBPMO_APPOINTMENTS" ZOrder="11" X="1807" Y="62" Height="305" Width="290" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBPMO_WD_NAMECONVENTION_FORMAT" ZOrder="24" 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="8" X="110" Y="24" Height="324" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBWH_ENTITY" ZOrder="23" 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="22" 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="19" 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="16" 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="6" X="638" Y="1079" Height="306" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="226" />
<Shape ID="DesignTable:TBPMO_APPOINTMENTS" ZOrder="13" X="1807" Y="62" Height="305" Width="290" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
</Shapes>
<Connectors>
<Connector ID="DesignRelation:FK_TBPMO_FORM_VIEW_FORM_ID" ZOrder="72" LineWidth="11">
@@ -331,7 +331,7 @@
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FK_TBPMO_STRUCTURE_NODES_CONFIGURATION_ENTITY_ID" ZOrder="20" LineWidth="11">
<Connector ID="DesignRelation:FK_TBPMO_STRUCTURE_NODES_CONFIGURATION_ENTITY_ID" ZOrder="21" LineWidth="11">
<RoutePoints>
<Point>
<X>389</X>
@@ -347,7 +347,7 @@
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FK_TBPMO_FORM_VIEW_FORM_ID1" ZOrder="19" LineWidth="11">
<Connector ID="DesignRelation:FK_TBPMO_FORM_VIEW_FORM_ID1" ZOrder="20" LineWidth="11">
<RoutePoints>
<Point>
<X>158</X>
@@ -367,7 +367,7 @@
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FK_TBPMO_RECORD_VARIANT_RECORD_ID" ZOrder="13" LineWidth="11">
<Connector ID="DesignRelation:FK_TBPMO_RECORD_VARIANT_RECORD_ID" ZOrder="15" LineWidth="11">
<RoutePoints>
<Point>
<X>961</X>

100
app/DD-Record-Organizer/DD_ECMAdmin.Designer.vb generated
View File

@@ -908,6 +908,8 @@ Partial Public Class DD_ECMAdmin
Private columnLANGUAGE As Global.System.Data.DataColumn
Private columnNODE_NAVIGATION As Global.System.Data.DataColumn
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub New()
@@ -1023,6 +1025,14 @@ Partial Public Class DD_ECMAdmin
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property NODE_NAVIGATIONColumn() As Global.System.Data.DataColumn
Get
Return Me.columnNODE_NAVIGATION
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Browsable(false)> _
@@ -1060,9 +1070,9 @@ Partial Public Class DD_ECMAdmin
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Overloads Function AddTBPMO_FORM_CONSTRUCTORRow(ByVal FORM_TITLE As String, ByVal SEQUENCE_MENU As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal MENU_IMG() As Byte, ByVal SHORT_TITLE As String, ByVal LANGUAGE As String) As TBPMO_FORM_CONSTRUCTORRow
Public Overloads Function AddTBPMO_FORM_CONSTRUCTORRow(ByVal FORM_TITLE As String, ByVal SEQUENCE_MENU As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal MENU_IMG() As Byte, ByVal SHORT_TITLE As String, ByVal LANGUAGE As String, ByVal NODE_NAVIGATION As Boolean) As TBPMO_FORM_CONSTRUCTORRow
Dim rowTBPMO_FORM_CONSTRUCTORRow As TBPMO_FORM_CONSTRUCTORRow = CType(Me.NewRow,TBPMO_FORM_CONSTRUCTORRow)
Dim columnValuesArray() As Object = New Object() {Nothing, FORM_TITLE, SEQUENCE_MENU, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, MENU_IMG, SHORT_TITLE, LANGUAGE}
Dim columnValuesArray() As Object = New Object() {Nothing, FORM_TITLE, SEQUENCE_MENU, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, MENU_IMG, SHORT_TITLE, LANGUAGE, NODE_NAVIGATION}
rowTBPMO_FORM_CONSTRUCTORRow.ItemArray = columnValuesArray
Me.Rows.Add(rowTBPMO_FORM_CONSTRUCTORRow)
Return rowTBPMO_FORM_CONSTRUCTORRow
@@ -1101,6 +1111,7 @@ Partial Public Class DD_ECMAdmin
Me.columnMENU_IMG = MyBase.Columns("MENU_IMG")
Me.columnSHORT_TITLE = MyBase.Columns("SHORT_TITLE")
Me.columnLANGUAGE = MyBase.Columns("LANGUAGE")
Me.columnNODE_NAVIGATION = MyBase.Columns("NODE_NAVIGATION")
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@@ -1126,6 +1137,8 @@ Partial Public Class DD_ECMAdmin
MyBase.Columns.Add(Me.columnSHORT_TITLE)
Me.columnLANGUAGE = New Global.System.Data.DataColumn("LANGUAGE", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnLANGUAGE)
Me.columnNODE_NAVIGATION = New Global.System.Data.DataColumn("NODE_NAVIGATION", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnNODE_NAVIGATION)
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true))
Me.columnGUID.AutoIncrement = true
Me.columnGUID.AllowDBNull = false
@@ -1133,11 +1146,15 @@ Partial Public Class DD_ECMAdmin
Me.columnGUID.Unique = true
Me.columnFORM_TITLE.MaxLength = 50
Me.columnSEQUENCE_MENU.AllowDBNull = false
Me.columnADDED_WHO.AllowDBNull = false
Me.columnADDED_WHO.MaxLength = 50
Me.columnADDED_WHEN.AllowDBNull = false
Me.columnCHANGED_WHO.MaxLength = 50
Me.columnSHORT_TITLE.MaxLength = 50
Me.columnLANGUAGE.AllowDBNull = false
Me.columnLANGUAGE.MaxLength = 5
Me.columnNODE_NAVIGATION.AllowDBNull = false
Me.columnNODE_NAVIGATION.DefaultValue = CType(true,Boolean)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@@ -7711,11 +7728,7 @@ Partial Public Class DD_ECMAdmin
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Property ADDED_WHO() As String
Get
Try
Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHOColumn),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHO in Tabelle TBPMO_FORM_CONSTRUCTOR ist DBNull.", e)
End Try
Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHOColumn),String)
End Get
Set
Me(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHOColumn) = value
@@ -7726,11 +7739,7 @@ Partial Public Class DD_ECMAdmin
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Property ADDED_WHEN() As Date
Get
Try
Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHENColumn),Date)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBPMO_FORM_CONSTRUCTOR ist DBNull.", e)
End Try
Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHENColumn),Date)
End Get
Set
Me(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHENColumn) = value
@@ -7808,6 +7817,17 @@ Partial Public Class DD_ECMAdmin
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Property NODE_NAVIGATION() As Boolean
Get
Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.NODE_NAVIGATIONColumn),Boolean)
End Get
Set
Me(Me.tableTBPMO_FORM_CONSTRUCTOR.NODE_NAVIGATIONColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function IsFORM_TITLENull() As Boolean
@@ -7820,30 +7840,6 @@ Partial Public Class DD_ECMAdmin
Me(Me.tableTBPMO_FORM_CONSTRUCTOR.FORM_TITLEColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function IsADDED_WHONull() As Boolean
Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHOColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub SetADDED_WHONull()
Me(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHOColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function IsADDED_WHENNull() As Boolean
Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHENColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub SetADDED_WHENNull()
Me(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHENColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function IsCHANGED_WHONull() As Boolean
@@ -11802,6 +11798,7 @@ Namespace DD_ECMAdminTableAdapters
tableMapping.ColumnMappings.Add("MENU_IMG", "MENU_IMG")
tableMapping.ColumnMappings.Add("SHORT_TITLE", "SHORT_TITLE")
tableMapping.ColumnMappings.Add("LANGUAGE", "LANGUAGE")
tableMapping.ColumnMappings.Add("NODE_NAVIGATION", "NODE_NAVIGATION")
Me._adapter.TableMappings.Add(tableMapping)
Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
Me._adapter.DeleteCommand.Connection = Me.Connection
@@ -11811,10 +11808,11 @@ Namespace DD_ECMAdminTableAdapters
Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
Me._adapter.InsertCommand.Connection = Me.Connection
Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPMO_FORM_CONSTRUCTOR"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (FORM_TITLE, SEQUENC"& _
"E_MENU, ADDED_WHO, MENU_IMG, SHORT_TITLE, LANGUAGE)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@FORM_TITLE,"& _
"@SEQUENCE_MENU,@ADDED_WHO,@MENU_IMG,@SHORT_TITLE,@LANGUAGE); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, FOR"& _
"M_TITLE, SEQUENCE_MENU, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, MENU_I"& _
"MG, SHORT_TITLE FROM TBPMO_FORM_CONSTRUCTOR WHERE (GUID = SCOPE_IDENTITY())"
"E_MENU, ADDED_WHO, MENU_IMG, SHORT_TITLE, LANGUAGE, NODE_NAVIGATION)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES "& _
" (@FORM_TITLE,@SEQUENCE_MENU,@ADDED_WHO,@MENU_IMG,@SHORT_TITLE,@LANGUAGE,@NOD"& _
"E_NAVIGATION); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, FORM_TITLE, SEQUENCE_MENU, ADDED_WHO, ADDED_WHEN"& _
", CHANGED_WHO, CHANGED_WHEN, MENU_IMG, SHORT_TITLE FROM TBPMO_FORM_CONSTRUCTOR W"& _
"HERE (GUID = SCOPE_IDENTITY())"
Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_TITLE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE_MENU", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE_MENU", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
@@ -11822,14 +11820,15 @@ Namespace DD_ECMAdminTableAdapters
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MENU_IMG", Global.System.Data.SqlDbType.VarBinary, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_IMG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SHORT_TITLE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORT_TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 5, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NODE_NAVIGATION", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "NODE_NAVIGATION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
Me._adapter.UpdateCommand.Connection = Me.Connection
Me._adapter.UpdateCommand.CommandText = "UPDATE TBPMO_FORM_CONSTRUCTOR"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET FORM_TITLE = @FORM_TITLE,"& _
" SEQUENCE_MENU = @SEQUENCE_MENU, CHANGED_WHO = @CHANGED_WHO, MENU_IMG = @MENU_IM"& _
"G, SHORT_TITLE = @SHORT_TITLE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" LANGUAGE = @LANGUAGE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _
"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, FORM_TITLE, SEQUENCE_MENU"& _
", ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, MENU_IMG, SHORT_TITLE FROM T"& _
"BPMO_FORM_CONSTRUCTOR WHERE (GUID = @GUID)"
"G, SHORT_TITLE = @SHORT_TITLE, LANGUAGE = @LANGUAGE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
"NODE_NAVIGATION = @NODE_NAVIGATION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"S"& _
"ELECT GUID, FORM_TITLE, SEQUENCE_MENU, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANG"& _
"ED_WHEN, MENU_IMG, SHORT_TITLE FROM TBPMO_FORM_CONSTRUCTOR WHERE (GUID = @GUID)"
Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_TITLE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE_MENU", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE_MENU", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
@@ -11837,6 +11836,7 @@ Namespace DD_ECMAdminTableAdapters
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MENU_IMG", Global.System.Data.SqlDbType.VarBinary, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_IMG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SHORT_TITLE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORT_TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 5, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NODE_NAVIGATION", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "NODE_NAVIGATION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
End Sub
@@ -11857,7 +11857,7 @@ Namespace DD_ECMAdminTableAdapters
Me._commandCollection(0).CommandText = "SELECT GUID, dbo.FNPMO_GETOBJECTCAPTION(@LANGUAGE, 'CONSTR_MENUE' + CONVER"& _
"T(VARCHAR(5), GUID), @SCREEN_ID) AS FORM_TITLE, SEQUENCE_MENU, ADDED_WHO, ADDED_"& _
"WHEN, CHANGED_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CHANGED_WHEN, MENU_IMG, SHORT_TITL"& _
"E, LANGUAGE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_FORM_CONSTRUCTOR"
"E, LANGUAGE, NODE_NAVIGATION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_FORM_CONSTRUCTOR"
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SCREEN_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
@@ -11952,7 +11952,7 @@ Namespace DD_ECMAdminTableAdapters
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
Public Overloads Overridable Function Insert(ByVal FORM_TITLE As String, ByVal SEQUENCE_MENU As Integer, ByVal ADDED_WHO As String, ByVal MENU_IMG() As Byte, ByVal SHORT_TITLE As String, ByVal LANGUAGE As String) As Integer
Public Overloads Overridable Function Insert(ByVal FORM_TITLE As String, ByVal SEQUENCE_MENU As Integer, ByVal ADDED_WHO As String, ByVal MENU_IMG() As Byte, ByVal SHORT_TITLE As String, ByVal LANGUAGE As String, ByVal NODE_NAVIGATION As Boolean) As Integer
If (FORM_TITLE Is Nothing) Then
Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value
Else
@@ -11979,6 +11979,7 @@ Namespace DD_ECMAdminTableAdapters
Else
Me.Adapter.InsertCommand.Parameters(5).Value = CType(LANGUAGE,String)
End If
Me.Adapter.InsertCommand.Parameters(6).Value = CType(NODE_NAVIGATION,Boolean)
Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
<> Global.System.Data.ConnectionState.Open) Then
@@ -11998,7 +11999,7 @@ Namespace DD_ECMAdminTableAdapters
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
Public Overloads Overridable Function Update(ByVal FORM_TITLE As String, ByVal SEQUENCE_MENU As Integer, ByVal CHANGED_WHO As String, ByVal MENU_IMG() As Byte, ByVal SHORT_TITLE As String, ByVal LANGUAGE As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer
Public Overloads Overridable Function Update(ByVal FORM_TITLE As String, ByVal SEQUENCE_MENU As Integer, ByVal CHANGED_WHO As String, ByVal MENU_IMG() As Byte, ByVal SHORT_TITLE As String, ByVal LANGUAGE As String, ByVal NODE_NAVIGATION As Boolean, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer
If (FORM_TITLE Is Nothing) Then
Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value
Else
@@ -12025,8 +12026,9 @@ Namespace DD_ECMAdminTableAdapters
Else
Me.Adapter.UpdateCommand.Parameters(5).Value = CType(LANGUAGE,String)
End If
Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_GUID,Integer)
Me.Adapter.UpdateCommand.Parameters(7).Value = CType(GUID,Integer)
Me.Adapter.UpdateCommand.Parameters(6).Value = CType(NODE_NAVIGATION,Boolean)
Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_GUID,Integer)
Me.Adapter.UpdateCommand.Parameters(8).Value = CType(GUID,Integer)
Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
<> Global.System.Data.ConnectionState.Open) Then

11
app/DD-Record-Organizer/DD_ECMAdmin.xsc
View File

@@ -6,6 +6,17 @@
</autogenerated>-->
<DataSetUISetting Version="1.00" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TableUISettings>
<TableUISetting Name="TBPMO_FORM_CONSTRUCTOR">
<ColumnUISettings>
<ColumnUISetting Name="NODE_NAVIGATION">
<ControlSettings>
<ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form">
<BindableControlInfo Name="CheckBox" Type="System.Windows.Forms.CheckBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
</ControlSetting>
</ControlSettings>
</ColumnUISetting>
</ColumnUISettings>
</TableUISetting>
<TableUISetting Name="TBPMO_FORM_CONSTRUCTOR_DETAIL">
<ColumnUISettings>
<ColumnUISetting Name="ADDED_WHEN">

382
app/DD-Record-Organizer/DD_ECMAdmin.xsd
View File

@@ -22,8 +22,8 @@ WHERE (GUID = @Original_GUID)</CommandText>
<InsertCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>INSERT INTO TBPMO_FORM_CONSTRUCTOR
(FORM_TITLE, SEQUENCE_MENU, ADDED_WHO, MENU_IMG, SHORT_TITLE, LANGUAGE)
VALUES (@FORM_TITLE,@SEQUENCE_MENU,@ADDED_WHO,@MENU_IMG,@SHORT_TITLE,@LANGUAGE);
(FORM_TITLE, SEQUENCE_MENU, ADDED_WHO, MENU_IMG, SHORT_TITLE, LANGUAGE, NODE_NAVIGATION)
VALUES (@FORM_TITLE,@SEQUENCE_MENU,@ADDED_WHO,@MENU_IMG,@SHORT_TITLE,@LANGUAGE,@NODE_NAVIGATION);
SELECT GUID, FORM_TITLE, SEQUENCE_MENU, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, MENU_IMG, SHORT_TITLE FROM TBPMO_FORM_CONSTRUCTOR WHERE (GUID = SCOPE_IDENTITY())</CommandText>
<Parameters>
<Parameter AllowDbNull="true" AutogeneratedName="FORM_TITLE" ColumnName="FORM_TITLE" DataSourceName="DD_ECM.dbo.TBPMO_FORM_CONSTRUCTOR" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@FORM_TITLE" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="FORM_TITLE" SourceColumnNullMapping="false" SourceVersion="Current" />
@@ -32,13 +32,14 @@ SELECT GUID, FORM_TITLE, SEQUENCE_MENU, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHAN
<Parameter AllowDbNull="true" AutogeneratedName="MENU_IMG" ColumnName="MENU_IMG" DataSourceName="DD_ECM.dbo.TBPMO_FORM_CONSTRUCTOR" DataTypeServer="varbinary(MAX)" DbType="Binary" Direction="Input" ParameterName="@MENU_IMG" Precision="0" ProviderType="VarBinary" Scale="0" Size="2147483647" SourceColumn="MENU_IMG" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="SHORT_TITLE" ColumnName="SHORT_TITLE" DataSourceName="DD_ECM.dbo.TBPMO_FORM_CONSTRUCTOR" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@SHORT_TITLE" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="SHORT_TITLE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="LANGUAGE" ColumnName="LANGUAGE" DataSourceName="DD_ECM.dbo.TBPMO_FORM_CONSTRUCTOR" DataTypeServer="varchar(5)" DbType="AnsiString" Direction="Input" ParameterName="@LANGUAGE" Precision="0" ProviderType="VarChar" Scale="0" Size="5" SourceColumn="LANGUAGE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="NODE_NAVIGATION" ColumnName="NODE_NAVIGATION" DataSourceName="DD_ECM.dbo.TBPMO_FORM_CONSTRUCTOR" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@NODE_NAVIGATION" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="NODE_NAVIGATION" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters>
</DbCommand>
</InsertCommand>
<SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>SELECT GUID, dbo.FNPMO_GETOBJECTCAPTION(@LANGUAGE, 'CONSTR_MENUE' + CONVERT(VARCHAR(5), GUID), @SCREEN_ID) AS FORM_TITLE, SEQUENCE_MENU, ADDED_WHO, ADDED_WHEN, CHANGED_WHO,
CHANGED_WHEN, MENU_IMG, SHORT_TITLE, LANGUAGE
CHANGED_WHEN, MENU_IMG, SHORT_TITLE, LANGUAGE, NODE_NAVIGATION
FROM TBPMO_FORM_CONSTRUCTOR</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="LANGUAGE" ColumnName="" DataSourceName="" DataTypeServer="unknown" DbType="AnsiString" Direction="Input" ParameterName="@LANGUAGE" Precision="0" Scale="0" Size="1024" SourceColumn="" SourceColumnNullMapping="false" SourceVersion="Current" />
@@ -49,9 +50,9 @@ FROM TBPMO_FORM_CONSTRUCTOR</CommandText>
<UpdateCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>UPDATE TBPMO_FORM_CONSTRUCTOR
SET FORM_TITLE = @FORM_TITLE, SEQUENCE_MENU = @SEQUENCE_MENU, CHANGED_WHO = @CHANGED_WHO, MENU_IMG = @MENU_IMG, SHORT_TITLE = @SHORT_TITLE,
LANGUAGE = @LANGUAGE
WHERE (GUID = @Original_GUID);
SET FORM_TITLE = @FORM_TITLE, SEQUENCE_MENU = @SEQUENCE_MENU, CHANGED_WHO = @CHANGED_WHO, MENU_IMG = @MENU_IMG, SHORT_TITLE = @SHORT_TITLE, LANGUAGE = @LANGUAGE,
NODE_NAVIGATION = @NODE_NAVIGATION
WHERE (GUID = @Original_GUID);
SELECT GUID, FORM_TITLE, SEQUENCE_MENU, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, MENU_IMG, SHORT_TITLE FROM TBPMO_FORM_CONSTRUCTOR WHERE (GUID = @GUID)</CommandText>
<Parameters>
<Parameter AllowDbNull="true" AutogeneratedName="FORM_TITLE" ColumnName="FORM_TITLE" DataSourceName="DD_ECM.dbo.TBPMO_FORM_CONSTRUCTOR" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@FORM_TITLE" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="FORM_TITLE" SourceColumnNullMapping="false" SourceVersion="Current" />
@@ -60,6 +61,7 @@ SELECT GUID, FORM_TITLE, SEQUENCE_MENU, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHAN
<Parameter AllowDbNull="true" AutogeneratedName="MENU_IMG" ColumnName="MENU_IMG" DataSourceName="DD_ECM.dbo.TBPMO_FORM_CONSTRUCTOR" DataTypeServer="varbinary(MAX)" DbType="Binary" Direction="Input" ParameterName="@MENU_IMG" Precision="0" ProviderType="VarBinary" Scale="0" Size="2147483647" SourceColumn="MENU_IMG" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="SHORT_TITLE" ColumnName="SHORT_TITLE" DataSourceName="DD_ECM.dbo.TBPMO_FORM_CONSTRUCTOR" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@SHORT_TITLE" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="SHORT_TITLE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="LANGUAGE" ColumnName="LANGUAGE" DataSourceName="DD_ECM.dbo.TBPMO_FORM_CONSTRUCTOR" DataTypeServer="varchar(5)" DbType="AnsiString" Direction="Input" ParameterName="@LANGUAGE" Precision="0" ProviderType="VarChar" Scale="0" Size="5" SourceColumn="LANGUAGE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="NODE_NAVIGATION" ColumnName="NODE_NAVIGATION" DataSourceName="DD_ECM.dbo.TBPMO_FORM_CONSTRUCTOR" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@NODE_NAVIGATION" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="NODE_NAVIGATION" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="Original_GUID" ColumnName="GUID" DataSourceName="DD_ECM.dbo.TBPMO_FORM_CONSTRUCTOR" 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_FORM_CONSTRUCTOR" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
</Parameters>
@@ -78,6 +80,7 @@ SELECT GUID, FORM_TITLE, SEQUENCE_MENU, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHAN
<Mapping SourceColumn="MENU_IMG" DataSetColumn="MENU_IMG" />
<Mapping SourceColumn="SHORT_TITLE" DataSetColumn="SHORT_TITLE" />
<Mapping SourceColumn="LANGUAGE" DataSetColumn="LANGUAGE" />
<Mapping SourceColumn="NODE_NAVIGATION" DataSetColumn="NODE_NAVIGATION" />
</Mappings>
<Sources />
</TableAdapter>
@@ -912,235 +915,236 @@ SELECT GUID, NAME, ECM_FK_ID, AD_SYNC, INTERNAL, ACTIVE, COMMENT, ADDED_WHO, ADD
</DataSource>
</xs:appinfo>
</xs:annotation>
<xs:element name="DD_ECMAdmin" msdata:IsDataSet="true" msdata:UseCurrentLocale="true" msprop:EnableTableAdapterManager="true" msprop:Generator_DataSetName="DD_ECMAdmin" msprop:Generator_UserDSName="DD_ECMAdmin">
<xs:element name="DD_ECMAdmin" msdata:IsDataSet="true" msdata:UseCurrentLocale="true" msprop:EnableTableAdapterManager="true" msprop:Generator_UserDSName="DD_ECMAdmin" msprop:Generator_DataSetName="DD_ECMAdmin">
<xs:complexType>
<xs:choice minOccurs="0" maxOccurs="unbounded">
<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:element name="TBPMO_FORM_CONSTRUCTOR" msprop:Generator_RowEvHandlerName="TBPMO_FORM_CONSTRUCTORRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_FORM_CONSTRUCTORRowDeleted" msprop:Generator_RowDeletingName="TBPMO_FORM_CONSTRUCTORRowDeleting" msprop:Generator_RowEvArgName="TBPMO_FORM_CONSTRUCTORRowChangeEvent" msprop:Generator_TablePropName="TBPMO_FORM_CONSTRUCTOR" msprop:Generator_RowChangedName="TBPMO_FORM_CONSTRUCTORRowChanged" msprop:Generator_RowChangingName="TBPMO_FORM_CONSTRUCTORRowChanging" msprop:Generator_TableClassName="TBPMO_FORM_CONSTRUCTORDataTable" msprop:Generator_RowClassName="TBPMO_FORM_CONSTRUCTORRow" msprop:Generator_TableVarName="tableTBPMO_FORM_CONSTRUCTOR" msprop:Generator_UserTableName="TBPMO_FORM_CONSTRUCTOR">
<xs:complexType>
<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="FORM_TITLE" msprop:Generator_ColumnVarNameInTable="columnFORM_TITLE" msprop:Generator_ColumnPropNameInRow="FORM_TITLE" msprop:Generator_ColumnPropNameInTable="FORM_TITLEColumn" msprop:Generator_UserColumnName="FORM_TITLE" minOccurs="0">
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_UserColumnName="GUID" type="xs:int" />
<xs:element name="FORM_TITLE" msprop:Generator_ColumnPropNameInRow="FORM_TITLE" msprop:Generator_ColumnPropNameInTable="FORM_TITLEColumn" msprop:Generator_ColumnVarNameInTable="columnFORM_TITLE" msprop:Generator_UserColumnName="FORM_TITLE" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="50" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="SEQUENCE_MENU" msprop:Generator_ColumnVarNameInTable="columnSEQUENCE_MENU" msprop:Generator_ColumnPropNameInRow="SEQUENCE_MENU" msprop:Generator_ColumnPropNameInTable="SEQUENCE_MENUColumn" msprop:Generator_UserColumnName="SEQUENCE_MENU" type="xs:int" />
<xs:element name="ADDED_WHO" msprop:Generator_ColumnVarNameInTable="columnADDED_WHO" msprop:Generator_ColumnPropNameInRow="ADDED_WHO" msprop:Generator_ColumnPropNameInTable="ADDED_WHOColumn" msprop:Generator_UserColumnName="ADDED_WHO" minOccurs="0">
<xs:element name="SEQUENCE_MENU" msprop:Generator_ColumnPropNameInRow="SEQUENCE_MENU" msprop:Generator_ColumnPropNameInTable="SEQUENCE_MENUColumn" msprop:Generator_ColumnVarNameInTable="columnSEQUENCE_MENU" msprop:Generator_UserColumnName="SEQUENCE_MENU" type="xs:int" />
<xs:element name="ADDED_WHO" msprop:Generator_ColumnPropNameInRow="ADDED_WHO" msprop:Generator_ColumnPropNameInTable="ADDED_WHOColumn" msprop:Generator_ColumnVarNameInTable="columnADDED_WHO" msprop:Generator_UserColumnName="ADDED_WHO">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="50" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<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" minOccurs="0" />
<xs:element name="CHANGED_WHO" msprop:Generator_ColumnVarNameInTable="columnCHANGED_WHO" msprop:Generator_ColumnPropNameInRow="CHANGED_WHO" msprop:Generator_ColumnPropNameInTable="CHANGED_WHOColumn" msprop:Generator_UserColumnName="CHANGED_WHO" minOccurs="0">
<xs:element name="ADDED_WHEN" msprop:Generator_ColumnPropNameInRow="ADDED_WHEN" msprop:Generator_ColumnPropNameInTable="ADDED_WHENColumn" msprop:Generator_ColumnVarNameInTable="columnADDED_WHEN" msprop:Generator_UserColumnName="ADDED_WHEN" type="xs:dateTime" />
<xs:element name="CHANGED_WHO" msprop:Generator_ColumnPropNameInRow="CHANGED_WHO" msprop:Generator_ColumnPropNameInTable="CHANGED_WHOColumn" msprop:Generator_ColumnVarNameInTable="columnCHANGED_WHO" msprop:Generator_UserColumnName="CHANGED_WHO" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="50" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="CHANGED_WHEN" msprop:Generator_ColumnVarNameInTable="columnCHANGED_WHEN" msprop:Generator_ColumnPropNameInRow="CHANGED_WHEN" msprop:Generator_ColumnPropNameInTable="CHANGED_WHENColumn" msprop:Generator_UserColumnName="CHANGED_WHEN" type="xs:dateTime" minOccurs="0" />
<xs:element name="MENU_IMG" msprop:Generator_ColumnVarNameInTable="columnMENU_IMG" msprop:Generator_ColumnPropNameInRow="MENU_IMG" msprop:Generator_ColumnPropNameInTable="MENU_IMGColumn" msprop:Generator_UserColumnName="MENU_IMG" type="xs:base64Binary" minOccurs="0" />
<xs:element name="SHORT_TITLE" msprop:Generator_ColumnVarNameInTable="columnSHORT_TITLE" msprop:Generator_ColumnPropNameInRow="SHORT_TITLE" msprop:Generator_ColumnPropNameInTable="SHORT_TITLEColumn" msprop:Generator_UserColumnName="SHORT_TITLE" minOccurs="0">
<xs:element name="CHANGED_WHEN" msprop:Generator_ColumnPropNameInRow="CHANGED_WHEN" msprop:Generator_ColumnPropNameInTable="CHANGED_WHENColumn" msprop:Generator_ColumnVarNameInTable="columnCHANGED_WHEN" msprop:Generator_UserColumnName="CHANGED_WHEN" type="xs:dateTime" minOccurs="0" />
<xs:element name="MENU_IMG" msprop:Generator_ColumnPropNameInRow="MENU_IMG" msprop:Generator_ColumnPropNameInTable="MENU_IMGColumn" msprop:Generator_ColumnVarNameInTable="columnMENU_IMG" msprop:Generator_UserColumnName="MENU_IMG" type="xs:base64Binary" minOccurs="0" />
<xs:element name="SHORT_TITLE" msprop:Generator_ColumnPropNameInRow="SHORT_TITLE" msprop:Generator_ColumnPropNameInTable="SHORT_TITLEColumn" msprop:Generator_ColumnVarNameInTable="columnSHORT_TITLE" msprop:Generator_UserColumnName="SHORT_TITLE" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="50" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="LANGUAGE" msprop:Generator_ColumnVarNameInTable="columnLANGUAGE" msprop:Generator_ColumnPropNameInRow="LANGUAGE" msprop:Generator_ColumnPropNameInTable="LANGUAGEColumn" msprop:Generator_UserColumnName="LANGUAGE">
<xs:element name="LANGUAGE" msprop:Generator_ColumnPropNameInRow="LANGUAGE" msprop:Generator_ColumnPropNameInTable="LANGUAGEColumn" msprop:Generator_ColumnVarNameInTable="columnLANGUAGE" msprop:Generator_UserColumnName="LANGUAGE">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="5" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="NODE_NAVIGATION" msprop:Generator_ColumnPropNameInRow="NODE_NAVIGATION" msprop:Generator_ColumnPropNameInTable="NODE_NAVIGATIONColumn" msprop:Generator_ColumnVarNameInTable="columnNODE_NAVIGATION" msprop:Generator_UserColumnName="NODE_NAVIGATION" type="xs:boolean" default="true" />
</xs:sequence>
</xs:complexType>
</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_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:element name="TBPMO_FORM_CONSTRUCTOR_DETAIL" msprop:Generator_RowEvHandlerName="TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_FORM_CONSTRUCTOR_DETAILRowDeleted" msprop:Generator_RowDeletingName="TBPMO_FORM_CONSTRUCTOR_DETAILRowDeleting" msprop:Generator_RowEvArgName="TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEvent" msprop:Generator_TablePropName="TBPMO_FORM_CONSTRUCTOR_DETAIL" msprop:Generator_RowChangedName="TBPMO_FORM_CONSTRUCTOR_DETAILRowChanged" msprop:Generator_RowChangingName="TBPMO_FORM_CONSTRUCTOR_DETAILRowChanging" msprop:Generator_TableClassName="TBPMO_FORM_CONSTRUCTOR_DETAILDataTable" msprop:Generator_RowClassName="TBPMO_FORM_CONSTRUCTOR_DETAILRow" msprop:Generator_TableVarName="tableTBPMO_FORM_CONSTRUCTOR_DETAIL" msprop:Generator_UserTableName="TBPMO_FORM_CONSTRUCTOR_DETAIL">
<xs:complexType>
<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="CONSTRUCT_ID" msprop:Generator_ColumnVarNameInTable="columnCONSTRUCT_ID" msprop:Generator_ColumnPropNameInRow="CONSTRUCT_ID" msprop:Generator_ColumnPropNameInTable="CONSTRUCT_IDColumn" msprop:Generator_UserColumnName="CONSTRUCT_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" />
<xs:element name="PARENT_ID" msprop:Generator_ColumnVarNameInTable="columnPARENT_ID" msprop:Generator_ColumnPropNameInRow="PARENT_ID" msprop:Generator_ColumnPropNameInTable="PARENT_IDColumn" msprop:Generator_UserColumnName="PARENT_ID" type="xs:int" />
<xs:element name="LEVEL1_SELECT" msprop:Generator_ColumnVarNameInTable="columnLEVEL1_SELECT" msprop:Generator_ColumnPropNameInRow="LEVEL1_SELECT" msprop:Generator_ColumnPropNameInTable="LEVEL1_SELECTColumn" msprop:Generator_UserColumnName="LEVEL1_SELECT" type="xs:boolean" />
<xs:element name="SEQUENCE" msprop:Generator_ColumnVarNameInTable="columnSEQUENCE" msprop:Generator_ColumnPropNameInRow="SEQUENCE" msprop:Generator_ColumnPropNameInTable="SEQUENCEColumn" msprop:Generator_UserColumnName="SEQUENCE" type="xs:int" />
<xs:element name="SQL_SELECT_EBENE1" msprop:Generator_ColumnVarNameInTable="columnSQL_SELECT_EBENE1" msprop:Generator_ColumnPropNameInRow="SQL_SELECT_EBENE1" msprop:Generator_ColumnPropNameInTable="SQL_SELECT_EBENE1Column" msprop:Generator_UserColumnName="SQL_SELECT_EBENE1">
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_UserColumnName="GUID" type="xs:int" />
<xs:element name="CONSTRUCT_ID" msprop:Generator_ColumnPropNameInRow="CONSTRUCT_ID" msprop:Generator_ColumnPropNameInTable="CONSTRUCT_IDColumn" msprop:Generator_ColumnVarNameInTable="columnCONSTRUCT_ID" msprop:Generator_UserColumnName="CONSTRUCT_ID" type="xs:int" />
<xs:element name="FORM_ID" msprop:Generator_ColumnPropNameInRow="FORM_ID" msprop:Generator_ColumnPropNameInTable="FORM_IDColumn" msprop:Generator_ColumnVarNameInTable="columnFORM_ID" msprop:Generator_UserColumnName="FORM_ID" type="xs:int" />
<xs:element name="PARENT_ID" msprop:Generator_ColumnPropNameInRow="PARENT_ID" msprop:Generator_ColumnPropNameInTable="PARENT_IDColumn" msprop:Generator_ColumnVarNameInTable="columnPARENT_ID" msprop:Generator_UserColumnName="PARENT_ID" type="xs:int" />
<xs:element name="LEVEL1_SELECT" msprop:Generator_ColumnPropNameInRow="LEVEL1_SELECT" msprop:Generator_ColumnPropNameInTable="LEVEL1_SELECTColumn" msprop:Generator_ColumnVarNameInTable="columnLEVEL1_SELECT" msprop:Generator_UserColumnName="LEVEL1_SELECT" type="xs:boolean" />
<xs:element name="SEQUENCE" msprop:Generator_ColumnPropNameInRow="SEQUENCE" msprop:Generator_ColumnPropNameInTable="SEQUENCEColumn" msprop:Generator_ColumnVarNameInTable="columnSEQUENCE" msprop:Generator_UserColumnName="SEQUENCE" type="xs:int" />
<xs:element name="SQL_SELECT_EBENE1" msprop:Generator_ColumnPropNameInRow="SQL_SELECT_EBENE1" msprop:Generator_ColumnPropNameInTable="SQL_SELECT_EBENE1Column" msprop:Generator_ColumnVarNameInTable="columnSQL_SELECT_EBENE1" msprop:Generator_UserColumnName="SQL_SELECT_EBENE1">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="4000" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="SQL_SELECT_EBENE2" msprop:Generator_ColumnVarNameInTable="columnSQL_SELECT_EBENE2" msprop:Generator_ColumnPropNameInRow="SQL_SELECT_EBENE2" msprop:Generator_ColumnPropNameInTable="SQL_SELECT_EBENE2Column" msprop:Generator_UserColumnName="SQL_SELECT_EBENE2">
<xs:element name="SQL_SELECT_EBENE2" msprop:Generator_ColumnPropNameInRow="SQL_SELECT_EBENE2" msprop:Generator_ColumnPropNameInTable="SQL_SELECT_EBENE2Column" msprop:Generator_ColumnVarNameInTable="columnSQL_SELECT_EBENE2" msprop:Generator_UserColumnName="SQL_SELECT_EBENE2">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="4000" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="ADDED_WHO" msprop:Generator_ColumnVarNameInTable="columnADDED_WHO" msprop:Generator_ColumnPropNameInRow="ADDED_WHO" msprop:Generator_ColumnPropNameInTable="ADDED_WHOColumn" msprop:Generator_UserColumnName="ADDED_WHO" minOccurs="0">
<xs:element name="ADDED_WHO" msprop:Generator_ColumnPropNameInRow="ADDED_WHO" msprop:Generator_ColumnPropNameInTable="ADDED_WHOColumn" msprop:Generator_ColumnVarNameInTable="columnADDED_WHO" msprop:Generator_UserColumnName="ADDED_WHO" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="50" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<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" minOccurs="0" />
<xs:element name="CHANGED_WHO" msprop:Generator_ColumnVarNameInTable="columnCHANGED_WHO" msprop:Generator_ColumnPropNameInRow="CHANGED_WHO" msprop:Generator_ColumnPropNameInTable="CHANGED_WHOColumn" msprop:Generator_UserColumnName="CHANGED_WHO" minOccurs="0">
<xs:element name="ADDED_WHEN" msprop:Generator_ColumnPropNameInRow="ADDED_WHEN" msprop:Generator_ColumnPropNameInTable="ADDED_WHENColumn" msprop:Generator_ColumnVarNameInTable="columnADDED_WHEN" msprop:Generator_UserColumnName="ADDED_WHEN" type="xs:dateTime" minOccurs="0" />
<xs:element name="CHANGED_WHO" msprop:Generator_ColumnPropNameInRow="CHANGED_WHO" msprop:Generator_ColumnPropNameInTable="CHANGED_WHOColumn" msprop:Generator_ColumnVarNameInTable="columnCHANGED_WHO" msprop:Generator_UserColumnName="CHANGED_WHO" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="50" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="CHANGED_WHEN" msprop:Generator_ColumnVarNameInTable="columnCHANGED_WHEN" msprop:Generator_ColumnPropNameInRow="CHANGED_WHEN" msprop:Generator_ColumnPropNameInTable="CHANGED_WHENColumn" msprop:Generator_UserColumnName="CHANGED_WHEN" type="xs:dateTime" minOccurs="0" />
<xs:element name="COLUMN_NAME1" msprop:Generator_ColumnVarNameInTable="columnCOLUMN_NAME1" msprop:Generator_ColumnPropNameInRow="COLUMN_NAME1" msprop:Generator_ColumnPropNameInTable="COLUMN_NAME1Column" msprop:Generator_UserColumnName="COLUMN_NAME1">
<xs:element name="CHANGED_WHEN" msprop:Generator_ColumnPropNameInRow="CHANGED_WHEN" msprop:Generator_ColumnPropNameInTable="CHANGED_WHENColumn" msprop:Generator_ColumnVarNameInTable="columnCHANGED_WHEN" msprop:Generator_UserColumnName="CHANGED_WHEN" type="xs:dateTime" minOccurs="0" />
<xs:element name="COLUMN_NAME1" msprop:Generator_ColumnPropNameInRow="COLUMN_NAME1" msprop:Generator_ColumnPropNameInTable="COLUMN_NAME1Column" msprop:Generator_ColumnVarNameInTable="columnCOLUMN_NAME1" msprop:Generator_UserColumnName="COLUMN_NAME1">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="100" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="COLUMN_NAME2" msprop:Generator_ColumnVarNameInTable="columnCOLUMN_NAME2" msprop:Generator_ColumnPropNameInRow="COLUMN_NAME2" msprop:Generator_ColumnPropNameInTable="COLUMN_NAME2Column" msprop:Generator_UserColumnName="COLUMN_NAME2">
<xs:element name="COLUMN_NAME2" msprop:Generator_ColumnPropNameInRow="COLUMN_NAME2" msprop:Generator_ColumnPropNameInTable="COLUMN_NAME2Column" msprop:Generator_ColumnVarNameInTable="columnCOLUMN_NAME2" msprop:Generator_UserColumnName="COLUMN_NAME2">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="100" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="LOAD_DIRECT" msprop:Generator_ColumnVarNameInTable="columnLOAD_DIRECT" msprop:Generator_ColumnPropNameInRow="LOAD_DIRECT" msprop:Generator_ColumnPropNameInTable="LOAD_DIRECTColumn" msprop:Generator_UserColumnName="LOAD_DIRECT" type="xs:boolean" />
<xs:element name="SQL_QUICK_VIEW" msprop:Generator_ColumnVarNameInTable="columnSQL_QUICK_VIEW" msprop:Generator_ColumnPropNameInRow="SQL_QUICK_VIEW" msprop:Generator_ColumnPropNameInTable="SQL_QUICK_VIEWColumn" msprop:Generator_UserColumnName="SQL_QUICK_VIEW">
<xs:element name="LOAD_DIRECT" msprop:Generator_ColumnPropNameInRow="LOAD_DIRECT" msprop:Generator_ColumnPropNameInTable="LOAD_DIRECTColumn" msprop:Generator_ColumnVarNameInTable="columnLOAD_DIRECT" msprop:Generator_UserColumnName="LOAD_DIRECT" type="xs:boolean" />
<xs:element name="SQL_QUICK_VIEW" msprop:Generator_ColumnPropNameInRow="SQL_QUICK_VIEW" msprop:Generator_ColumnPropNameInTable="SQL_QUICK_VIEWColumn" msprop:Generator_ColumnVarNameInTable="columnSQL_QUICK_VIEW" msprop:Generator_UserColumnName="SQL_QUICK_VIEW">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="2147483647" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="CONTROL_DOCTYPE_MATCH" msprop:Generator_ColumnVarNameInTable="columnCONTROL_DOCTYPE_MATCH" msprop:Generator_ColumnPropNameInRow="CONTROL_DOCTYPE_MATCH" msprop:Generator_ColumnPropNameInTable="CONTROL_DOCTYPE_MATCHColumn" msprop:Generator_UserColumnName="CONTROL_DOCTYPE_MATCH" type="xs:int" default="0" />
<xs:element name="SQL_RIGHT_READ_AND_VIEW_ONLY" msprop:Generator_ColumnVarNameInTable="columnSQL_RIGHT_READ_AND_VIEW_ONLY" msprop:Generator_ColumnPropNameInRow="SQL_RIGHT_READ_AND_VIEW_ONLY" msprop:Generator_ColumnPropNameInTable="SQL_RIGHT_READ_AND_VIEW_ONLYColumn" msprop:Generator_UserColumnName="SQL_RIGHT_READ_AND_VIEW_ONLY">
<xs:element name="CONTROL_DOCTYPE_MATCH" msprop:Generator_ColumnPropNameInRow="CONTROL_DOCTYPE_MATCH" msprop:Generator_ColumnPropNameInTable="CONTROL_DOCTYPE_MATCHColumn" msprop:Generator_ColumnVarNameInTable="columnCONTROL_DOCTYPE_MATCH" msprop:Generator_UserColumnName="CONTROL_DOCTYPE_MATCH" type="xs:int" default="0" />
<xs:element name="SQL_RIGHT_READ_AND_VIEW_ONLY" msprop:Generator_ColumnPropNameInRow="SQL_RIGHT_READ_AND_VIEW_ONLY" msprop:Generator_ColumnPropNameInTable="SQL_RIGHT_READ_AND_VIEW_ONLYColumn" msprop:Generator_ColumnVarNameInTable="columnSQL_RIGHT_READ_AND_VIEW_ONLY" msprop:Generator_UserColumnName="SQL_RIGHT_READ_AND_VIEW_ONLY">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="5000" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="SQL_RIGHT_WINDREAM_VIEW" msprop:Generator_ColumnVarNameInTable="columnSQL_RIGHT_WINDREAM_VIEW" msprop:Generator_ColumnPropNameInRow="SQL_RIGHT_WINDREAM_VIEW" msprop:Generator_ColumnPropNameInTable="SQL_RIGHT_WINDREAM_VIEWColumn" msprop:Generator_UserColumnName="SQL_RIGHT_WINDREAM_VIEW">
<xs:element name="SQL_RIGHT_WINDREAM_VIEW" msprop:Generator_ColumnPropNameInRow="SQL_RIGHT_WINDREAM_VIEW" msprop:Generator_ColumnPropNameInTable="SQL_RIGHT_WINDREAM_VIEWColumn" msprop:Generator_ColumnVarNameInTable="columnSQL_RIGHT_WINDREAM_VIEW" msprop:Generator_UserColumnName="SQL_RIGHT_WINDREAM_VIEW">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="5000" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="ADD_RECORDS" msprop:Generator_ColumnVarNameInTable="columnADD_RECORDS" msprop:Generator_ColumnPropNameInRow="ADD_RECORDS" msprop:Generator_ColumnPropNameInTable="ADD_RECORDSColumn" msprop:Generator_UserColumnName="ADD_RECORDS" type="xs:boolean" />
<xs:element name="ADD_RECORDS" msprop:Generator_ColumnPropNameInRow="ADD_RECORDS" msprop:Generator_ColumnPropNameInTable="ADD_RECORDSColumn" msprop:Generator_ColumnVarNameInTable="columnADD_RECORDS" msprop:Generator_UserColumnName="ADD_RECORDS" type="xs:boolean" />
</xs:sequence>
</xs:complexType>
</xs:element>
<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:element name="TBDD_CONNECTION" msprop:Generator_RowClassName="TBDD_CONNECTIONRow" msprop:Generator_RowEvHandlerName="TBDD_CONNECTIONRowChangeEventHandler" msprop:Generator_RowDeletedName="TBDD_CONNECTIONRowDeleted" msprop:Generator_RowDeletingName="TBDD_CONNECTIONRowDeleting" msprop:Generator_RowEvArgName="TBDD_CONNECTIONRowChangeEvent" msprop:Generator_TablePropName="TBDD_CONNECTION" msprop:Generator_RowChangedName="TBDD_CONNECTIONRowChanged" msprop:Generator_RowChangingName="TBDD_CONNECTIONRowChanging" msprop:Generator_TableClassName="TBDD_CONNECTIONDataTable" msprop:Generator_UserTableName="TBDD_CONNECTION" msprop:Generator_TableVarName="tableTBDD_CONNECTION">
<xs:complexType>
<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:short" />
<xs:element name="BEZEICHNUNG" msprop:Generator_ColumnVarNameInTable="columnBEZEICHNUNG" msprop:Generator_ColumnPropNameInRow="BEZEICHNUNG" msprop:Generator_ColumnPropNameInTable="BEZEICHNUNGColumn" msprop:Generator_UserColumnName="BEZEICHNUNG" minOccurs="0">
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_UserColumnName="GUID" type="xs:short" />
<xs:element name="BEZEICHNUNG" msprop:Generator_ColumnPropNameInRow="BEZEICHNUNG" msprop:Generator_ColumnPropNameInTable="BEZEICHNUNGColumn" msprop:Generator_ColumnVarNameInTable="columnBEZEICHNUNG" msprop:Generator_UserColumnName="BEZEICHNUNG" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="100" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="SQL_PROVIDER" msprop:Generator_ColumnVarNameInTable="columnSQL_PROVIDER" msprop:Generator_ColumnPropNameInRow="SQL_PROVIDER" msprop:Generator_ColumnPropNameInTable="SQL_PROVIDERColumn" msprop:Generator_UserColumnName="SQL_PROVIDER" minOccurs="0">
<xs:element name="SQL_PROVIDER" msprop:Generator_ColumnPropNameInRow="SQL_PROVIDER" msprop:Generator_ColumnPropNameInTable="SQL_PROVIDERColumn" msprop:Generator_ColumnVarNameInTable="columnSQL_PROVIDER" msprop:Generator_UserColumnName="SQL_PROVIDER" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="50" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="SERVER" msprop:Generator_ColumnVarNameInTable="columnSERVER" msprop:Generator_ColumnPropNameInRow="SERVER" msprop:Generator_ColumnPropNameInTable="SERVERColumn" msprop:Generator_UserColumnName="SERVER" minOccurs="0">
<xs:element name="SERVER" msprop:Generator_ColumnPropNameInRow="SERVER" msprop:Generator_ColumnPropNameInTable="SERVERColumn" msprop:Generator_ColumnVarNameInTable="columnSERVER" msprop:Generator_UserColumnName="SERVER" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="150" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="DATENBANK" msprop:Generator_ColumnVarNameInTable="columnDATENBANK" msprop:Generator_ColumnPropNameInRow="DATENBANK" msprop:Generator_ColumnPropNameInTable="DATENBANKColumn" msprop:Generator_UserColumnName="DATENBANK" minOccurs="0">
<xs:element name="DATENBANK" msprop:Generator_ColumnPropNameInRow="DATENBANK" msprop:Generator_ColumnPropNameInTable="DATENBANKColumn" msprop:Generator_ColumnVarNameInTable="columnDATENBANK" msprop:Generator_UserColumnName="DATENBANK" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="100" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="USERNAME" msprop:Generator_ColumnVarNameInTable="columnUSERNAME" msprop:Generator_ColumnPropNameInRow="USERNAME" msprop:Generator_ColumnPropNameInTable="USERNAMEColumn" msprop:Generator_UserColumnName="USERNAME" minOccurs="0">
<xs:element name="USERNAME" msprop:Generator_ColumnPropNameInRow="USERNAME" msprop:Generator_ColumnPropNameInTable="USERNAMEColumn" msprop:Generator_ColumnVarNameInTable="columnUSERNAME" msprop:Generator_UserColumnName="USERNAME" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="100" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="PASSWORD" msprop:Generator_ColumnVarNameInTable="columnPASSWORD" msprop:Generator_ColumnPropNameInRow="PASSWORD" msprop:Generator_ColumnPropNameInTable="PASSWORDColumn" msprop:Generator_UserColumnName="PASSWORD" minOccurs="0">
<xs:element name="PASSWORD" msprop:Generator_ColumnPropNameInRow="PASSWORD" msprop:Generator_ColumnPropNameInTable="PASSWORDColumn" msprop:Generator_ColumnVarNameInTable="columnPASSWORD" msprop:Generator_UserColumnName="PASSWORD" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="100" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="BEMERKUNG" msprop:Generator_ColumnVarNameInTable="columnBEMERKUNG" msprop:Generator_ColumnPropNameInRow="BEMERKUNG" msprop:Generator_ColumnPropNameInTable="BEMERKUNGColumn" msprop:Generator_UserColumnName="BEMERKUNG" minOccurs="0">
<xs:element name="BEMERKUNG" msprop:Generator_ColumnPropNameInRow="BEMERKUNG" msprop:Generator_ColumnPropNameInTable="BEMERKUNGColumn" msprop:Generator_ColumnVarNameInTable="columnBEMERKUNG" msprop:Generator_UserColumnName="BEMERKUNG" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="400" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="AKTIV" msprop:Generator_ColumnVarNameInTable="columnAKTIV" msprop:Generator_ColumnPropNameInRow="AKTIV" msprop:Generator_ColumnPropNameInTable="AKTIVColumn" msprop:Generator_UserColumnName="AKTIV" type="xs:boolean" default="true" />
<xs:element name="ERSTELLTWER" msprop:Generator_ColumnVarNameInTable="columnERSTELLTWER" msprop:Generator_ColumnPropNameInRow="ERSTELLTWER" msprop:Generator_ColumnPropNameInTable="ERSTELLTWERColumn" msprop:Generator_UserColumnName="ERSTELLTWER">
<xs:element name="AKTIV" msprop:Generator_ColumnPropNameInRow="AKTIV" msprop:Generator_ColumnPropNameInTable="AKTIVColumn" msprop:Generator_ColumnVarNameInTable="columnAKTIV" msprop:Generator_UserColumnName="AKTIV" type="xs:boolean" default="true" />
<xs:element name="ERSTELLTWER" msprop:Generator_ColumnPropNameInRow="ERSTELLTWER" msprop:Generator_ColumnPropNameInTable="ERSTELLTWERColumn" msprop:Generator_ColumnVarNameInTable="columnERSTELLTWER" msprop:Generator_UserColumnName="ERSTELLTWER">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="50" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="ERSTELLTWANN" msprop:Generator_ColumnVarNameInTable="columnERSTELLTWANN" msprop:Generator_ColumnPropNameInRow="ERSTELLTWANN" msprop:Generator_ColumnPropNameInTable="ERSTELLTWANNColumn" msprop:Generator_UserColumnName="ERSTELLTWANN" type="xs:dateTime" minOccurs="0" />
<xs:element name="GEANDERTWER" msprop:Generator_ColumnVarNameInTable="columnGEANDERTWER" msprop:Generator_ColumnPropNameInRow="GEANDERTWER" msprop:Generator_ColumnPropNameInTable="GEANDERTWERColumn" msprop:Generator_UserColumnName="GEANDERTWER" minOccurs="0">
<xs:element name="ERSTELLTWANN" msprop:Generator_ColumnPropNameInRow="ERSTELLTWANN" msprop:Generator_ColumnPropNameInTable="ERSTELLTWANNColumn" msprop:Generator_ColumnVarNameInTable="columnERSTELLTWANN" msprop:Generator_UserColumnName="ERSTELLTWANN" type="xs:dateTime" minOccurs="0" />
<xs:element name="GEANDERTWER" msprop:Generator_ColumnPropNameInRow="GEANDERTWER" msprop:Generator_ColumnPropNameInTable="GEANDERTWERColumn" msprop:Generator_ColumnVarNameInTable="columnGEANDERTWER" msprop:Generator_UserColumnName="GEANDERTWER" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="50" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="GEAENDERTWANN" msprop:Generator_ColumnVarNameInTable="columnGEAENDERTWANN" msprop:Generator_ColumnPropNameInRow="GEAENDERTWANN" msprop:Generator_ColumnPropNameInTable="GEAENDERTWANNColumn" msprop:Generator_UserColumnName="GEAENDERTWANN" type="xs:dateTime" minOccurs="0" />
<xs:element name="GEAENDERTWANN" msprop:Generator_ColumnPropNameInRow="GEAENDERTWANN" msprop:Generator_ColumnPropNameInTable="GEAENDERTWANNColumn" msprop:Generator_ColumnVarNameInTable="columnGEAENDERTWANN" msprop:Generator_UserColumnName="GEAENDERTWANN" type="xs:dateTime" minOccurs="0" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="DT_VORSCHAU" msprop:Generator_TableClassName="DT_VORSCHAUDataTable" msprop:Generator_TableVarName="tableDT_VORSCHAU" msprop:Generator_RowChangedName="DT_VORSCHAURowChanged" msprop:Generator_TablePropName="DT_VORSCHAU" msprop:Generator_RowDeletingName="DT_VORSCHAURowDeleting" msprop:Generator_RowChangingName="DT_VORSCHAURowChanging" msprop:Generator_RowEvHandlerName="DT_VORSCHAURowChangeEventHandler" msprop:Generator_RowDeletedName="DT_VORSCHAURowDeleted" msprop:Generator_RowClassName="DT_VORSCHAURow" msprop:Generator_UserTableName="DT_VORSCHAU" msprop:Generator_RowEvArgName="DT_VORSCHAURowChangeEvent">
<xs:element name="DT_VORSCHAU" msprop:Generator_RowEvHandlerName="DT_VORSCHAURowChangeEventHandler" msprop:Generator_RowDeletedName="DT_VORSCHAURowDeleted" msprop:Generator_RowDeletingName="DT_VORSCHAURowDeleting" msprop:Generator_RowEvArgName="DT_VORSCHAURowChangeEvent" msprop:Generator_TablePropName="DT_VORSCHAU" msprop:Generator_RowChangedName="DT_VORSCHAURowChanged" msprop:Generator_RowChangingName="DT_VORSCHAURowChanging" msprop:Generator_TableClassName="DT_VORSCHAUDataTable" msprop:Generator_RowClassName="DT_VORSCHAURow" msprop:Generator_TableVarName="tableDT_VORSCHAU" msprop:Generator_UserTableName="DT_VORSCHAU">
<xs:complexType>
<xs:sequence>
<xs:element name="VALUE" msprop:Generator_ColumnVarNameInTable="columnVALUE" msprop:Generator_ColumnPropNameInRow="VALUE" msprop:Generator_ColumnPropNameInTable="VALUEColumn" msprop:Generator_UserColumnName="VALUE" type="xs:string" minOccurs="0" />
<xs:element name="VALUE" msprop:Generator_ColumnPropNameInRow="VALUE" msprop:Generator_ColumnPropNameInTable="VALUEColumn" msprop:Generator_ColumnVarNameInTable="columnVALUE" msprop:Generator_UserColumnName="VALUE" type="xs:string" minOccurs="0" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="VWTEMPQUICKVIEW" msprop:Generator_TableClassName="VWTEMPQUICKVIEWDataTable" msprop:Generator_TableVarName="tableVWTEMPQUICKVIEW" msprop:Generator_TablePropName="VWTEMPQUICKVIEW" msprop:Generator_RowDeletingName="VWTEMPQUICKVIEWRowDeleting" msprop:Generator_RowChangingName="VWTEMPQUICKVIEWRowChanging" msprop:Generator_RowEvHandlerName="VWTEMPQUICKVIEWRowChangeEventHandler" msprop:Generator_RowDeletedName="VWTEMPQUICKVIEWRowDeleted" msprop:Generator_UserTableName="VWTEMPQUICKVIEW" msprop:Generator_RowChangedName="VWTEMPQUICKVIEWRowChanged" msprop:Generator_RowEvArgName="VWTEMPQUICKVIEWRowChangeEvent" msprop:Generator_RowClassName="VWTEMPQUICKVIEWRow">
<xs:element name="VWTEMPQUICKVIEW" msprop:Generator_RowClassName="VWTEMPQUICKVIEWRow" msprop:Generator_RowEvHandlerName="VWTEMPQUICKVIEWRowChangeEventHandler" msprop:Generator_RowDeletedName="VWTEMPQUICKVIEWRowDeleted" msprop:Generator_RowDeletingName="VWTEMPQUICKVIEWRowDeleting" msprop:Generator_RowEvArgName="VWTEMPQUICKVIEWRowChangeEvent" msprop:Generator_TablePropName="VWTEMPQUICKVIEW" msprop:Generator_RowChangedName="VWTEMPQUICKVIEWRowChanged" msprop:Generator_RowChangingName="VWTEMPQUICKVIEWRowChanging" msprop:Generator_TableClassName="VWTEMPQUICKVIEWDataTable" msprop:Generator_UserTableName="VWTEMPQUICKVIEW" msprop:Generator_TableVarName="tableVWTEMPQUICKVIEW">
<xs:complexType>
<xs:sequence>
<xs:element name="Record-ID" msprop:Generator_ColumnVarNameInTable="_columnRecord_ID" msprop:Generator_ColumnPropNameInRow="_Record_ID" msprop:Generator_ColumnPropNameInTable="_Record_IDColumn" msprop:Generator_UserColumnName="Record-ID" type="xs:int" />
<xs:element name="Aktenzeichen" msdata:ReadOnly="true" msprop:Generator_ColumnVarNameInTable="columnAktenzeichen" msprop:Generator_ColumnPropNameInRow="Aktenzeichen" msprop:Generator_ColumnPropNameInTable="AktenzeichenColumn" msprop:Generator_UserColumnName="Aktenzeichen" minOccurs="0">
<xs:element name="Record-ID" msprop:Generator_ColumnPropNameInRow="_Record_ID" msprop:Generator_ColumnPropNameInTable="_Record_IDColumn" msprop:Generator_ColumnVarNameInTable="_columnRecord_ID" msprop:Generator_UserColumnName="Record-ID" type="xs:int" />
<xs:element name="Aktenzeichen" msdata:ReadOnly="true" msprop:Generator_ColumnPropNameInRow="Aktenzeichen" msprop:Generator_ColumnPropNameInTable="AktenzeichenColumn" msprop:Generator_ColumnVarNameInTable="columnAktenzeichen" msprop:Generator_UserColumnName="Aktenzeichen" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="2147483647" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="Wiedergabe_x0020_der_x0020_Marke_x0020__x0028_Bild_x0029_" msdata:ReadOnly="true" msprop:Generator_ColumnVarNameInTable="_columnWiedergabe_der_Marke__Bild_" msprop:Generator_ColumnPropNameInRow="_Wiedergabe_der_Marke__Bild_" msprop:Generator_ColumnPropNameInTable="_Wiedergabe_der_Marke__Bild_Column" msprop:Generator_UserColumnName="Wiedergabe der Marke (Bild)" type="xs:base64Binary" minOccurs="0" />
<xs:element name="Tag_x0020_der_x0020_Eintragung_x0020_im_x0020_Register" msdata:ReadOnly="true" msprop:Generator_ColumnVarNameInTable="columnTag_der_Eintragung_im_Register" msprop:Generator_ColumnPropNameInRow="Tag_der_Eintragung_im_Register" msprop:Generator_ColumnPropNameInTable="Tag_der_Eintragung_im_RegisterColumn" msprop:Generator_UserColumnName="Tag der Eintragung im Register" minOccurs="0">
<xs:element name="Wiedergabe_x0020_der_x0020_Marke_x0020__x0028_Bild_x0029_" msdata:ReadOnly="true" msprop:Generator_ColumnPropNameInRow="_Wiedergabe_der_Marke__Bild_" msprop:Generator_ColumnPropNameInTable="_Wiedergabe_der_Marke__Bild_Column" msprop:Generator_ColumnVarNameInTable="_columnWiedergabe_der_Marke__Bild_" msprop:Generator_UserColumnName="Wiedergabe der Marke (Bild)" type="xs:base64Binary" minOccurs="0" />
<xs:element name="Tag_x0020_der_x0020_Eintragung_x0020_im_x0020_Register" msdata:ReadOnly="true" msprop:Generator_ColumnPropNameInRow="Tag_der_Eintragung_im_Register" msprop:Generator_ColumnPropNameInTable="Tag_der_Eintragung_im_RegisterColumn" msprop:Generator_ColumnVarNameInTable="columnTag_der_Eintragung_im_Register" msprop:Generator_UserColumnName="Tag der Eintragung im Register" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="2147483647" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="Aktenzustand" msdata:ReadOnly="true" msprop:Generator_ColumnVarNameInTable="columnAktenzustand" msprop:Generator_ColumnPropNameInRow="Aktenzustand" msprop:Generator_ColumnPropNameInTable="AktenzustandColumn" msprop:Generator_UserColumnName="Aktenzustand" minOccurs="0">
<xs:element name="Aktenzustand" msdata:ReadOnly="true" msprop:Generator_ColumnPropNameInRow="Aktenzustand" msprop:Generator_ColumnPropNameInTable="AktenzustandColumn" msprop:Generator_ColumnVarNameInTable="columnAktenzustand" msprop:Generator_UserColumnName="Aktenzustand" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="2147483647" />
@@ -1150,30 +1154,30 @@ SELECT GUID, NAME, ECM_FK_ID, AD_SYNC, INTERNAL, ACTIVE, COMMENT, ADDED_WHO, ADD
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBAD_Users" msprop:Generator_TableClassName="TBAD_UsersDataTable" msprop:Generator_TableVarName="tableTBAD_Users" msprop:Generator_RowChangedName="TBAD_UsersRowChanged" msprop:Generator_TablePropName="TBAD_Users" msprop:Generator_RowDeletingName="TBAD_UsersRowDeleting" msprop:Generator_RowChangingName="TBAD_UsersRowChanging" msprop:Generator_RowEvHandlerName="TBAD_UsersRowChangeEventHandler" msprop:Generator_RowDeletedName="TBAD_UsersRowDeleted" msprop:Generator_RowClassName="TBAD_UsersRow" msprop:Generator_UserTableName="TBAD_Users" msprop:Generator_RowEvArgName="TBAD_UsersRowChangeEvent">
<xs:element name="TBAD_Users" msprop:Generator_RowEvHandlerName="TBAD_UsersRowChangeEventHandler" msprop:Generator_RowDeletedName="TBAD_UsersRowDeleted" msprop:Generator_RowDeletingName="TBAD_UsersRowDeleting" msprop:Generator_RowEvArgName="TBAD_UsersRowChangeEvent" msprop:Generator_TablePropName="TBAD_Users" msprop:Generator_RowChangedName="TBAD_UsersRowChanged" msprop:Generator_RowChangingName="TBAD_UsersRowChanging" msprop:Generator_TableClassName="TBAD_UsersDataTable" msprop:Generator_RowClassName="TBAD_UsersRow" msprop:Generator_TableVarName="tableTBAD_Users" msprop:Generator_UserTableName="TBAD_Users">
<xs:complexType>
<xs:sequence>
<xs:element name="Select" msprop:Generator_ColumnVarNameInTable="columnSelect" msprop:Generator_ColumnPropNameInRow="_Select" msprop:Generator_ColumnPropNameInTable="SelectColumn" msprop:Generator_UserColumnName="Select" type="xs:boolean" default="false" minOccurs="0" />
<xs:element name="Username" msprop:Generator_ColumnVarNameInTable="columnUsername" msprop:Generator_ColumnPropNameInRow="Username" msprop:Generator_ColumnPropNameInTable="UsernameColumn" msprop:Generator_UserColumnName="Username" type="xs:string" minOccurs="0" />
<xs:element name="Prename" msprop:Generator_ColumnVarNameInTable="columnPrename" msprop:Generator_ColumnPropNameInRow="Prename" msprop:Generator_ColumnPropNameInTable="PrenameColumn" msprop:Generator_UserColumnName="Prename" type="xs:string" minOccurs="0" />
<xs:element name="Surname" msprop:Generator_ColumnVarNameInTable="columnSurname" msprop:Generator_ColumnPropNameInRow="Surname" msprop:Generator_ColumnPropNameInTable="SurnameColumn" msprop:Generator_UserColumnName="Surname" type="xs:string" minOccurs="0" />
<xs:element name="Email" msprop:Generator_ColumnVarNameInTable="columnEmail" msprop:Generator_ColumnPropNameInRow="Email" msprop:Generator_ColumnPropNameInTable="EmailColumn" msprop:Generator_UserColumnName="Email" type="xs:string" minOccurs="0" />
<xs:element name="ID" msprop:Generator_ColumnVarNameInTable="columnID" msprop:Generator_ColumnPropNameInRow="ID" msprop:Generator_ColumnPropNameInTable="IDColumn" msprop:Generator_UserColumnName="ID" type="xs:short" minOccurs="0" />
<xs:element name="Select" msprop:Generator_ColumnPropNameInRow="_Select" msprop:Generator_ColumnPropNameInTable="SelectColumn" msprop:Generator_ColumnVarNameInTable="columnSelect" msprop:Generator_UserColumnName="Select" type="xs:boolean" default="false" minOccurs="0" />
<xs:element name="Username" msprop:Generator_ColumnPropNameInRow="Username" msprop:Generator_ColumnPropNameInTable="UsernameColumn" msprop:Generator_ColumnVarNameInTable="columnUsername" msprop:Generator_UserColumnName="Username" type="xs:string" minOccurs="0" />
<xs:element name="Prename" msprop:Generator_ColumnPropNameInRow="Prename" msprop:Generator_ColumnPropNameInTable="PrenameColumn" msprop:Generator_ColumnVarNameInTable="columnPrename" msprop:Generator_UserColumnName="Prename" type="xs:string" minOccurs="0" />
<xs:element name="Surname" msprop:Generator_ColumnPropNameInRow="Surname" msprop:Generator_ColumnPropNameInTable="SurnameColumn" msprop:Generator_ColumnVarNameInTable="columnSurname" msprop:Generator_UserColumnName="Surname" type="xs:string" minOccurs="0" />
<xs:element name="Email" msprop:Generator_ColumnPropNameInRow="Email" msprop:Generator_ColumnPropNameInTable="EmailColumn" msprop:Generator_ColumnVarNameInTable="columnEmail" msprop:Generator_UserColumnName="Email" type="xs:string" minOccurs="0" />
<xs:element name="ID" msprop:Generator_ColumnPropNameInRow="ID" msprop:Generator_ColumnPropNameInTable="IDColumn" msprop:Generator_ColumnVarNameInTable="columnID" msprop:Generator_UserColumnName="ID" type="xs:short" minOccurs="0" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBWH_ENTITIES" msprop:Generator_TableClassName="TBWH_ENTITIESDataTable" msprop:Generator_TableVarName="tableTBWH_ENTITIES" msprop:Generator_TablePropName="TBWH_ENTITIES" msprop:Generator_RowDeletingName="TBWH_ENTITIESRowDeleting" msprop:Generator_RowChangingName="TBWH_ENTITIESRowChanging" msprop:Generator_RowEvHandlerName="TBWH_ENTITIESRowChangeEventHandler" msprop:Generator_RowDeletedName="TBWH_ENTITIESRowDeleted" msprop:Generator_UserTableName="TBWH_ENTITIES" msprop:Generator_RowChangedName="TBWH_ENTITIESRowChanged" msprop:Generator_RowEvArgName="TBWH_ENTITIESRowChangeEvent" msprop:Generator_RowClassName="TBWH_ENTITIESRow">
<xs:element name="TBWH_ENTITIES" msprop:Generator_RowClassName="TBWH_ENTITIESRow" msprop:Generator_RowEvHandlerName="TBWH_ENTITIESRowChangeEventHandler" msprop:Generator_RowDeletedName="TBWH_ENTITIESRowDeleted" msprop:Generator_RowDeletingName="TBWH_ENTITIESRowDeleting" msprop:Generator_RowEvArgName="TBWH_ENTITIESRowChangeEvent" msprop:Generator_TablePropName="TBWH_ENTITIES" msprop:Generator_RowChangedName="TBWH_ENTITIESRowChanged" msprop:Generator_RowChangingName="TBWH_ENTITIESRowChanging" msprop:Generator_TableClassName="TBWH_ENTITIESDataTable" msprop:Generator_UserTableName="TBWH_ENTITIES" msprop:Generator_TableVarName="tableTBWH_ENTITIES">
<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="FORM_TITLE" msprop:Generator_ColumnVarNameInTable="columnFORM_TITLE" msprop:Generator_ColumnPropNameInRow="FORM_TITLE" msprop:Generator_ColumnPropNameInTable="FORM_TITLEColumn" msprop:Generator_UserColumnName="FORM_TITLE">
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_UserColumnName="GUID" type="xs:int" />
<xs:element name="FORM_TITLE" msprop:Generator_ColumnPropNameInRow="FORM_TITLE" msprop:Generator_ColumnPropNameInTable="FORM_TITLEColumn" msprop:Generator_ColumnVarNameInTable="columnFORM_TITLE" msprop:Generator_UserColumnName="FORM_TITLE">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="50" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="CAPTION" msdata:ReadOnly="true" msprop:Generator_ColumnVarNameInTable="columnCAPTION" msprop:Generator_ColumnPropNameInRow="CAPTION" msprop:Generator_ColumnPropNameInTable="CAPTIONColumn" msprop:Generator_UserColumnName="CAPTION" minOccurs="0">
<xs:element name="CAPTION" msdata:ReadOnly="true" msprop:Generator_ColumnPropNameInRow="CAPTION" msprop:Generator_ColumnPropNameInTable="CAPTIONColumn" msprop:Generator_ColumnVarNameInTable="columnCAPTION" msprop:Generator_UserColumnName="CAPTION" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="100" />
@@ -1183,11 +1187,11 @@ SELECT GUID, NAME, ECM_FK_ID, AD_SYNC, INTERNAL, ACTIVE, COMMENT, ADDED_WHO, ADD
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBWH_USER_GROUPS" msprop:Generator_TableClassName="TBWH_USER_GROUPSDataTable" msprop:Generator_TableVarName="tableTBWH_USER_GROUPS" msprop:Generator_TablePropName="TBWH_USER_GROUPS" msprop:Generator_RowDeletingName="TBWH_USER_GROUPSRowDeleting" msprop:Generator_RowChangingName="TBWH_USER_GROUPSRowChanging" msprop:Generator_RowEvHandlerName="TBWH_USER_GROUPSRowChangeEventHandler" msprop:Generator_RowDeletedName="TBWH_USER_GROUPSRowDeleted" msprop:Generator_UserTableName="TBWH_USER_GROUPS" msprop:Generator_RowChangedName="TBWH_USER_GROUPSRowChanged" msprop:Generator_RowEvArgName="TBWH_USER_GROUPSRowChangeEvent" msprop:Generator_RowClassName="TBWH_USER_GROUPSRow">
<xs:element name="TBWH_USER_GROUPS" msprop:Generator_RowClassName="TBWH_USER_GROUPSRow" msprop:Generator_RowEvHandlerName="TBWH_USER_GROUPSRowChangeEventHandler" msprop:Generator_RowDeletedName="TBWH_USER_GROUPSRowDeleted" msprop:Generator_RowDeletingName="TBWH_USER_GROUPSRowDeleting" msprop:Generator_RowEvArgName="TBWH_USER_GROUPSRowChangeEvent" msprop:Generator_TablePropName="TBWH_USER_GROUPS" msprop:Generator_RowChangedName="TBWH_USER_GROUPSRowChanged" msprop:Generator_RowChangingName="TBWH_USER_GROUPSRowChanging" msprop:Generator_TableClassName="TBWH_USER_GROUPSDataTable" msprop:Generator_UserTableName="TBWH_USER_GROUPS" msprop:Generator_TableVarName="tableTBWH_USER_GROUPS">
<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="NAME" msprop:Generator_ColumnVarNameInTable="columnNAME" msprop:Generator_ColumnPropNameInRow="NAME" msprop:Generator_ColumnPropNameInTable="NAMEColumn" msprop:Generator_UserColumnName="NAME" minOccurs="0">
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_UserColumnName="GUID" type="xs:int" />
<xs:element name="NAME" msprop:Generator_ColumnPropNameInRow="NAME" msprop:Generator_ColumnPropNameInTable="NAMEColumn" msprop:Generator_ColumnVarNameInTable="columnNAME" msprop:Generator_UserColumnName="NAME" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="50" />
@@ -1197,136 +1201,136 @@ SELECT GUID, NAME, ECM_FK_ID, AD_SYNC, INTERNAL, ACTIVE, COMMENT, ADDED_WHO, ADD
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBWH_Users1" msprop:Generator_TableClassName="TBWH_Users1DataTable" msprop:Generator_TableVarName="tableTBWH_Users1" msprop:Generator_TablePropName="TBWH_Users1" msprop:Generator_RowDeletingName="TBWH_Users1RowDeleting" msprop:Generator_RowChangingName="TBWH_Users1RowChanging" msprop:Generator_RowEvHandlerName="TBWH_Users1RowChangeEventHandler" msprop:Generator_RowDeletedName="TBWH_Users1RowDeleted" msprop:Generator_UserTableName="TBWH_Users1" msprop:Generator_RowChangedName="TBWH_Users1RowChanged" msprop:Generator_RowEvArgName="TBWH_Users1RowChangeEvent" msprop:Generator_RowClassName="TBWH_Users1Row">
<xs:element name="TBWH_Users1" msprop:Generator_RowClassName="TBWH_Users1Row" msprop:Generator_RowEvHandlerName="TBWH_Users1RowChangeEventHandler" msprop:Generator_RowDeletedName="TBWH_Users1RowDeleted" msprop:Generator_RowDeletingName="TBWH_Users1RowDeleting" msprop:Generator_RowEvArgName="TBWH_Users1RowChangeEvent" msprop:Generator_TablePropName="TBWH_Users1" msprop:Generator_RowChangedName="TBWH_Users1RowChanged" msprop:Generator_RowChangingName="TBWH_Users1RowChanging" msprop:Generator_TableClassName="TBWH_Users1DataTable" msprop:Generator_UserTableName="TBWH_Users1" msprop:Generator_TableVarName="tableTBWH_Users1">
<xs:complexType>
<xs:sequence>
<xs:element name="Select" msprop:Generator_ColumnVarNameInTable="columnSelect" msprop:Generator_ColumnPropNameInRow="_Select" msprop:Generator_ColumnPropNameInTable="SelectColumn" msprop:Generator_UserColumnName="Select" type="xs:boolean" default="false" minOccurs="0" />
<xs:element name="Username" msprop:Generator_ColumnVarNameInTable="columnUsername" msprop:Generator_ColumnPropNameInRow="Username" msprop:Generator_ColumnPropNameInTable="UsernameColumn" msprop:Generator_UserColumnName="Username" type="xs:string" minOccurs="0" />
<xs:element name="Prename" msprop:Generator_ColumnVarNameInTable="columnPrename" msprop:Generator_ColumnPropNameInRow="Prename" msprop:Generator_ColumnPropNameInTable="PrenameColumn" msprop:Generator_UserColumnName="Prename" type="xs:string" minOccurs="0" />
<xs:element name="Surname" msprop:Generator_ColumnVarNameInTable="columnSurname" msprop:Generator_ColumnPropNameInRow="Surname" msprop:Generator_ColumnPropNameInTable="SurnameColumn" msprop:Generator_UserColumnName="Surname" type="xs:string" minOccurs="0" />
<xs:element name="Email" msprop:Generator_ColumnVarNameInTable="columnEmail" msprop:Generator_ColumnPropNameInRow="Email" msprop:Generator_ColumnPropNameInTable="EmailColumn" msprop:Generator_UserColumnName="Email" type="xs:string" minOccurs="0" />
<xs:element name="ID" msprop:Generator_ColumnVarNameInTable="columnID" msprop:Generator_ColumnPropNameInRow="ID" msprop:Generator_ColumnPropNameInTable="IDColumn" msprop:Generator_UserColumnName="ID" type="xs:short" minOccurs="0" />
<xs:element name="Select" msprop:Generator_ColumnPropNameInRow="_Select" msprop:Generator_ColumnPropNameInTable="SelectColumn" msprop:Generator_ColumnVarNameInTable="columnSelect" msprop:Generator_UserColumnName="Select" type="xs:boolean" default="false" minOccurs="0" />
<xs:element name="Username" msprop:Generator_ColumnPropNameInRow="Username" msprop:Generator_ColumnPropNameInTable="UsernameColumn" msprop:Generator_ColumnVarNameInTable="columnUsername" msprop:Generator_UserColumnName="Username" type="xs:string" minOccurs="0" />
<xs:element name="Prename" msprop:Generator_ColumnPropNameInRow="Prename" msprop:Generator_ColumnPropNameInTable="PrenameColumn" msprop:Generator_ColumnVarNameInTable="columnPrename" msprop:Generator_UserColumnName="Prename" type="xs:string" minOccurs="0" />
<xs:element name="Surname" msprop:Generator_ColumnPropNameInRow="Surname" msprop:Generator_ColumnPropNameInTable="SurnameColumn" msprop:Generator_ColumnVarNameInTable="columnSurname" msprop:Generator_UserColumnName="Surname" type="xs:string" minOccurs="0" />
<xs:element name="Email" msprop:Generator_ColumnPropNameInRow="Email" msprop:Generator_ColumnPropNameInTable="EmailColumn" msprop:Generator_ColumnVarNameInTable="columnEmail" msprop:Generator_UserColumnName="Email" type="xs:string" minOccurs="0" />
<xs:element name="ID" msprop:Generator_ColumnPropNameInRow="ID" msprop:Generator_ColumnPropNameInTable="IDColumn" msprop:Generator_ColumnVarNameInTable="columnID" msprop:Generator_UserColumnName="ID" type="xs:short" minOccurs="0" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBWH_Users2" msprop:Generator_TableClassName="TBWH_Users2DataTable" msprop:Generator_TableVarName="tableTBWH_Users2" msprop:Generator_RowChangedName="TBWH_Users2RowChanged" msprop:Generator_TablePropName="TBWH_Users2" msprop:Generator_RowDeletingName="TBWH_Users2RowDeleting" msprop:Generator_RowChangingName="TBWH_Users2RowChanging" msprop:Generator_RowEvHandlerName="TBWH_Users2RowChangeEventHandler" msprop:Generator_RowDeletedName="TBWH_Users2RowDeleted" msprop:Generator_RowClassName="TBWH_Users2Row" msprop:Generator_UserTableName="TBWH_Users2" msprop:Generator_RowEvArgName="TBWH_Users2RowChangeEvent">
<xs:element name="TBWH_Users2" msprop:Generator_RowEvHandlerName="TBWH_Users2RowChangeEventHandler" msprop:Generator_RowDeletedName="TBWH_Users2RowDeleted" msprop:Generator_RowDeletingName="TBWH_Users2RowDeleting" msprop:Generator_RowEvArgName="TBWH_Users2RowChangeEvent" msprop:Generator_TablePropName="TBWH_Users2" msprop:Generator_RowChangedName="TBWH_Users2RowChanged" msprop:Generator_RowChangingName="TBWH_Users2RowChanging" msprop:Generator_TableClassName="TBWH_Users2DataTable" msprop:Generator_RowClassName="TBWH_Users2Row" msprop:Generator_TableVarName="tableTBWH_Users2" msprop:Generator_UserTableName="TBWH_Users2">
<xs:complexType>
<xs:sequence>
<xs:element name="Select" msprop:Generator_ColumnVarNameInTable="columnSelect" msprop:Generator_ColumnPropNameInRow="_Select" msprop:Generator_ColumnPropNameInTable="SelectColumn" msprop:Generator_UserColumnName="Select" type="xs:boolean" default="false" minOccurs="0" />
<xs:element name="Username" msprop:Generator_ColumnVarNameInTable="columnUsername" msprop:Generator_ColumnPropNameInRow="Username" msprop:Generator_ColumnPropNameInTable="UsernameColumn" msprop:Generator_UserColumnName="Username" type="xs:string" minOccurs="0" />
<xs:element name="Prename" msprop:Generator_ColumnVarNameInTable="columnPrename" msprop:Generator_ColumnPropNameInRow="Prename" msprop:Generator_ColumnPropNameInTable="PrenameColumn" msprop:Generator_UserColumnName="Prename" type="xs:string" minOccurs="0" />
<xs:element name="Surname" msprop:Generator_ColumnVarNameInTable="columnSurname" msprop:Generator_ColumnPropNameInRow="Surname" msprop:Generator_ColumnPropNameInTable="SurnameColumn" msprop:Generator_UserColumnName="Surname" type="xs:string" minOccurs="0" />
<xs:element name="Email" msprop:Generator_ColumnVarNameInTable="columnEmail" msprop:Generator_ColumnPropNameInRow="Email" msprop:Generator_ColumnPropNameInTable="EmailColumn" msprop:Generator_UserColumnName="Email" type="xs:string" minOccurs="0" />
<xs:element name="ID" msprop:Generator_ColumnVarNameInTable="columnID" msprop:Generator_ColumnPropNameInRow="ID" msprop:Generator_ColumnPropNameInTable="IDColumn" msprop:Generator_UserColumnName="ID" type="xs:short" minOccurs="0" />
<xs:element name="Select" msprop:Generator_ColumnPropNameInRow="_Select" msprop:Generator_ColumnPropNameInTable="SelectColumn" msprop:Generator_ColumnVarNameInTable="columnSelect" msprop:Generator_UserColumnName="Select" type="xs:boolean" default="false" minOccurs="0" />
<xs:element name="Username" msprop:Generator_ColumnPropNameInRow="Username" msprop:Generator_ColumnPropNameInTable="UsernameColumn" msprop:Generator_ColumnVarNameInTable="columnUsername" msprop:Generator_UserColumnName="Username" type="xs:string" minOccurs="0" />
<xs:element name="Prename" msprop:Generator_ColumnPropNameInRow="Prename" msprop:Generator_ColumnPropNameInTable="PrenameColumn" msprop:Generator_ColumnVarNameInTable="columnPrename" msprop:Generator_UserColumnName="Prename" type="xs:string" minOccurs="0" />
<xs:element name="Surname" msprop:Generator_ColumnPropNameInRow="Surname" msprop:Generator_ColumnPropNameInTable="SurnameColumn" msprop:Generator_ColumnVarNameInTable="columnSurname" msprop:Generator_UserColumnName="Surname" type="xs:string" minOccurs="0" />
<xs:element name="Email" msprop:Generator_ColumnPropNameInRow="Email" msprop:Generator_ColumnPropNameInTable="EmailColumn" msprop:Generator_ColumnVarNameInTable="columnEmail" msprop:Generator_UserColumnName="Email" type="xs:string" minOccurs="0" />
<xs:element name="ID" msprop:Generator_ColumnPropNameInRow="ID" msprop:Generator_ColumnPropNameInTable="IDColumn" msprop:Generator_ColumnVarNameInTable="columnID" msprop:Generator_UserColumnName="ID" type="xs:short" minOccurs="0" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBPMO_SAP_FUBA" msprop:Generator_TableClassName="TBPMO_SAP_FUBADataTable" msprop:Generator_TableVarName="tableTBPMO_SAP_FUBA" msprop:Generator_RowChangedName="TBPMO_SAP_FUBARowChanged" msprop:Generator_TablePropName="TBPMO_SAP_FUBA" msprop:Generator_RowDeletingName="TBPMO_SAP_FUBARowDeleting" msprop:Generator_RowChangingName="TBPMO_SAP_FUBARowChanging" msprop:Generator_RowEvHandlerName="TBPMO_SAP_FUBARowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_SAP_FUBARowDeleted" msprop:Generator_RowClassName="TBPMO_SAP_FUBARow" msprop:Generator_UserTableName="TBPMO_SAP_FUBA" msprop:Generator_RowEvArgName="TBPMO_SAP_FUBARowChangeEvent">
<xs:element name="TBPMO_SAP_FUBA" msprop:Generator_RowEvHandlerName="TBPMO_SAP_FUBARowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_SAP_FUBARowDeleted" msprop:Generator_RowDeletingName="TBPMO_SAP_FUBARowDeleting" msprop:Generator_RowEvArgName="TBPMO_SAP_FUBARowChangeEvent" msprop:Generator_TablePropName="TBPMO_SAP_FUBA" msprop:Generator_RowChangedName="TBPMO_SAP_FUBARowChanged" msprop:Generator_RowChangingName="TBPMO_SAP_FUBARowChanging" msprop:Generator_TableClassName="TBPMO_SAP_FUBADataTable" msprop:Generator_RowClassName="TBPMO_SAP_FUBARow" msprop:Generator_TableVarName="tableTBPMO_SAP_FUBA" msprop:Generator_UserTableName="TBPMO_SAP_FUBA">
<xs:complexType>
<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="NAME" msprop:Generator_ColumnVarNameInTable="columnNAME" msprop:Generator_ColumnPropNameInRow="NAME" msprop:Generator_ColumnPropNameInTable="NAMEColumn" msprop:Generator_UserColumnName="NAME">
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_UserColumnName="GUID" type="xs:int" />
<xs:element name="NAME" msprop:Generator_ColumnPropNameInRow="NAME" msprop:Generator_ColumnPropNameInTable="NAMEColumn" msprop:Generator_ColumnVarNameInTable="columnNAME" msprop:Generator_UserColumnName="NAME">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="100" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="COMMENT" msprop:Generator_ColumnVarNameInTable="columnCOMMENT" msprop:Generator_ColumnPropNameInRow="COMMENT" msprop:Generator_ColumnPropNameInTable="COMMENTColumn" msprop:Generator_UserColumnName="COMMENT" minOccurs="0">
<xs:element name="COMMENT" msprop:Generator_ColumnPropNameInRow="COMMENT" msprop:Generator_ColumnPropNameInTable="COMMENTColumn" msprop:Generator_ColumnVarNameInTable="columnCOMMENT" msprop:Generator_UserColumnName="COMMENT" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="500" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="TableName" msprop:Generator_ColumnVarNameInTable="columnTableName" msprop:Generator_ColumnPropNameInRow="TableName" msprop:Generator_ColumnPropNameInTable="TableNameColumn" msprop:Generator_UserColumnName="TableName">
<xs:element name="TableName" msprop:Generator_ColumnPropNameInRow="TableName" msprop:Generator_ColumnPropNameInTable="TableNameColumn" msprop:Generator_ColumnVarNameInTable="columnTableName" msprop:Generator_UserColumnName="TableName">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="100" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="Host" msprop:Generator_ColumnVarNameInTable="columnHost" msprop:Generator_ColumnPropNameInRow="Host" msprop:Generator_ColumnPropNameInTable="HostColumn" msprop:Generator_UserColumnName="Host">
<xs:element name="Host" msprop:Generator_ColumnPropNameInRow="Host" msprop:Generator_ColumnPropNameInTable="HostColumn" msprop:Generator_ColumnVarNameInTable="columnHost" msprop:Generator_UserColumnName="Host">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="100" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="SystemNumber" msprop:Generator_ColumnVarNameInTable="columnSystemNumber" msprop:Generator_ColumnPropNameInRow="SystemNumber" msprop:Generator_ColumnPropNameInTable="SystemNumberColumn" msprop:Generator_UserColumnName="SystemNumber">
<xs:element name="SystemNumber" msprop:Generator_ColumnPropNameInRow="SystemNumber" msprop:Generator_ColumnPropNameInTable="SystemNumberColumn" msprop:Generator_ColumnVarNameInTable="columnSystemNumber" msprop:Generator_UserColumnName="SystemNumber">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="30" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="UserName" msprop:Generator_ColumnVarNameInTable="columnUserName" msprop:Generator_ColumnPropNameInRow="UserName" msprop:Generator_ColumnPropNameInTable="UserNameColumn" msprop:Generator_UserColumnName="UserName">
<xs:element name="UserName" msprop:Generator_ColumnPropNameInRow="UserName" msprop:Generator_ColumnPropNameInTable="UserNameColumn" msprop:Generator_ColumnVarNameInTable="columnUserName" msprop:Generator_UserColumnName="UserName">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="50" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="Password" msprop:Generator_ColumnVarNameInTable="columnPassword" msprop:Generator_ColumnPropNameInRow="Password" msprop:Generator_ColumnPropNameInTable="PasswordColumn" msprop:Generator_UserColumnName="Password">
<xs:element name="Password" msprop:Generator_ColumnPropNameInRow="Password" msprop:Generator_ColumnPropNameInTable="PasswordColumn" msprop:Generator_ColumnVarNameInTable="columnPassword" msprop:Generator_UserColumnName="Password">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="100" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="Client" msprop:Generator_ColumnVarNameInTable="columnClient" msprop:Generator_ColumnPropNameInRow="Client" msprop:Generator_ColumnPropNameInTable="ClientColumn" msprop:Generator_UserColumnName="Client">
<xs:element name="Client" msprop:Generator_ColumnPropNameInRow="Client" msprop:Generator_ColumnPropNameInTable="ClientColumn" msprop:Generator_ColumnVarNameInTable="columnClient" msprop:Generator_UserColumnName="Client">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="100" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="Language" msprop:Generator_ColumnVarNameInTable="columnLanguage" msprop:Generator_ColumnPropNameInRow="Language" msprop:Generator_ColumnPropNameInTable="LanguageColumn" msprop:Generator_UserColumnName="Language">
<xs:element name="Language" msprop:Generator_ColumnPropNameInRow="Language" msprop:Generator_ColumnPropNameInTable="LanguageColumn" msprop:Generator_ColumnVarNameInTable="columnLanguage" msprop:Generator_UserColumnName="Language">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="20" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="TempTableName" msprop:Generator_ColumnVarNameInTable="columnTempTableName" msprop:Generator_ColumnPropNameInRow="TempTableName" msprop:Generator_ColumnPropNameInTable="TempTableNameColumn" msprop:Generator_UserColumnName="TempTableName">
<xs:element name="TempTableName" msprop:Generator_ColumnPropNameInRow="TempTableName" msprop:Generator_ColumnPropNameInTable="TempTableNameColumn" msprop:Generator_ColumnVarNameInTable="columnTempTableName" msprop:Generator_UserColumnName="TempTableName">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="100" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="ACTIVE" msprop:Generator_ColumnVarNameInTable="columnACTIVE" msprop:Generator_ColumnPropNameInRow="ACTIVE" msprop:Generator_ColumnPropNameInTable="ACTIVEColumn" msprop:Generator_UserColumnName="ACTIVE" type="xs:boolean" default="false" />
<xs:element name="ADDED_WHO" msprop:Generator_ColumnVarNameInTable="columnADDED_WHO" msprop:Generator_ColumnPropNameInRow="ADDED_WHO" msprop:Generator_ColumnPropNameInTable="ADDED_WHOColumn" msprop:Generator_UserColumnName="ADDED_WHO">
<xs:element name="ACTIVE" msprop:Generator_ColumnPropNameInRow="ACTIVE" msprop:Generator_ColumnPropNameInTable="ACTIVEColumn" msprop:Generator_ColumnVarNameInTable="columnACTIVE" msprop:Generator_UserColumnName="ACTIVE" type="xs:boolean" default="false" />
<xs:element name="ADDED_WHO" msprop:Generator_ColumnPropNameInRow="ADDED_WHO" msprop:Generator_ColumnPropNameInTable="ADDED_WHOColumn" msprop:Generator_ColumnVarNameInTable="columnADDED_WHO" msprop:Generator_UserColumnName="ADDED_WHO">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="50" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<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" minOccurs="0" />
<xs:element name="CHANGED_WHO" msprop:Generator_ColumnVarNameInTable="columnCHANGED_WHO" msprop:Generator_ColumnPropNameInRow="CHANGED_WHO" msprop:Generator_ColumnPropNameInTable="CHANGED_WHOColumn" msprop:Generator_UserColumnName="CHANGED_WHO" minOccurs="0">
<xs:element name="ADDED_WHEN" msprop:Generator_ColumnPropNameInRow="ADDED_WHEN" msprop:Generator_ColumnPropNameInTable="ADDED_WHENColumn" msprop:Generator_ColumnVarNameInTable="columnADDED_WHEN" msprop:Generator_UserColumnName="ADDED_WHEN" type="xs:dateTime" minOccurs="0" />
<xs:element name="CHANGED_WHO" msprop:Generator_ColumnPropNameInRow="CHANGED_WHO" msprop:Generator_ColumnPropNameInTable="CHANGED_WHOColumn" msprop:Generator_ColumnVarNameInTable="columnCHANGED_WHO" msprop:Generator_UserColumnName="CHANGED_WHO" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="50" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="CHANGED_WHEN" msprop:Generator_ColumnVarNameInTable="columnCHANGED_WHEN" msprop:Generator_ColumnPropNameInRow="CHANGED_WHEN" msprop:Generator_ColumnPropNameInTable="CHANGED_WHENColumn" msprop:Generator_UserColumnName="CHANGED_WHEN" type="xs:dateTime" minOccurs="0" />
<xs:element name="WHERE_CLAUSE" msprop:Generator_ColumnVarNameInTable="columnWHERE_CLAUSE" msprop:Generator_ColumnPropNameInRow="WHERE_CLAUSE" msprop:Generator_ColumnPropNameInTable="WHERE_CLAUSEColumn" msprop:Generator_UserColumnName="WHERE_CLAUSE" minOccurs="0">
<xs:element name="CHANGED_WHEN" msprop:Generator_ColumnPropNameInRow="CHANGED_WHEN" msprop:Generator_ColumnPropNameInTable="CHANGED_WHENColumn" msprop:Generator_ColumnVarNameInTable="columnCHANGED_WHEN" msprop:Generator_UserColumnName="CHANGED_WHEN" type="xs:dateTime" minOccurs="0" />
<xs:element name="WHERE_CLAUSE" msprop:Generator_ColumnPropNameInRow="WHERE_CLAUSE" msprop:Generator_ColumnPropNameInTable="WHERE_CLAUSEColumn" msprop:Generator_ColumnVarNameInTable="columnWHERE_CLAUSE" msprop:Generator_UserColumnName="WHERE_CLAUSE" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="500" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="Method" msprop:Generator_ColumnVarNameInTable="columnMethod" msprop:Generator_ColumnPropNameInRow="Method" msprop:Generator_ColumnPropNameInTable="MethodColumn" msprop:Generator_UserColumnName="Method" default="TABLE">
<xs:element name="Method" msprop:Generator_ColumnPropNameInRow="Method" msprop:Generator_ColumnPropNameInTable="MethodColumn" msprop:Generator_ColumnVarNameInTable="columnMethod" msprop:Generator_UserColumnName="Method" default="TABLE">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="50" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="FuBa_SplitCharacter" msprop:Generator_ColumnVarNameInTable="columnFuBa_SplitCharacter" msprop:Generator_ColumnPropNameInRow="FuBa_SplitCharacter" msprop:Generator_ColumnPropNameInTable="FuBa_SplitCharacterColumn" msprop:Generator_UserColumnName="FuBa_SplitCharacter" default=";">
<xs:element name="FuBa_SplitCharacter" msprop:Generator_ColumnPropNameInRow="FuBa_SplitCharacter" msprop:Generator_ColumnPropNameInTable="FuBa_SplitCharacterColumn" msprop:Generator_ColumnVarNameInTable="columnFuBa_SplitCharacter" msprop:Generator_UserColumnName="FuBa_SplitCharacter" default=";">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="1" />
@@ -1336,152 +1340,152 @@ SELECT GUID, NAME, ECM_FK_ID, AD_SYNC, INTERNAL, ACTIVE, COMMENT, ADDED_WHO, ADD
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="USER_RIGHTS" msprop:Generator_TableClassName="USER_RIGHTSDataTable" msprop:Generator_TableVarName="tableUSER_RIGHTS" msprop:Generator_TablePropName="USER_RIGHTS" msprop:Generator_RowDeletingName="USER_RIGHTSRowDeleting" msprop:Generator_RowChangingName="USER_RIGHTSRowChanging" msprop:Generator_RowEvHandlerName="USER_RIGHTSRowChangeEventHandler" msprop:Generator_RowDeletedName="USER_RIGHTSRowDeleted" msprop:Generator_UserTableName="USER_RIGHTS" msprop:Generator_RowChangedName="USER_RIGHTSRowChanged" msprop:Generator_RowEvArgName="USER_RIGHTSRowChangeEvent" msprop:Generator_RowClassName="USER_RIGHTSRow">
<xs:element name="USER_RIGHTS" msprop:Generator_RowClassName="USER_RIGHTSRow" msprop:Generator_RowEvHandlerName="USER_RIGHTSRowChangeEventHandler" msprop:Generator_RowDeletedName="USER_RIGHTSRowDeleted" msprop:Generator_RowDeletingName="USER_RIGHTSRowDeleting" msprop:Generator_RowEvArgName="USER_RIGHTSRowChangeEvent" msprop:Generator_TablePropName="USER_RIGHTS" msprop:Generator_RowChangedName="USER_RIGHTSRowChanged" msprop:Generator_RowChangingName="USER_RIGHTSRowChanging" msprop:Generator_TableClassName="USER_RIGHTSDataTable" msprop:Generator_UserTableName="USER_RIGHTS" msprop:Generator_TableVarName="tableUSER_RIGHTS">
<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="FORM_TITLE" msdata:ReadOnly="true" msprop:Generator_ColumnVarNameInTable="columnFORM_TITLE" msprop:Generator_ColumnPropNameInRow="FORM_TITLE" msprop:Generator_ColumnPropNameInTable="FORM_TITLEColumn" msprop:Generator_UserColumnName="FORM_TITLE" minOccurs="0">
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_UserColumnName="GUID" type="xs:int" />
<xs:element name="FORM_TITLE" msdata:ReadOnly="true" msprop:Generator_ColumnPropNameInRow="FORM_TITLE" msprop:Generator_ColumnPropNameInTable="FORM_TITLEColumn" msprop:Generator_ColumnVarNameInTable="columnFORM_TITLE" msprop:Generator_UserColumnName="FORM_TITLE" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="100" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="USERNAME" msprop:Generator_ColumnVarNameInTable="columnUSERNAME" msprop:Generator_ColumnPropNameInRow="USERNAME" msprop:Generator_ColumnPropNameInTable="USERNAMEColumn" msprop:Generator_UserColumnName="USERNAME">
<xs:element name="USERNAME" msprop:Generator_ColumnPropNameInRow="USERNAME" msprop:Generator_ColumnPropNameInTable="USERNAMEColumn" msprop:Generator_ColumnVarNameInTable="columnUSERNAME" msprop:Generator_UserColumnName="USERNAME">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="50" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="NAME" msprop:Generator_ColumnVarNameInTable="columnNAME" msprop:Generator_ColumnPropNameInRow="NAME" msprop:Generator_ColumnPropNameInTable="NAMEColumn" msprop:Generator_UserColumnName="NAME" minOccurs="0">
<xs:element name="NAME" msprop:Generator_ColumnPropNameInRow="NAME" msprop:Generator_ColumnPropNameInTable="NAMEColumn" msprop:Generator_ColumnVarNameInTable="columnNAME" msprop:Generator_UserColumnName="NAME" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="50" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="PRENAME" msprop:Generator_ColumnVarNameInTable="columnPRENAME" msprop:Generator_ColumnPropNameInRow="PRENAME" msprop:Generator_ColumnPropNameInTable="PRENAMEColumn" msprop:Generator_UserColumnName="PRENAME" minOccurs="0">
<xs:element name="PRENAME" msprop:Generator_ColumnPropNameInRow="PRENAME" msprop:Generator_ColumnPropNameInTable="PRENAMEColumn" msprop:Generator_ColumnVarNameInTable="columnPRENAME" msprop:Generator_UserColumnName="PRENAME" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="50" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="EDIT_REC" msprop:Generator_ColumnVarNameInTable="columnEDIT_REC" msprop:Generator_ColumnPropNameInRow="EDIT_REC" msprop:Generator_ColumnPropNameInTable="EDIT_RECColumn" msprop:Generator_UserColumnName="EDIT_REC" type="xs:boolean" />
<xs:element name="ADD_REC" msprop:Generator_ColumnVarNameInTable="columnADD_REC" msprop:Generator_ColumnPropNameInRow="ADD_REC" msprop:Generator_ColumnPropNameInTable="ADD_RECColumn" msprop:Generator_UserColumnName="ADD_REC" type="xs:boolean" />
<xs:element name="DELETE_REC" msprop:Generator_ColumnVarNameInTable="columnDELETE_REC" msprop:Generator_ColumnPropNameInRow="DELETE_REC" msprop:Generator_ColumnPropNameInTable="DELETE_RECColumn" msprop:Generator_UserColumnName="DELETE_REC" type="xs:boolean" />
<xs:element name="ADD_DOC" msprop:Generator_ColumnVarNameInTable="columnADD_DOC" msprop:Generator_ColumnPropNameInRow="ADD_DOC" msprop:Generator_ColumnPropNameInTable="ADD_DOCColumn" msprop:Generator_UserColumnName="ADD_DOC" type="xs:boolean" />
<xs:element name="READ_ONLY_DOC" msprop:Generator_ColumnVarNameInTable="columnREAD_ONLY_DOC" msprop:Generator_ColumnPropNameInRow="READ_ONLY_DOC" msprop:Generator_ColumnPropNameInTable="READ_ONLY_DOCColumn" msprop:Generator_UserColumnName="READ_ONLY_DOC" type="xs:boolean" />
<xs:element name="DELETE_DOC" msprop:Generator_ColumnVarNameInTable="columnDELETE_DOC" msprop:Generator_ColumnPropNameInRow="DELETE_DOC" msprop:Generator_ColumnPropNameInTable="DELETE_DOCColumn" msprop:Generator_UserColumnName="DELETE_DOC" type="xs:boolean" />
<xs:element name="FILES_VISIBLE" msprop:Generator_ColumnVarNameInTable="columnFILES_VISIBLE" msprop:Generator_ColumnPropNameInRow="FILES_VISIBLE" msprop:Generator_ColumnPropNameInTable="FILES_VISIBLEColumn" msprop:Generator_UserColumnName="FILES_VISIBLE" 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" minOccurs="0" />
<xs:element name="CHANGED_WHEN" msprop:Generator_ColumnVarNameInTable="columnCHANGED_WHEN" msprop:Generator_ColumnPropNameInRow="CHANGED_WHEN" msprop:Generator_ColumnPropNameInTable="CHANGED_WHENColumn" msprop:Generator_UserColumnName="CHANGED_WHEN" type="xs:dateTime" minOccurs="0" />
<xs:element name="EDIT_REC" msprop:Generator_ColumnPropNameInRow="EDIT_REC" msprop:Generator_ColumnPropNameInTable="EDIT_RECColumn" msprop:Generator_ColumnVarNameInTable="columnEDIT_REC" msprop:Generator_UserColumnName="EDIT_REC" type="xs:boolean" />
<xs:element name="ADD_REC" msprop:Generator_ColumnPropNameInRow="ADD_REC" msprop:Generator_ColumnPropNameInTable="ADD_RECColumn" msprop:Generator_ColumnVarNameInTable="columnADD_REC" msprop:Generator_UserColumnName="ADD_REC" type="xs:boolean" />
<xs:element name="DELETE_REC" msprop:Generator_ColumnPropNameInRow="DELETE_REC" msprop:Generator_ColumnPropNameInTable="DELETE_RECColumn" msprop:Generator_ColumnVarNameInTable="columnDELETE_REC" msprop:Generator_UserColumnName="DELETE_REC" type="xs:boolean" />
<xs:element name="ADD_DOC" msprop:Generator_ColumnPropNameInRow="ADD_DOC" msprop:Generator_ColumnPropNameInTable="ADD_DOCColumn" msprop:Generator_ColumnVarNameInTable="columnADD_DOC" msprop:Generator_UserColumnName="ADD_DOC" type="xs:boolean" />
<xs:element name="READ_ONLY_DOC" msprop:Generator_ColumnPropNameInRow="READ_ONLY_DOC" msprop:Generator_ColumnPropNameInTable="READ_ONLY_DOCColumn" msprop:Generator_ColumnVarNameInTable="columnREAD_ONLY_DOC" msprop:Generator_UserColumnName="READ_ONLY_DOC" type="xs:boolean" />
<xs:element name="DELETE_DOC" msprop:Generator_ColumnPropNameInRow="DELETE_DOC" msprop:Generator_ColumnPropNameInTable="DELETE_DOCColumn" msprop:Generator_ColumnVarNameInTable="columnDELETE_DOC" msprop:Generator_UserColumnName="DELETE_DOC" type="xs:boolean" />
<xs:element name="FILES_VISIBLE" msprop:Generator_ColumnPropNameInRow="FILES_VISIBLE" msprop:Generator_ColumnPropNameInTable="FILES_VISIBLEColumn" msprop:Generator_ColumnVarNameInTable="columnFILES_VISIBLE" msprop:Generator_UserColumnName="FILES_VISIBLE" type="xs:boolean" />
<xs:element name="ADDED_WHEN" msprop:Generator_ColumnPropNameInRow="ADDED_WHEN" msprop:Generator_ColumnPropNameInTable="ADDED_WHENColumn" msprop:Generator_ColumnVarNameInTable="columnADDED_WHEN" msprop:Generator_UserColumnName="ADDED_WHEN" type="xs:dateTime" minOccurs="0" />
<xs:element name="CHANGED_WHEN" msprop:Generator_ColumnPropNameInRow="CHANGED_WHEN" msprop:Generator_ColumnPropNameInTable="CHANGED_WHENColumn" msprop:Generator_ColumnVarNameInTable="columnCHANGED_WHEN" msprop:Generator_UserColumnName="CHANGED_WHEN" type="xs:dateTime" minOccurs="0" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBPMO_DOCSEARCH_RESULTLIST_CONFIG" msprop:Generator_TableClassName="TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable" msprop:Generator_TableVarName="tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG" msprop:Generator_TablePropName="TBPMO_DOCSEARCH_RESULTLIST_CONFIG" msprop:Generator_RowDeletingName="TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowDeleting" msprop:Generator_RowChangingName="TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChanging" msprop:Generator_RowEvHandlerName="TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowDeleted" msprop:Generator_UserTableName="TBPMO_DOCSEARCH_RESULTLIST_CONFIG" msprop:Generator_RowChangedName="TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChanged" msprop:Generator_RowEvArgName="TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChangeEvent" msprop:Generator_RowClassName="TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow">
<xs:element name="TBPMO_DOCSEARCH_RESULTLIST_CONFIG" msprop:Generator_RowClassName="TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow" msprop:Generator_RowEvHandlerName="TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowDeleted" msprop:Generator_RowDeletingName="TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowDeleting" msprop:Generator_RowEvArgName="TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChangeEvent" msprop:Generator_TablePropName="TBPMO_DOCSEARCH_RESULTLIST_CONFIG" msprop:Generator_RowChangedName="TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChanged" msprop:Generator_RowChangingName="TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChanging" msprop:Generator_TableClassName="TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable" msprop:Generator_UserTableName="TBPMO_DOCSEARCH_RESULTLIST_CONFIG" msprop:Generator_TableVarName="tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG">
<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="ENTITY_ID" msprop:Generator_ColumnVarNameInTable="columnENTITY_ID" msprop:Generator_ColumnPropNameInRow="ENTITY_ID" msprop:Generator_ColumnPropNameInTable="ENTITY_IDColumn" msprop:Generator_UserColumnName="ENTITY_ID" type="xs:int" />
<xs:element name="LANGUAGE" msprop:Generator_ColumnVarNameInTable="columnLANGUAGE" msprop:Generator_ColumnPropNameInRow="LANGUAGE" msprop:Generator_ColumnPropNameInTable="LANGUAGEColumn" msprop:Generator_UserColumnName="LANGUAGE">
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_UserColumnName="GUID" type="xs:int" />
<xs:element name="ENTITY_ID" msprop:Generator_ColumnPropNameInRow="ENTITY_ID" msprop:Generator_ColumnPropNameInTable="ENTITY_IDColumn" msprop:Generator_ColumnVarNameInTable="columnENTITY_ID" msprop:Generator_UserColumnName="ENTITY_ID" type="xs:int" />
<xs:element name="LANGUAGE" msprop:Generator_ColumnPropNameInRow="LANGUAGE" msprop:Generator_ColumnPropNameInTable="LANGUAGEColumn" msprop:Generator_ColumnVarNameInTable="columnLANGUAGE" msprop:Generator_UserColumnName="LANGUAGE">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="5" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="COLUMN_VIEW" msprop:Generator_ColumnVarNameInTable="columnCOLUMN_VIEW" msprop:Generator_ColumnPropNameInRow="COLUMN_VIEW" msprop:Generator_ColumnPropNameInTable="COLUMN_VIEWColumn" msprop:Generator_UserColumnName="COLUMN_VIEW">
<xs:element name="COLUMN_VIEW" msprop:Generator_ColumnPropNameInRow="COLUMN_VIEW" msprop:Generator_ColumnPropNameInTable="COLUMN_VIEWColumn" msprop:Generator_ColumnVarNameInTable="columnCOLUMN_VIEW" msprop:Generator_UserColumnName="COLUMN_VIEW">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="100" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="HEADER_CAPTION" msprop:Generator_ColumnVarNameInTable="columnHEADER_CAPTION" msprop:Generator_ColumnPropNameInRow="HEADER_CAPTION" msprop:Generator_ColumnPropNameInTable="HEADER_CAPTIONColumn" msprop:Generator_UserColumnName="HEADER_CAPTION">
<xs:element name="HEADER_CAPTION" msprop:Generator_ColumnPropNameInRow="HEADER_CAPTION" msprop:Generator_ColumnPropNameInTable="HEADER_CAPTIONColumn" msprop:Generator_ColumnVarNameInTable="columnHEADER_CAPTION" msprop:Generator_UserColumnName="HEADER_CAPTION">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="100" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="WIDTH" msprop:Generator_ColumnVarNameInTable="columnWIDTH" msprop:Generator_ColumnPropNameInRow="WIDTH" msprop:Generator_ColumnPropNameInTable="WIDTHColumn" msprop:Generator_UserColumnName="WIDTH" type="xs:int" />
<xs:element name="TYPE_ID" msprop:Generator_ColumnVarNameInTable="columnTYPE_ID" msprop:Generator_ColumnPropNameInRow="TYPE_ID" msprop:Generator_ColumnPropNameInTable="TYPE_IDColumn" msprop:Generator_UserColumnName="TYPE_ID" type="xs:unsignedByte" />
<xs:element name="ADDED_WHO" msprop:Generator_ColumnVarNameInTable="columnADDED_WHO" msprop:Generator_ColumnPropNameInRow="ADDED_WHO" msprop:Generator_ColumnPropNameInTable="ADDED_WHOColumn" msprop:Generator_UserColumnName="ADDED_WHO">
<xs:element name="WIDTH" msprop:Generator_ColumnPropNameInRow="WIDTH" msprop:Generator_ColumnPropNameInTable="WIDTHColumn" msprop:Generator_ColumnVarNameInTable="columnWIDTH" msprop:Generator_UserColumnName="WIDTH" type="xs:int" />
<xs:element name="TYPE_ID" msprop:Generator_ColumnPropNameInRow="TYPE_ID" msprop:Generator_ColumnPropNameInTable="TYPE_IDColumn" msprop:Generator_ColumnVarNameInTable="columnTYPE_ID" msprop:Generator_UserColumnName="TYPE_ID" type="xs:unsignedByte" />
<xs:element name="ADDED_WHO" msprop:Generator_ColumnPropNameInRow="ADDED_WHO" msprop:Generator_ColumnPropNameInTable="ADDED_WHOColumn" msprop:Generator_ColumnVarNameInTable="columnADDED_WHO" msprop:Generator_UserColumnName="ADDED_WHO">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="50" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<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" minOccurs="0" />
<xs:element name="CHANGED_WHO" msprop:Generator_ColumnVarNameInTable="columnCHANGED_WHO" msprop:Generator_ColumnPropNameInRow="CHANGED_WHO" msprop:Generator_ColumnPropNameInTable="CHANGED_WHOColumn" msprop:Generator_UserColumnName="CHANGED_WHO" minOccurs="0">
<xs:element name="ADDED_WHEN" msprop:Generator_ColumnPropNameInRow="ADDED_WHEN" msprop:Generator_ColumnPropNameInTable="ADDED_WHENColumn" msprop:Generator_ColumnVarNameInTable="columnADDED_WHEN" msprop:Generator_UserColumnName="ADDED_WHEN" type="xs:dateTime" minOccurs="0" />
<xs:element name="CHANGED_WHO" msprop:Generator_ColumnPropNameInRow="CHANGED_WHO" msprop:Generator_ColumnPropNameInTable="CHANGED_WHOColumn" msprop:Generator_ColumnVarNameInTable="columnCHANGED_WHO" msprop:Generator_UserColumnName="CHANGED_WHO" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="50" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="CHANGED_WHEN" msprop:Generator_ColumnVarNameInTable="columnCHANGED_WHEN" msprop:Generator_ColumnPropNameInRow="CHANGED_WHEN" msprop:Generator_ColumnPropNameInTable="CHANGED_WHENColumn" msprop:Generator_UserColumnName="CHANGED_WHEN" type="xs:dateTime" minOccurs="0" />
<xs:element name="VISIBLE" msprop:Generator_ColumnVarNameInTable="columnVISIBLE" msprop:Generator_ColumnPropNameInRow="VISIBLE" msprop:Generator_ColumnPropNameInTable="VISIBLEColumn" msprop:Generator_UserColumnName="VISIBLE" type="xs:boolean" />
<xs:element name="EDITABLE" msprop:Generator_ColumnVarNameInTable="columnEDITABLE" msprop:Generator_ColumnPropNameInRow="EDITABLE" msprop:Generator_ColumnPropNameInTable="EDITABLEColumn" msprop:Generator_UserColumnName="EDITABLE" type="xs:boolean" />
<xs:element name="CONFIG_COLUMNS" msprop:Generator_ColumnVarNameInTable="columnCONFIG_COLUMNS" msprop:Generator_ColumnPropNameInRow="CONFIG_COLUMNS" msprop:Generator_ColumnPropNameInTable="CONFIG_COLUMNSColumn" msprop:Generator_UserColumnName="CONFIG_COLUMNS" type="xs:boolean" />
<xs:element name="SEQUENCE" msprop:Generator_ColumnVarNameInTable="columnSEQUENCE" msprop:Generator_ColumnPropNameInRow="SEQUENCE" msprop:Generator_ColumnPropNameInTable="SEQUENCEColumn" msprop:Generator_UserColumnName="SEQUENCE" type="xs:int" />
<xs:element name="CHANGED_WHEN" msprop:Generator_ColumnPropNameInRow="CHANGED_WHEN" msprop:Generator_ColumnPropNameInTable="CHANGED_WHENColumn" msprop:Generator_ColumnVarNameInTable="columnCHANGED_WHEN" msprop:Generator_UserColumnName="CHANGED_WHEN" type="xs:dateTime" minOccurs="0" />
<xs:element name="VISIBLE" msprop:Generator_ColumnPropNameInRow="VISIBLE" msprop:Generator_ColumnPropNameInTable="VISIBLEColumn" msprop:Generator_ColumnVarNameInTable="columnVISIBLE" msprop:Generator_UserColumnName="VISIBLE" type="xs:boolean" />
<xs:element name="EDITABLE" msprop:Generator_ColumnPropNameInRow="EDITABLE" msprop:Generator_ColumnPropNameInTable="EDITABLEColumn" msprop:Generator_ColumnVarNameInTable="columnEDITABLE" msprop:Generator_UserColumnName="EDITABLE" type="xs:boolean" />
<xs:element name="CONFIG_COLUMNS" msprop:Generator_ColumnPropNameInRow="CONFIG_COLUMNS" msprop:Generator_ColumnPropNameInTable="CONFIG_COLUMNSColumn" msprop:Generator_ColumnVarNameInTable="columnCONFIG_COLUMNS" msprop:Generator_UserColumnName="CONFIG_COLUMNS" type="xs:boolean" />
<xs:element name="SEQUENCE" msprop:Generator_ColumnPropNameInRow="SEQUENCE" msprop:Generator_ColumnPropNameInTable="SEQUENCEColumn" msprop:Generator_ColumnVarNameInTable="columnSEQUENCE" msprop:Generator_UserColumnName="SEQUENCE" type="xs:int" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="VWDD_LOGIN_USER_HISTORY" msprop:Generator_TableClassName="VWDD_LOGIN_USER_HISTORYDataTable" msprop:Generator_TableVarName="tableVWDD_LOGIN_USER_HISTORY" msprop:Generator_RowChangedName="VWDD_LOGIN_USER_HISTORYRowChanged" msprop:Generator_TablePropName="VWDD_LOGIN_USER_HISTORY" msprop:Generator_RowDeletingName="VWDD_LOGIN_USER_HISTORYRowDeleting" msprop:Generator_RowChangingName="VWDD_LOGIN_USER_HISTORYRowChanging" msprop:Generator_RowEvHandlerName="VWDD_LOGIN_USER_HISTORYRowChangeEventHandler" msprop:Generator_RowDeletedName="VWDD_LOGIN_USER_HISTORYRowDeleted" msprop:Generator_RowClassName="VWDD_LOGIN_USER_HISTORYRow" msprop:Generator_UserTableName="VWDD_LOGIN_USER_HISTORY" msprop:Generator_RowEvArgName="VWDD_LOGIN_USER_HISTORYRowChangeEvent">
<xs:element name="VWDD_LOGIN_USER_HISTORY" msprop:Generator_RowEvHandlerName="VWDD_LOGIN_USER_HISTORYRowChangeEventHandler" msprop:Generator_RowDeletedName="VWDD_LOGIN_USER_HISTORYRowDeleted" msprop:Generator_RowDeletingName="VWDD_LOGIN_USER_HISTORYRowDeleting" msprop:Generator_RowEvArgName="VWDD_LOGIN_USER_HISTORYRowChangeEvent" msprop:Generator_TablePropName="VWDD_LOGIN_USER_HISTORY" msprop:Generator_RowChangedName="VWDD_LOGIN_USER_HISTORYRowChanged" msprop:Generator_RowChangingName="VWDD_LOGIN_USER_HISTORYRowChanging" msprop:Generator_TableClassName="VWDD_LOGIN_USER_HISTORYDataTable" msprop:Generator_RowClassName="VWDD_LOGIN_USER_HISTORYRow" msprop:Generator_TableVarName="tableVWDD_LOGIN_USER_HISTORY" msprop:Generator_UserTableName="VWDD_LOGIN_USER_HISTORY">
<xs:complexType>
<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="MODULE" msprop:Generator_ColumnVarNameInTable="columnMODULE" msprop:Generator_ColumnPropNameInRow="_MODULE" msprop:Generator_ColumnPropNameInTable="MODULEColumn" msprop:Generator_UserColumnName="MODULE">
<xs:element name="GUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_UserColumnName="GUID" type="xs:int" />
<xs:element name="MODULE" msprop:Generator_ColumnPropNameInRow="_MODULE" msprop:Generator_ColumnPropNameInTable="MODULEColumn" msprop:Generator_ColumnVarNameInTable="columnMODULE" msprop:Generator_UserColumnName="MODULE">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="30" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="USERNAME" msprop:Generator_ColumnVarNameInTable="columnUSERNAME" msprop:Generator_ColumnPropNameInRow="USERNAME" msprop:Generator_ColumnPropNameInTable="USERNAMEColumn" msprop:Generator_UserColumnName="USERNAME">
<xs:element name="USERNAME" msprop:Generator_ColumnPropNameInRow="USERNAME" msprop:Generator_ColumnPropNameInTable="USERNAMEColumn" msprop:Generator_ColumnVarNameInTable="columnUSERNAME" msprop:Generator_UserColumnName="USERNAME">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="50" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="NAME" msprop:Generator_ColumnVarNameInTable="columnNAME" msprop:Generator_ColumnPropNameInRow="NAME" msprop:Generator_ColumnPropNameInTable="NAMEColumn" msprop:Generator_UserColumnName="NAME" minOccurs="0">
<xs:element name="NAME" msprop:Generator_ColumnPropNameInRow="NAME" msprop:Generator_ColumnPropNameInTable="NAMEColumn" msprop:Generator_ColumnVarNameInTable="columnNAME" msprop:Generator_UserColumnName="NAME" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="50" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="PRENAME" msprop:Generator_ColumnVarNameInTable="columnPRENAME" msprop:Generator_ColumnPropNameInRow="PRENAME" msprop:Generator_ColumnPropNameInTable="PRENAMEColumn" msprop:Generator_UserColumnName="PRENAME" minOccurs="0">
<xs:element name="PRENAME" msprop:Generator_ColumnPropNameInRow="PRENAME" msprop:Generator_ColumnPropNameInTable="PRENAMEColumn" msprop:Generator_ColumnVarNameInTable="columnPRENAME" msprop:Generator_UserColumnName="PRENAME" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="50" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="USER_ID" msprop:Generator_ColumnVarNameInTable="columnUSER_ID" msprop:Generator_ColumnPropNameInRow="USER_ID" msprop:Generator_ColumnPropNameInTable="USER_IDColumn" msprop:Generator_UserColumnName="USER_ID" type="xs:int" />
<xs:element name="CLIENT_ID" msprop:Generator_ColumnVarNameInTable="columnCLIENT_ID" msprop:Generator_ColumnPropNameInRow="CLIENT_ID" msprop:Generator_ColumnPropNameInTable="CLIENT_IDColumn" msprop:Generator_UserColumnName="CLIENT_ID" type="xs:int" />
<xs:element name="CLIENT_NAME" msprop:Generator_ColumnVarNameInTable="columnCLIENT_NAME" msprop:Generator_ColumnPropNameInRow="CLIENT_NAME" msprop:Generator_ColumnPropNameInTable="CLIENT_NAMEColumn" msprop:Generator_UserColumnName="CLIENT_NAME">
<xs:element name="USER_ID" msprop:Generator_ColumnPropNameInRow="USER_ID" msprop:Generator_ColumnPropNameInTable="USER_IDColumn" msprop:Generator_ColumnVarNameInTable="columnUSER_ID" msprop:Generator_UserColumnName="USER_ID" type="xs:int" />
<xs:element name="CLIENT_ID" msprop:Generator_ColumnPropNameInRow="CLIENT_ID" msprop:Generator_ColumnPropNameInTable="CLIENT_IDColumn" msprop:Generator_ColumnVarNameInTable="columnCLIENT_ID" msprop:Generator_UserColumnName="CLIENT_ID" type="xs:int" />
<xs:element name="CLIENT_NAME" msprop:Generator_ColumnPropNameInRow="CLIENT_NAME" msprop:Generator_ColumnPropNameInTable="CLIENT_NAMEColumn" msprop:Generator_ColumnVarNameInTable="columnCLIENT_NAME" msprop:Generator_UserColumnName="CLIENT_NAME">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="50" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="LOGIN" msprop:Generator_ColumnVarNameInTable="columnLOGIN" msprop:Generator_ColumnPropNameInRow="LOGIN" msprop:Generator_ColumnPropNameInTable="LOGINColumn" msprop:Generator_UserColumnName="LOGIN" type="xs:dateTime" minOccurs="0" />
<xs:element name="LOGOUT" msprop:Generator_ColumnVarNameInTable="columnLOGOUT" msprop:Generator_ColumnPropNameInRow="LOGOUT" msprop:Generator_ColumnPropNameInTable="LOGOUTColumn" msprop:Generator_UserColumnName="LOGOUT" type="xs:dateTime" minOccurs="0" />
<xs:element name="VERSION_CLIENT" msprop:Generator_ColumnVarNameInTable="columnVERSION_CLIENT" msprop:Generator_ColumnPropNameInRow="VERSION_CLIENT" msprop:Generator_ColumnPropNameInTable="VERSION_CLIENTColumn" msprop:Generator_UserColumnName="VERSION_CLIENT" minOccurs="0">
<xs:element name="LOGIN" msprop:Generator_ColumnPropNameInRow="LOGIN" msprop:Generator_ColumnPropNameInTable="LOGINColumn" msprop:Generator_ColumnVarNameInTable="columnLOGIN" msprop:Generator_UserColumnName="LOGIN" type="xs:dateTime" minOccurs="0" />
<xs:element name="LOGOUT" msprop:Generator_ColumnPropNameInRow="LOGOUT" msprop:Generator_ColumnPropNameInTable="LOGOUTColumn" msprop:Generator_ColumnVarNameInTable="columnLOGOUT" msprop:Generator_UserColumnName="LOGOUT" type="xs:dateTime" minOccurs="0" />
<xs:element name="VERSION_CLIENT" msprop:Generator_ColumnPropNameInRow="VERSION_CLIENT" msprop:Generator_ColumnPropNameInTable="VERSION_CLIENTColumn" msprop:Generator_ColumnVarNameInTable="columnVERSION_CLIENT" msprop:Generator_UserColumnName="VERSION_CLIENT" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="30" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="MACHINE_NAME" msprop:Generator_ColumnVarNameInTable="columnMACHINE_NAME" msprop:Generator_ColumnPropNameInRow="MACHINE_NAME" msprop:Generator_ColumnPropNameInTable="MACHINE_NAMEColumn" msprop:Generator_UserColumnName="MACHINE_NAME">
<xs:element name="MACHINE_NAME" msprop:Generator_ColumnPropNameInRow="MACHINE_NAME" msprop:Generator_ColumnPropNameInTable="MACHINE_NAMEColumn" msprop:Generator_ColumnVarNameInTable="columnMACHINE_NAME" msprop:Generator_UserColumnName="MACHINE_NAME">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="250" />
@@ -1491,129 +1495,129 @@ SELECT GUID, NAME, ECM_FK_ID, AD_SYNC, INTERNAL, ACTIVE, COMMENT, ADDED_WHO, ADD
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_ID" msprop:Generator_TableClassName="TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDDataTable" msprop:Generator_TableVarName="tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_ID" msprop:Generator_TablePropName="TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_ID" msprop:Generator_RowDeletingName="TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowDeleting" msprop:Generator_RowChangingName="TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowChanging" msprop:Generator_RowEvHandlerName="TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowDeleted" msprop:Generator_UserTableName="TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_ID" msprop:Generator_RowChangedName="TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowChanged" msprop:Generator_RowEvArgName="TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowChangeEvent" msprop:Generator_RowClassName="TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRow">
<xs:element name="TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_ID" msprop:Generator_RowClassName="TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRow" msprop:Generator_RowEvHandlerName="TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowDeleted" msprop:Generator_RowDeletingName="TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowDeleting" msprop:Generator_RowEvArgName="TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowChangeEvent" msprop:Generator_TablePropName="TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_ID" msprop:Generator_RowChangedName="TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowChanged" msprop:Generator_RowChangingName="TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowChanging" msprop:Generator_TableClassName="TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDDataTable" msprop:Generator_UserTableName="TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_ID" msprop:Generator_TableVarName="tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_ID">
<xs:complexType>
<xs:sequence>
<xs:element name="Name" msdata:ReadOnly="true" msprop:Generator_ColumnVarNameInTable="columnName" msprop:Generator_ColumnPropNameInRow="Name" msprop:Generator_ColumnPropNameInTable="NameColumn" msprop:Generator_UserColumnName="Name" minOccurs="0">
<xs:element name="Name" msdata:ReadOnly="true" msprop:Generator_ColumnPropNameInRow="Name" msprop:Generator_ColumnPropNameInTable="NameColumn" msprop:Generator_ColumnVarNameInTable="columnName" msprop:Generator_UserColumnName="Name" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="10" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="ID" msdata:ReadOnly="true" msprop:Generator_ColumnVarNameInTable="columnID" msprop:Generator_ColumnPropNameInRow="ID" msprop:Generator_ColumnPropNameInTable="IDColumn" msprop:Generator_UserColumnName="ID" type="xs:unsignedByte" minOccurs="0" />
<xs:element name="ID" msdata:ReadOnly="true" msprop:Generator_ColumnPropNameInRow="ID" msprop:Generator_ColumnPropNameInTable="IDColumn" msprop:Generator_ColumnVarNameInTable="columnID" msprop:Generator_UserColumnName="ID" type="xs:unsignedByte" minOccurs="0" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBPMO_LOG_ESSENTIALS" msprop:Generator_TableClassName="TBPMO_LOG_ESSENTIALSDataTable" msprop:Generator_TableVarName="tableTBPMO_LOG_ESSENTIALS" msprop:Generator_TablePropName="TBPMO_LOG_ESSENTIALS" msprop:Generator_RowDeletingName="TBPMO_LOG_ESSENTIALSRowDeleting" msprop:Generator_RowChangingName="TBPMO_LOG_ESSENTIALSRowChanging" msprop:Generator_RowEvHandlerName="TBPMO_LOG_ESSENTIALSRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_LOG_ESSENTIALSRowDeleted" msprop:Generator_UserTableName="TBPMO_LOG_ESSENTIALS" msprop:Generator_RowChangedName="TBPMO_LOG_ESSENTIALSRowChanged" msprop:Generator_RowEvArgName="TBPMO_LOG_ESSENTIALSRowChangeEvent" msprop:Generator_RowClassName="TBPMO_LOG_ESSENTIALSRow">
<xs:element name="TBPMO_LOG_ESSENTIALS" msprop:Generator_RowClassName="TBPMO_LOG_ESSENTIALSRow" msprop:Generator_RowEvHandlerName="TBPMO_LOG_ESSENTIALSRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_LOG_ESSENTIALSRowDeleted" msprop:Generator_RowDeletingName="TBPMO_LOG_ESSENTIALSRowDeleting" msprop:Generator_RowEvArgName="TBPMO_LOG_ESSENTIALSRowChangeEvent" msprop:Generator_TablePropName="TBPMO_LOG_ESSENTIALS" msprop:Generator_RowChangedName="TBPMO_LOG_ESSENTIALSRowChanged" msprop:Generator_RowChangingName="TBPMO_LOG_ESSENTIALSRowChanging" msprop:Generator_TableClassName="TBPMO_LOG_ESSENTIALSDataTable" msprop:Generator_UserTableName="TBPMO_LOG_ESSENTIALS" msprop:Generator_TableVarName="tableTBPMO_LOG_ESSENTIALS">
<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="REFERENCE_KEY" msprop:Generator_ColumnVarNameInTable="columnREFERENCE_KEY" msprop:Generator_ColumnPropNameInRow="REFERENCE_KEY" msprop:Generator_ColumnPropNameInTable="REFERENCE_KEYColumn" msprop:Generator_UserColumnName="REFERENCE_KEY" type="xs:int" />
<xs:element name="REFERENCE_STRING" msprop:Generator_ColumnVarNameInTable="columnREFERENCE_STRING" msprop:Generator_ColumnPropNameInRow="REFERENCE_STRING" msprop:Generator_ColumnPropNameInTable="REFERENCE_STRINGColumn" msprop:Generator_UserColumnName="REFERENCE_STRING">
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_UserColumnName="GUID" type="xs:int" />
<xs:element name="REFERENCE_KEY" msprop:Generator_ColumnPropNameInRow="REFERENCE_KEY" msprop:Generator_ColumnPropNameInTable="REFERENCE_KEYColumn" msprop:Generator_ColumnVarNameInTable="columnREFERENCE_KEY" msprop:Generator_UserColumnName="REFERENCE_KEY" type="xs:int" />
<xs:element name="REFERENCE_STRING" msprop:Generator_ColumnPropNameInRow="REFERENCE_STRING" msprop:Generator_ColumnPropNameInTable="REFERENCE_STRINGColumn" msprop:Generator_ColumnVarNameInTable="columnREFERENCE_STRING" msprop:Generator_UserColumnName="REFERENCE_STRING">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="50" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="COMMENT" msprop:Generator_ColumnVarNameInTable="columnCOMMENT" msprop:Generator_ColumnPropNameInRow="COMMENT" msprop:Generator_ColumnPropNameInTable="COMMENTColumn" msprop:Generator_UserColumnName="COMMENT">
<xs:element name="COMMENT" msprop:Generator_ColumnPropNameInRow="COMMENT" msprop:Generator_ColumnPropNameInTable="COMMENTColumn" msprop:Generator_ColumnVarNameInTable="columnCOMMENT" msprop:Generator_UserColumnName="COMMENT">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="500" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="ADDED_WHO" msprop:Generator_ColumnVarNameInTable="columnADDED_WHO" msprop:Generator_ColumnPropNameInRow="ADDED_WHO" msprop:Generator_ColumnPropNameInTable="ADDED_WHOColumn" msprop:Generator_UserColumnName="ADDED_WHO">
<xs:element name="ADDED_WHO" msprop:Generator_ColumnPropNameInRow="ADDED_WHO" msprop:Generator_ColumnPropNameInTable="ADDED_WHOColumn" msprop:Generator_ColumnVarNameInTable="columnADDED_WHO" msprop:Generator_UserColumnName="ADDED_WHO">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="50" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<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" minOccurs="0" />
<xs:element name="Selection" msprop:Generator_ColumnVarNameInTable="columnSelection" msprop:Generator_ColumnPropNameInRow="Selection" msprop:Generator_ColumnPropNameInTable="SelectionColumn" msprop:Generator_UserColumnName="Selection" type="xs:boolean" minOccurs="0" />
<xs:element name="ADDED_WHEN" msprop:Generator_ColumnPropNameInRow="ADDED_WHEN" msprop:Generator_ColumnPropNameInTable="ADDED_WHENColumn" msprop:Generator_ColumnVarNameInTable="columnADDED_WHEN" msprop:Generator_UserColumnName="ADDED_WHEN" type="xs:dateTime" minOccurs="0" />
<xs:element name="Selection" msprop:Generator_ColumnPropNameInRow="Selection" msprop:Generator_ColumnPropNameInTable="SelectionColumn" msprop:Generator_ColumnVarNameInTable="columnSelection" msprop:Generator_UserColumnName="Selection" type="xs:boolean" minOccurs="0" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBPMO_DOCRESULT_DROPDOWN_ITEMS" msprop:Generator_TableClassName="TBPMO_DOCRESULT_DROPDOWN_ITEMSDataTable" msprop:Generator_TableVarName="tableTBPMO_DOCRESULT_DROPDOWN_ITEMS" msprop:Generator_RowChangedName="TBPMO_DOCRESULT_DROPDOWN_ITEMSRowChanged" msprop:Generator_TablePropName="TBPMO_DOCRESULT_DROPDOWN_ITEMS" msprop:Generator_RowDeletingName="TBPMO_DOCRESULT_DROPDOWN_ITEMSRowDeleting" msprop:Generator_RowChangingName="TBPMO_DOCRESULT_DROPDOWN_ITEMSRowChanging" msprop:Generator_RowEvHandlerName="TBPMO_DOCRESULT_DROPDOWN_ITEMSRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_DOCRESULT_DROPDOWN_ITEMSRowDeleted" msprop:Generator_RowClassName="TBPMO_DOCRESULT_DROPDOWN_ITEMSRow" msprop:Generator_UserTableName="TBPMO_DOCRESULT_DROPDOWN_ITEMS" msprop:Generator_RowEvArgName="TBPMO_DOCRESULT_DROPDOWN_ITEMSRowChangeEvent">
<xs:element name="TBPMO_DOCRESULT_DROPDOWN_ITEMS" msprop:Generator_RowEvHandlerName="TBPMO_DOCRESULT_DROPDOWN_ITEMSRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPMO_DOCRESULT_DROPDOWN_ITEMSRowDeleted" msprop:Generator_RowDeletingName="TBPMO_DOCRESULT_DROPDOWN_ITEMSRowDeleting" msprop:Generator_RowEvArgName="TBPMO_DOCRESULT_DROPDOWN_ITEMSRowChangeEvent" msprop:Generator_TablePropName="TBPMO_DOCRESULT_DROPDOWN_ITEMS" msprop:Generator_RowChangedName="TBPMO_DOCRESULT_DROPDOWN_ITEMSRowChanged" msprop:Generator_RowChangingName="TBPMO_DOCRESULT_DROPDOWN_ITEMSRowChanging" msprop:Generator_TableClassName="TBPMO_DOCRESULT_DROPDOWN_ITEMSDataTable" msprop:Generator_RowClassName="TBPMO_DOCRESULT_DROPDOWN_ITEMSRow" msprop:Generator_TableVarName="tableTBPMO_DOCRESULT_DROPDOWN_ITEMS" msprop:Generator_UserTableName="TBPMO_DOCRESULT_DROPDOWN_ITEMS">
<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="CONFIG_ID" msprop:Generator_ColumnVarNameInTable="columnCONFIG_ID" msprop:Generator_ColumnPropNameInRow="CONFIG_ID" msprop:Generator_ColumnPropNameInTable="CONFIG_IDColumn" msprop:Generator_UserColumnName="CONFIG_ID" type="xs:int" />
<xs:element name="VALUE" msprop:Generator_ColumnVarNameInTable="columnVALUE" msprop:Generator_ColumnPropNameInRow="VALUE" msprop:Generator_ColumnPropNameInTable="VALUEColumn" msprop:Generator_UserColumnName="VALUE">
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_UserColumnName="GUID" type="xs:int" />
<xs:element name="CONFIG_ID" msprop:Generator_ColumnPropNameInRow="CONFIG_ID" msprop:Generator_ColumnPropNameInTable="CONFIG_IDColumn" msprop:Generator_ColumnVarNameInTable="columnCONFIG_ID" msprop:Generator_UserColumnName="CONFIG_ID" type="xs:int" />
<xs:element name="VALUE" msprop:Generator_ColumnPropNameInRow="VALUE" msprop:Generator_ColumnPropNameInTable="VALUEColumn" msprop:Generator_ColumnVarNameInTable="columnVALUE" msprop:Generator_UserColumnName="VALUE">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="100" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="SEQUENCE" msprop:Generator_ColumnVarNameInTable="columnSEQUENCE" msprop:Generator_ColumnPropNameInRow="SEQUENCE" msprop:Generator_ColumnPropNameInTable="SEQUENCEColumn" msprop:Generator_UserColumnName="SEQUENCE" type="xs:unsignedByte" />
<xs:element name="DEFAULT" msprop:Generator_ColumnVarNameInTable="columnDEFAULT" msprop:Generator_ColumnPropNameInRow="_DEFAULT" msprop:Generator_ColumnPropNameInTable="DEFAULTColumn" msprop:Generator_UserColumnName="DEFAULT" type="xs:boolean" />
<xs:element name="COLOR" msprop:Generator_ColumnVarNameInTable="columnCOLOR" msprop:Generator_ColumnPropNameInRow="COLOR" msprop:Generator_ColumnPropNameInTable="COLORColumn" msprop:Generator_UserColumnName="COLOR">
<xs:element name="SEQUENCE" msprop:Generator_ColumnPropNameInRow="SEQUENCE" msprop:Generator_ColumnPropNameInTable="SEQUENCEColumn" msprop:Generator_ColumnVarNameInTable="columnSEQUENCE" msprop:Generator_UserColumnName="SEQUENCE" type="xs:unsignedByte" />
<xs:element name="DEFAULT" msprop:Generator_ColumnPropNameInRow="_DEFAULT" msprop:Generator_ColumnPropNameInTable="DEFAULTColumn" msprop:Generator_ColumnVarNameInTable="columnDEFAULT" msprop:Generator_UserColumnName="DEFAULT" type="xs:boolean" />
<xs:element name="COLOR" msprop:Generator_ColumnPropNameInRow="COLOR" msprop:Generator_ColumnPropNameInTable="COLORColumn" msprop:Generator_ColumnVarNameInTable="columnCOLOR" msprop:Generator_UserColumnName="COLOR">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="50" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="ADDED_WHO" msprop:Generator_ColumnVarNameInTable="columnADDED_WHO" msprop:Generator_ColumnPropNameInRow="ADDED_WHO" msprop:Generator_ColumnPropNameInTable="ADDED_WHOColumn" msprop:Generator_UserColumnName="ADDED_WHO">
<xs:element name="ADDED_WHO" msprop:Generator_ColumnPropNameInRow="ADDED_WHO" msprop:Generator_ColumnPropNameInTable="ADDED_WHOColumn" msprop:Generator_ColumnVarNameInTable="columnADDED_WHO" msprop:Generator_UserColumnName="ADDED_WHO">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="50" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<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" minOccurs="0" />
<xs:element name="CHANGED_WHO" msprop:Generator_ColumnVarNameInTable="columnCHANGED_WHO" msprop:Generator_ColumnPropNameInRow="CHANGED_WHO" msprop:Generator_ColumnPropNameInTable="CHANGED_WHOColumn" msprop:Generator_UserColumnName="CHANGED_WHO" minOccurs="0">
<xs:element name="ADDED_WHEN" msprop:Generator_ColumnPropNameInRow="ADDED_WHEN" msprop:Generator_ColumnPropNameInTable="ADDED_WHENColumn" msprop:Generator_ColumnVarNameInTable="columnADDED_WHEN" msprop:Generator_UserColumnName="ADDED_WHEN" type="xs:dateTime" minOccurs="0" />
<xs:element name="CHANGED_WHO" msprop:Generator_ColumnPropNameInRow="CHANGED_WHO" msprop:Generator_ColumnPropNameInTable="CHANGED_WHOColumn" msprop:Generator_ColumnVarNameInTable="columnCHANGED_WHO" msprop:Generator_UserColumnName="CHANGED_WHO" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="50" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="CHANGED_WHEN" msprop:Generator_ColumnVarNameInTable="columnCHANGED_WHEN" msprop:Generator_ColumnPropNameInRow="CHANGED_WHEN" msprop:Generator_ColumnPropNameInTable="CHANGED_WHENColumn" msprop:Generator_UserColumnName="CHANGED_WHEN" type="xs:dateTime" minOccurs="0" />
<xs:element name="CHANGED_WHEN" msprop:Generator_ColumnPropNameInRow="CHANGED_WHEN" msprop:Generator_ColumnPropNameInTable="CHANGED_WHENColumn" msprop:Generator_ColumnVarNameInTable="columnCHANGED_WHEN" msprop:Generator_UserColumnName="CHANGED_WHEN" type="xs:dateTime" minOccurs="0" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBDD_GROUPS" msprop:Generator_TableClassName="TBDD_GROUPSDataTable" msprop:Generator_TableVarName="tableTBDD_GROUPS" msprop:Generator_TablePropName="TBDD_GROUPS" msprop:Generator_RowDeletingName="TBDD_GROUPSRowDeleting" msprop:Generator_RowChangingName="TBDD_GROUPSRowChanging" msprop:Generator_RowEvHandlerName="TBDD_GROUPSRowChangeEventHandler" msprop:Generator_RowDeletedName="TBDD_GROUPSRowDeleted" msprop:Generator_UserTableName="TBDD_GROUPS" msprop:Generator_RowChangedName="TBDD_GROUPSRowChanged" msprop:Generator_RowEvArgName="TBDD_GROUPSRowChangeEvent" msprop:Generator_RowClassName="TBDD_GROUPSRow">
<xs:element name="TBDD_GROUPS" msprop:Generator_RowClassName="TBDD_GROUPSRow" msprop:Generator_RowEvHandlerName="TBDD_GROUPSRowChangeEventHandler" msprop:Generator_RowDeletedName="TBDD_GROUPSRowDeleted" msprop:Generator_RowDeletingName="TBDD_GROUPSRowDeleting" msprop:Generator_RowEvArgName="TBDD_GROUPSRowChangeEvent" msprop:Generator_TablePropName="TBDD_GROUPS" msprop:Generator_RowChangedName="TBDD_GROUPSRowChanged" msprop:Generator_RowChangingName="TBDD_GROUPSRowChanging" msprop:Generator_TableClassName="TBDD_GROUPSDataTable" msprop:Generator_UserTableName="TBDD_GROUPS" msprop:Generator_TableVarName="tableTBDD_GROUPS">
<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="NAME" msprop:Generator_ColumnVarNameInTable="columnNAME" msprop:Generator_ColumnPropNameInRow="NAME" msprop:Generator_ColumnPropNameInTable="NAMEColumn" msprop:Generator_UserColumnName="NAME" minOccurs="0">
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_UserColumnName="GUID" type="xs:int" />
<xs:element name="NAME" msprop:Generator_ColumnPropNameInRow="NAME" msprop:Generator_ColumnPropNameInTable="NAMEColumn" msprop:Generator_ColumnVarNameInTable="columnNAME" msprop:Generator_UserColumnName="NAME" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="50" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="ECM_FK_ID" msprop:Generator_ColumnVarNameInTable="columnECM_FK_ID" msprop:Generator_ColumnPropNameInRow="ECM_FK_ID" msprop:Generator_ColumnPropNameInTable="ECM_FK_IDColumn" msprop:Generator_UserColumnName="ECM_FK_ID" type="xs:int" />
<xs:element name="AD_SYNC" msprop:Generator_ColumnVarNameInTable="columnAD_SYNC" msprop:Generator_ColumnPropNameInRow="AD_SYNC" msprop:Generator_ColumnPropNameInTable="AD_SYNCColumn" msprop:Generator_UserColumnName="AD_SYNC" type="xs:boolean" />
<xs:element name="INTERNAL" msprop:Generator_ColumnVarNameInTable="columnINTERNAL" msprop:Generator_ColumnPropNameInRow="INTERNAL" msprop:Generator_ColumnPropNameInTable="INTERNALColumn" msprop:Generator_UserColumnName="INTERNAL" type="xs:boolean" />
<xs:element name="ACTIVE" msprop:Generator_ColumnVarNameInTable="columnACTIVE" msprop:Generator_ColumnPropNameInRow="ACTIVE" msprop:Generator_ColumnPropNameInTable="ACTIVEColumn" msprop:Generator_UserColumnName="ACTIVE" type="xs:boolean" />
<xs:element name="COMMENT" msprop:Generator_ColumnVarNameInTable="columnCOMMENT" msprop:Generator_ColumnPropNameInRow="COMMENT" msprop:Generator_ColumnPropNameInTable="COMMENTColumn" msprop:Generator_UserColumnName="COMMENT" minOccurs="0">
<xs:element name="ECM_FK_ID" msprop:Generator_ColumnPropNameInRow="ECM_FK_ID" msprop:Generator_ColumnPropNameInTable="ECM_FK_IDColumn" msprop:Generator_ColumnVarNameInTable="columnECM_FK_ID" msprop:Generator_UserColumnName="ECM_FK_ID" type="xs:int" />
<xs:element name="AD_SYNC" msprop:Generator_ColumnPropNameInRow="AD_SYNC" msprop:Generator_ColumnPropNameInTable="AD_SYNCColumn" msprop:Generator_ColumnVarNameInTable="columnAD_SYNC" msprop:Generator_UserColumnName="AD_SYNC" type="xs:boolean" />
<xs:element name="INTERNAL" msprop:Generator_ColumnPropNameInRow="INTERNAL" msprop:Generator_ColumnPropNameInTable="INTERNALColumn" msprop:Generator_ColumnVarNameInTable="columnINTERNAL" msprop:Generator_UserColumnName="INTERNAL" type="xs:boolean" />
<xs:element name="ACTIVE" msprop:Generator_ColumnPropNameInRow="ACTIVE" msprop:Generator_ColumnPropNameInTable="ACTIVEColumn" msprop:Generator_ColumnVarNameInTable="columnACTIVE" msprop:Generator_UserColumnName="ACTIVE" type="xs:boolean" />
<xs:element name="COMMENT" msprop:Generator_ColumnPropNameInRow="COMMENT" msprop:Generator_ColumnPropNameInTable="COMMENTColumn" msprop:Generator_ColumnVarNameInTable="columnCOMMENT" msprop:Generator_UserColumnName="COMMENT" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="200" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="ADDED_WHO" msprop:Generator_ColumnVarNameInTable="columnADDED_WHO" msprop:Generator_ColumnPropNameInRow="ADDED_WHO" msprop:Generator_ColumnPropNameInTable="ADDED_WHOColumn" msprop:Generator_UserColumnName="ADDED_WHO" minOccurs="0">
<xs:element name="ADDED_WHO" msprop:Generator_ColumnPropNameInRow="ADDED_WHO" msprop:Generator_ColumnPropNameInTable="ADDED_WHOColumn" msprop:Generator_ColumnVarNameInTable="columnADDED_WHO" msprop:Generator_UserColumnName="ADDED_WHO" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="50" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<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" minOccurs="0" />
<xs:element name="CHANGED_WHO" msprop:Generator_ColumnVarNameInTable="columnCHANGED_WHO" msprop:Generator_ColumnPropNameInRow="CHANGED_WHO" msprop:Generator_ColumnPropNameInTable="CHANGED_WHOColumn" msprop:Generator_UserColumnName="CHANGED_WHO" minOccurs="0">
<xs:element name="ADDED_WHEN" msprop:Generator_ColumnPropNameInRow="ADDED_WHEN" msprop:Generator_ColumnPropNameInTable="ADDED_WHENColumn" msprop:Generator_ColumnVarNameInTable="columnADDED_WHEN" msprop:Generator_UserColumnName="ADDED_WHEN" type="xs:dateTime" minOccurs="0" />
<xs:element name="CHANGED_WHO" msprop:Generator_ColumnPropNameInRow="CHANGED_WHO" msprop:Generator_ColumnPropNameInTable="CHANGED_WHOColumn" msprop:Generator_ColumnVarNameInTable="columnCHANGED_WHO" msprop:Generator_UserColumnName="CHANGED_WHO" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="50" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="CHANGED_WHEN" msprop:Generator_ColumnVarNameInTable="columnCHANGED_WHEN" msprop:Generator_ColumnPropNameInRow="CHANGED_WHEN" msprop:Generator_ColumnPropNameInTable="CHANGED_WHENColumn" msprop:Generator_UserColumnName="CHANGED_WHEN" type="xs:dateTime" minOccurs="0" />
<xs:element name="CHANGED_WHEN" msprop:Generator_ColumnPropNameInRow="CHANGED_WHEN" msprop:Generator_ColumnPropNameInTable="CHANGED_WHENColumn" msprop:Generator_ColumnVarNameInTable="columnCHANGED_WHEN" msprop:Generator_UserColumnName="CHANGED_WHEN" type="xs:dateTime" minOccurs="0" />
</xs:sequence>
</xs:complexType>
</xs:element>
@@ -1670,8 +1674,8 @@ SELECT GUID, NAME, ECM_FK_ID, AD_SYNC, INTERNAL, ACTIVE, COMMENT, ADDED_WHO, ADD
</xs:element>
<xs:annotation>
<xs:appinfo>
<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_DOCRESULT_DROPDOWN_ITEMSCONFIG_ID" msdata:parent="TBPMO_DOCSEARCH_RESULTLIST_CONFIG" msdata:child="TBPMO_DOCRESULT_DROPDOWN_ITEMS" msdata:parentkey="GUID" msdata:childkey="CONFIG_ID" msprop:Generator_UserChildTable="TBPMO_DOCRESULT_DROPDOWN_ITEMS" msprop:Generator_ChildPropName="GetTBPMO_DOCRESULT_DROPDOWN_ITEMSRows" msprop:Generator_UserRelationName="FK_TBPMO_DOCRESULT_DROPDOWN_ITEMSCONFIG_ID" msprop:Generator_RelationVarName="relationFK_TBPMO_DOCRESULT_DROPDOWN_ITEMSCONFIG_ID" msprop:Generator_UserParentTable="TBPMO_DOCSEARCH_RESULTLIST_CONFIG" msprop:Generator_ParentPropName="TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow" />
<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_UserParentTable="TBPMO_FORM_CONSTRUCTOR" msprop:Generator_UserChildTable="TBPMO_FORM_CONSTRUCTOR_DETAIL" msprop:Generator_RelationVarName="relationFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID" msprop:Generator_ChildPropName="GetTBPMO_FORM_CONSTRUCTOR_DETAILRows" msprop:Generator_ParentPropName="TBPMO_FORM_CONSTRUCTORRow" msprop:Generator_UserRelationName="FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID" />
<msdata:Relationship name="FK_TBPMO_DOCRESULT_DROPDOWN_ITEMSCONFIG_ID" msdata:parent="TBPMO_DOCSEARCH_RESULTLIST_CONFIG" msdata:child="TBPMO_DOCRESULT_DROPDOWN_ITEMS" msdata:parentkey="GUID" msdata:childkey="CONFIG_ID" msprop:Generator_UserParentTable="TBPMO_DOCSEARCH_RESULTLIST_CONFIG" msprop:Generator_UserChildTable="TBPMO_DOCRESULT_DROPDOWN_ITEMS" msprop:Generator_RelationVarName="relationFK_TBPMO_DOCRESULT_DROPDOWN_ITEMSCONFIG_ID" msprop:Generator_ChildPropName="GetTBPMO_DOCRESULT_DROPDOWN_ITEMSRows" msprop:Generator_ParentPropName="TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow" msprop:Generator_UserRelationName="FK_TBPMO_DOCRESULT_DROPDOWN_ITEMSCONFIG_ID" />
</xs:appinfo>
</xs:annotation>
</xs:schema>

10
app/DD-Record-Organizer/DD_ECMAdmin.xss
View File

@@ -4,9 +4,9 @@
Changes to this file may cause incorrect behavior and will be lost if
the code is regenerated.
</autogenerated>-->
<DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="-19" ViewPortY="-47" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
<DiagramLayout xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" ex:showrelationlabel="False" ViewPortX="-19" ViewPortY="-47" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
<Shapes>
<Shape ID="DesignTable:TBPMO_FORM_CONSTRUCTOR" ZOrder="5" X="-9" Y="140" Height="248" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="197" />
<Shape ID="DesignTable:TBPMO_FORM_CONSTRUCTOR" ZOrder="5" X="-8" Y="141" Height="248" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="197" />
<Shape ID="DesignTable:TBPMO_FORM_CONSTRUCTOR_DETAIL" ZOrder="20" X="386" Y="39" Height="305" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBDD_CONNECTION" ZOrder="18" X="867" Y="324" Height="305" Width="264" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:VWTEMPQUICKVIEW" ZOrder="16" X="1497" Y="511" Height="172" Width="267" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="121" />
@@ -29,12 +29,12 @@
<Connector ID="DesignRelation:FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID" ZOrder="19" LineWidth="11">
<RoutePoints>
<Point>
<X>291</X>
<Y>177</Y>
<X>292</X>
<Y>178</Y>
</Point>
<Point>
<X>386</X>
<Y>177</Y>
<Y>178</Y>
</Point>
</RoutePoints>
</Connector>

14
app/DD-Record-Organizer/ModuleHelperMethods.vb
View File

@@ -136,7 +136,7 @@ Module ModuleHelperMethods
Public Function GetControlID_for_Name(name As String, formid As Integer) As Integer
Try
Dim SQL = "SELECT GUID FROM TBPMO_CONTROL WHERE FORM_ID = " & formid & " and NAME = '" & name & "'"
Dim ID As Integer = ClassDatabase.Execute_Scalar(SQL)
Dim ID As Integer = MYDB_ECM.GetScalarValue(SQL)
If ID > 0 Then
Return ID
Else
@@ -150,7 +150,7 @@ Module ModuleHelperMethods
Public Function GetControlID_for_RecordID(name As String, recID As Integer) As Integer
Try
Dim SQL = "SELECT CONTROL_ID FROM VWPMO_VALUES WHERE RECORD_ID = " & recID & " and CONTROL_NAME = '" & name & "'"
Dim ID As Integer = ClassDatabase.Execute_Scalar(SQL, True)
Dim ID As Integer = MYDB_ECM.GetScalarValue(SQL)
If ID > 0 Then
Return ID
Else
@@ -171,7 +171,7 @@ Module ModuleHelperMethods
Public Function Get_Name_for_ControlID(Id As Integer, formid As Integer) As String
Try
Dim SQL = "SELECT NAME FROM TBPMO_CONTROL WHERE FORM_ID = " & formid & " AND GUID = " & Id
Dim Name = ClassDatabase.Execute_Scalar(SQL)
Dim Name = MYDB_ECM.GetScalarValue(SQL)
Return Name
Catch ex As Exception
@@ -522,10 +522,10 @@ Module ModuleHelperMethods
Try
Dim sql = String.Format("SELECT COUNT(*) FROM TBPMO_CONSTRUCTOR_USER_SQL WHERE USER_ID = {0} AND CONSTR_DET_ID = {1} AND SQL_COMMAND IS NOT NULL AND SQL_COMMAND <> ''", USER_GUID, ConstructorDetailID)
Dim exists = ClassDatabase.Execute_Scalar(sql)
Dim exists = MYDB_ECM.GetScalarValue(SQL)
If exists = 1 Then
sql = String.Format("SELECT SQL_COMMAND FROM TBPMO_CONSTRUCTOR_USER_SQL WHERE USER_ID = {0} AND CONSTR_DET_ID = {1}", USER_GUID, ConstructorDetailID)
Dim result = ClassDatabase.Execute_Scalar(sql)
Dim result = MYDB_ECM.GetScalarValue(SQL)
If Not IsNothing(result) Then
' result = result.ToUpper.Replace("@RECORDID", RECORD_ID)
result = result.ToUpper.Replace("@USER_ID", UserGuid)
@@ -560,10 +560,10 @@ Module ModuleHelperMethods
Try
Dim sql = String.Format("SELECT COUNT(*) FROM TBPMO_CONSTRUCTOR_USER_SQL WHERE USER_ID = {0} AND CONSTR_DET_ID = {1} AND SQL_COMMAND IS NOT NULL AND SQL_COMMAND <> ''", USER_GUID, ConstructorDetailID)
Dim exists = ClassDatabase.Execute_Scalar(sql)
Dim exists = MYDB_ECM.GetScalarValue(SQL)
If exists = 1 Then
sql = String.Format("SELECT SQL_COMMAND FROM TBPMO_CONSTRUCTOR_USER_SQL WHERE USER_ID = {0} AND CONSTR_DET_ID = {1}", USER_GUID, ConstructorDetailID)
Dim result = ClassDatabase.Execute_Scalar(sql)
Dim result = MYDB_ECM.GetScalarValue(SQL)
If Not IsNothing(result) Then
' result = result.ToUpper.Replace("@RECORDID", RECORD_ID)
result = result.ToUpper.Replace("@USER_ID", UserGuid)

4
app/DD-Record-Organizer/ModuleMySettings.vb
View File

@@ -27,7 +27,7 @@ Module ModuleMySettings
Public WM_READ_ONLY As Boolean = False
Public GridDocResult_BestFitColumns As Boolean = True
Public SQL_FULLTEXT As String
Public CAPTION_CONFIRMATION As String = "Bestätigung"
'Public WD_ShowEnitityDocs As Boolean = True
Public WD_ShowDocs As Boolean = False
@@ -435,7 +435,7 @@ Module ModuleMySettings
Public Function Settings_LoadBasicConfig()
Try
Dim sql As String = "select * from tbdd_Modules where UPPER(NAME) = UPPER('Record-Organizer')"
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql, False)
Dim DT As DataTable = MYDB_ECM.GetDatatable(sql)
If DT.Rows.Count = 1 Then
vWLaufwerk = DT.Rows(0).Item("STRING1")
vVERSION_DELIMITER = DT.Rows(0).Item("VERSION_DELIMITER")

7
app/DD-Record-Organizer/ModuleRuntimeVariables.vb
View File

@@ -1,4 +1,5 @@
Imports DigitalData.Modules.Config
Imports DigitalData.Modules.Database
Module ModuleRuntimeVariables
Public Property CONFIG As ConfigManager(Of ClassConfig)
@@ -65,6 +66,7 @@ Module ModuleRuntimeVariables
Public CURRENT_NOTIFICATION_MSG As String
Public CURRENT_ENTITY_ID As Integer
Public CURRENT_LINK_ENTITY_ID As Integer = 0
Public CURRENT_FORMVIEW_ID As Integer
Public CURRENT_REDUNDANT_FORM_ID As Integer
Public CURRENT_REDUNDANT_FORMVIEW_ID As Integer
@@ -109,7 +111,7 @@ Module ModuleRuntimeVariables
Public CURRENT_TBPMO_CONTROL As DataTable
Public CURRENT_SCAN_TABLE As DataTable
Public CURRENT_TASKS_GENERAL As DataTable
Public CURRENT_RESULTLIST_CONFIG As DataTable
Public DT_DOCSEARCH_RESULTLIST_CONFIG As DataTable
Public CURRENT_VARIABLE_CONTROLS As DataTable
Public CURRENT_TBPMO_FORM_VIEW As DataTable
Public CURRENT_TBPMO_DOCRESULT_DROPDOWN_ITEMS As DataTable
@@ -195,4 +197,7 @@ Module ModuleRuntimeVariables
Public CURRENT_FILE_RIGHT As String
Public SQL_DOC_RESULT_RECORD As String = ""
Public CURRENT_DT_TBPMO_DOC_RECORD_LINK As DataTable
Public MYDB_ECM As MSSQLServer
End Module

8
app/DD-Record-Organizer/My Project/AssemblyInfo.vb
View File

@@ -10,10 +10,10 @@ Imports System.Runtime.InteropServices
' Die Werte der Assemblyattribute überprüfen
<Assembly: AssemblyTitle("Digital Data - ADDI")>
<Assembly: AssemblyTitle("Digital Data - OrgFlow")>
<Assembly: AssemblyDescription("")>
<Assembly: AssemblyCompany("Digital Data")>
<Assembly: AssemblyProduct("ADDI - Akte der Dinge")>
<Assembly: AssemblyCompany("Digital Data")>
<Assembly: AssemblyProduct("OrgFlow")>
<Assembly: AssemblyCopyright("Copyright @")>
<Assembly: AssemblyTrademark("")>
@@ -33,7 +33,7 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("2.8.1.0")>
<Assembly: AssemblyVersion("3.0.0.0")>
<Assembly: AssemblyFileVersion("1.0.0.0")>
<Assembly: NeutralResourcesLanguageAttribute("")>

BIN
app/DD-Record-Organizer/ORGFLOW_Icon_16x16.ico Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.1 KiB

BIN
app/DD-Record-Organizer/ORGFLOW_Icon_256x256.ico Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 3.3 KiB

47
app/DD-Record-Organizer/DD-Record-Organizer.vbproj → app/DD-Record-Organizer/OrgFlow.vbproj
View File

@@ -8,7 +8,7 @@
<OutputType>WinExe</OutputType>
<StartupObject>DD_Record_Organizer.My.MyApplication</StartupObject>
<RootNamespace>DD_Record_Organizer</RootNamespace>
<AssemblyName>DD-Record-Organizer</AssemblyName>
<AssemblyName>OrgFlow</AssemblyName>
<FileAlignment>512</FileAlignment>
<MyType>WindowsForms</MyType>
<TargetFrameworkVersion>v4.8</TargetFrameworkVersion>
@@ -37,7 +37,7 @@
<DefineDebug>true</DefineDebug>
<DefineTrace>true</DefineTrace>
<OutputPath>bin\Debug\</OutputPath>
<DocumentationFile>DD-Record-Organizer.xml</DocumentationFile>
<DocumentationFile>OrgFlow.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
@@ -47,7 +47,7 @@
<DefineTrace>true</DefineTrace>
<Optimize>true</Optimize>
<OutputPath>bin\Release\</OutputPath>
<DocumentationFile>DD-Record-Organizer.xml</DocumentationFile>
<DocumentationFile>OrgFlow.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
</PropertyGroup>
<PropertyGroup>
@@ -172,6 +172,9 @@
<Reference Include="DigitalData.Modules.Config">
<HintPath>..\..\..\DDModules\Config\bin\Debug\DigitalData.Modules.Config.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Modules.Database">
<HintPath>..\..\..\DDModules\Database\bin\Debug\DigitalData.Modules.Database.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Modules.Logging, Version=2.5.4.2, Culture=neutral, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\DDModules\Logging\bin\Debug\DigitalData.Modules.Logging.dll</HintPath>
@@ -454,12 +457,6 @@
<Compile Include="frmViewsUser.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmWM_ChangeDoctype.Designer.vb">
<DependentUpon>frmWM_ChangeDoctype.vb</DependentUpon>
</Compile>
<Compile Include="frmWM_ChangeDoctype.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmWM_CreateVersion.designer.vb">
<DependentUpon>frmWM_CreateVersion.vb</DependentUpon>
</Compile>
@@ -485,12 +482,6 @@
<Compile Include="frmRecordView.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmDocLink_Record_Entities.Designer.vb">
<DependentUpon>frmDocLink_Record_Entities.vb</DependentUpon>
</Compile>
<Compile Include="frmDocLink_Record_Entities.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmWM_Resultlist_Config.Designer.vb">
<DependentUpon>frmWM_Resultlist_Config.vb</DependentUpon>
</Compile>
@@ -534,7 +525,6 @@
<Compile Include="Classes\ClassImport_Windream.vb" />
<Compile Include="Classes\ClassInit.vb" />
<Compile Include="Classes\ClassLayout.vb" />
<Compile Include="Classes\ClassDatabase.vb" />
<Compile Include="Classes\Controls\ClassControlBuilder.vb" />
<Compile Include="Classes\Controls\ClassControlProperties.vb" />
<Compile Include="Classes\ClassOfficeTemplate.vb" />
@@ -654,12 +644,6 @@
<Compile Include="frmSplash.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmSQLEditor.Designer.vb">
<DependentUpon>frmSQLEditor.vb</DependentUpon>
</Compile>
<Compile Include="frmSQLEditor.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmTemplates.Designer.vb">
<DependentUpon>frmTemplates.vb</DependentUpon>
</Compile>
@@ -930,12 +914,6 @@
<EmbeddedResource Include="frmViewsUser.resx">
<DependentUpon>frmViewsUser.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmWM_ChangeDoctype.en-US.resx">
<DependentUpon>frmWM_ChangeDoctype.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmWM_ChangeDoctype.resx">
<DependentUpon>frmWM_ChangeDoctype.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmWM_CreateVersion.en-US.resx">
<DependentUpon>frmWM_CreateVersion.vb</DependentUpon>
</EmbeddedResource>
@@ -955,12 +933,6 @@
<DependentUpon>frmRecordView.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="frmDocLink_Record_Entities.en-US.resx">
<DependentUpon>frmDocLink_Record_Entities.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmDocLink_Record_Entities.resx">
<DependentUpon>frmDocLink_Record_Entities.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmWM_Resultlist_Config.en-US.resx">
<DependentUpon>frmWM_Resultlist_Config.vb</DependentUpon>
</EmbeddedResource>
@@ -1110,12 +1082,6 @@
<EmbeddedResource Include="frmSplash.resx">
<DependentUpon>frmSplash.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmSQLEditor.en-US.resx">
<DependentUpon>frmSQLEditor.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmSQLEditor.resx">
<DependentUpon>frmSQLEditor.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmTask_Editor.en-US.resx">
<DependentUpon>frmTask_Editor.vb</DependentUpon>
</EmbeddedResource>
@@ -1165,6 +1131,7 @@
</EmbeddedResource>
<EmbeddedResource Include="frmLevel_Designer.resx">
<DependentUpon>frmLevel_Designer.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="frmDoctype_NameConvention.resx">
<DependentUpon>frmDoctype_NameConvention.vb</DependentUpon>

2
app/DD-Record-Organizer/frmAbout.vb
View File

@@ -16,7 +16,7 @@
Me.lblVersion.Text = String.Format("Version {0}", My.Application.Info.Version.ToString)
Me.lblCompanyName.Text = My.Application.Info.CompanyName
' Me.txtDescription.Text = My.Application.Info.Description
Dim version = ClassDatabase.Execute_Scalar("SELECT PRODUCT_VERSION FROM TBDD_MODULES WHERE UPPER(NAME) = UPPER('Record-Organizer')")
Dim version = MYDB_ECM.GetScalarValue("SELECT PRODUCT_VERSION FROM TBDD_MODULES WHERE UPPER(NAME) = UPPER('Record-Organizer')")
If Not IsNothing(version) Then
Me.lbldatabase.Text = String.Format("Database-Version: {0}", version.ToString)
Else

8
app/DD-Record-Organizer/frmCalendar.vb
View File

@@ -19,8 +19,8 @@
End Sub
Private Sub frmCalendar_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.TBPMO_APPOINTMENTSTableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBPMO_RESOURCESTableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBPMO_APPOINTMENTSTableAdapter.Connection.ConnectionString = MYDB_ECM.CurrentConnectionString
Me.TBPMO_RESOURCESTableAdapter.Connection.ConnectionString = MYDB_ECM.CurrentConnectionString
Me.TBPMO_RESOURCESTableAdapter.Fill(Me.DD_DMSDataSetCalendar.TBPMO_RESOURCES)
Me.TBPMO_APPOINTMENTSTableAdapter.Fill(Me.DD_DMSDataSetCalendar.TBPMO_APPOINTMENTS)
@@ -30,7 +30,7 @@
Private Sub AppointmentsInsertedChangedDeleted(sender As Object, e As DevExpress.XtraScheduler.PersistentObjectsEventArgs) Handles SchedulerStorage1.AppointmentsInserted, SchedulerStorage1.AppointmentsChanged, SchedulerStorage1.AppointmentsDeleted
Try
Me.TBPMO_APPOINTMENTSTableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBPMO_APPOINTMENTSTableAdapter.Connection.ConnectionString = MYDB_ECM.CurrentConnectionString
TBPMO_APPOINTMENTSTableAdapter.Update(DD_DMSDataSetCalendar)
DD_DMSDataSetCalendar.AcceptChanges()
Catch ex As Exception
@@ -41,7 +41,7 @@
Private Sub RessourcesInsertedChangedDeleted(sender As Object, e As DevExpress.XtraScheduler.PersistentObjectsEventArgs) Handles SchedulerStorage1.ResourcesInserted, SchedulerStorage1.ResourcesChanged, SchedulerStorage1.ResourcesDeleted
Try
Me.TBPMO_RESOURCESTableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBPMO_RESOURCESTableAdapter.Connection.ConnectionString = MYDB_ECM.CurrentConnectionString
TBPMO_RESOURCESTableAdapter.Update(DD_DMSDataSetCalendar)
DD_DMSDataSetCalendar.AcceptChanges()
Catch ex As Exception

2
app/DD-Record-Organizer/frmChooseParentRecord.vb
View File

@@ -24,7 +24,7 @@ Public Class frmChooseParentRecord
Sub HideColumns()
Try
Dim SQL As String = "SELECT CONTROL_ID, CONTROL_COL_NAME, CONTROL_SHOW_COLUMN FROM VWPMO_CONTROL_SCREEN WHERE CONTROL_SHOW_COLUMN = 0 AND FORM_ID = " & CURRENT_PARENT_ENTITY_ID
Dim DT As DataTable = ClassDatabase.Return_Datatable(SQL, True)
Dim DT As DataTable = MYDB_ECM.GetDatatable(sql)
Dim cols As DevExpress.XtraGrid.Columns.GridColumnCollection = GridView.Columns

2
app/DD-Record-Organizer/frmCockpit.vb
View File

@@ -17,7 +17,7 @@
"COMMENT, DUE_DATE, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, TASK_DATE, FINAL, COLOR FROM VWPMO_WF_ACTIVE AS T " & _
"WHERE (WF_TASK_ID NOT IN (SELECT WF_TASK_ID FROM VWPMO_WF_USER_EXCLUSIV " & _
"WHERE (WF_TASK_ID NOT IN (SELECT WF_TASK_ID FROM VWPMO_WF_USER_EXCLUSIV AS VWPMO_WF_USER_EXCLUSIV_1 WHERE (UPPER(USERNAME) = UPPER('{1}'))))))", USER_LANGUAGE, USER_USERNAME)
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
Dim DT As DataTable = MYDB_ECM.GetDatatable(sql)
If Not DT Is Nothing Then
GridControl1.DataSource = DT
Dim captiongrbx

31
app/DD-Record-Organizer/frmConfig_Basic.vb
View File

@@ -4,6 +4,7 @@ Imports DevExpress.LookAndFeel
Imports DD_LIB_Standards
Imports System.IO
Imports DevExpress.XtraCharts.Native
Imports DigitalData.Modules.Database
Public Class frmConfig_Basic
Private _Helper As New ClassHelper
@@ -36,8 +37,8 @@ Public Class frmConfig_Basic
'Set the construction string
If rbConnDefault.Checked Then
MyConnectionString = con
'csb.ConnectionString
ClassDatabase.Init()
MYDB_ECM = New MSSQLServer(LOGCONFIG, MyConnectionString)
Else
ClassProxy.MyPROXYConnectionString = con
clsDatabase.Init(MyConnectionString, True)
@@ -58,7 +59,7 @@ Public Class frmConfig_Basic
SaveMySettingsValue("MyProxyConnectionString", con, "ConfigMain")
End If
Dim csb As New SqlClient.SqlConnectionStringBuilder
csb.ConnectionString = MyConnectionString
csb.ConnectionString = MYDB_ECM.CurrentConnectionString
Dim constr = connection.ConnectionString
If chkbxUserAut.Checked = False Then
constr = constr.Replace(csb.Password, "XXXXX")
@@ -125,9 +126,9 @@ Public Class frmConfig_Basic
CONNECTION_CHANGED = False
'Try
Dim csb As New SqlClient.SqlConnectionStringBuilder
csb.ConnectionString = MyConnectionString
csb.ConnectionString = MYDB_ECM.CurrentConnectionString
Dim constr = MyConnectionString
Dim constr = MYDB_ECM.CurrentConnectionString
If Not MyConnectionString.Contains("Trusted") Then
constr = constr.Replace(csb.Password, "XXXXX")
txtUser.Text = csb.UserID
@@ -150,7 +151,7 @@ Public Class frmConfig_Basic
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)
Dim DT As DataTable = MYDB_ECM.GetDatatable(sql)
If DT.Rows.Count > 0 Then
cmbConstructor.Enabled = True
cmbConstructor.DataSource = DT
@@ -220,7 +221,7 @@ Public Class frmConfig_Basic
Case 1
cmbLanguage.SelectedIndex = cmbLanguage.FindStringExact(USER_LANGUAGE)
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)
Dim DTSCAN_folderwatch As DataTable = MYDB_ECM.GetDatatable("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 DTSCAN_folderwatch.Rows.Count = 1 Then
CURRENT_SCAN_FOLDERWATCH = DTSCAN_folderwatch.Rows(0).Item(0)
@@ -293,15 +294,15 @@ Public Class frmConfig_Basic
_SUBDIRECTORIES = 1
End If
Dim folderwatch = ClassDatabase.Execute_Scalar("SELECT GUID FROM TBPMO_FOLDERWATCH_USER WHERE USER_ID = " & USER_GUID & " AND FOLDER_TYPE = 'SCAN'")
Dim folderwatch = MYDB_ECM.GetScalarValue("SELECT GUID FROM TBPMO_FOLDERWATCH_USER WHERE USER_ID = " & USER_GUID & " AND FOLDER_TYPE = 'SCAN'")
Dim sql As String
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 & "')"
Else
sql = "UPDATE TBPMO_FOLDERWATCH_USER SET FOLDER_PATH = '" & mypath & "', SUBDIRECTORIES = " & _SUBDIRECTORIES & ", CHANGED_WHO = '" & USER_USERNAME & "' where GUID = " & folderwatch
End If
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'")
If MYDB_ECM.ExecuteNonQuery(sql) Then
Dim DT As DataTable = MYDB_ECM.GetDatatable("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_SD = DT.Rows(0).Item(1)
@@ -368,7 +369,7 @@ Public Class frmConfig_Basic
Dim update As String = "UPDATE TBDD_USER SET [LANGUAGE] = '" & cmbLanguage.Text & "' WHERE GUID = " & USER_GUID
USER_LANGUAGE = cmbLanguage.Text
If ClassDatabase.Execute_non_Query(update) = True Then
If MYDB_ECM.ExecuteNonQuery(update) = True Then
If USER_LANGUAGE = "de-DE" Then
MsgBox("Die Sprache wurde erfolgreich geändert und nach einem Neustart angewendet!", MsgBoxStyle.Information)
Else
@@ -419,8 +420,8 @@ Public Class frmConfig_Basic
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
If email.Send_Log_Mail("<b> Log-/SupportMail Record-Organizer.</b> <p>",
"Support-Mail Record-Organizer", "support@didalog.de", "mail.triplew.de", "support@didalog.de", "ddemail40", "support@didalog.de") = True Then
If email.Send_Log_Mail("<b> Log-/SupportMail Org-Flow.</b> <p>",
"Support-Mail OrgFlow", "support@didalog.de", "mail.triplew.de", "support@didalog.de", "ddemail40", "support-flow@digitaldata.works") = True Then
MsgBox("Log Mail was sent to Digital Data!", MsgBoxStyle.Information, "Success!")
End If
End Sub
@@ -480,9 +481,9 @@ Public Class frmConfig_Basic
If rbConnDefault.Checked Then
If MyConnectionString <> String.Empty Then
Dim csb As New SqlClient.SqlConnectionStringBuilder
csb.ConnectionString = MyConnectionString
csb.ConnectionString = MYDB_ECM.CurrentConnectionString
Dim constr = MyConnectionString
Dim constr = MYDB_ECM.CurrentConnectionString
If Not constr.Contains("Trusted") Then
constr = constr.Replace(csb.Password, "XXXXX")
txtUser.Text = csb.UserID

2
app/DD-Record-Organizer/frmConnections.vb
View File

@@ -25,7 +25,7 @@ Public Class frmConnections
'TODO: Diese Codezeile lädt Daten in die Tabelle "DD_ECMAdmin.TBDD_CONNECTION". Sie können sie bei Bedarf verschieben oder entfernen.
'TODO: Diese Codezeile lädt Daten in die Tabelle "DD_ECMDataset.TBDD_CONNECTION". Sie können sie bei Bedarf verschieben oder entfernen.
Me.TBDD_CONNECTIONTableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBDD_CONNECTIONTableAdapter.Connection.ConnectionString = MYDB_ECM.CurrentConnectionString
Load_Connections()
End Sub

30
app/DD-Record-Organizer/frmConstructorDesigner.Designer.vb generated
View File

@@ -227,6 +227,7 @@ Partial Class frmConstructorDesigner
Me.GridColumn7 = New DevExpress.XtraGrid.Columns.GridColumn()
Me.GridColumn8 = New DevExpress.XtraGrid.Columns.GridColumn()
Me.GridColumn9 = New DevExpress.XtraGrid.Columns.GridColumn()
Me.NODE_NAVIGATIONCheckBox = New System.Windows.Forms.CheckBox()
GUIDLabel = New System.Windows.Forms.Label()
FORM_TITLELabel = New System.Windows.Forms.Label()
SEQUENCE_MENULabel = New System.Windows.Forms.Label()
@@ -925,9 +926,9 @@ Partial Class frmConstructorDesigner
'
'GridView2
'
Me.GridView2.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridView2.Appearance.EvenRow.BackColor"), System.Drawing.Color)
Me.GridView2.Appearance.EvenRow.BackColor = System.Drawing.Color.LightBlue
Me.GridView2.Appearance.EvenRow.Options.UseBackColor = True
Me.GridView2.Appearance.FocusedRow.BackColor = CType(resources.GetObject("GridView2.Appearance.FocusedRow.BackColor"), System.Drawing.Color)
Me.GridView2.Appearance.FocusedRow.BackColor = System.Drawing.Color.Fuchsia
Me.GridView2.Appearance.FocusedRow.Options.UseBackColor = True
Me.GridView2.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.GridColumn14, Me.colSurname3, Me.GridColumn15, Me.GridColumn16, Me.GridColumn17})
Me.GridView2.GridControl = Me.GridControl2
@@ -1010,9 +1011,9 @@ Partial Class frmConstructorDesigner
'
'GridViewSupervisorsAdd
'
Me.GridViewSupervisorsAdd.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridViewSupervisorsAdd.Appearance.EvenRow.BackColor"), System.Drawing.Color)
Me.GridViewSupervisorsAdd.Appearance.EvenRow.BackColor = System.Drawing.Color.LightBlue
Me.GridViewSupervisorsAdd.Appearance.EvenRow.Options.UseBackColor = True
Me.GridViewSupervisorsAdd.Appearance.FocusedRow.BackColor = CType(resources.GetObject("GridViewSupervisorsAdd.Appearance.FocusedRow.BackColor"), System.Drawing.Color)
Me.GridViewSupervisorsAdd.Appearance.FocusedRow.BackColor = System.Drawing.Color.Fuchsia
Me.GridViewSupervisorsAdd.Appearance.FocusedRow.Options.UseBackColor = True
Me.GridViewSupervisorsAdd.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.GridColumn10, Me.colSurname2, Me.GridColumn11, Me.GridColumn12, Me.GridColumn13})
Me.GridViewSupervisorsAdd.GridControl = Me.GridControlSupervisorAdd
@@ -1191,9 +1192,9 @@ Partial Class frmConstructorDesigner
'
'GridViewUserSQL
'
Me.GridViewUserSQL.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridViewUserSQL.Appearance.EvenRow.BackColor"), System.Drawing.Color)
Me.GridViewUserSQL.Appearance.EvenRow.BackColor = System.Drawing.Color.LightBlue
Me.GridViewUserSQL.Appearance.EvenRow.Options.UseBackColor = True
Me.GridViewUserSQL.Appearance.FocusedRow.BackColor = CType(resources.GetObject("GridViewUserSQL.Appearance.FocusedRow.BackColor"), System.Drawing.Color)
Me.GridViewUserSQL.Appearance.FocusedRow.BackColor = System.Drawing.Color.Fuchsia
Me.GridViewUserSQL.Appearance.FocusedRow.Options.UseBackColor = True
Me.GridViewUserSQL.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colSurname4, Me.GridColumn4, Me.GridColumn5, Me.GridColumn6, Me.colID1})
Me.GridViewUserSQL.GridControl = Me.GridControlUserSQL
@@ -1606,9 +1607,9 @@ Partial Class frmConstructorDesigner
'
'GridViewlUsers2Menue
'
Me.GridViewlUsers2Menue.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridViewlUsers2Menue.Appearance.EvenRow.BackColor"), System.Drawing.Color)
Me.GridViewlUsers2Menue.Appearance.EvenRow.BackColor = System.Drawing.Color.LightBlue
Me.GridViewlUsers2Menue.Appearance.EvenRow.Options.UseBackColor = True
Me.GridViewlUsers2Menue.Appearance.FocusedRow.BackColor = CType(resources.GetObject("GridViewlUsers2Menue.Appearance.FocusedRow.BackColor"), System.Drawing.Color)
Me.GridViewlUsers2Menue.Appearance.FocusedRow.BackColor = System.Drawing.Color.Fuchsia
Me.GridViewlUsers2Menue.Appearance.FocusedRow.Options.UseBackColor = True
Me.GridViewlUsers2Menue.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colSelect, Me.colSurname, Me.GridColumn1, Me.GridColumn2, Me.colID})
Me.GridViewlUsers2Menue.GridControl = Me.GridControlUsers2Menue
@@ -1664,9 +1665,9 @@ Partial Class frmConstructorDesigner
'
'GridView1
'
Me.GridView1.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridView1.Appearance.EvenRow.BackColor"), System.Drawing.Color)
Me.GridView1.Appearance.EvenRow.BackColor = System.Drawing.Color.LightBlue
Me.GridView1.Appearance.EvenRow.Options.UseBackColor = True
Me.GridView1.Appearance.FocusedRow.BackColor = CType(resources.GetObject("GridView1.Appearance.FocusedRow.BackColor"), System.Drawing.Color)
Me.GridView1.Appearance.FocusedRow.BackColor = System.Drawing.Color.Fuchsia
Me.GridView1.Appearance.FocusedRow.Options.UseBackColor = True
Me.GridView1.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.GridColumn3, Me.colSurname1, Me.GridColumn7, Me.GridColumn8, Me.GridColumn9})
Me.GridView1.GridControl = Me.GridControl1
@@ -1711,10 +1712,18 @@ Partial Class frmConstructorDesigner
Me.GridColumn9.FieldName = "ID"
Me.GridColumn9.Name = "GridColumn9"
'
'NODE_NAVIGATIONCheckBox
'
Me.NODE_NAVIGATIONCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBPMO_FORM_CONSTRUCTORBindingSource, "NODE_NAVIGATION", True))
resources.ApplyResources(Me.NODE_NAVIGATIONCheckBox, "NODE_NAVIGATIONCheckBox")
Me.NODE_NAVIGATIONCheckBox.Name = "NODE_NAVIGATIONCheckBox"
Me.NODE_NAVIGATIONCheckBox.UseVisualStyleBackColor = True
'
'frmConstructorDesigner
'
resources.ApplyResources(Me, "$this")
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Controls.Add(Me.NODE_NAVIGATIONCheckBox)
Me.Controls.Add(Me.GridControl1)
Me.Controls.Add(Me.GridControlUsers2Menue)
Me.Controls.Add(Me.btnChangeHOMESTANDARD)
@@ -1985,4 +1994,5 @@ Partial Class frmConstructorDesigner
Friend WithEvents chkDOC_SEARCH_TAB1 As System.Windows.Forms.CheckBox
Friend WithEvents chkActivateDSOnEdit As System.Windows.Forms.CheckBox
Friend WithEvents chkAddRecords As CheckBox
Friend WithEvents NODE_NAVIGATIONCheckBox As CheckBox
End Class

10270
app/DD-Record-Organizer/frmConstructorDesigner.resx
View File

File diff suppressed because it is too large Load Diff

129
app/DD-Record-Organizer/frmConstructorDesigner.vb
View File

@@ -31,17 +31,17 @@ Public Class frmConstructorDesigner
Try
XtraTabControl2.SelectedTabPageIndex = 0
formloaded = False
Me.TBPMO_FORM_CONSTRUCTORTableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBPMO_FORM_CONSTRUCTORTableAdapter.Connection.ConnectionString = MYDB_ECM.CurrentConnectionString
Me.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Connection.ConnectionString = MYDB_ECM.CurrentConnectionString
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 DTFORMS As DataTable = ClassDatabase.Return_Datatable(sql1)
Dim DTFORMS As DataTable = MYDB_ECM.GetDatatable(sql1)
'FORM_IDComboBox.DataSource = DTFORMS
'FORM_IDComboBox.DisplayMember = DTFORMS.Columns(1).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 DTParent As DataTable = ClassDatabase.Return_Datatable(sql2)
Dim DTParent As DataTable = MYDB_ECM.GetDatatable(sql2)
'PARENT_IDComboBox.DataSource = DTParent
'PARENT_IDComboBox.DisplayMember = DTParent.Columns(1).ColumnName
'PARENT_IDComboBox.ValueMember = DTParent.Columns(0).ColumnName
@@ -60,7 +60,7 @@ Public Class frmConstructorDesigner
Private Sub Load_Detail(ID As Integer)
Try
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)
SELECTED_ENTITY_ID = MYDB_ECM.GetScalarValue("SELECT FORM_ID FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE GUID = " & ID)
Catch ex As System.Exception
MsgBox("Error Loading Details:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Exit Sub
@@ -77,20 +77,20 @@ Public Class frmConstructorDesigner
Public Sub Load_QuickDisplay()
Try
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)
Dim formId = MYDB_ECM.GetScalarValue("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) " & _
"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)
Dim DT As DataTable = MYDB_ECM.GetDatatable(sql)
listBoxControls.DataSource = DT
listBoxControls.DisplayMember = DT.Columns(1).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")
Dim DT2 = MYDB_ECM.GetDatatable("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.DisplayMember = DT2.Columns(1).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)
Dim DT3 As DataTable = MYDB_ECM.GetDatatable("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
Me.txtQuickViewPicture.Text = DT3.Rows(0).Item(1)
Me.txtQuickViewPicture.Tag = DT3.Rows(0).Item(0)
@@ -99,7 +99,7 @@ Public Class frmConstructorDesigner
Me.txtQuickViewPicture.Tag = Nothing
End If
Try
Me.TBTEMP_QUICKDISPLAYTableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBTEMP_QUICKDISPLAYTableAdapter.Connection.ConnectionString = MYDB_ECM.CurrentConnectionString
Me.TBTEMP_QUICKDISPLAYTableAdapter.Fill(Me.DD_DMSDataSet.TBTEMP_QUICKDISPLAY, SELECTED_CONSTRUCTOR_DETAIL_ID)
Catch ex As System.Exception
MsgBox("Error in Load_Preview_QuickDisplay:" & vbNewLine & ex.Message)
@@ -112,9 +112,9 @@ Public Class frmConstructorDesigner
Try
Dim Sql = $"SELECT * FROM TBDD_USER T INNER JOIN TBDD_USER_MODULES T1 ON T.GUID = T1.USER_ID INNER JOIN TBDD_MODULES T2 ON T1.MODULE_ID = T2.GUID
WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID NOT IN (SELECT USER_ID FROM TBPMO_CONSTRUCTOR_USER WHERE CONSTRUCT_ID = {CONSTRUCTOR_IDTextBox.Text}) ORDER By USERNAME"
Dim DT_USER = ClassDatabase.Return_Datatable(Sql)
Dim DT_USER = MYDB_ECM.GetDatatable(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)
Dim DT_USER_CONSTR As DataTable = ClassDatabase.Return_Datatable(Sql)
Dim DT_USER_CONSTR As DataTable = MYDB_ECM.GetDatatable(sql)
Try
DD_ECMAdmin.TBAD_Users.Clear()
@@ -122,8 +122,17 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID NOT IN (SELECT USER_ID FROM TBPMO_CONSTR
Dim newUserRow As DD_ECMAdmin.TBAD_UsersRow
newUserRow = DD_ECMAdmin.TBAD_Users.NewTBAD_UsersRow
newUserRow.Username = row.Item("USERNAME")
newUserRow.Surname = row.Item("NAME")
newUserRow.Prename = row.Item("PRENAME")
Try
newUserRow.Surname = row.Item("NAME")
Catch ex As Exception
newUserRow.Surname = ""
End Try
Try
newUserRow.Prename = row.Item("PRENAME")
Catch ex As Exception
newUserRow.Prename = ""
End Try
Try
newUserRow.Email = row.Item("EMAIL")
Catch ex As Exception
@@ -137,7 +146,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID NOT IN (SELECT USER_ID FROM TBPMO_CONSTR
Catch ex As Exception
MsgBox("Error Load_Users for menues:" & vbNewLine & ex.Message)
End Try
Try
DD_ECMAdmin.TBWH_Users1.Clear()
@@ -169,7 +178,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID NOT IN (SELECT USER_ID FROM TBPMO_CONSTR
'Zurücksetzen
lblSaveDocSearch.Visible = False
Dim res = ClassDatabase.Execute_Scalar("SELECT DOCUMENT_VIEW FROM TBPMO_FORM_VIEW WHERE FORM_ID = " & SELECTED_ENTITY_ID & " and SCREEN_ID = " & CURRENT_SCREEN_ID)
Dim res = MYDB_ECM.GetScalarValue("SELECT DOCUMENT_VIEW FROM TBPMO_FORM_VIEW WHERE FORM_ID = " & SELECTED_ENTITY_ID & " and SCREEN_ID = " & CURRENT_SCREEN_ID)
If res = True Then
chkWDSearch_Active.Checked = True
@@ -177,7 +186,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID NOT IN (SELECT USER_ID FROM TBPMO_CONSTR
chkWDSearch_Active.Checked = False
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 = MYDB_ECM.GetDatatable("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)
If CBool(res) = True Then
chkDOC_SEARCH_TAB1.Checked = True
@@ -205,10 +214,10 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID NOT IN (SELECT USER_ID FROM TBPMO_CONSTR
Try
Dim CONSTR_ID As Integer = CONSTRUCTOR_IDTextBox.Text
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' " &
"from VWPMO_CONSTRUCTOR_FORMS WHERE FORM_TYPE_ID IN (1,4) AND PARENT_ID = 0 AND CONSTRUCT_ID = {2} AND SCREEN_ID = {3} ORDER BY SEQUENCE", USER_LANGUAGE, CURRENT_SCREEN_ID, CONSTR_ID, CURRENT_SCREEN_ID)
Dim DT As DataTable = ClassDatabase.Return_Datatable(sel_sql)
Dim DT As DataTable = MYDB_ECM.GetDatatable(sel_sql)
If DT.Rows.Count >= 1 Then
TreeViewDetails.Nodes.Clear()
For Each rowEbene0 As DataRow In DT.Rows
@@ -216,20 +225,20 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID NOT IN (SELECT USER_ID FROM TBPMO_CONSTR
Node = TreeViewDetails.Nodes.Add("E1: " & rowEbene0.Item("CAPTION").ToString)
Node.Tag = rowEbene0.Item("GUID")
'Jetzt die Ebene1Knoten einhängen
sel_sql = String.Format("SELECT *, [dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), FORM_VIEW_ID), {1}) AS 'CAPTION' " & _
sel_sql = String.Format("SELECT *, [dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), FORM_VIEW_ID), {1}) AS 'CAPTION' " &
"from VWPMO_CONSTRUCTOR_FORMS WHERE FORM_TYPE_ID in (2,5) AND PARENT_ID = {2} AND CONSTRUCT_ID = {3} AND SCREEN_ID = {4} ORDER BY SEQUENCE", USER_LANGUAGE, CURRENT_SCREEN_ID, rowEbene0.Item("FORM_ID"), CONSTR_ID, CURRENT_SCREEN_ID)
Dim dtEbene1 As DataTable = ClassDatabase.Return_Datatable(sel_sql)
Dim dtEbene1 As DataTable = MYDB_ECM.GetDatatable(sel_sql)
If dtEbene1.Rows.Count > 0 Then
For Each rowEbene1 As DataRow In dtEbene1.Rows
Dim Node1 As TreeNode
Node1 = Node.Nodes.Add("E2: " & rowEbene1.Item("CAPTION").ToString)
Node1.Tag = rowEbene1.Item("GUID")
'Jetzt die Ebene2 Knoten einhängen
sel_sql = String.Format("SELECT *, [dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), FORM_VIEW_ID), {1}) AS 'CAPTION' " & _
sel_sql = String.Format("SELECT *, [dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), FORM_VIEW_ID), {1}) AS 'CAPTION' " &
"from VWPMO_CONSTRUCTOR_FORMS WHERE FORM_TYPE_ID in (3,5) AND PARENT_ID = {2} AND CONSTRUCT_ID = {3} AND SCREEN_ID = {4} ORDER BY SEQUENCE", USER_LANGUAGE, CURRENT_SCREEN_ID, rowEbene1.Item("FORM_ID"), CONSTR_ID, CURRENT_SCREEN_ID)
Dim dtEbene2 As DataTable = ClassDatabase.Return_Datatable(sel_sql)
Dim dtEbene2 As DataTable = MYDB_ECM.GetDatatable(sel_sql)
If dtEbene2.Rows.Count > 0 Then
For Each rowEbene2 As DataRow In dtEbene2.Rows
Dim Node2 As TreeNode
@@ -308,7 +317,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID NOT IN (SELECT USER_ID FROM TBPMO_CONSTR
' view = view.Trim
' Dim Sql = "SELECT name FROM sys.columns WHERE object_id = OBJECT_ID('" & view & "')"
' LOGGER.Debug("" & Sql, False)
' Dim DT As DataTable = ClassDatabase.Return_Datatable(Sql)
' Dim DT As DataTable = MYDB_ECM.GetDatatable(sql)
' If DT IsNot Nothing Then
' COLUMN_NAME1ComboBox.Items.Clear()
' For Each row As DataRow In DT.Rows
@@ -351,7 +360,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID NOT IN (SELECT USER_ID FROM TBPMO_CONSTR
docsearch = 0
End If
Dim upd = String.Format("UPDATE TBPMO_FORM_VIEW SET DOCUMENT_VIEW = {0},CHANGED_WHO = '{1}' WHERE FORM_ID = {2} AND SCREEN_ID = {3}", docsearch, USER_USERNAME, SELECTED_ENTITY_ID, CURRENT_SCREEN_ID)
ClassDatabase.Execute_non_Query(upd)
MYDB_ECM.ExecuteNonQuery(upd)
Dim DOC_SEARCH_TAB1 As Integer
If chkDOC_SEARCH_TAB1.Checked Then
@@ -366,7 +375,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID NOT IN (SELECT USER_ID FROM TBPMO_CONSTR
ACTIVATE_DOC_SEARCH_ON_EDIT = 0
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)
If ClassDatabase.Execute_non_Query(sql) = True Then
If MYDB_ECM.ExecuteNonQuery(Sql) = True Then
lblSaveDocSearch.Visible = True
lblSaveDocSearch.Text = "Data saved - " & Now
End If
@@ -462,23 +471,23 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID NOT IN (SELECT USER_ID FROM TBPMO_CONSTR
Public Sub Load_Client_Entity()
Try
Dim sql = String.Format("SELECT GUID, CLIENT_NAME FROM TBDD_CLIENT WHERE GUID IN (SELECT CLIENT_ID FROM TBDD_CLIENT_USER WHERE USER_ID = {0})", USER_GUID)
Dim DT1 As DataTable = ClassDatabase.Return_Datatable(sql)
Dim DT1 As DataTable = MYDB_ECM.GetDatatable(sql)
chklbxClient.Items.Clear()
For Each row As DataRow In DT1.Rows
chklbxClient.Items.Add(New MyListBoxItem() With {.Text = row.Item(1), .ExtraData = row.Item(0)})
Next
Catch ex As Exception
MsgBox("UnexpectedError Load_Client_Entity:" & vbNewLine & ex.Message)
End Try
End Sub
Sub Load_ClientsforEntity()
Try
Dim sql = String.Format("SELECT T.GUID, T1.CLIENT_NAME FROM TBPMO_CLIENT_ENTITY T, TBDD_CLIENT T1 WHERE T.CLIENT_ID = T1.GUID " & _
Dim sql = String.Format("SELECT T.GUID, T1.CLIENT_NAME FROM TBPMO_CLIENT_ENTITY T, TBDD_CLIENT T1 WHERE T.CLIENT_ID = T1.GUID " &
"AND T1.GUID IN (SELECT CLIENT_ID FROM TBDD_CLIENT_USER WHERE USER_ID = {0}) AND T.ENTITY_ID = {1}", USER_GUID, SELECTED_ENTITY_ID)
Dim DT As DataTable = ClassDatabase.Return_Datatable(Sql)
Dim DT As DataTable = MYDB_ECM.GetDatatable(sql)
chklbxEntitiesforClient.Items.Clear()
For Each row1 As DataRow In DT.Rows
chklbxEntitiesforClient.Items.Add(New MyListBoxItem() With {.Text = row1.Item(1), .ExtraData = row1.Item(0)})
@@ -491,7 +500,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID NOT IN (SELECT USER_ID FROM TBPMO_CONSTR
Try
Dim sql = $"SELECT T.* FROM TBDD_USER T INNER JOIN TBDD_USER_MODULES T1 ON T.GUID = T1.USER_ID INNER JOIN TBDD_MODULES T2 ON T1.MODULE_ID = T2.GUID
WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID IN (SELECT USER_ID FROM TBPMO_CONSTRUCTOR_USER WHERE CONSTRUCT_ID = {CONSTRUCTOR_IDTextBox.Text}) ORDER BY T.USERNAME"
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
Dim DT As DataTable = MYDB_ECM.GetDatatable(sql)
DD_ECMAdmin.TBWH_Users1.Clear()
For Each row As DataRow In DT.Rows
Dim newUserRow As DD_ECMAdmin.TBWH_Users1Row
@@ -517,7 +526,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID IN (SELECT USER_ID FROM TBPMO_CONSTRUCT
Try
Dim sql = $"SELECT T.* FROM TBDD_USER T INNER JOIN TBDD_USER_MODULES T1 ON T.GUID = T1.USER_ID INNER JOIN TBDD_MODULES T2 ON T1.MODULE_ID = T2.GUID
WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID IN (SELECT USER_ID FROM TBPMO_CONSTRUCTOR_USER WHERE CONSTRUCT_ID = {CONSTRUCTOR_IDTextBox.Text}) ORDER BY T.USERNAME"
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
Dim DT As DataTable = MYDB_ECM.GetDatatable(sql)
DD_ECMAdmin.TBAD_Users.Clear()
For Each row As DataRow In DT.Rows
Dim newUserRow As DD_ECMAdmin.TBAD_UsersRow
@@ -544,7 +553,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID IN (SELECT USER_ID FROM TBPMO_CONSTRUCT
Try
Dim sql = $"SELECT T.* FROM TBDD_USER T INNER JOIN TBDD_USER_MODULES T1 ON T.GUID = T1.USER_ID INNER JOIN TBDD_MODULES T2 ON T1.MODULE_ID = T2.GUID
WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID IN (SELECT USER_ID FROM TBPMO_ENTITY_SUPERVISOR WHERE ENTITY_ID = {SELECTED_ENTITY_ID}) ORDER BY T.USERNAME"
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
Dim DT As DataTable = MYDB_ECM.GetDatatable(sql)
DD_ECMAdmin.TBWH_Users2.Clear()
For Each row As DataRow In DT.Rows
Dim newUserRow As DD_ECMAdmin.TBWH_Users2Row
@@ -569,7 +578,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID IN (SELECT USER_ID FROM TBPMO_ENTITY_SU
Public Sub Load_Supervisor_Controls_Choose()
Try
Dim sql = String.Format("select GUID, NAME + '/' + COL_NAME as control from tbpmo_Control where FORM_ID = {0} and CONTROL_TYPE_ID IN (2,3,12) ORDER BY NAME", SELECTED_ENTITY_ID)
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
Dim DT As DataTable = MYDB_ECM.GetDatatable(sql)
cmbSupervisorControls.DataSource = DT
cmbSupervisorControls.DisplayMember = DT.Columns(1).ColumnName
cmbSupervisorControls.ValueMember = DT.Columns(0).ColumnName
@@ -579,9 +588,9 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID IN (SELECT USER_ID FROM TBPMO_ENTITY_SU
End Sub
Public Sub Load_Supervisor_Controls()
Try
Dim sql = String.Format("select T1.GUID, T.NAME + '/' + T.COL_NAME as [control] from tbpmo_Control T, TBPMO_SUPERVISOR_CONTROLS T1 " & _
Dim sql = String.Format("select T1.GUID, T.NAME + '/' + T.COL_NAME as [control] from tbpmo_Control T, TBPMO_SUPERVISOR_CONTROLS T1 " &
"where T.GUID = T1.CONTROL_ID AND T.FORM_ID = {0} ORDER BY T.NAME", SELECTED_ENTITY_ID)
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
Dim DT As DataTable = MYDB_ECM.GetDatatable(sql)
CheckedListBoxSupervisorControls.Items.Clear()
For Each row1 As DataRow In DT.Rows
CheckedListBoxSupervisorControls.Items.Add(New MyListBoxItem() With {.Text = row1.Item(1), .ExtraData = row1.Item(0)})
@@ -595,7 +604,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID IN (SELECT USER_ID FROM TBPMO_ENTITY_SU
Dim i = listBoxControls.SelectedValue
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 & "')"
If ClassDatabase.Execute_non_Query(insert) Then
If MYDB_ECM.ExecuteNonQuery(insert) Then
Load_QuickDisplay()
End If
End If
@@ -609,7 +618,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID IN (SELECT USER_ID FROM TBPMO_ENTITY_SU
Dim i = ListBoxConfiguredDisplay.SelectedValue
If Not IsNothing(i) Then
Dim delete = "DELETE FROM TBPMO_FORM_CONSTR_QUICK_DISPLAY WHERE GUID = " & i
If ClassDatabase.Execute_non_Query(delete) Then
If MYDB_ECM.ExecuteNonQuery(delete) Then
Load_QuickDisplay()
End If
End If
@@ -634,19 +643,19 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID IN (SELECT USER_ID FROM TBPMO_ENTITY_SU
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
If ClassDatabase.Execute_non_Query(upd) Then
If MYDB_ECM.ExecuteNonQuery(upd) Then
lblChangeHeadline.Visible = True
End If
End Sub
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)"
If ClassDatabase.Execute_non_Query(DEL) Then
If MYDB_ECM.ExecuteNonQuery(DEL) Then
Try
Dim i = listBoxControls.SelectedValue
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 & "')"
If ClassDatabase.Execute_non_Query(insert) Then
If MYDB_ECM.ExecuteNonQuery(insert) Then
Load_QuickDisplay()
lblQuickViewAdded.Visible = True
Else
@@ -666,7 +675,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID IN (SELECT USER_ID FROM TBPMO_ENTITY_SU
Dim i = listBoxControls.SelectedValue
If i.ToString.Contains("DataRowV") Then Exit Sub
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)
Dim count = MYDB_ECM.GetScalarValue("SELECT COUNT(T1.GUID) FROM TBPMO_CONTROL T1 WHERE T1.CONTROL_TYPE_ID = 6 and T1.GUID = " & i)
If count = 1 Then
Me.btnSetQuickViewPicture.Visible = True
Else
@@ -683,7 +692,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID IN (SELECT USER_ID FROM TBPMO_ENTITY_SU
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)"
If ClassDatabase.Execute_non_Query(DEL) Then
If MYDB_ECM.ExecuteNonQuery(DEL) Then
Load_QuickDisplay()
End If
End Sub
@@ -703,7 +712,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID IN (SELECT USER_ID FROM TBPMO_ENTITY_SU
home = 0
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 & ")"
If ClassDatabase.Execute_non_Query(insert) = False Then
If MYDB_ECM.ExecuteNonQuery(insert) = False Then
MsgBox("Could not insert the User-Definition....Check the logfile!", MsgBoxStyle.Exclamation)
End If
End If
@@ -723,7 +732,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID IN (SELECT USER_ID FROM TBPMO_ENTITY_SU
For Each row As DataRow In DD_ECMAdmin.TBWH_Users1.Rows
If row.Item(0) = CBool(True) Then
Dim delete = "DELETE FROM TBPMO_CONSTRUCTOR_USER WHERE GUID = " & row.Item(5)
If ClassDatabase.Execute_non_Query(delete) Then
If MYDB_ECM.ExecuteNonQuery(delete) Then
refresh = True
End If
End If
@@ -739,7 +748,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID IN (SELECT USER_ID FROM TBPMO_ENTITY_SU
Dim SelectedNode As TreeNode = TryCast(TreeViewDetails.SelectedNode, TreeNode)
If SelectedNode IsNot Nothing Then
Dim sql = String.Format("SELECT FORM_ID FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE GUID = {0}", SelectedNode.Tag)
Dim FormId As Integer = ClassDatabase.Execute_Scalar(sql)
Dim FormId As Integer = MYDB_ECM.GetScalarValue(SQL)
If FormId > 0 Then
CURRENT_ENTITY_ID = FormId
OpenFormLevelDesigner()
@@ -756,14 +765,14 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID IN (SELECT USER_ID FROM TBPMO_ENTITY_SU
For Each row As DataRow In DD_ECMAdmin.TBWH_Users1.Rows
If row.Item(0) = CBool(True) Then
Dim sql = "SELECT HOME_MENUE FROM TBPMO_CONSTRUCTOR_USER WHERE GUID = " & row.Item(5)
Dim Home = ClassDatabase.Execute_Scalar(sql)
Dim Home = MYDB_ECM.GetScalarValue(SQL)
If Home = True Then
Home = 0
Else
Home = 1
End If
sql = "UPDATE TBPMO_CONSTRUCTOR_USER SET HOME_MENUE = " & Home & " WHERE GUID = " & row.Item(5)
If ClassDatabase.Execute_non_Query(sql) Then
If MYDB_ECM.ExecuteNonQuery(Sql) Then
refresh = True
End If
End If
@@ -844,7 +853,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID IN (SELECT USER_ID FROM TBPMO_ENTITY_SU
Exit Sub
End If
Next
Dim DT As DataTable = ClassDatabase.Return_Datatable(query)
Dim DT As DataTable = MYDB_ECM.GetDatatable(query)
If DT IsNot Nothing Then
dgvResult.DataSource = DT
@@ -861,9 +870,9 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID IN (SELECT USER_ID FROM TBPMO_ENTITY_SU
For Each obj As Object In chklbxClient.CheckedItems
Dim item As MyListBoxItem = CType(obj, MyListBoxItem)
Dim sql = "select count(*) from TBPMO_CLIENT_ENTITY Where CLIENT_ID = " & item.ExtraData & " AND ENTITY_ID = " & SELECTED_ENTITY_ID
If ClassDatabase.Execute_Scalar(sql) = 0 Then
If MYDB_ECM.GetScalarValue(SQL) = 0 Then
sql = String.Format("INSERT INTO TBPMO_CLIENT_ENTITY (CLIENT_ID, ENTITY_ID, ADDED_WHO) VALUES ({0}, {1}, '{2}')", item.ExtraData, SELECTED_ENTITY_ID, USER_USERNAME)
If ClassDatabase.Execute_non_Query(sql) = False Then
If MYDB_ECM.ExecuteNonQuery(Sql) = False Then
MsgBox("Error in Adding Entity to Client!", MsgBoxStyle.Critical)
End If
End If
@@ -876,7 +885,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID IN (SELECT USER_ID FROM TBPMO_ENTITY_SU
Dim item As MyListBoxItem = CType(obj, MyListBoxItem)
Dim sql
sql = String.Format("DELETE FROM TBPMO_CLIENT_ENTITY WHERE GUID = {0}", item.ExtraData)
If ClassDatabase.Execute_non_Query(sql) = False Then
If MYDB_ECM.ExecuteNonQuery(Sql) = False Then
MsgBox(String.Format("Error in deleting Entity from Client", item.Text), MsgBoxStyle.Critical)
End If
Next
@@ -891,7 +900,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID IN (SELECT USER_ID FROM TBPMO_ENTITY_SU
Try
Dim USERID = GridViewUserSQL.GetFocusedRowCellValue(GridViewUserSQL.Columns("ID"))
If Not USERID Is Nothing Then
Me.TBPMO_CONSTRUCTOR_USER_SQLTableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBPMO_CONSTRUCTOR_USER_SQLTableAdapter.Connection.ConnectionString = MYDB_ECM.CurrentConnectionString
Me.TBPMO_CONSTRUCTOR_USER_SQLTableAdapter.Fill(Me.DD_DMSDataSet.TBPMO_CONSTRUCTOR_USER_SQL, SELECTED_CONSTRUCTOR_DETAIL_ID, USERID)
If SQL_COMMANDTextBox.Text <> "" Or ADDED_WHOTextBox2.Text <> "" Then
SQL_COMMANDTextBox.Enabled = True
@@ -922,7 +931,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID IN (SELECT USER_ID FROM TBPMO_ENTITY_SU
Try
Dim CurrentID = CONSTRUCTOR_IDTextBox.Text
Dim sql = "EXEC PRPMO_DELETE_CONSTRUCTOR " & CurrentID
If ClassDatabase.Execute_non_Query(sql) = True Then
If MYDB_ECM.ExecuteNonQuery(Sql) = True Then
MsgBox("Constructor was deleted!", MsgBoxStyle.Information)
Load_Head()
Load_TreeViewEbene()
@@ -954,9 +963,9 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID IN (SELECT USER_ID FROM TBPMO_ENTITY_SU
End Select
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 MYDB_ECM.GetScalarValue(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)
If ClassDatabase.Execute_non_Query(insert) Then
If MYDB_ECM.ExecuteNonQuery(insert) Then
End If
End If
End If
@@ -976,7 +985,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID IN (SELECT USER_ID FROM TBPMO_ENTITY_SU
For Each row As DataRow In DD_ECMAdmin.TBWH_Users2.Rows
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)
If ClassDatabase.Execute_non_Query(delete) Then
If MYDB_ECM.ExecuteNonQuery(delete) Then
refresh = True
End If
End If
@@ -990,9 +999,9 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID IN (SELECT USER_ID FROM TBPMO_ENTITY_SU
Private Sub btnAddSupervisorControl_Click(sender As Object, e As EventArgs) Handles btnAddSupervisorControl.Click
If cmbSupervisorControls.SelectedIndex <> -1 Then
Dim sql = "select count(*) from TBPMO_SUPERVISOR_CONTROLS Where CONTROL_ID = " & cmbSupervisorControls.SelectedValue
If ClassDatabase.Execute_Scalar(sql) = 0 Then
If MYDB_ECM.GetScalarValue(SQL) = 0 Then
sql = String.Format("INSERT INTO TBPMO_SUPERVISOR_CONTROLS (CONTROL_ID, ADDED_WHO) VALUES ({0},'{1}')", cmbSupervisorControls.SelectedValue, USER_USERNAME)
If ClassDatabase.Execute_non_Query(sql) = False Then
If MYDB_ECM.ExecuteNonQuery(Sql) = False Then
MsgBox("Error in Adding Supervisor-Control! Check log", MsgBoxStyle.Critical)
Else
Load_Supervisor_Controls()
@@ -1006,7 +1015,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID IN (SELECT USER_ID FROM TBPMO_ENTITY_SU
Dim item As MyListBoxItem = CType(obj, MyListBoxItem)
Dim sql
sql = String.Format("DELETE FROM TBPMO_SUPERVISOR_CONTROLS WHERE GUID = {0}", item.ExtraData)
If ClassDatabase.Execute_non_Query(sql) = False Then
If MYDB_ECM.ExecuteNonQuery(Sql) = False Then
MsgBox(String.Format("Error in deleting SupervisorControl", item.Text), MsgBoxStyle.Critical)
End If
Next

80
app/DD-Record-Organizer/frmConstructor_Main.resx
View File

@@ -146,7 +146,7 @@
<data name="FormDesignerToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
vwAADr8BOAVTJAAAAMpJREFUSEu9lUEOwyAMBHlS38Dj+GafkPbC1WWRRY1qEhtCV1opCngmJIcEIgo5
vQAADr0BR/uQrQAAAMpJREFUSEu9lUEOwyAMBHlS38Dj+GafkPbC1WWRRY1qEhtCV1opCngmJIcEIgo5
Z9IaHNHm0SaIMXati44MGVLwOt61bdGRIeOvAlmroOx7cHXGykcuewA+uDoDgpmU4QpPKRFarp+4x8vf
zAgkHK+CBTjFusAFRzwCNxyxCqbgiEUwDUeuBEtw5EywDEdGglvgiCa4DY5cCZbgCARlGBCtAJvgYqZr
E+BVyPIGnMT05CNGJ9j+P9gukJ0V/DDOPjLPmqLNo1WwrxQ+GCNWVrb1cMEAAAAASUVORK5CYII=
@@ -219,7 +219,7 @@
<data name="tsmiNodeRename.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
vgAADr4B6kKxwAAAAFBJREFUOE9joBh8+/btPz4MVYYbgBQ5OTmBMUwTMh+qDDegigHYNBKL4S6A0chs
vAAADrwBlbxySQAAAFBJREFUOE9joBh8+/btPz4MVYYbgBQ5OTmBMUwTMh+qDDegigHYNBKL4S6A0chs
YmjauYAQhqkbTi5A1ojMJ0QTNIAQRvECNgxNb4MWMDAAAPsOTf9dAGOQAAAAAElFTkSuQmCC
</value>
</data>
@@ -247,7 +247,7 @@
<data name="OberhalbToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
vwAADr8BOAVTJAAAAG1JREFUOE+1kdEJgDAMRDtbhssa3TK/0ZSIxV5Co3jwUI7LA7Gp6idgWQGWFWBZ
vQAADr0BR/uQrQAAAG1JREFUOE+1kdEJgDAMRDtbhssa3TK/0ZSIxV5Co3jwUI7LA7Gp6idgWQGWFWBZ
4X7xiEg/UUD3yUgosNjYjphZiWg8n5JF4IOFSAIFNsyYJf8IENufMMdG2bElFFzHgPw3vgWWFWBZAZb7
aDsAn1PBeUq8SBsAAAAASUVORK5CYII=
</value>
@@ -261,7 +261,7 @@
<data name="UnterhalbToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
vwAADr8BOAVTJAAAAJVJREFUOE+lkdEJxDAMQztbhssat2V+fZWxD1vKR8IZBLX8JEr7mNlf2po3UiNm
vQAADr0BR/uQrQAAAJVJREFUOE+lkdEJxDAMQztbhssat2V+fZWxD1vKR8IZBLX8JEr7mNlf2po3UiNm
rWVVYSsvRgxCYwzXVcELfwDuCnBjvi0QYIBckB7zbYECdlGBi/m2QIDmnFKQHvNtgTKIQBbk83FBDdeS
0wL/WPwG8HBjvi1uxO/KkhrGTXgxYrKkhjHCi1EmSn5hjPBs3GprnsueLz0XwXnZAqB7AAAAAElFTkSu
QmCC
@@ -276,7 +276,7 @@
<data name="tsmiNodeNew.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
vwAADr8BOAVTJAAAAFxJREFUOE/NjFEKgDAMQ3e23v88/Y1YOslqhE1hGHgfS5fXAHxCliuMD4q7o5Kn
vQAADr0BR/uQrQAAAFxJREFUOE/NjFEKgDAMQ3e23v88/Y1YOslqhE1hGHgfS5fXAHxCliuMD4q7o5Kn
yJTAzC72CM5PTBUwfXMT8OiJnwuYOmL6ZhBwlCBPkT2CSp4iUvAGWa4gy3nQDiNEflNl/3oXAAAAAElF
TkSuQmCC
</value>
@@ -290,7 +290,7 @@
<data name="tsmiNodeDelete.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGOfPtRkwAAACBjSFJNAAB6
JQAAgIMAAPn/AACA6QAAdTAAAOpgAAA6mAAAF2+SX8VGAAAACXBIWXMAAAsOAAALDgFAvuFBAAACLUlE
JQAAgIMAAPn/AACA6QAAdTAAAOpgAAA6mAAAF2+SX8VGAAAACXBIWXMAAAsMAAALDAE/QCLIAAACLUlE
QVQ4T52TvY/ScBjHuVIRKHA9JAgnL+VoC7TX0kLLS6EvFBTa0uj5J7gYF+PsfpOTMrg4ORgHY+LCYJwc
TYyJiYuDLu7GxHgxd/Hnr5fA8TZcrsmnzfN9nufTNPnVBwDw2ZYljGzr3ciyTNu2EC87L75eb+DvD67f
hU9g9vt/HNs5cMaOf9Owohro7YNbe8PhjfuzzBOgkDuabk6bbRXoxuBkNLIeus6yhKyIwY5umo5tHxmG
@@ -496,7 +496,7 @@
<value>0, 0</value>
</data>
<data name="GridControlMain.Size" type="System.Drawing.Size, System.Drawing">
<value>910, 237</value>
<value>908, 237</value>
</data>
<data name="GridControlMain.TabIndex" type="System.Int32, mscorlib">
<value>2</value>
@@ -592,7 +592,7 @@
<value>0, 0</value>
</data>
<data name="pnlDetails.Size" type="System.Drawing.Size, System.Drawing">
<value>699, 223</value>
<value>699, 231</value>
</data>
<data name="pnlDetails.TabIndex" type="System.Int32, mscorlib">
<value>4</value>
@@ -634,7 +634,7 @@
<value>0, 0</value>
</data>
<data name="pnlDocFill.Size" type="System.Drawing.Size, System.Drawing">
<value>488, 198</value>
<value>486, 206</value>
</data>
<data name="pnlDocFill.TabIndex" type="System.Int32, mscorlib">
<value>5</value>
@@ -681,10 +681,10 @@
<value>Ansicht eingeschränkt - Klick Bearbeiten für Entsperren</value>
</data>
<data name="statStripDoc.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 198</value>
<value>0, 206</value>
</data>
<data name="statStripDoc.Size" type="System.Drawing.Size, System.Drawing">
<value>488, 25</value>
<value>486, 25</value>
</data>
<data name="statStripDoc.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
@@ -720,7 +720,7 @@
<value>1</value>
</data>
<data name="SplitContainerDetails.Size" type="System.Drawing.Size, System.Drawing">
<value>1201, 227</value>
<value>1201, 235</value>
</data>
<data name="SplitContainerDetails.TabIndex" type="System.Int32, mscorlib">
<value>1</value>
@@ -896,7 +896,7 @@
<value>1</value>
</data>
<data name="TabDetails.Size" type="System.Drawing.Size, System.Drawing">
<value>1201, 254</value>
<value>1201, 262</value>
</data>
<data name="TabDetails.Text" xml:space="preserve">
<value>Detailansicht</value>
@@ -914,7 +914,7 @@
<value>0</value>
</data>
<data name="TCDetails.Size" type="System.Drawing.Size, System.Drawing">
<value>1203, 282</value>
<value>1203, 290</value>
</data>
<data name="TCDetails.TabIndex" type="System.Int32, mscorlib">
<value>3</value>
@@ -926,7 +926,7 @@
<value>0, 27</value>
</data>
<data name="GridControlPos.Size" type="System.Drawing.Size, System.Drawing">
<value>1201, 227</value>
<value>1201, 225</value>
</data>
<data name="GridControlPos.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
@@ -952,7 +952,7 @@
<data name="BindingNavigatorAddNewItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
vwAADr8BOAVTJAAAAFxJREFUOE/NjFEKgDAMQ3e23v88/Y1YOslqhE1hGHgfS5fXAHxCliuMD4q7o5Kn
vQAADr0BR/uQrQAAAFxJREFUOE/NjFEKgDAMQ3e23v88/Y1YOslqhE1hGHgfS5fXAHxCliuMD4q7o5Kn
yJTAzC72CM5PTBUwfXMT8OiJnwuYOmL6ZhBwlCBPkT2CSp4iUvAGWa4gy3nQDiNEflNl/3oXAAAAAElF
TkSuQmCC
</value>
@@ -978,7 +978,7 @@
<data name="BindingNavigatorMoveFirstItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
vgAADr4B6kKxwAAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77
vAAADrwBlbxySQAAASpJREFUOE9jGDygcNbz/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
@@ -998,7 +998,7 @@
<data name="BindingNavigatorMovePreviousItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
vgAADr4B6kKxwAAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w
vAAADrwBlbxySQAAALZJREFUOE9jGDogvP3BfyiTdBDf/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
@@ -1040,7 +1040,7 @@
<data name="BindingNavigatorMoveNextItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
vgAADr4B6kKxwAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78
vAAADrwBlbxySQAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78
n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI
N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f
oAc0QjgAAAAASUVORK5CYII=
@@ -1058,7 +1058,7 @@
<data name="BindingNavigatorMoveLastItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
vgAADr4B6kKxwAAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+//
vAAADrwBlbxySQAAASxJREFUOE9jGFygcNbz/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
@@ -1093,7 +1093,7 @@
<data name="BindingNavigatorDeleteItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
vwAADr8BOAVTJAAAAUlJREFUOE+lU6GOg1AQ5BP6Cf2E+4QLnqQWV4EHjUJhGzxJJbICDxpFQvCHg4DA
vQAADr0BR/uQrQAAAUlJREFUOE+lU6GOg1AQ5BP6Cf2E+4QLnqQWV4EHjUJhGzxJJbICDxpFQvCHg4DA
Yd/tLPvK4wJ34iaZ9GVndxh4WwtYluVCfBIVcSYGLPwA1SPp0bxpIaiqSjmOw2zbdhMJdL4S6yzLlG3b
qigK6JHI3FCmacoi6HmeGscRSZAswDmOY9bQR7WXjK5AExJoAzBJEjTOXdexIWowoVpNvMjoChQg5Hm+
M8HT8Eo4G6muMrbHmQkIk2ma8PRPaT8G3Ikc1TSAKdWf0nYMGT5M4Lrun/E/iDM+nDlofgPf9/kDysgG
@@ -1183,7 +1183,7 @@
</value>
</data>
<data name="TabPos.Size" type="System.Drawing.Size, System.Drawing">
<value>1201, 254</value>
<value>1201, 252</value>
</data>
<data name="TabPos.Text" xml:space="preserve">
<value>Positionen</value>
@@ -1212,7 +1212,7 @@
<data name="cmDoc1FileProperties.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
vgAADr4B6kKxwAAAAHlJREFUOE+VkUEKwDAIBH1b/v+XtpdcWxbcoBKrEaYi6iSksos559tFV3ygMcYo
vAAADrwBlbxySQAAAHlJREFUOE+VkUEKwDAIBH1b/v+XtpdcWxbcoBKrEaYi6iSksos559tFV3ygMcYo
KQX39aS0BTzNciTIaAuQCesjQcYS4NPFSp2ARZV/b2Cbkd2ME6CwzUj7BhTFzBnUliXgYAaHdxy9gf5l
H2jwhCrrig80uuiKCZEPDBGoa/9+56EAAAAASUVORK5CYII=
</value>
@@ -1239,7 +1239,7 @@
<value>0, 0</value>
</data>
<data name="GridControlDocSearch.Size" type="System.Drawing.Size, System.Drawing">
<value>1201, 254</value>
<value>1201, 262</value>
</data>
<data name="GridControlDocSearch.TabIndex" type="System.Int32, mscorlib">
<value>7</value>
@@ -1257,7 +1257,7 @@
<value>0</value>
</data>
<data name="TabWindream.Size" type="System.Drawing.Size, System.Drawing">
<value>1201, 254</value>
<value>1201, 262</value>
</data>
<data name="TabWindream.Text" xml:space="preserve">
<value>Dateien</value>
@@ -1688,7 +1688,7 @@
<value>2</value>
</data>
<data name="TabFollowUp.Size" type="System.Drawing.Size, System.Drawing">
<value>1201, 254</value>
<value>1201, 252</value>
</data>
<data name="TabFollowUp.Text" xml:space="preserve">
<value>Wiedervorlage</value>
@@ -1790,7 +1790,7 @@
<value>5</value>
</data>
<data name="GridControl1.Size" type="System.Drawing.Size, System.Drawing">
<value>1201, 227</value>
<value>1201, 225</value>
</data>
<data name="GridControl1.TabIndex" type="System.Int32, mscorlib">
<value>90</value>
@@ -1862,7 +1862,7 @@
<value>1</value>
</data>
<data name="TabPageVariant.Size" type="System.Drawing.Size, System.Drawing">
<value>1201, 254</value>
<value>1201, 252</value>
</data>
<data name="TabPageVariant.Text" xml:space="preserve">
<value>Vorgängervarianten</value>
@@ -1889,7 +1889,7 @@
<value>0, 0</value>
</data>
<data name="TreeListDevexpress.Size" type="System.Drawing.Size, System.Drawing">
<value>1201, 254</value>
<value>1201, 252</value>
</data>
<metadata name="ImageCollection1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>301, 17</value>
@@ -1918,7 +1918,7 @@
<value>0</value>
</data>
<data name="XtraTabPage1.Size" type="System.Drawing.Size, System.Drawing">
<value>1201, 254</value>
<value>1201, 252</value>
</data>
<data name="XtraTabPage1.Text" xml:space="preserve">
<value>NodeNavigation(beta)</value>
@@ -1963,7 +1963,7 @@
<value>1</value>
</data>
<data name="SplitContainerMain.Size" type="System.Drawing.Size, System.Drawing">
<value>1203, 529</value>
<value>1203, 539</value>
</data>
<data name="SplitContainerMain.TabIndex" type="System.Int32, mscorlib">
<value>2</value>
@@ -1987,7 +1987,7 @@
<value>Fill</value>
</data>
<data name="SplitContainerFORM.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 158</value>
<value>0, 147</value>
</data>
<data name="SplitContainerFORM.Panel1.Text" xml:space="preserve">
<value>Panel1</value>
@@ -2020,7 +2020,7 @@
<value>1</value>
</data>
<data name="SplitContainerFORM.Size" type="System.Drawing.Size, System.Drawing">
<value>1203, 529</value>
<value>1203, 539</value>
</data>
<data name="SplitContainerFORM.TabIndex" type="System.Int32, mscorlib">
<value>4</value>
@@ -2109,7 +2109,7 @@
<data name="docCM_Showlinks.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
vgAADr4B6kKxwAAAAINJREFUOE9jQAbfvn37TwyGKscEIEknJye8mH4GfHj/EQWTbAAuPIRcgAsPRwO+
vAAADrwBlbxySQAAAINJREFUOE9jQAbfvn37TwyGKscEIEknJye8mH4GfHj/EQWTbAAuPIRcgAsPRwO+
f/+eABLEhX19ffEbABR4n5KSAlcA0rB582YwDRIHacAbjQ8ePABLgDSdPHny/5w5c8Ds5cuXg8VBYjDN
WA2AuQDZZphimAvwGkAoDLBhqFYgYGAAAFMd0furxZnJAAAAAElFTkSuQmCC
</value>
@@ -2162,7 +2162,7 @@
<data name="DateiVersionierenToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAAwAAAAMCAYAAABWdVznAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
vgAADr4B6kKxwAAAAFFJREFUKFOdj0EKACAIBH2b/3+P16JwRTQzWphD0dhKIjI81GU9YuZNlE/YD17A
vAAADrwBlbxySQAAAFFJREFUKFOdj0EKACAIBH2b/3+P16JwRTQzWphD0dhKIjI81GU9YuZNlE/YD17A
gEgp3EiCNq0DAeh1nS/BL9VxXBoDIibg8EKqpE3reLsXiCYgi0Ps3hQ2TwAAAABJRU5ErkJggg==
</value>
</data>
@@ -2242,7 +2242,7 @@
<data name="docCM_showGridSearch.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGOfPtRkwAAACBjSFJNAAB6
JQAAgIMAAPn/AACA6QAAdTAAAOpgAAA6mAAAF2+SX8VGAAAACXBIWXMAAAsOAAALDgFAvuFBAAAC+klE
JQAAgIMAAPn/AACA6QAAdTAAAOpgAAA6mAAAF2+SX8VGAAAACXBIWXMAAAsMAAALDAE/QCLIAAAC+klE
QVQ4T42S+0+TZxiG+V/MYkycidHpNP7gIaTooAbQDwsC4qilHMqhYC1yKNKPOhmjtANKELSVTSbBMVo/
goeI4AFD0GWZAw8YNZxMLZiJqQf0sq/LPlyyLPvhfvIm73tfb57nuaMAVaX1yvqIZGtdYKjcpczbm/uf
H6rzX805csZmtHWu/fTt31IPZQ19eRVu5YFvcIgLD0ZRJvvwTVRRoBiQ5BNklvrG9WWnDJ+ahT6Ww04l
@@ -2289,7 +2289,7 @@
<value>Ansicht zurücksetzen</value>
</data>
<data name="ContextMenuStripResultFiles.Size" type="System.Drawing.Size, System.Drawing">
<value>256, 542</value>
<value>256, 520</value>
</data>
<data name="&gt;&gt;ContextMenuStripResultFiles.Name" xml:space="preserve">
<value>ContextMenuStripResultFiles</value>
@@ -3085,13 +3085,13 @@
<value>Funktionen</value>
</data>
<data name="RibbonControl1.Size" type="System.Drawing.Size, System.Drawing">
<value>1203, 158</value>
<value>1203, 147</value>
</data>
<data name="RibbonStatusBar1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 687</value>
<value>0, 686</value>
</data>
<data name="RibbonStatusBar1.Size" type="System.Drawing.Size, System.Drawing">
<value>1203, 22</value>
<value>1203, 23</value>
</data>
<data name="&gt;&gt;RibbonStatusBar1.Name" xml:space="preserve">
<value>RibbonStatusBar1</value>

318
app/DD-Record-Organizer/frmConstructor_Main.vb
View File

@@ -268,7 +268,7 @@ Public Class frmConstructor_Main
Private Sub Load_Configurable_Nodes()
Try
Dim oSql = String.Format("SELECT * FROM TBPMO_STRUCTURE_NODES_CONFIGURATION where TYPE_NODE = 1000 AND ENTITY_ID IN (SELECT FORM_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = {0})", CONSTRUCTORID)
NODE_CONFIGURABLE_NODES_DT = ClassDatabase.Return_Datatable(oSql, False)
NODE_CONFIGURABLE_NODES_DT = MYDB_ECM.GetDatatable(oSql)
Catch ex As Exception
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, "Error in Load_Configurable_Nodes")
End Try
@@ -276,7 +276,7 @@ Public Class frmConstructor_Main
Sub Load_Adding_users()
Try
Dim oSql = String.Format("SELECT * FROM TBPMO_ENTITY_USERRIGHT_ADDING where ENTITY_ID IN (SELECT FORM_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = {0})", CONSTRUCTORID)
DT_ADDING_USERS = ClassDatabase.Return_Datatable(oSql, False)
DT_ADDING_USERS = MYDB_ECM.GetDatatable(oSql)
Catch ex As Exception
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, "Error in Load_Adding_users")
End Try
@@ -314,16 +314,16 @@ Public Class frmConstructor_Main
If LICENSE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then
SQL = "SELECT * FROM TBPROXY_SYNC_ENTITY"
DT_PROXY_ENTITY = ClassDatabase.Return_Datatable(SQL, True)
DT_PROXY_ENTITY = MYDB_ECM.GetDatatable(SQL)
End If
ClassWindowLocation.LoadFormLocationSize(Me, CONSTRUCTORID, CURRENT_SCREEN_ID, "CONSTRUCTOR_MAIN")
' VWPMO_WF_USER_ACTIVETableAdapter.Connection.ConnectionString = MyConnectionString
' VWPMO_WF_USER_ACTIVETableAdapter.Connection.ConnectionString = MYDB_ECM.CurrentConnectionString
ClassWorkflow.Refresh_Workflows_Entity()
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 = {2} AND CONSTRUCT_ID = {3} ORDER BY SEQUENCE", USER_LANGUAGE, CURRENT_SCREEN_ID, CURRENT_SCREEN_ID, CONSTRUCTORID)
DT_VWPMO_CONSTRUCTOR_FORMS = ClassDatabase.Return_Datatable(SQL, True)
DT_VWPMO_CONSTRUCTOR_FORMS = MYDB_ECM.GetDatatable(SQL)
Catch ex As System.Exception
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, "Error in Loading Form part 1")
End Try
@@ -360,7 +360,7 @@ Public Class frmConstructor_Main
End If
End If
CURRENT_DT_TBPMO_ENTITY_RIGHT_CONTROLS = ClassDatabase.Return_Datatable(String.Format("SELECT T.* FROM TBPMO_ENTITY_RIGHT_CONTROLS T INNER JOIN VWPMO_CONSTRUCTOR_FORMS T1 ON T.ENTITY_ID = T1.FORM_ID where T1.CONSTRUCT_ID = {0}", CONSTRUCTORID), False)
CURRENT_DT_TBPMO_ENTITY_RIGHT_CONTROLS = MYDB_ECM.GetDatatable(String.Format("SELECT T.* FROM TBPMO_ENTITY_RIGHT_CONTROLS T INNER JOIN VWPMO_CONSTRUCTOR_FORMS T1 ON T.ENTITY_ID = T1.FORM_ID where T1.CONSTRUCT_ID = {0}", CONSTRUCTORID))
Load_Adding_users()
Load_Configurable_Nodes()
@@ -370,7 +370,7 @@ Public Class frmConstructor_Main
End Try
Try
SQL = String.Format("select T.* from VWPMO_STRUCTURE_NODES T INNER JOIN VWPMO_CONSTRUCTOR_FORMS T1 ON T.ENTITY_ID = T1.FORM_ID WHERE T1.CONSTRUCT_ID = {0}", CONSTRUCTORID)
Dim DT As DataTable = ClassDatabase.Return_Datatable(SQL, True)
Dim DT As DataTable = MYDB_ECM.GetDatatable(SQL)
If DT.Rows.Count >= 1 Then
LOGGER.Info($"There are [{DT.Rows.Count}] NODES.....")
TreeView_perControl = True
@@ -406,7 +406,7 @@ Public Class frmConstructor_Main
DT_TREEVIEW_NODES_FIRST = ClassHelper.FILTER_DATATABLE(DT, "EXPAND_NODE = 1", "")
SQL = String.Format("select T.* from TBPMO_STRUCTURE_NODES_CONFIGURATION T INNER JOIN VWPMO_CONSTRUCTOR_FORMS T1 ON T.ENTITY_ID = T1.FORM_ID WHERE T1.CONSTRUCT_ID = {0}", CONSTRUCTORID)
DT_TREEVIEW_CONFIGURATION = ClassDatabase.Return_Datatable(SQL)
DT_TREEVIEW_CONFIGURATION = MYDB_ECM.GetDatatable(SQL)
LOGGER.Debug($"DT_TREEVIEW_CONFIGURATION-Count: {DT_TREEVIEW_CONFIGURATION.Rows.Count}")
Try
TREEVIEW_IMAGELIST = New ImageList
@@ -460,13 +460,13 @@ Public Class frmConstructor_Main
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, "Error in Loading Form part 3")
End Try
Try
DT_CONSTRUCT_VIEW = ClassDatabase.Return_Datatable("SELECT * FROM TBPMO_FORM_CONSTRUCTOR WHERE GUID = " & CONSTRUCTORID)
DT_CONSTRUCT_VIEW = MYDB_ECM.GetDatatable("SELECT * FROM TBPMO_FORM_CONSTRUCTOR WHERE GUID = " & CONSTRUCTORID)
Dim SEL1 = String.Format("SELECT * FROM TBPMO_FORM WHERE GUID IN (SELECT FORM_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE SCREEN_ID = {0} AND CONSTRUCT_ID = {1})", CURRENT_SCREEN_ID, CONSTRUCTORID)
DT_ENTITY_DATA = ClassDatabase.Return_Datatable(SEL1, True)
DT_ENTITY_DATA = MYDB_ECM.GetDatatable(SEL1)
SEL1 = String.Format("SELECT *, dbo.FNPMO_GET_CONTROL_CAPTION ('{0}', 1, CONTROL_ID) AS 'CAPTION' FROM VWPMO_CONTROL_SCREEN", USER_LANGUAGE)
DT_VWPMO_CONTROL_SCREEN = ClassDatabase.Return_Datatable(SEL1, True)
DT_CONTROL_SCREEN_SHOW_COL_0 = ClassHelper.FILTER_DATATABLE(DT_VWPMO_CONTROL_SCREEN, "CONTROL_SHOW_COLUMN = 0", "") 'ClassDatabase.Return_Datatable("SELECT FORM_ID, CONTROL_ID, CONTROL_COL_NAME, CONTROL_SHOW_COLUMN FROM VWPMO_CONTROL_SCREEN WHERE CONTROL_SHOW_COLUMN = 0", True)
DT_VWPMO_CONTROL_SCREEN = MYDB_ECM.GetDatatable(SEL1)
DT_CONTROL_SCREEN_SHOW_COL_0 = ClassHelper.FILTER_DATATABLE(DT_VWPMO_CONTROL_SCREEN, "CONTROL_SHOW_COLUMN = 0", "")
If DT_CONSTRUCT_VIEW.Rows.Count = 1 Then
'Load Input Grid
Me.Text = DT_CONSTRUCT_VIEW.Rows(0).Item("FORM_TITLE")
@@ -477,7 +477,7 @@ Public Class frmConstructor_Main
"FROM TBPMO_WORKFLOW T,TBPMO_WORKFLOW_ENTITY_STATE T1 " &
"WHERE T.GUID = T1.WF_ID " &
"GROUP BY T1.ENTITY_ID,T.GUID,T.TITLE,T.MANUALLY,T.CREATE_ON_REC_CREATE,T.CREATE_ON_FOLL_UP"
DT_WORKFLOWS_MANUAL = ClassDatabase.Return_Datatable(sql_ResultList)
DT_WORKFLOWS_MANUAL = MYDB_ECM.GetDatatable(sql_ResultList)
FORM_LOADED = True
sw.Done()
@@ -1059,7 +1059,7 @@ Public Class frmConstructor_Main
End If
CURRENT_RECORD_ID = RECID
CURRENT_SEARCH_TYPE = "RECORD"
ClassHelper.GetDocrecordLinks(CURRENT_RECORD_ID)
If RECID = RECORD_ID And ENTITY_RECORD_COUNT > 1 And _refresh = False And ERROR_WHILE_SAVING = False Then
Exit Sub
End If
@@ -1729,7 +1729,7 @@ Public Class frmConstructor_Main
Dim TYPE_ID1 As Integer
If a = 0 Then
Dim sql As String = "SELECT PARENT_ID, FORM_TYPE_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & ClassNodeNavigation.Return_ENTITY_FOR_TAG(childNodeLevel1.Tag) & " AND SCREEN_ID = " & CURRENT_SCREEN_ID
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql, True)
Dim DT As DataTable = MYDB_ECM.GetDatatable(sql)
PARENT_ID1 = DT.Rows(0).Item(0)
TYPE_ID1 = DT.Rows(0).Item(1)
End If
@@ -1803,8 +1803,7 @@ Public Class frmConstructor_Main
End Select
'Dim DT2 As DataTable = ClassDatabase.Return_Datatable(_sql, "ReturnAmountofRecords 1")
Dim count As Integer = ClassDatabase.Execute_Scalar(SQL, True)
Dim count As Integer = MYDB_ECM.GetScalarValue(SQL)
Return count
End Function
@@ -1838,9 +1837,9 @@ Public Class frmConstructor_Main
Dim expression = "[Record-ID] = " & RecordId
Dim resultDT As DataTable
If CtrlCommandUI.IsInsert = True Then
resultDT = ClassDatabase.Return_Datatable(SQL)
resultDT = MYDB_ECM.GetDatatable(SQL)
Else
resultDT = ClassDatabase.Return_Datatable(SQL, True)
resultDT = MYDB_ECM.GetDatatable(SQL)
End If
@@ -1949,7 +1948,7 @@ Public Class frmConstructor_Main
Try
Dim sql
sql = "select * from VWPMO_ENTITY_TABLE" & PARENT_ENTITYID.ToString
CURRENT_PARENT_DT = ClassDatabase.Return_Datatable(sql, True)
CURRENT_PARENT_DT = MYDB_ECM.GetDatatable(sql)
frmChooseParentRecord.ShowDialog()
If CURRENT_PARENT_RECORD_ID = 0 Then
MsgBox("No Parent-Record selected. Adding will be terminated.", MsgBoxStyle.Exclamation)
@@ -2104,6 +2103,7 @@ Public Class frmConstructor_Main
SELECTED_RECORD_ID = recid
RECORD_ID = recid
CURRENT_RECORD_ID = RECORD_ID
ClassHelper.GetDocrecordLinks(CURRENT_RECORD_ID)
If RECORD_ID = 0 Then
ClassHelper.MSGBOX_Handler("ERROR", "Attention:", "No Current row selected")
Me.Cursor = Cursors.Default
@@ -2131,8 +2131,7 @@ Public Class frmConstructor_Main
'Show_Verknuepfungen()
End If
End Select
'Dim exec = String.Format("EXEC PRPMO_CLIENT_AFTER_RECORD_INSERT {0}", CURRENT_RECORD_ID)
'ClassDatabase.Execute_non_Query_withConn(exec, 1)
ElseIf EDIT_STATE = EditState.Update Then
'Weil es ein Insert war müssen noch die Daten gespeichert/erneuert werden
Select Case ACT_EBENE
@@ -2235,14 +2234,14 @@ Public Class frmConstructor_Main
msg = "Are You sure You want to delete the selected record '" & SELECTED_RECORD_ID.ToString & "'?"
End If
Dim result As MsgBoxResult
result = MessageBox.Show(msg, "Confirmation:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
result = MessageBox.Show(msg, CAPTION_CONFIRMATION, MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = MsgBoxResult.Yes Then
RECORD_ID = SELECTED_RECORD_ID
ClassRightManagement.Check_Set_Rights(RECORD_ID, ENTITY_ID)
CONTROL_HANDLING()
Dim sql = String.Format("select TRL.DOC_ID, TDRL.FULL_FILENAME FROM TBPMO_DOC_RECORD_LINK TRL INNER JOIN TBPMO_DOCRESULT_LIST TDRL ON TRL.DOC_ID = TDRL.DocID WHERE TRL.RECORD_ID = {0}", RECORD_ID)
Dim DT_DOC_RESULT As DataTable = DD_LIB_Standards.clsDatabase.Return_Datatable(sql, False)
Dim DT_DOC_RESULT As DataTable = MYDB_ECM.GetDatatable(sql)
If IsNothing(DT_DOC_RESULT) Then
LOGGER.Warn("DT_DOC_RESULT is nothing!")
@@ -2340,7 +2339,7 @@ Public Class frmConstructor_Main
CURRENT_CHANGE_STEP += 1
Dim del = String.Format("DELETE FROM TBPMO_CONTROL_VALUE_CHANGE_HISTORY WHERE UPPER(ADDED_WHO) = '{0}'", USER_USERNAME.ToUpper)
ClassDatabase.Execute_non_Query(del)
MYDB_ECM.ExecuteNonQuery(del)
Lock_RecordControls(False)
Me.tsButtonAdd.Enabled = False
Me.tsButtonSave.Enabled = True
@@ -2357,6 +2356,7 @@ Public Class frmConstructor_Main
End If
CURRENT_RECORD_ID = RECORD_ID
ClassHelper.GetDocrecordLinks(CURRENT_RECORD_ID)
CtrlCommandUI.IsEdit = True
' Abhängige Listen laden
CtrlBuilder.WatchRecordChanges = False
@@ -2479,7 +2479,7 @@ Public Class frmConstructor_Main
Dim sql
'Dim sql = "SELECT CONTROL_ID, CONTROL_READ_ONLY FROM VWPMO_CONTROL_SCREEN WHERE CTRLTYPE_ID NOT IN (1) AND CONTROL_ENTITY_ID = " & ENTITY_ID
DT_CONTROLS_ENTITY = ClassHelper.FILTER_DATATABLE(DT_VWPMO_CONTROL_SCREEN, "CTRLTYPE_ID NOT IN (1) AND CONTROL_ENTITY_ID = " & ENTITY_ID, "")
'ClassDatabase.Return_Datatable(sql, True)
'MYDB_ECM.GetDatatable(sql)
COUNT_RO_CONTROLS = 0
@@ -2521,7 +2521,7 @@ Public Class frmConstructor_Main
Dim GEODATA As Boolean = False
sql = String.Format("SELECT COUNT(*) FROM TBPMO_RECORD_GEODATA WHERE RECORD_ID IN (SELECT GUID FROM TBPMO_RECORD WHERE PARENT_RECORD = 0 AND FORM_ID = {0})", ENTITY_ID)
Dim count = ClassDatabase.Execute_Scalar(sql, True)
Dim count = MYDB_ECM.GetScalarValue(sql)
If count > 0 Then
GEODATA = True
Else
@@ -2544,13 +2544,13 @@ Public Class frmConstructor_Main
End If
expression = String.Format("ENTITY_ID = {0} AND LANGUAGE = '{1}'", ENTITY_ID, USER_LANGUAGE)
DT_WINDREAM_COLUMNS_GRID = ClassHelper.FILTER_DATATABLE(CURRENT_RESULTLIST_CONFIG, expression, "SEQUENCE")
DT_WINDREAM_COLUMNS_GRID = ClassHelper.FILTER_DATATABLE(DT_DOCSEARCH_RESULTLIST_CONFIG, expression, "SEQUENCE")
expression = String.Format("ENTITY_ID = {0} AND TYPE_ID = 10 AND LANGUAGE = '{1}'", ENTITY_ID, USER_LANGUAGE)
DT_DOCRESULT_DROPDOWN_ITEMS = ClassHelper.FILTER_DATATABLE(CURRENT_TBPMO_DOCRESULT_DROPDOWN_ITEMS, expression, "SEQUENCE")
DT_RESULTLIST_OPTIONS = ClassHelper.FILTER_DATATABLE(CURRENT_VARIABLE_CONTROLS, "ENTITY_ID = " & ENTITY_ID, "")
expression = String.Format("ENTITY_ID = {0} AND LANGUAGE = '{1}' AND COLUMN_VIEW LIKE 'VALUE%'", ENTITY_ID, USER_LANGUAGE)
DT_RESULTLIST_VARIABLE_VALUE = ClassHelper.FILTER_DATATABLE(CURRENT_RESULTLIST_CONFIG, expression, "SEQUENCE")
DT_RESULTLIST_VARIABLE_VALUE = ClassHelper.FILTER_DATATABLE(DT_DOCSEARCH_RESULTLIST_CONFIG, expression, "SEQUENCE")
Dim ENTITY_ROW = (From form In DT_ENTITY_DATA.AsEnumerable()
Select form
Where form.Item("GUID") = ENTITY_ID).Single()
@@ -2569,15 +2569,15 @@ Public Class frmConstructor_Main
DT_RIGHTS_USER = ClassHelper.FILTER_DATATABLE(CURRENT_TBPMO_RIGHT_USER, "ENTITY_ID = " & ENTITY_ID, "")
expression = String.Format("")
sql = String.Format("SELECT DISTINCT EDIT_REC,ADD_REC,DELETE_REC,ADD_DOC,VIEW_DOC,DELETE_DOC FROM TBPMO_RIGHT_GROUP WHERE ENTITY_ID = {0} AND GROUP_ID IN (SELECT GROUP_ID FROM TBDD_GROUPS_USER WHERE USER_ID = {1})", ENTITY_ID, USER_GUID)
DT_RIGHTS_GROUP = ClassDatabase.Return_Datatable(sql, True)
DT_RIGHTS_GROUP = MYDB_ECM.GetDatatable(sql)
If VIEW_ID_RUNTIME <> -1 Then
GRID_TYPE_ID = VIEW_ID_RUNTIME
Else
sql = String.Format("SELECT VIEW_ID FROM TBPMO_USER_CONSTR_VIEW_TYPE WHERE CONSTRUCTOR_DETAIL_ID = {0} AND [ENTITY_ID] = {1} AND USER_ID = {2}", CURRENT_CONSTRUCTOR_DETAIL_ID, ENTITY_ID, USER_GUID)
Dim VIEW_ID = ClassDatabase.Execute_Scalar(sql, True)
Dim VIEW_ID = MYDB_ECM.GetScalarValue(sql)
If IsNothing(VIEW_ID) Then
ClassDatabase.Execute_non_Query("INSERT INTO TBPMO_USER_CONSTR_VIEW_TYPE ([USER_ID],CONSTRUCTOR_DETAIL_ID,[ENTITY_ID]) VALUES (" & USER_GUID & "," & CURRENT_CONSTRUCTOR_DETAIL_ID & "," & ENTITY_ID & ")")
MYDB_ECM.ExecuteNonQuery("INSERT INTO TBPMO_USER_CONSTR_VIEW_TYPE ([USER_ID],CONSTRUCTOR_DETAIL_ID,[ENTITY_ID]) VALUES (" & USER_GUID & "," & CURRENT_CONSTRUCTOR_DETAIL_ID & "," & ENTITY_ID & ")")
VIEW_ID = 1
End If
GRID_TYPE_ID = VIEW_ID
@@ -2615,7 +2615,7 @@ Public Class frmConstructor_Main
CURRENT_ENTITYSQL = Get_Grid_Sql(CONSTRUCTORID, ENTITY_ID, CURRENT_CONSTRUCTOR_DETAIL_ID, GRID_TYPE, USER_GUID, QuickViewSQL, IS_SINGLE_RECORD, FORM_TYPE, VIEW_ID, GridControlMain, grvwGrid)
' CURRENT_ENTITYSQL = GridSQL
'Anzahl der Datensätze
ENTITY_RECORD_COUNT = ClassDatabase.Execute_Scalar("SELECT COUNT(*) FROM TBPMO_RECORD where PARENT_RECORD = 0 AND FORM_ID = " & ENTITY_ID, True)
ENTITY_RECORD_COUNT = MYDB_ECM.ExecuteNonQuery("SELECT COUNT(*) FROM TBPMO_RECORD where PARENT_RECORD = 0 AND FORM_ID = " & ENTITY_ID)
If CBool(LOAD_ENTITY_SEARCH_AT_STARTUP) = True Then
ClassDOC_SEARCH.Get_DOC_RESULTTABLE(DT_RESULTLIST_OPTIONS, DT_RESULTLIST_VARIABLE_VALUE, DT_WINDREAM_COLUMNS_GRID, ENTITY_ID, RECORD_ID, True, True)
@@ -2732,7 +2732,6 @@ Public Class frmConstructor_Main
DT_TBPMO_FORM_VIEW = ClassHelper.FILTER_DATATABLE(CURRENT_TBPMO_FORM_VIEW, "FORM_ID = " & ENTITY_ID & " AND SCREEN_ID = " & CURRENT_SCREEN_ID, "")
CURRENT_ENTITYSTRING = DT_TBPMO_FORM_VIEW.Rows(0).Item("FORM_TITLE")
'ClassDatabase.Return_Datatable("SELECT * FROM TBPMO_FORM_VIEW WHERE FORM_ID = " & ENTITY_ID & " AND SCREEN_ID = " & CURRENT_SCREEN_ID, True)
act_FormViewID = DT_TBPMO_FORM_VIEW.Rows(0).Item("GUID")
@@ -2813,7 +2812,7 @@ Public Class frmConstructor_Main
Dim DT_AUTOVALUES = ClassHelper.FILTER_DATATABLE(CURRENT_TBPMO_CONTROL, "CONNECTION_ID_1 > 0 AND SQL_COMMAND_1 <> '' AND FORM_ID = " & ENTITY_ID, "")
'Dim DT_AUTOVALUES As DataTable = ClassDatabase.Return_Datatable(SQL_AutoValues, True)
CURRENT_SQL_AUTO_VALUES_DT = DT_AUTOVALUES
If USER_WAN = True Then
@@ -2961,7 +2960,7 @@ Public Class frmConstructor_Main
Sub Load_Entity_Data_Only()
Try
ENTITY_LOADING_PROCESS = False
Dim DTEntity As DataTable = ClassDatabase.Return_Datatable(CURRENT_ENTITYSQL, True)
Dim DTEntity As DataTable = MYDB_ECM.GetDatatable(CURRENT_ENTITYSQL)
Dim primaryKey(1) As DataColumn
primaryKey(0) = DTEntity.Columns("Record-ID")
DTEntity.PrimaryKey = primaryKey
@@ -3151,7 +3150,7 @@ Public Class frmConstructor_Main
Private Function GET_GROUP_OR_SINGLE_RECORD(PARENT_RECORD_ID As Integer, Entityload As Boolean)
'Dim sqlRecord As String = String.Format("SELECT T.RECORD2_ID FROM TBPMO_RECORD_CONNECT T, TBPMO_RECORD T1 WHERE T.RECORD2_ID = T1.GUID AND T.RECORD1_ID = {0} AND T1.ENTITY_ID = (SELECT PARENT_ID FROM TBPMO_FORM WHERE GUID = {1})", LINKED_RECORD, ENTITY_ID)
Dim sql As String = String.Format("SELECT T.RECORD2_ID FROM TBPMO_RECORD_CONNECT T, TBPMO_RECORD T1 WHERE T.RECORD2_ID = T1.GUID AND T.RECORD1_ID = {0} and T1.FORM_ID = {1}", PARENT_RECORD_ID, ENTITY_ID)
Dim GRP_SINGLE_REC = ClassDatabase.Execute_Scalar(sql, True)
Dim GRP_SINGLE_REC = MYDB_ECM.GetScalarValue(sql)
If IsNothing(GRP_SINGLE_REC) Then
Dim recordId = ClassRecordCommands.CreateRecordProcedure(ENTITY_ID)
@@ -3206,7 +3205,7 @@ Public Class frmConstructor_Main
Select Case ACT_EBENE
Case 2
Dim sql As String = String.Format("SELECT T.RECORD2_ID FROM TBPMO_RECORD_CONNECT T, TBPMO_RECORD T1 WHERE T.RECORD2_ID = T1.GUID AND T.RECORD1_ID = {0} and T1.FORM_ID = {1}", RECORDID, ENTITY_ID)
Dim PARENT_RECORD1 = ClassDatabase.Execute_Scalar(sql, True)
Dim PARENT_RECORD1 = MYDB_ECM.GetScalarValue(sql)
If IsNothing(PARENT_RECORD1) Then
Dim New_Record = ClassRecordCommands.GetLastRecord
If Not IsNothing(New_Record) Then
@@ -3221,10 +3220,10 @@ Public Class frmConstructor_Main
Return PARENT_RECORD1
End If
Case 3
Dim Parent_EntityID = ENTITY_ROW.Item("PARENT_ID") 'ClassDatabase.Execute_Scalar(sqlp, True)
Dim Parent_EntityID = ENTITY_ROW.Item("PARENT_ID")
Dim sql As String = String.Format("SELECT T.RECORD2_ID FROM TBPMO_RECORD_CONNECT T, TBPMO_RECORD T1 WHERE T.RECORD2_ID = T1.GUID AND T.RECORD1_ID = (SELECT T.RECORD2_ID FROM TBPMO_RECORD_CONNECT T, TBPMO_RECORD T1 WHERE " &
"T.RECORD2_ID = T1.GUID AND T.RECORD1_ID = {0} and T1.FORM_ID = {1}) and T1.FORM_ID = {2}", RECORDID, Parent_EntityID, ENTITY_ID)
Dim PARENT_RECORD2 = ClassDatabase.Execute_Scalar(sql, True)
Dim PARENT_RECORD2 = MYDB_ECM.GetScalarValue(sql)
If IsNothing(PARENT_RECORD2) Then
Dim New_Record = ClassRecordCommands.GetLastRecord
If Not IsNothing(New_Record) Then
@@ -3309,7 +3308,7 @@ Public Class frmConstructor_Main
foundRowsLevel0 = DT_CONTROL_SCREEN_SHOW_COL_0.Select(expression)
Dim i As Integer
' Dim DT As DataTable = ClassDatabase.Return_Datatable(SQL)
If GRID_TYPE = GridType.Grid Then
Dim cols As DevExpress.XtraGrid.Columns.GridColumnCollection = grvwGrid.Columns
@@ -3348,7 +3347,7 @@ Public Class frmConstructor_Main
Sub HideColumns_Pos(EntityID As Integer)
Try
'Dim SQL As String = "SELECT CONTROL_ID, CONTROL_COL_NAME, CONTROL_SHOW_COLUMN FROM VWPMO_CONTROL_SCREEN WHERE CONTROL_SHOW_COLUMN = 0 AND FORM_ID = " & EntityID
Dim DT As DataTable = ClassHelper.FILTER_DATATABLE(DT_VWPMO_CONTROL_SCREEN, "CONTROL_SHOW_COLUMN = 0 AND FORM_ID = " & EntityID, "") 'ClassDatabase.Return_Datatable(SQL, True)
Dim DT As DataTable = ClassHelper.FILTER_DATATABLE(DT_VWPMO_CONTROL_SCREEN, "CONTROL_SHOW_COLUMN = 0 AND FORM_ID = " & EntityID, "") 'MYDB_ECM.GetDatatable(sql)
Dim cols As DevExpress.XtraGrid.Columns.GridColumnCollection = grvwGridPos.Columns
If DT.Rows.Count <> 0 Then
@@ -3397,7 +3396,7 @@ Public Class frmConstructor_Main
If linkedRecord > 0 Then
Dim Parent_EntityID = ENTITY_ROW.Item("PARENT_ID")
Dim sql As String = String.Format("SELECT T.RECORD2_ID FROM TBPMO_RECORD_CONNECT T, TBPMO_RECORD T1 WHERE T.RECORD2_ID = T1.GUID AND T.RECORD1_ID = {0} and T1.FORM_ID = {1}", RECORD_ID, Parent_EntityID)
Dim PARENT_RECORD1 = ClassDatabase.Execute_Scalar(sql, True)
Dim PARENT_RECORD1 = MYDB_ECM.GetScalarValue(sql)
EBENE2_RECID = PARENT_RECORD1
PARENT_RECORDID = PARENT_RECORD1
@@ -3470,7 +3469,7 @@ Public Class frmConstructor_Main
TabWindream.Text = stg
End If
Dim sel = String.Format("SELECT * FROM TBPMO_RECORD WHERE RECORD_ENTITY_ID = (SELECT RECORD_ENTITY_ID FROM TBPMO_RECORD WHERE GUID = {0}) AND FORM_ID = {1} AND GUID <> {2} AND DELETED = 0", SELECTED_RECORD_ID, ENTITY_ID, SELECTED_RECORD_ID)
Dim DT_VARIANT As DataTable = ClassDatabase.Return_Datatable(sel, True)
Dim DT_VARIANT As DataTable = MYDB_ECM.GetDatatable(sel)
If DT_VARIANT.Rows.Count > 0 Then
TabPageVariant.PageVisible = True
Dim msg = "Vorgängervarianten"
@@ -3548,7 +3547,7 @@ Public Class frmConstructor_Main
If POS_ENTITY > 0 Then
Get_Pos_SQL(POS_ENTITY)
POS_SQL = POS_SQL.Replace("@PARENT_ID", PARENT_RECORDID)
Dim DT_POS As DataTable = ClassDatabase.Return_Datatable(POS_SQL, True)
Dim DT_POS As DataTable = MYDB_ECM.GetDatatable(POS_SQL)
Clear_GridPos_View()
If Not IsNothing(DT_POS) Then
@@ -3615,7 +3614,7 @@ Public Class frmConstructor_Main
End Function
Private Sub Refresh_FollowUp_TabHeader()
Try
DT_FU_Record = ClassDatabase.Return_Datatable("select * from VWPMO_FOLLOW_UP_EMAIL_ENTITY_RECORD where Record_ID = " & RECORD_ID)
DT_FU_Record = MYDB_ECM.GetDatatable("select * from VWPMO_FOLLOW_UP_EMAIL_ENTITY_RECORD where Record_ID = " & RECORD_ID)
Dim msg As String = "Wiedervorlage (Nicht Abrufbar)"
If USER_LANGUAGE <> "de-DE" Then
msg = "Follow Up - (Not accessable)"
@@ -3676,14 +3675,14 @@ Public Class frmConstructor_Main
Private Sub Customer_Run_Procedures()
Try
Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBPMO_RUN_PROCEDURES WHERE FORM_ID = " & ENTITY_ID)
Dim DT As DataTable = MYDB_ECM.GetDatatable("SELECT * FROM TBPMO_RUN_PROCEDURES WHERE FORM_ID = " & ENTITY_ID)
If Not DT Is Nothing Then
For Each row As DataRow In DT.Rows
Dim prsql As String = row.Item("EXECUTE_COMMAND")
prsql = prsql.ToUpper.Replace("@FORM_ID", ENTITY_ID)
prsql = prsql.ToUpper.Replace("@ENTITY_ID", ENTITY_ID)
prsql = prsql.ToUpper.Replace("@RECORD_ID", RECORD_ID)
ClassDatabase.Execute_non_Query(prsql)
MYDB_ECM.ExecuteNonQuery(prsql)
Next
End If
Catch ex As Exception
@@ -3695,7 +3694,6 @@ Public Class frmConstructor_Main
Private Sub Check_windream_Show(FORM_VIEW_ID As Integer)
Try
'Dim DTWD As DataTable = ClassDatabase.Return_Datatable(sql)
Dim wdsearch = DT_TBPMO_FORM_VIEW.Rows(0).Item("DOCUMENT_VIEW")
If CBool(wdsearch) = False Then
windream_Docshow = False
@@ -3744,7 +3742,7 @@ Public Class frmConstructor_Main
msg = "Do You want to delete the related files (" & DT_RESULT.Rows.Count.ToString & ")?"
End If
Dim result1 As MsgBoxResult
result1 = MessageBox.Show(msg, "Confirmation:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
result1 = MessageBox.Show(msg, CAPTION_CONFIRMATION, MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result1 = MsgBoxResult.Yes Then
For Each row As DataRow In DT_RESULT.Rows
Dim DOC_ID = row.Item(0)
@@ -3755,7 +3753,7 @@ Public Class frmConstructor_Main
path = row.Item(1)
End Try
If Not IsNothing(path) Then
Dim Count As Integer = ClassDatabase.Execute_Scalar("SELECT COUNT(GUID) FROM TBPMO_DOC_RECORD_LINK WHERE DOC_ID = " & DOC_ID, True)
Dim Count As Integer = MYDB_ECM.GetScalarValue("SELECT COUNT(GUID) FROM TBPMO_DOC_RECORD_LINK WHERE DOC_ID = " & DOC_ID)
If Count > 1 Then
msg = "Diese Datei ist noch mit anderen Datensätzen verknüpft! Lediglich die Verknüpfung zum aktuellen Datensatz wird gelöscht!"
If USER_LANGUAGE <> "de-DE" Then
@@ -3795,7 +3793,7 @@ Public Class frmConstructor_Main
Dim sw As New SW("RUN_ENTITY_DOC_SEARCH")
Try
Dim oSQL = $"SELECT ENTITY_DOC_SEARCH FROM TBPMO_FORM WHERE GUID = {ENTITY_ID}"
CURRENT_DOCSEARCH_SQL = ClassDatabase.Execute_Scalar(oSQL, True)
CURRENT_DOCSEARCH_SQL = MYDB_ECM.ExecuteNonQuery(oSQL)
If CURRENT_DOCSEARCH_SQL <> String.Empty Then
Dim oText = $"Die Entität-weite Suche wird im Hintergrund ausgeführt und angezeigt sobald sie fertig ist."
If USER_LANGUAGE <> "de-De" Then
@@ -4042,7 +4040,7 @@ Public Class frmConstructor_Main
Dim user As String = USER_USERNAME
Dim Sql As String = String.Format("EXEC PRPMO_DOC_VALUE_UPD_INS {0}, {1}, {2}, '{3}', '{4}'", docId, RECORD_ID, configId, value, user)
If ClassDatabase.Execute_non_Query(Sql) = False Then
If MYDB_ECM.ExecuteNonQuery(Sql) = False Then
MsgBox("The Update-Command was not successful! Check the log!",, MsgBoxStyle.Critical)
Else
ClassProxy.PRPROXY_DOC_VALUES_UPD(docId, RECORD_ID)
@@ -4091,7 +4089,7 @@ Public Class frmConstructor_Main
Dim dateString = value.ToString("yyyy-MM-dd") 'hh:mm:ss.fff
Dim Sql As String = String.Format("EXEC PRPMO_DOC_VALUE_UPD_INS {0}, {1}, {2}, '{3}', '{4}'", docId, RECORD_ID, configid, dateString, user)
If ClassDatabase.Execute_non_Query(Sql) = False Then
If MYDB_ECM.ExecuteNonQuery(Sql) = False Then
ClassHelper.MSGBOX_Handler("ERROR", "UnexpectedError:", "Error updating doc-metadata (date): " & vbNewLine & "Check the log for further information!")
Else
ClassProxy.PRPROXY_DOC_VALUES_UPD(docId, RECORD_ID)
@@ -4125,7 +4123,7 @@ Public Class frmConstructor_Main
Dim user As String = USER_USERNAME
Dim Sql As String = String.Format("EXEC PRPMO_DOC_VALUE_UPD_INS {0}, {1}, {2},'{3}','{4}'", docId, RECORD_ID, configid, value, user)
If ClassDatabase.Execute_non_Query(Sql) = False Then
If MYDB_ECM.ExecuteNonQuery(Sql) = False Then
ClassHelper.MSGBOX_Handler("ERROR", "UnexpectedError:", "Error updating doc-metadata (textbox): " & vbNewLine & "Check the log for further information!")
Else
ClassProxy.PRPROXY_DOC_VALUES_UPD(docId, RECORD_ID)
@@ -4155,7 +4153,7 @@ Public Class frmConstructor_Main
Dim user As String = USER_USERNAME
Dim Sql As String = String.Format("EXEC PRPMO_DOC_VALUE_UPD_INS {0}, {1}, {2},'{3}','{4}'", docId, RECORD_ID, configid, value, user)
If ClassDatabase.Execute_non_Query(Sql) = False Then
If MYDB_ECM.ExecuteNonQuery(Sql) = False Then
ClassHelper.MSGBOX_Handler("ERROR", "UnexpectedError:", "Error updating doc-metadata (checkbox): " & vbNewLine & "Check the log for further information!")
Else
ClassProxy.PRPROXY_DOC_VALUES_UPD(docId, RECORD_ID)
@@ -4361,7 +4359,7 @@ Public Class frmConstructor_Main
End Select
Dim upd = String.Format("UPDATE TBPMO_USER_CONSTR_VIEW_TYPE SET VIEW_ID = {0} WHERE CONSTRUCTOR_DETAIL_ID = {1} AND [ENTITY_ID] = {2} AND USER_ID = {3}", VIEWTYPE_ID, CURRENT_CONSTRUCTOR_DETAIL_ID, ENTITY_ID, USER_GUID)
If ClassDatabase.Execute_non_Query(upd) = True Then
If MYDB_ECM.ExecuteNonQuery(upd) = True Then
' VIEW_ID Override zurücksetzen!!
VIEW_ID_RUNTIME = -1
MsgBox("Standard-View was saved successfully!", MsgBoxStyle.Information)
@@ -4507,13 +4505,13 @@ Public Class frmConstructor_Main
End If
If act_FormViewID <> 0 And (RIGHT_READ_ONLY_DOC = False And GridControlDocSearch.ContextMenuStrip.Name = "ContextMenuStripResultFiles") Or RIGHT_ADD_DOC = True Then
Dim sql = "select count(*) from VWPMO_DOKUMENTTYPES where FORMVIEW_ID = " & FORMVIEW_ID
Dim count_DT = ClassDatabase.Execute_Scalar(sql, True)
Dim count_DT = MYDB_ECM.GetScalarValue(sql)
If count_DT = 0 And CURRENT_ENTITY_REDUNDANT_ID = 0 Then
MsgBox("No documenttypes for this entity configured! Indexing is not possible!" & vbNewLine & "Please check the configuration!", MsgBoxStyle.Exclamation)
Exit Sub
ElseIf count_DT = 0 And CURRENT_ENTITY_REDUNDANT_ID <> 0 Then
sql = "select count(*) from VWPMO_DOKUMENTTYPES where FORM_ID = " & CURRENT_ENTITY_REDUNDANT_ID
count_DT = ClassDatabase.Execute_Scalar(sql, True)
count_DT = MYDB_ECM.GetScalarValue(sql)
If count_DT = 0 Then
MsgBox("No documenttypes for this entity configured! Indexing is not possible!" & vbNewLine & "Please check the configuration!", MsgBoxStyle.Exclamation)
Exit Sub
@@ -4634,13 +4632,13 @@ Public Class frmConstructor_Main
End If
Dim sql = "select count(*) from VWPMO_DOKUMENTTYPES where FORMVIEW_ID = " & FORMVIEW_ID
Dim count_DT = ClassDatabase.Execute_Scalar(sql, True)
Dim count_DT = MYDB_ECM.GetScalarValue(sql)
If count_DT = 0 And CURRENT_ENTITY_REDUNDANT_ID = 0 Then
ClassHelper.MSGBOX_Handler("INFO", "Attention", "Configuration missing: ", "No documenttypes for this entity (" & FORMVIEW_ID.ToString & ") configured! Indexing is not possible! Please check the configuration.")
Exit Sub
ElseIf count_DT = 0 And CURRENT_ENTITY_REDUNDANT_ID <> 0 Then
sql = "select count(*) from VWPMO_DOKUMENTTYPES where FORM_ID = " & CURRENT_ENTITY_REDUNDANT_ID
count_DT = ClassDatabase.Execute_Scalar(sql, True)
count_DT = MYDB_ECM.GetScalarValue(sql)
If count_DT = 0 Then
ClassHelper.MSGBOX_Handler("INFO", "Attention", "Configuration missing: ", "No documenttypes for the redundant entity (" & CURRENT_ENTITY_REDUNDANT_ID.ToString & ") configured! Indexing is not possible! Please check the configuration.")
Exit Sub
@@ -4719,7 +4717,7 @@ Public Class frmConstructor_Main
FOLL_UP_RECORD_DEFINED = False
End If
Dim caption = ClassDatabase.Execute_Scalar("SELECT COL_NAME FROM TBPMO_CONTROL WHERE GUID = " & DR.Item("DEPENDENT_DATE_CTRL_ID"), True)
Dim caption = MYDB_ECM.GetScalarValue("SELECT COL_NAME FROM TBPMO_CONTROL WHERE GUID = " & DR.Item("DEPENDENT_DATE_CTRL_ID"))
If Not IsNothing(caption) Then
lblWiedervorlage_Control.Text = CStr(caption)
@@ -4734,10 +4732,10 @@ Public Class frmConstructor_Main
chkFollowUp.Checked = False
End If
Dim SQL = String.Format("SELECT GUID FROM TBPMO_CONTROL_SCREEN WHERE CONTROL_ID = {0} AND SCREEN_ID = {1}", DR.Item("DEPENDENT_DONE_CTRL_ID"), CURRENT_SCREEN_ID)
Dim ctrl_screen_id = ClassDatabase.Execute_Scalar(SQL, True)
Dim ctrl_screen_id = MYDB_ECM.GetScalarValue(SQL)
If ctrl_screen_id > 0 Then
SQL = String.Format("SELECT CAPTION FROM TBPMO_CONTROL_LANGUAGE WHERE CONTROL_SCREEN_ID = {0} AND LANGUAGE_TYPE = '{1}'", ctrl_screen_id, USER_LANGUAGE)
Dim captionCheck = ClassDatabase.Execute_Scalar(SQL, True)
Dim captionCheck = MYDB_ECM.GetScalarValue(SQL)
If Not IsNothing(captionCheck) Then
chkFollowUp.Text = CStr(captionCheck)
End If
@@ -4755,7 +4753,7 @@ Public Class frmConstructor_Main
Sub Load_FUUser(ID As Integer)
Try
Dim sql = "SELECT T.GUID, T1.USERNAME FROM TBPMO_FOLLUPEMAIL_RECORD T, TBDD_USER T1 WHERE T.USER_ID = T1.GUID AND T.FOLLOW_UP_ID = " & ID & " AND T.RECORD_ID = " & RECORD_ID & " ORDER BY T1.USERNAME"
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
Dim DT As DataTable = MYDB_ECM.GetDatatable(sql)
ListBoxUser2Profile.DataSource = DT
ListBoxUser2Profile.DisplayMember = DT.Columns(1).ColumnName
ListBoxUser2Profile.ValueMember = DT.Columns(0).ColumnName
@@ -4796,10 +4794,10 @@ Public Class frmConstructor_Main
Dim sw As New SW("Check_FOLLOWUP_IsConfigured")
Dim sql = "select * from TBPMO_FOLLOW_UP_EMAIL t where t.ACTIVE = 1 and t.DEPENDENT_DATE_CTRL_ID in (select guid from TBPMO_CONTROL where CONTROL_TYPE_ID = 4 and form_id = " & ENTITY_ID & ")"
DT_FU_ENTITY = ClassDatabase.Return_Datatable(sql)
DT_FU_ENTITY = MYDB_ECM.GetDatatable(sql)
If DT_FU_ENTITY.Rows.Count > 0 Then
'Die Userauswahl füllen
Dim DTUser As DataTable = ClassDatabase.Return_Datatable("select T.guid, T.username from TBDD_USER t INNER JOIN TBDD_USER_MODULES T1 ON T.GUID = T1.USER_ID INNER JOIN TBDD_MODULES T2 ON T1.MODULE_ID = T2.GUID
Dim DTUser As DataTable = MYDB_ECM.GetDatatable("select T.guid, T.username from TBDD_USER t INNER JOIN TBDD_USER_MODULES T1 ON T.GUID = T1.USER_ID INNER JOIN TBDD_MODULES T2 ON T1.MODULE_ID = T2.GUID
WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
cmbFollowUpUser.DataSource = DTUser
cmbFollowUpUser.DisplayMember = DTUser.Columns(1).ColumnName
@@ -4992,7 +4990,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
If JUMP_RECORD_ID > 0 Then
Dim sql = String.Format("SELECT FORM_ID FROM TBPMO_RECORD WHERE GUID = {0}", JUMP_RECORD_ID)
Dim FormID = ClassDatabase.Execute_Scalar(sql, True)
Dim FormID = MYDB_ECM.GetScalarValue(sql)
If FormID > 0 Then
Dim n As TreeNode
For Each n In TreeViewMain.Nodes
@@ -5066,35 +5064,13 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
End Sub
'Sub Load_Templates()
' Try
' Dim sql As String = "SELECT * FROM VWPMO_TEMPLATE_ENTITY WHERE ENTITY_ID = " & ENTITY_ID & " ORDER BY TEMPLATE_NAME"
' Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
' If Not IsNothing(DT) Then
' If DT.Rows.Count > 0 Then
' OfficeVorlagentsmi.Enabled = True
' OfficeVorlagentsmi.DropDownItems.Clear()
' For Each row As DataRow In DT.Rows
' Dim item As ToolStripMenuItem = OfficeVorlagentsmi
' Dim newItem As ToolStripMenuItem = New ToolStripMenuItem(row.Item("TEMPLATE_NAME").ToString, Nothing, AddressOf TemplateItem_Click)
' newItem.Tag = row.Item("TEMPLATE_ID")
' item.DropDownItems.Add(newItem) ' subitem.DropDownItems.Add(newItem)
' Next
' Else
' OfficeVorlagentsmi.Enabled = False
' End If
' End If
' Catch ex As Exception
' ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Load_Templates: ", ex.Message)
' End Try
'End Sub
Private Sub TemplateItem_Click(sender As Object, e As EventArgs)
Dim item As ToolStripMenuItem = DirectCast(sender, ToolStripMenuItem)
Dim TemplateID As Integer = Integer.Parse(item.Tag)
If RECORD_ID > 0 Then
Dim SOLLENTITY_ID = ClassDatabase.Execute_Scalar("SELECT ENTITY_ID FROM VWPMO_TEMPLATE_ENTITY WHERE TEMPLATE_ID = " & TemplateID, True)
Dim REC_ENTITY_ID = ClassDatabase.Execute_Scalar("SELECT FORM_ID FROM TBPMO_RECORD WHERE GUID = " & RECORD_ID, True)
Dim SOLLENTITY_ID = MYDB_ECM.GetScalarValue("SELECT ENTITY_ID FROM VWPMO_TEMPLATE_ENTITY WHERE TEMPLATE_ID = " & TemplateID)
Dim REC_ENTITY_ID = MYDB_ECM.GetScalarValue("SELECT FORM_ID FROM TBPMO_RECORD WHERE GUID = " & RECORD_ID)
If Not IsNothing(SOLLENTITY_ID) Then
If CInt(SOLLENTITY_ID) = REC_ENTITY_ID Then
@@ -5156,11 +5132,11 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
Try
Dim column = e.Column.FieldName
Dim sql = String.Format("select guid from TBPMO_CONTROL where COL_NAME = '{0}' and FORM_ID = {1}", column, POS_ENTITY)
Dim controlid = ClassDatabase.Execute_Scalar(sql, True)
Dim controlid = MYDB_ECM.GetScalarValue(sql)
If Not IsNothing(controlid) Then
'Überprüfen ob schon value vorhanden
sql = String.Format("SELECT CONTROL_ID FROM VWPMO_VALUES WHERE CONTROL_ID = {0} AND FORM_ID = {1} AND CONTROL_COLUMN = '{2}' AND RECORD_ID = {3}", controlid, POS_ENTITY, column, POS_RECORD_ID)
Dim cId As Integer = ClassDatabase.Execute_Scalar(sql, True)
Dim cId As Integer = MYDB_ECM.GetScalarValue(sql)
If IsNothing(POS_RECORD_ID) Or IsDBNull(POS_RECORD_ID) Then
Dim recordId = ClassRecordCommands.CreateRecordProcedure(POS_ENTITY)
@@ -5310,7 +5286,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
If cmbFollowUpUser.SelectedIndex <> -1 And FOLL_UP_ID > 0 Then
Try
Dim ins = "INSERT INTO TBPMO_FOLLUPEMAIL_RECORD (FOLLOW_UP_ID,USER_ID,RECORD_ID,ADDED_WHO) VALUES (" & FOLL_UP_ID & ", " & cmbFollowUpUser.SelectedValue & ", " & RECORD_ID & ", '" & USER_USERNAME & "')"
If ClassDatabase.Execute_non_Query(ins) = True Then
If MYDB_ECM.ExecuteNonQuery(ins) = True Then
Load_FUUser(FOLL_UP_ID)
Update_Status_Label(True, "User added to Follow Up", EditState.Insert)
End If
@@ -5324,7 +5300,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
If ListBoxUser2Profile.SelectedIndex <> -1 Then
Try
Dim del = "DELETE FROM TBPMO_FOLLUPEMAIL_RECORD WHERE GUID = " & ListBoxUser2Profile.SelectedValue
If ClassDatabase.Execute_non_Query(del, False) = True Then
If MYDB_ECM.ExecuteNonQuery(del) = True Then
Update_Status_Label(True, "User removed from Follow Up", EditState.Update)
Load_FUUser(FOLL_UP_ID)
End If
@@ -5347,7 +5323,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
Dim sql
sql = "select * from VWPMO_ENTITY_TABLE" & PARENT_ENTITYID.ToString
CURRENT_PARENT_DT = ClassDatabase.Return_Datatable(sql, True)
CURRENT_PARENT_DT = MYDB_ECM.GetDatatable(sql)
frmChooseParentRecord.ShowDialog()
@@ -5357,7 +5333,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
Exit Sub
End If
Dim del = "DELETE FROM TBPMO_RECORD_CONNECT WHERE RECORD2_ID = " & RECORD_ID
If ClassDatabase.Execute_non_Query(del) = False Then
If MYDB_ECM.ExecuteNonQuery(del) = False Then
MsgBox("Error in deleting old Record-Link. Check the logfile", MsgBoxStyle.Exclamation)
Exit Sub
End If
@@ -5494,7 +5470,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
msg = "Would You like to delete only the references?" & vbNewLine & "File(s) will stay in ECM/Archive/Explorer!"
End If
Dim result As MsgBoxResult
result = MessageBox.Show(msg, "Confirmation:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
result = MessageBox.Show(msg, CAPTION_CONFIRMATION, MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = MsgBoxResult.Yes Then
Try
For Each row As DataRow In ClassWindreamDocGrid.DT_RESULTFILES.Rows
@@ -5504,22 +5480,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
RUN_WDSEARCH_GRID(True)
End If
'Dim DT_INDICES As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBPMO_WD_OBJECTTYPE WHERE OBJECT_TYPE = '" & row.Item("OBJECTTYPE") & "'", True)
'If Not IsNothing(DT_INDICES) Then
' If DT_INDICES.Rows.Count = 1 Then
' 'Record-Links entfernen
' If clsWD_SET.REMOVE_VEKTOR_LINK(row.Item("DOC_PATH"), DT_INDICES.Rows(0).Item("IDXNAME_RECORDID"), RECORD_ID) = True Then
' 'ENTITY-Links entfernen
' If clsWD_SET.REMOVE_VEKTOR_LINK(row.Item("DOC_PATH"), DT_INDICES.Rows(0).Item("IDXNAME_ENTITYID"), ENTITY_ID) = True Then
' Else
' MsgBox("Could not remove Vektor-Link ENTITY! Check logfile.", MsgBoxStyle.Exclamation)
' End If
' Else
' MsgBox("Could not remove Vektor-Link RECORD! Check logfile.", MsgBoxStyle.Exclamation)
' End If
' End If
'End If
Next
Catch ex As Exception
@@ -5607,7 +5568,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
Private Sub tsbtnRedo_Click(sender As Object, e As EventArgs) Handles tsbtnRedo.Click
Me.Cursor = Cursors.WaitCursor
Dim proc = String.Format("EXEC PRPMO_REDO_RECORD_CHANGES {0}", RECORD_ID)
If ClassDatabase.Execute_non_Query_withConn(proc, 1) = True Then
If MYDB_ECM.ExecuteNonQuery(proc) = True Then
RECORD_ID = 0
Column_Row_Handler("tsbtnRedo_Click")
Me.Cursor = Cursors.Default
@@ -5847,7 +5808,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
Exit Sub
End If
Refresh_Selected_Table()
Dim frm As New frmDocRecordLink ' frmDocLink_Record_Entities() 'fileName, ClassWindreamDocGrid.RESULT_OBJECTTYPE)
Dim frm As New frmDocRecordLink
frm.Show()
Catch ex As Exception
MsgBox("Unexpected Error in Linking Record: " & ex.Message, MsgBoxStyle.Critical)
@@ -6041,7 +6002,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
Try
Dim oSQLDRList = $"Select COALESCE(IN_WORK_USER,'') IN_WORK_USER, COALESCE(IN_WORK_COMMENT,'') IN_WORK_COMMENT,IN_WORK FROM TBPMO_DOCRESULT_LIST where DocID = {ClassWindreamDocGrid.SELECTED_DOC_ID}"
Dim oDT As DataTable = ClassDatabase.Return_Datatable(oSQLDRList)
Dim oDT As DataTable = MYDB_ECM.GetDatatable(oSQLDRList)
If Not IsNothing(oDT) Then
If oDT.Rows.Count = 1 Then
IW_USER = oDT.Rows(0).Item("IN_WORK_USER")
@@ -6205,20 +6166,20 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
msg = "Are You sure You want to permanently delete this file(s)?"
End If
Dim result1 As MsgBoxResult
result1 = MessageBox.Show(msg, "Confirmation:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
result1 = MessageBox.Show(msg, CAPTION_CONFIRMATION, MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result1 = MsgBoxResult.Yes Then
For Each row As DataRow In ClassWindreamDocGrid.DT_RESULTFILES.Rows
If row.Item("DOC_PATH") <> "" Then
Try
If Not IsNothing(row.Item("DOC_ID")) Then
Dim Count As Integer = ClassDatabase.Execute_Scalar("SELECT COUNT(GUID) FROM TBPMO_DOC_RECORD_LINK WHERE DOC_ID = " & row.Item("DOC_ID"), True)
Dim Count As Integer = MYDB_ECM.GetScalarValue("SELECT COUNT(GUID) FROM TBPMO_DOC_RECORD_LINK WHERE DOC_ID = " & row.Item("DOC_ID"))
If Count > 1 And CURRENT_SEARCH_TYPE = "RECORD" Then
msg = "Diese Datei ist noch mit anderen Datensätzen verknüpft! Wollen Sie diese Verknüpfungen ebenfalls löschen?"
If USER_LANGUAGE <> "de-DE" Then
msg = "This file is also linked to other records! Would You like to delete these links also?"
End If
Dim result2 As MsgBoxResult
result2 = MessageBox.Show(msg, "Confirmation:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
result2 = MessageBox.Show(msg, CAPTION_CONFIRMATION, MessageBoxButtons.YesNo, MessageBoxIcon.Question)
Dim oDElWMFile As Boolean = False
If result2 = MsgBoxResult.Yes Then
oDElWMFile = True
@@ -6254,7 +6215,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
End If
If LICENSE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then
Dim proc = String.Format("EXEC PRPROXY_DOC_CHECK_DELETE {0}", row.Item("DOC_ID"))
ClassDatabase.Execute_non_Query(proc, True)
MYDB_ECM.ExecuteNonQuery(proc)
End If
Catch ex As Exception
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in delete file: ", ex.Message)
@@ -6293,10 +6254,10 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
End If
sql = String.Format("SELECT [dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), FORM_VIEW_ID), {1}) AS 'CAPTION' " &
"FROM VWPMO_CONSTRUCTOR_FORMS WHERE FORM_ID = {2}", USER_LANGUAGE, CURRENT_SCREEN_ID, node_tag.ToString)
ENTITY_STRING = ClassDatabase.Execute_Scalar(sql, True)
ENTITY_STRING = MYDB_ECM.GetScalarValue(sql)
sql = String.Format("select count(guid) from TBPMO_CONTROL_ENTITY_LINK where ORIGIN_CTRL_ID in (SELECT GUID FROM TBPMO_CONTROL where FORM_ID = {0}) " &
"AND LINKED_CTRL_ID IN (SELECT GUID FROM TBPMO_CONTROL where FORM_ID = {1})", ENTITY_ID, node_tag)
Dim count = ClassDatabase.Execute_Scalar(sql, True)
Dim count = MYDB_ECM.GetScalarValue(sql)
If Not IsNothing(count) Then
If count = 0 Then
MsgBox("No configuration for changing entity-link!" & vbNewLine & "Please inform Your ADDi-Admin", MsgBoxStyle.Exclamation)
@@ -6309,7 +6270,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
msg = String.Format("Do You really want to change the entity-link of the selected record to '{0}'?", ENTITY_STRING.ToString)
End If
Dim result As MsgBoxResult
result = MessageBox.Show(msg, "Confirmation:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
result = MessageBox.Show(msg, CAPTION_CONFIRMATION, MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = MsgBoxResult.Yes Then
Save_Grid_Layout()
@@ -6322,7 +6283,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
Continue For
End If
Dim sql1 = String.Format("SELECT [dbo].[FNPMO_CUST_ALLOW_ENTITY_RELINK] ({0},{1})", _RECORD, USER_GUID)
If ClassDatabase.Execute_Scalar(sql1, True) = 0 Then
If MYDB_ECM.GetScalarValue(sql1) = 0 Then
msg = String.Format("Verschieben von Datensatz {0} nicht möglich. Kriterien nicht erfüllt!", _RECORD.ToString)
If USER_LANGUAGE <> "de-DE" Then
msg = String.Format("Changing of entity-link for record {0}not possible - Criteria is invalid!", _RECORD.ToString)
@@ -6333,41 +6294,38 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
LOGGER.Info(String.Format("Relinking entity of record '{0}' to entity '{1}'?", _RECORD, ENTITY_STRING.ToString))
Dim upd = String.Format("UPDATE TBPMO_RECORD SET FORM_ID = {0} where GUID = {1}", node_tag, _RECORD)
If ClassDatabase.Execute_non_Query(upd) = True Then
If MYDB_ECM.ExecuteNonQuery(upd) = True Then
If DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED = True Then
ClassDatabase.Execute_non_Query(upd, True)
MYDB_ECM.ExecuteNonQuery(upd)
Dim del = String.Format("DELETE FROM TBPMO_ENTITY_TABLE{1} WHERE [Record-ID] = {0}", _RECORD, ENTITY_ID)
ClassDatabase.Execute_non_Query(del, True)
MYDB_ECM.ExecuteNonQuery(del)
End If
msg = String.Format("ENTITY WAS CHANGED TO {0}-{1} by User: {2}", ENTITY_STRING, node_tag, USER_USERNAME)
ClassHelper.InsertEssential_Log(_RECORD, "RECORD-ID", msg)
sql = "SELECT T.* FROM VWPMO_DOC_SEARCH T, TBPMO_DOC_RECORD_LINK T1 WHERE T.DocID = T1.DOC_ID AND T1.RECORD_ID = " & _RECORD
Dim DT_DOCS As DataTable = ClassDatabase.Return_Datatable(sql, True)
'For Each doc As DataRow In DT_DOCS.Rows
' Dim DT_INDICES As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBPMO_WD_OBJECTTYPE WHERE OBJECT_TYPE = '" & doc.Item("OBJECTTYPE") & "'", True)
' clsWD_SET.REMOVE_VEKTOR_LINK(doc.Item("FULL_FILENAME"), DT_INDICES.Rows(0).Item("IDXNAME_ENTITYID"), ENTITY_ID)
'Next
Dim DT_DOCS As DataTable = MYDB_ECM.GetDatatable(sql)
sql = String.Format("select ORIGIN_CTRL_ID,LINKED_CTRL_ID from TBPMO_CONTROL_ENTITY_LINK where ORIGIN_CTRL_ID in (SELECT GUID FROM TBPMO_CONTROL where FORM_ID = {0}) " &
"AND LINKED_CTRL_ID IN (SELECT GUID FROM TBPMO_CONTROL where FORM_ID = {1})", ENTITY_ID, node_tag)
Dim DT_CHANGE_CTR As DataTable = ClassDatabase.Return_Datatable(sql)
Dim DT_CHANGE_CTR As DataTable = MYDB_ECM.GetDatatable(sql)
For Each row As DataRow In DT_CHANGE_CTR.Rows
upd = String.Format("UPDATE TBPMO_CONTROL_VALUE SET CONTROL_ID = {0}, CHANGED_WHO = '{3}' WHERE CONTROL_ID = {1} AND RECORD_ID = {2}", row.Item("LINKED_CTRL_ID"), row.Item("ORIGIN_CTRL_ID"), _RECORD, USER_USERNAME)
ClassDatabase.Execute_non_Query(upd)
MYDB_ECM.ExecuteNonQuery(upd)
If DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED = True Then
ClassDatabase.Execute_non_Query(upd, True)
MYDB_ECM.ExecuteNonQuery(upd)
End If
Next
Dim execsql = String.Format("EXEC PRPMO_DELETE_RECORD_PMO_TABLE {0},{1}", ENTITY_ID, _RECORD)
If ClassDatabase.Execute_non_Query(execsql) = True Then
If MYDB_ECM.ExecuteNonQuery(execsql) = True Then
If DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED = True Then
ClassDatabase.Execute_non_Query(execsql, True)
MYDB_ECM.ExecuteNonQuery(execsql)
End If
End If
execsql = String.Format("EXEC PRPMO_ENTITY_TABLE_RENEW_RECORD {0},{1}", node_tag, _RECORD)
If ClassDatabase.Execute_non_Query(execsql) = True Then
ClassDatabase.Execute_non_Query(execsql, True)
If MYDB_ECM.ExecuteNonQuery(execsql) = True Then
MYDB_ECM.ExecuteNonQuery(execsql)
End If
End If
@@ -6456,7 +6414,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
If LICENSE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then
Me.TBPMO_RECORD_VARIANTTableAdapter.Connection.ConnectionString = ClassProxy.MyPROXYConnectionString
Else
Me.TBPMO_RECORD_VARIANTTableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBPMO_RECORD_VARIANTTableAdapter.Connection.ConnectionString = MYDB_ECM.CurrentConnectionString
End If
Me.TBPMO_RECORD_VARIANTTableAdapter.Fill(Me.DD_DMSDataSet.TBPMO_RECORD_VARIANT, ENTITY_ID, RECORD_ID)
Catch ex As System.Exception
@@ -6610,7 +6568,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
Private Sub DokumentartÄndernToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DokumentartÄndernToolStripMenuItem.Click
CURRENT_FORMVIEW_ID = FORMVIEW_ID
Refresh_Selected_Table()
frmWM_ChangeDoctype.ShowDialog()
'frmWM_ChangeDoctype.ShowDialog()
RUN_WDSEARCH_GRID(True)
End Sub
Private Sub NeuToolStripMenuItem_MouseHover(sender As Object, e As EventArgs) Handles NeuToolStripMenuItem.MouseHover
@@ -6637,10 +6595,10 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
LOGGER.Info($"Renaming FileSystem done!")
Cursor = Cursors.WaitCursor
Dim oEXEC As String = $"EXEC PRPMO_DOC_CREATE_NEW_DOC {ClassWindreamDocGrid.SELECTED_DOC_ID}, {CURRENT_RECORD_ID},'{USER_USERNAME}'"
If ClassDatabase.Execute_non_Query(oEXEC) Then
If MYDB_ECM.ExecuteNonQuery(oEXEC) Then
LOGGER.Info($"Exec PRPMO_DOC_CREATE_NEW_DOC done!")
If LICENSE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then
ClassDatabase.Execute_non_Query(oEXEC, True)
MYDB_ECM.ExecuteNonQuery(oEXEC, True)
End If
End If
@@ -6767,7 +6725,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
' ins = String.Format("INSERT INTO TBPMO_STRUCTURE_NODES (NODE_CONFIG_ID, NODE_CAPTION, ID1, PARENT_GUID, ADDED_WHO) VALUES (" &
' "{0},'{1}','{2}','{3}','{4}')", CURRENT_NODE_CONFIGURABLE_ID, tsmINewText.Text, "CONFIG " & NEWRECORD & "-" & CURRENT_NODE_CONFIGURABLE_ID, PARENT_ID, USER_USERNAME)
'End If
'If ClassDatabase.Execute_non_Query(ins) Then
'If MYDB_ECM.ExecuteNonQuery(ins) Then
Dim NEW_GUID = ClassNodeNavigation.CreateNodeProcedure(NEWRECORD, CURRENT_NODE_CONFIGURABLE_ID, tsmINewText.Text, "CONFIG " & NEWRECORD & "-" & CURRENT_NODE_CONFIGURABLE_ID, PARENT_ID, USER_USERNAME)
If NEW_GUID > 0 Then
@@ -6803,10 +6761,10 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
msg = "Are You sure You want to delete the node'" & TreeViewMain.SelectedNode.Text & "'?"
End If
Dim result As MsgBoxResult
result = MessageBox.Show(msg, "Confirmation:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
result = MessageBox.Show(msg, CAPTION_CONFIRMATION, MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = MsgBoxResult.Yes Then
Dim oDelete = String.Format("EXEC PRPMO_DELETE_NODE {0},'{1}'", NODE_GUID, USER_USERNAME)
If ClassDatabase.Execute_non_Query(oDelete) Then
If MYDB_ECM.ExecuteNonQuery(oDelete) Then
TreeViewMain.Nodes.Remove(TreeViewMain.SelectedNode)
Refresh_Entity_Data(True)
End If
@@ -6901,7 +6859,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
msg = "Are You sure You want to delete this position?"
End If
Dim result As MsgBoxResult
result = MessageBox.Show(msg, "Confirmation:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
result = MessageBox.Show(msg, CAPTION_CONFIRMATION, MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = MsgBoxResult.Yes Then
If ClassHelper.DeleteRecord(POS_RECORD_ID) = True Then
Load_Pos_Data()
@@ -6982,7 +6940,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
Try
Me.Cursor = Cursors.WaitCursor
Dim Record_Changes As String = "SELECT count(GUID) FROM VWPMO_RECORD_CHANGES WHERE RECORD_ID = " & RECORD_ID
Dim RC = ClassDatabase.Execute_Scalar(Record_Changes, True)
Dim RC = MYDB_ECM.GetScalarValue(Record_Changes, True)
bbtniReclog.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
If Not RC Is Nothing Then
If RC > 0 Then
@@ -7167,10 +7125,10 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
OMsg = "Are You sure You want to rename the node'" & TreeViewMain.SelectedNode.Text & "'?"
End If
Dim oResult As MsgBoxResult
oResult = MessageBox.Show(OMsg, "Confirmation:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
oResult = MessageBox.Show(OMsg, CAPTION_CONFIRMATION, MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If oResult = MsgBoxResult.Yes Then
Dim oUpdate = String.Format("UPDATE TBPMO_STRUCTURE_NODES SET NODE_CAPTION = '{0}', CHANGED_WHO = '{1}' WHERE GUID = {2}", Me.tstxtRenameNode.Text, USER_USERNAME, NODE_GUID)
If ClassDatabase.Execute_non_Query(oUpdate) Then
If MYDB_ECM.ExecuteNonQuery(oUpdate) Then
TreeViewMain.SelectedNode.Text = Me.tstxtRenameNode.Text
cmsTreeView.Close()
End If
@@ -7195,66 +7153,16 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
Private Sub TimerFileHandle_Tick(sender As Object, e As EventArgs) Handles TimerFileHandle.Tick
Try
Dim oSql = $"SELECT GUID FROM TBPMO_DOC_USER_REFRESH_VIEW WHERE USER_ID = {USER_GUID} AND REFRESHED_WHEN IS NULL"
Dim oDTGUID As DataTable = ClassDatabase.Return_Datatable(oSql)
Dim oDTGUID As DataTable = MYDB_ECM.GetDatatable(oSql)
If oDTGUID.Rows.Count = 1 Then
Dim oupd = $"UPDATE TBPMO_DOC_USER_REFRESH_VIEW SET REFRESHED_WHEN = GETDATE() WHERE GUID = {oDTGUID.Rows(0).Item(0)}"
If ClassDatabase.Execute_non_Query(oupd, False) = True Then
If MYDB_ECM.ExecuteNonQuery(oupd) = True Then
MsgBox("Attention: The docID of one document changed! The DocSearch will be refreshed!", MsgBoxStyle.Information)
RUN_WDSEARCH_GRID(True)
End If
End If
''oDT_ProcessDoc.Columns.Add("STATE", Type.GetType("System.String"))
''oDT_ProcessDoc.AcceptChanges()
''For Each oDatarow As DataRow In oDT_ProcessDoc.Rows
'' Dim exists As Boolean = False
'' For Each oProcess As Process In Process.GetProcesses()
'' If oProcess.Id = oDatarow.Item("PROCESS_ID") Then
'' 'process found so it's running so return true
'' LOGGER.Debug($"Process {oProcess.ProcessName} still running - {oProcess.Id.ToString}")
'' exists = True
'' End If
'' Next
'' If exists = False Then
'' oDatarow.Item("STATE") = "NOT RUNNING"
'' End If
''Next
''oDT_ProcessDoc.AcceptChanges()
'For Each oRow_Check As DataRow In oDT_ProcessDoc.Rows
' 'If IsDBNull(oRow_Check.Item("STATE")) Then
' ' Continue For
' 'End If
' 'If oRow_Check.Item("STATE") = "NOT RUNNING" Then
' Dim oGUID = oRow_Check.Item("GUID")
' Dim oDocID = oRow_Check.Item("OLD_DOC_ID")
' Dim oVersionID = oRow_Check.Item("VERSION_ID")
' Dim oDocPath = oRow_Check.Item("DOC_PATH")
' oSql = $"SELECT Count(DocID) FROM VWPMO_DOC_SYNC WHERE DocID = {oDocID}"
' Dim oFileExists = ClassDatabase.Execute_Scalar(oSql, False)
' If oFileExists = 0 Then
' CURRENT_OFFICE_FILE_CHANGED = True
' LOGGER.Info($"The docId [{oDocID}] of handled file {oDocPath} changed during editing mode!")
' oSql = $"SELECT MAX(dwDocID) FROM windream60.dbo.BaseAttributes WHERE dwVersionID = {oVersionID}"
' Dim oNEW_DOC As DataTable = ClassDatabase.Return_Datatable(oSql, False)
' If oNEW_DOC.Rows.Count = 1 And Not IsDBNull(oNEW_DOC.Rows(0).Item(0)) Then
' Dim oNEWDocID = oNEW_DOC.Rows(0).Item(0)
' LOGGER.Info($"New DocID is: {oNEWDocID}!!")
' oSql = $"EXEC PRPMO_DOC_CHANGE_DOCID {oDocID},{oNEWDocID},'{USER_USERNAME}'"
' LOGGER.Debug(oSql)
' If ClassDatabase.Execute_non_Query(oSql) = False Then
' LOGGER.Info($"Could not relink the DocID!!")
' Else
' oSql = $"UPDATE TBPMO_DOC_ID_CHANGED SET NEW_DOC_ID = {oNEWDocID}, CHANGED_WHEN = GETDATE() WHERE GUID = {oGUID}"
' ClassDatabase.Execute_non_Query(oSql)
' End If
' Else
' LOGGER.Info($"Could not get the new DOCID [{oSql}]!!")
' End If
' End If
' 'End If
'Next
Catch ex As Exception
LOGGER.Warn($"Unexpected error in TimerFileHandleTick [{ex.Message}]!!")
End Try
@@ -7302,7 +7210,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
result = MessageBox.Show(msg, "Copy Record:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = MsgBoxResult.Yes Then
Dim SQL = String.Format("EXEC PRPMO_COPY_RECORD {0}, '{1}'", RECORD_ID, USER_USERNAME)
If ClassDatabase.Execute_non_Query_withConn(SQL, 1) = True Then
If MYDB_ECM.ExecuteNonQuery(SQL) = True Then
Load_Entity_Data_CONTROLS_RECORDS()
End If
End If
@@ -7334,7 +7242,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
Try
CURRENT_ENTITY_ID = ENTITY_ID
Dim sql = "EXEC PRPMO_CREATE_WF_TASKS " & CURRENT_ENTITY_ID & ", " & RECORD_ID
If ClassDatabase.Execute_non_Query(sql) = True Then
If MYDB_ECM.ExecuteNonQuery(Sql) = True Then
ClassWorkflow.Refresh_Workflows_Entity()
Show_act_WFTask()
If USER_LANGUAGE = "de-DE" Then

2
app/DD-Record-Organizer/frmCustomAppointment.vb
View File

@@ -96,7 +96,7 @@ Partial Public Class frmCustomAppointment
Dim RecordId = Integer.Parse(txtRecordID.Text)
JUMP_RECORD_ID = RecordId
Dim constructDT As DataTable = ClassDatabase.Return_Datatable("SELECT T.CONSTRUCT_ID,T.NODE_NAVIGATION, T.FORM_ID FROM VWPMO_CONSTRUCTOR_FORMS T, TBPMO_RECORD T1 WHERE T.FORM_ID = T1.FORM_ID AND T1.GUID = " & JUMP_RECORD_ID)
Dim constructDT As DataTable = MYDB_ECM.GetDatatable("SELECT T.CONSTRUCT_ID,T.NODE_NAVIGATION, T.FORM_ID FROM VWPMO_CONSTRUCTOR_FORMS T, TBPMO_RECORD T1 WHERE T.FORM_ID = T1.FORM_ID AND T1.GUID = " & JUMP_RECORD_ID)
' TODO: FormId und ConstructId herausfinden

2
app/DD-Record-Organizer/frmDD_EMAIL_ACCOUNT.vb
View File

@@ -20,7 +20,7 @@
End Sub
Private Sub frmDD_EMAIL_ACCOUNT_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Try
TBDD_EMAIL_ACCOUNTTableAdapter.Connection.ConnectionString = MyConnectionString
TBDD_EMAIL_ACCOUNTTableAdapter.Connection.ConnectionString = MYDB_ECM.CurrentConnectionString
Me.TBDD_EMAIL_ACCOUNTTableAdapter.Fill(Me.DD_DMSDataSet.TBDD_EMAIL_ACCOUNT)
Catch ex As Exception
MsgBox("Error in Load-Form: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)

10
app/DD-Record-Organizer/frmDiagrams.vb
View File

@@ -18,9 +18,9 @@ Public Class frmDiagrams
CHART_TITLE_SQL = String.Format("SELECT NAME FROM TBPMO_FORM WHERE GUID = {0}", CURRENT_ENTITY_ID)
CHART_ENTITY_SQL = String.Format("SELECT * FROM TBPMO_CHART_ENTITY WHERE ENTITY_ID = {0}", CURRENT_ENTITY_ID)
CHART_GROUPS_SQL = String.Format("SELECT DISTINCT GROUP_ID FROM TBPMO_CHART_ENTITY WHERE ENTITY_ID = {0} ORDER BY GROUP_ID", CURRENT_ENTITY_ID)
CHART_TITLE_STRING = ClassDatabase.Execute_Scalar(CHART_TITLE_SQL)
CHART_ENTITY_DT = ClassDatabase.Return_Datatable(CHART_ENTITY_SQL)
CHART_GROUPS_DT = ClassDatabase.Return_Datatable(CHART_GROUPS_SQL)
CHART_TITLE_STRING = MYDB_ECM.GetScalarValue(CHART_TITLE_SQL)
CHART_ENTITY_DT = MYDB_ECM.GetDatatable(CHART_ENTITY_SQL)
CHART_GROUPS_DT = MYDB_ECM.GetDatatable(CHART_GROUPS_SQL)
Dim Groups As DataRowCollection = CHART_GROUPS_DT.Rows
groupCount = Groups.Count
@@ -54,7 +54,7 @@ Public Class frmDiagrams
Dim argument = cRow.Item("ARGUMENT")
Dim sql = cRow.Item("SQL_COMMAND")
Dim DATA_DT As DataTable = ClassDatabase.Return_Datatable(sql)
Dim DATA_DT As DataTable = MYDB_ECM.GetDatatable(sql)
Dim series As Series = Create_Series(title, type)
@@ -92,7 +92,7 @@ Public Class frmDiagrams
Dim argument = row.Item("ARGUMENT")
Dim sql = row.Item("SQL_COMMAND")
Dim DATA_DT As DataTable = ClassDatabase.Return_Datatable(sql)
Dim DATA_DT As DataTable = MYDB_ECM.GetDatatable(sql)
' Create Series based on type
Dim series As Series = Create_Series(title, type)

187
app/DD-Record-Organizer/frmDocLink_Record_Entities.Designer.vb generated
View File

@@ -1,187 +0,0 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmDocLink_Record_Entities
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmDocLink_Record_Entities))
Me.SplitContainerControl1 = New DevExpress.XtraEditors.SplitContainerControl()
Me.trvwMain = New System.Windows.Forms.TreeView()
Me.dgEntityRecords = New DevExpress.XtraGrid.GridControl()
Me.grvwGrid = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.cmbConstructorForms = New System.Windows.Forms.ComboBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.btnLink = New System.Windows.Forms.Button()
Me.Label3 = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.txtFileInfo = New System.Windows.Forms.TextBox()
Me.txtRecordId = New System.Windows.Forms.TextBox()
Me.Label5 = New System.Windows.Forms.Label()
CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.SplitContainerControl1.Panel1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainerControl1.Panel1.SuspendLayout()
CType(Me.SplitContainerControl1.Panel2, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainerControl1.Panel2.SuspendLayout()
Me.SplitContainerControl1.SuspendLayout()
CType(Me.dgEntityRecords, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.grvwGrid, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'SplitContainerControl1
'
resources.ApplyResources(Me.SplitContainerControl1, "SplitContainerControl1")
Me.SplitContainerControl1.Name = "SplitContainerControl1"
'
'SplitContainerControl1.Panel1
'
Me.SplitContainerControl1.Panel1.Controls.Add(Me.trvwMain)
resources.ApplyResources(Me.SplitContainerControl1.Panel1, "SplitContainerControl1.Panel1")
'
'SplitContainerControl1.Panel2
'
Me.SplitContainerControl1.Panel2.Controls.Add(Me.dgEntityRecords)
resources.ApplyResources(Me.SplitContainerControl1.Panel2, "SplitContainerControl1.Panel2")
Me.SplitContainerControl1.SplitterPosition = 322
'
'trvwMain
'
resources.ApplyResources(Me.trvwMain, "trvwMain")
Me.trvwMain.Name = "trvwMain"
'
'dgEntityRecords
'
resources.ApplyResources(Me.dgEntityRecords, "dgEntityRecords")
Me.dgEntityRecords.MainView = Me.grvwGrid
Me.dgEntityRecords.Name = "dgEntityRecords"
Me.dgEntityRecords.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.grvwGrid})
'
'grvwGrid
'
Me.grvwGrid.Appearance.EvenRow.BackColor = System.Drawing.Color.Aqua
Me.grvwGrid.Appearance.EvenRow.Options.UseBackColor = True
Me.grvwGrid.Appearance.FilterPanel.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer))
Me.grvwGrid.Appearance.FilterPanel.Options.UseBackColor = True
Me.grvwGrid.Appearance.HideSelectionRow.BackColor = System.Drawing.Color.Yellow
Me.grvwGrid.Appearance.HideSelectionRow.Options.UseBackColor = True
Me.grvwGrid.Appearance.SelectedRow.BackColor = System.Drawing.Color.Yellow
Me.grvwGrid.Appearance.SelectedRow.Options.UseBackColor = True
Me.grvwGrid.Appearance.SelectedRow.Options.UseForeColor = True
Me.grvwGrid.GridControl = Me.dgEntityRecords
Me.grvwGrid.Name = "grvwGrid"
Me.grvwGrid.OptionsBehavior.Editable = False
Me.grvwGrid.OptionsBehavior.ReadOnly = True
Me.grvwGrid.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
Me.grvwGrid.OptionsView.ColumnAutoWidth = False
Me.grvwGrid.OptionsView.EnableAppearanceEvenRow = True
Me.grvwGrid.OptionsView.ShowAutoFilterRow = True
'
'cmbConstructorForms
'
Me.cmbConstructorForms.FormattingEnabled = True
resources.ApplyResources(Me.cmbConstructorForms, "cmbConstructorForms")
Me.cmbConstructorForms.Name = "cmbConstructorForms"
'
'Label1
'
resources.ApplyResources(Me.Label1, "Label1")
Me.Label1.Name = "Label1"
'
'Label2
'
resources.ApplyResources(Me.Label2, "Label2")
Me.Label2.Name = "Label2"
'
'btnLink
'
resources.ApplyResources(Me.btnLink, "btnLink")
Me.btnLink.Name = "btnLink"
Me.btnLink.UseVisualStyleBackColor = True
'
'Label3
'
resources.ApplyResources(Me.Label3, "Label3")
Me.Label3.Name = "Label3"
'
'Label4
'
resources.ApplyResources(Me.Label4, "Label4")
Me.Label4.Name = "Label4"
'
'txtFileInfo
'
resources.ApplyResources(Me.txtFileInfo, "txtFileInfo")
Me.txtFileInfo.Name = "txtFileInfo"
Me.txtFileInfo.ReadOnly = True
'
'txtRecordId
'
resources.ApplyResources(Me.txtRecordId, "txtRecordId")
Me.txtRecordId.Name = "txtRecordId"
Me.txtRecordId.ReadOnly = True
'
'Label5
'
resources.ApplyResources(Me.Label5, "Label5")
Me.Label5.Name = "Label5"
'
'frmDocLink_Record_Entities
'
resources.ApplyResources(Me, "$this")
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Controls.Add(Me.SplitContainerControl1)
Me.Controls.Add(Me.txtRecordId)
Me.Controls.Add(Me.txtFileInfo)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.btnLink)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.cmbConstructorForms)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
Me.Name = "frmDocLink_Record_Entities"
CType(Me.SplitContainerControl1.Panel1, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainerControl1.Panel1.ResumeLayout(False)
CType(Me.SplitContainerControl1.Panel2, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainerControl1.Panel2.ResumeLayout(False)
CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainerControl1.ResumeLayout(False)
CType(Me.dgEntityRecords, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.grvwGrid, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents cmbConstructorForms As System.Windows.Forms.ComboBox
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents trvwMain As System.Windows.Forms.TreeView
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents dgEntityRecords As DevExpress.XtraGrid.GridControl
Friend WithEvents grvwGrid As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents btnLink As System.Windows.Forms.Button
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents txtFileInfo As System.Windows.Forms.TextBox
Friend WithEvents txtRecordId As System.Windows.Forms.TextBox
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents SplitContainerControl1 As DevExpress.XtraEditors.SplitContainerControl
End Class

184
app/DD-Record-Organizer/frmDocLink_Record_Entities.en-US.resx
View File

@@ -1,184 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<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">
<value>125, 13</value>
</data>
<data name="Label1.Text" xml:space="preserve">
<value>1. Choose Constructor:</value>
</data>
<data name="Label2.Size" type="System.Drawing.Size, System.Drawing">
<value>93, 13</value>
</data>
<data name="Label2.Text" xml:space="preserve">
<value>2. Choose entity:</value>
</data>
<data name="btnLink.Text" xml:space="preserve">
<value>Link record to file</value>
</data>
<data name="Label3.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 8.25pt, style=Italic</value>
</data>
<data name="Label3.Location" type="System.Drawing.Point, System.Drawing">
<value>350, 17</value>
</data>
<data name="Label3.Size" type="System.Drawing.Size, System.Drawing">
<value>23, 13</value>
</data>
<data name="Label3.Text" xml:space="preserve">
<value>file:</value>
</data>
<data name="Label4.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 8.25pt, style=Italic</value>
</data>
<data name="Label4.Location" type="System.Drawing.Point, System.Drawing">
<value>873, 17</value>
</data>
<data name="Label4.Size" type="System.Drawing.Size, System.Drawing">
<value>74, 13</value>
</data>
<data name="Label4.Text" xml:space="preserve">
<value>record chosen:</value>
</data>
<data name="txtFilename.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 8.25pt, style=Italic</value>
</data>
<data name="txtFilename.Size" type="System.Drawing.Size, System.Drawing">
<value>477, 22</value>
</data>
<data name="txtRecordId.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 8.25pt, style=Italic</value>
</data>
<data name="txtRecordId.Location" type="System.Drawing.Point, System.Drawing">
<value>953, 14</value>
</data>
<data name="Label5.Size" type="System.Drawing.Size, System.Drawing">
<value>97, 13</value>
</data>
<data name="Label5.Text" xml:space="preserve">
<value>3. Choose record:</value>
</data>
<data name="$this.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 8.25pt, style=Italic</value>
</data>
<data name="$this.Text" xml:space="preserve">
<value>Link file to Record</value>
</data>
</root>

944
app/DD-Record-Organizer/frmDocLink_Record_Entities.resx
View File

@@ -1,944 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="SplitContainerControl1.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Bottom, Left, Right</value>
</data>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="SplitContainerControl1.Location" type="System.Drawing.Point, System.Drawing">
<value>12, 67</value>
</data>
<data name="trvwMain.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Fill</value>
</data>
<data name="trvwMain.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value>
</data>
<data name="trvwMain.Size" type="System.Drawing.Size, System.Drawing">
<value>322, 503</value>
</data>
<assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="trvwMain.TabIndex" type="System.Int32, mscorlib">
<value>2</value>
</data>
<data name="&gt;&gt;trvwMain.Name" xml:space="preserve">
<value>trvwMain</value>
</data>
<data name="&gt;&gt;trvwMain.Type" xml:space="preserve">
<value>System.Windows.Forms.TreeView, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;trvwMain.Parent" xml:space="preserve">
<value>SplitContainerControl1.Panel1</value>
</data>
<data name="&gt;&gt;trvwMain.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="SplitContainerControl1.Panel1.Text" xml:space="preserve">
<value>Panel1</value>
</data>
<data name="&gt;&gt;SplitContainerControl1.Panel1.Name" xml:space="preserve">
<value>SplitContainerControl1.Panel1</value>
</data>
<data name="&gt;&gt;SplitContainerControl1.Panel1.Type" xml:space="preserve">
<value>DevExpress.XtraEditors.SplitGroupPanel, DevExpress.Utils.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;SplitContainerControl1.Panel1.Parent" xml:space="preserve">
<value>SplitContainerControl1</value>
</data>
<data name="&gt;&gt;SplitContainerControl1.Panel1.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="dgEntityRecords.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Fill</value>
</data>
<data name="dgEntityRecords.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value>
</data>
<data name="dgEntityRecords.Size" type="System.Drawing.Size, System.Drawing">
<value>900, 503</value>
</data>
<data name="dgEntityRecords.TabIndex" type="System.Int32, mscorlib">
<value>4</value>
</data>
<data name="&gt;&gt;dgEntityRecords.Name" xml:space="preserve">
<value>dgEntityRecords</value>
</data>
<data name="&gt;&gt;dgEntityRecords.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;dgEntityRecords.Parent" xml:space="preserve">
<value>SplitContainerControl1.Panel2</value>
</data>
<data name="&gt;&gt;dgEntityRecords.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="SplitContainerControl1.Panel2.Text" xml:space="preserve">
<value>Panel2</value>
</data>
<data name="&gt;&gt;SplitContainerControl1.Panel2.Name" xml:space="preserve">
<value>SplitContainerControl1.Panel2</value>
</data>
<data name="&gt;&gt;SplitContainerControl1.Panel2.Type" xml:space="preserve">
<value>DevExpress.XtraEditors.SplitGroupPanel, DevExpress.Utils.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;SplitContainerControl1.Panel2.Parent" xml:space="preserve">
<value>SplitContainerControl1</value>
</data>
<data name="&gt;&gt;SplitContainerControl1.Panel2.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<data name="SplitContainerControl1.Size" type="System.Drawing.Size, System.Drawing">
<value>1234, 503</value>
</data>
<data name="SplitContainerControl1.TabIndex" type="System.Int32, mscorlib">
<value>10</value>
</data>
<data name="SplitContainerControl1.Text" xml:space="preserve">
<value>SplitContainerControl1</value>
</data>
<data name="&gt;&gt;SplitContainerControl1.Name" xml:space="preserve">
<value>SplitContainerControl1</value>
</data>
<data name="&gt;&gt;SplitContainerControl1.Type" xml:space="preserve">
<value>DevExpress.XtraEditors.SplitContainerControl, DevExpress.Utils.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;SplitContainerControl1.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;SplitContainerControl1.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="cmbConstructorForms.Location" type="System.Drawing.Point, System.Drawing">
<value>121, 14</value>
</data>
<data name="cmbConstructorForms.Size" type="System.Drawing.Size, System.Drawing">
<value>213, 21</value>
</data>
<data name="cmbConstructorForms.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="&gt;&gt;cmbConstructorForms.Name" xml:space="preserve">
<value>cmbConstructorForms</value>
</data>
<data name="&gt;&gt;cmbConstructorForms.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;cmbConstructorForms.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;cmbConstructorForms.ZOrder" xml:space="preserve">
<value>9</value>
</data>
<data name="Label1.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="Label1.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 8.25pt</value>
</data>
<data name="Label1.Location" type="System.Drawing.Point, System.Drawing">
<value>9, 17</value>
</data>
<data name="Label1.Size" type="System.Drawing.Size, System.Drawing">
<value>106, 13</value>
</data>
<data name="Label1.TabIndex" type="System.Int32, mscorlib">
<value>1</value>
</data>
<data name="Label1.Text" xml:space="preserve">
<value>1. Sicht auswählen:</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>8</value>
</data>
<data name="Label2.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="Label2.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 8.25pt</value>
</data>
<data name="Label2.Location" type="System.Drawing.Point, System.Drawing">
<value>9, 51</value>
</data>
<data name="Label2.Size" type="System.Drawing.Size, System.Drawing">
<value>115, 13</value>
</data>
<data name="Label2.TabIndex" type="System.Int32, mscorlib">
<value>3</value>
</data>
<data name="Label2.Text" xml:space="preserve">
<value>2. Entität auswählen:</value>
</data>
<data name="&gt;&gt;Label2.Name" xml:space="preserve">
<value>Label2</value>
</data>
<data name="&gt;&gt;Label2.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;Label2.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;Label2.ZOrder" xml:space="preserve">
<value>7</value>
</data>
<data name="btnLink.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 8.25pt, style=Bold</value>
</data>
<data name="btnLink.Location" type="System.Drawing.Point, System.Drawing">
<value>1057, 12</value>
</data>
<data name="btnLink.Size" type="System.Drawing.Size, System.Drawing">
<value>189, 23</value>
</data>
<data name="btnLink.TabIndex" type="System.Int32, mscorlib">
<value>5</value>
</data>
<data name="btnLink.Text" xml:space="preserve">
<value>Verknüpfen</value>
</data>
<data name="&gt;&gt;btnLink.Name" xml:space="preserve">
<value>btnLink</value>
</data>
<data name="&gt;&gt;btnLink.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;btnLink.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;btnLink.ZOrder" xml:space="preserve">
<value>5</value>
</data>
<data name="Label3.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="Label3.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 8.25pt</value>
</data>
<data name="Label3.Location" type="System.Drawing.Point, System.Drawing">
<value>347, 17</value>
</data>
<data name="Label3.Size" type="System.Drawing.Size, System.Drawing">
<value>110, 13</value>
</data>
<data name="Label3.TabIndex" type="System.Int32, mscorlib">
<value>6</value>
</data>
<data name="Label3.Text" xml:space="preserve">
<value>Dateieigenschaften:</value>
</data>
<data name="&gt;&gt;Label3.Name" xml:space="preserve">
<value>Label3</value>
</data>
<data name="&gt;&gt;Label3.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;Label3.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;Label3.ZOrder" xml:space="preserve">
<value>4</value>
</data>
<data name="Label4.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="Label4.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 8.25pt</value>
</data>
<data name="Label4.Location" type="System.Drawing.Point, System.Drawing">
<value>821, 17</value>
</data>
<data name="Label4.Size" type="System.Drawing.Size, System.Drawing">
<value>135, 13</value>
</data>
<data name="Label4.TabIndex" type="System.Int32, mscorlib">
<value>7</value>
</data>
<data name="Label4.Text" xml:space="preserve">
<value>Ausgewählter Datensatz:</value>
</data>
<data name="&gt;&gt;Label4.Name" xml:space="preserve">
<value>Label4</value>
</data>
<data name="&gt;&gt;Label4.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;Label4.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;Label4.ZOrder" xml:space="preserve">
<value>3</value>
</data>
<data name="txtFileInfo.Location" type="System.Drawing.Point, System.Drawing">
<value>463, 14</value>
</data>
<data name="txtFileInfo.Size" type="System.Drawing.Size, System.Drawing">
<value>352, 22</value>
</data>
<data name="txtFileInfo.TabIndex" type="System.Int32, mscorlib">
<value>8</value>
</data>
<data name="&gt;&gt;txtFileInfo.Name" xml:space="preserve">
<value>txtFileInfo</value>
</data>
<data name="&gt;&gt;txtFileInfo.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;txtFileInfo.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;txtFileInfo.ZOrder" xml:space="preserve">
<value>2</value>
</data>
<data name="txtRecordId.Location" type="System.Drawing.Point, System.Drawing">
<value>962, 14</value>
</data>
<data name="txtRecordId.Size" type="System.Drawing.Size, System.Drawing">
<value>89, 22</value>
</data>
<data name="txtRecordId.TabIndex" type="System.Int32, mscorlib">
<value>9</value>
</data>
<data name="&gt;&gt;txtRecordId.Name" xml:space="preserve">
<value>txtRecordId</value>
</data>
<data name="&gt;&gt;txtRecordId.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;txtRecordId.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;txtRecordId.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<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, 8.25pt</value>
</data>
<data name="Label5.Location" type="System.Drawing.Point, System.Drawing">
<value>347, 51</value>
</data>
<data name="Label5.Size" type="System.Drawing.Size, System.Drawing">
<value>132, 13</value>
</data>
<data name="Label5.TabIndex" type="System.Int32, mscorlib">
<value>3</value>
</data>
<data name="Label5.Text" xml:space="preserve">
<value>3. Datensatz auswählen:</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>$this</value>
</data>
<data name="&gt;&gt;Label5.ZOrder" xml:space="preserve">
<value>6</value>
</data>
<metadata name="$this.Localizable" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<data name="$this.AutoScaleDimensions" type="System.Drawing.SizeF, System.Drawing">
<value>6, 13</value>
</data>
<data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
<value>1256, 582</value>
</data>
<data name="$this.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 8.25pt</value>
</data>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAgAEBAAAAEACABoBQAAhgAAABAQAAABACAAaAQAAO4FAAAYGAAAAQAIAMgGAABWCgAAGBgAAAEA
IACICQAAHhEAACAgAAABAAgAqAgAAKYaAAAgIAAAAQAgAKgQAABOIwAAMDAAAAEACACoDgAA9jMAADAw
AAABACAAqCUAAJ5CAAAoAAAAEAAAACAAAAABAAgAAAAAAEABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP//
/wB9fX0AwL29AEVERADg3t4AnJubAGJhYQCtrKwA0c3NAIyLiwDv6+sAcG9vAE9QUACkpKQA2NbWAFdY
WADIxcUAhoODAJWUlAC0srIAamZmAOjm5gB4d3cAXVxcAElJSQCRj48AzMrKAMPCwgCpp6cA29raAKKg
oAB0cnIAvLq6AIiIiABqamoA1tPTAG5sbAB6enoA0tDQAOzp6QBHRkYAW1paAJeWlgDe29sA6ejoAGdm
ZgDJx8cAwsDAAIODgwCJhoYAT05OANvY2ABwcXEAfXt7AKmpqQDQz88Aenh4AK+trQBycXEASEdHANzZ
2QBYV1cA2tnZANfV1QBoZ2cAa2lpAMfExABxcHAAvbu7AH58fACEgoIAqqioAKimpgCjoaEAlpWVAElI
SABiYmIAw8HBAHp5eQCMiooA0M3NAM3KygBtbGwAxMLCAHx7ewCIhoYAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABHECkZGDEAAAAAAAAAAAAmUx9FOlYqTA0zIwAA
AAAATz0PUjgFJ0g5MwQ+AAAAAAYsByUAAEsUQ0g8RCIAAAAALzQhUBVJAgokMkBNAAAAAAAIMFEJLxJT
EQAoNgAAAAAAAAAADlRONQAAHgNBAAAAAAAAAAAdC1UAAAAtLgAAAAAAAAAAABshIgAAP0IAAAAAAAAA
AAA3FhcAK0oMAAAAAAAAAAAAABwDO08gAAAAAAAAAAAAAAAAShpGEwAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAD//wAA//8AAMD/AACADwAAgAcAAIYDAADAAwAA4BMAAPwxAAD+OQAA/xkAAP8R
AAD/gwAA/8MAAP//AAD//wAAKAAAABAAAAAgAAAAAQAgAAAAAABABAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAFVVVQNUUFB1R0hI1kdGRvxGRkb2RUREw0hISGtHR0cTAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAABWVlaWbWxs/6KgoP+9u7v/r62t/4iGhv9bWlr/SEdH+EZHR+dLSkrzSkpKq00/
PxcAAAAAAAAAAAAAAAAAAAAAeXh49tzZ2f/m4+PI8uzsePLw8IDv7OzJ1NLS/qqoqP96eHj/T05O/0VE
RP9FRETOSEhIBAAAAAAAAAAAAAAAAJybm+Le29v/XFtb6T48PJE4ODg9AAAAAZKQkM20srL/y8fH7qqo
qP9IR0f/cXBw/0VGRl0AAAAAAAAAAAAAAACOjo5LzMrK9dvY2P+8urr/jIqK/2NfX+Spp6f8fX19/4qJ
iezW09P/iYaG9tfV1f9TU1PRAAAAAQAAAAAAAAAAAAAAAIKDgx6tq6t8ycbGy9LPz/7Rzc3/ycfH/4aD
g/9tbGz/0MzMzLa3tzTw7e33fXt7/0dHR0cAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB7fHwdl5WVacfF
xe/DwcH/SktLmwAAAAEAAAAA+vn5msC9vf9MS0u2AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AACkoaGA7+vr/3h3d+lCQkIIAAAAAP/8/DDp6Oj/ZWRk8wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAenp6EtDOzvG8urr/VFRUawAAAAD///8r2tnZ/2poaPYAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAClpaWH6Obm/3Rzc+dBQUFIjo2Ns6Ohof9eXV3DAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAfHx8FMfFxerAvb3/cnFx/3p5ef91c3P9XV5eSgAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACCg4Mwop+fxZORkf54dnbfamhoWwAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAD//wAA//8AAMD/AACADwAAgAcAAIYDAADAAwAA4BMAAPwxAAD+OQAA/xkAAP8RAAD/gwAA/8MAAP//
AAD//wAAKAAAABgAAAAwAAAAAQAIAAAAAACgAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8AgX9/AEE/
PwDBv78AoZ+fAGFfXwDh398A0c/PALGvrwBPT08AkZCQAPLv7wBwbm4Ad3d3AIiIiAC5t7cA6+fnAEhH
RwBnZ2cAqaioAFZWVgDIxsYAmpiYANzY2ABcWloAzsrKANfU1ACOi4sAe3t7AISEhAClo6MA5uLiAERD
QwDu6+sAS0tLAJycnABsa2sAZmNjAJWWlgDe3NwAUlJSAMXDwwC8uroArqysAHJxcQBdXV0AycnJAGJi
YgDo5eUAv7y8AIqLiwDV0tIAz83NAHV1dQB5eXkAg4GBAKyqqgCnpaUAo6GhAOPh4QDLy8sAzMjIAH5+
fgBHRUUA7OnpAE5NTQBVVFQAi4iIAI+NjQCdmpoAmJaWAPLx8QBISUkAUlBQAN7e3gDe2toAZmVlAMXB
wQCIhoYA5OPjAODd3QBfXl4A09HRAG5sbADDwsIAs7CwAIyMjACTkZEAZGJiANPPzwBubm4Ax8PDAHd1
dQCBgYEAhoSEAKOjowBFREQASUhIAEpKSgDn5OQAVFNTANbT0wBbW1sA0M7OAGJgYADOzMwAY2FhAM3L
ywBlZGQAx8XFAG9tbQDAvr4Auri4AHh4eAC4trYAfHx8AIWFhQCJh4cApKKiAJ2dnQCem5sAm5mZAJeV
lQDr6OgAR0ZGAOjm5gDk4uIAT05OAOPg4ADh4OAAVlVVANfV1QBdXFwAX11dAF9fXwDT0NAAbGxsAL+9
vQB3dnYAe3p6AIGAgACEg4MAi4mJAI+MjAChoKAASEZGAEtKSgDk4eEATEtLAOLf3wDf3d0AUVBQAN/c
3ABbWloA1dPTANDPzwBhYGAA0M3NAGJhYQDLyMgAxMLCAG9ubgB5eHgAsrCwAH9+fgCyr68AhYSEAImI
iACmpaUApKGhAJ2cnACbnJwAnZubAJqZmQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAADRWSfUoTDwAAAAAAAAAAAAAAAAAAADdiQ21UJZ+YYUmJRQ+lMwAAAAAAAAAAXoNELCpmaCs7
OG2AYWF9fWJ1AAAAAAAAbQWbQWSXKCCZnBB6dAaVYX1AHgAAAAAANghQkAAAAAAAVU4YoAlFGSESCgAA
AAAAdoSIT4WdDgAArl96rWxce5NdojYAAAAAAKqWUzIfp02ao6R6g5GecYYHrSMAAAAAAABgcIGUGwR3
WFytAzo8CakMFiYdAAAAAAAAAKypplNMcxg5Y2tuFACCf0dCAAAAAAAAAAAAAAB4F35aJXIAAAAAfKFp
PwAAAAAAAAAAAAAAAIoiBVsAAAAAS1FYZwAAAAAAAAAAAAAAACQiNVQAAAAAPUhWKQAAAAAAAAAAAAAA
AAAyfDstAAAAL5akZQAAAAAAAAAAAAAAAACrEWpvAAAANCt6hwAAAAAAAAAAAAAAAAAAczF3mqhXj3mL
HQAAAAAAAAAAAAAAAAAAegcaj1JZAo4uAAAAAAAAAAAAAAAAAAAAAHs+K0YcjTAAAAAAAAAAAAAAAAAA
AAAAAAAnC6iMPwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8A////AP///wDwH/8AwAB/AIAAHwCAAA8Ah8APAIDA
BwDAAAcA4AADAPgAQwD/geEA/+HhAP/h4QD/8OEA//DhAP/4AQD/+AMA//wHAP/+DwD///8A////AP//
/wAoAAAAGAAAADAAAAABACAAAAAAAGAJAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAZ2dnR1FPT6hKSkrfSUdH/kdG
Rv9JR0flSkpKskxMTGJOTk4OAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAHt7ewdeXl6nSUhI/1VUVP9lZGT/bmxs/2xra/9iYWH/UVBQ/0VERP9GR0f3TU1NrVJN
TVZMTU1iTElJeUhJSVhAQEASAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFtcXIhWVVX/i4iI/66s
rP/Fw8P/1tPT/9DOzv+8urr/o6Gh/4OBgf9lZGT/T05O/0VERP9FRET/R0ZG/0dGRv9GRUX0S0tLaQAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAGBfX+qhn5//1dPT/+zp6f/x7e3g9vPzsfb09Kzz7+/V4d7e/tDP
z/+5t7f/m5mZ/3x8fP9hX1//TEtL/0VERP9HRkb/SEZG/klJSWoAAAAAAAAAAAAAAAAAAAAAAAAAAHZ2
dvvRz8//5OPj/4yJieM6OzswAAAAAAAAAAAAAAAA7OTkJNrY2H7FwcH/3NjY/8vIyP+xr6//j42N/1xa
Wv9EQ0P/SEdH/0xMTPRCQkIaAAAAAAAAAAAAAAAAAAAAAH57e8DX1dX/09DQ/4iGhv9eXV3+VFNT2UpK
SotJSko4AAAAAHRxcVWGhIT/m5mZ/56cnPrT0dHcx8PD/5eVlf9LSkr/d3V1/29ubv9HR0eNAAAAAAAA
AAAAAAAAAAAAAHx8fC2loqLw4t/f/9PR0f+/vLz/paOj/4WEhP9mZWX/UlFR4nBvb9aysLD/m5mZ/09O
TumioKDo0M3N/7q4uP9fXV3/4d/f/52bm/9HR0fzUVFREgAAAAAAAAAAAAAAAAAAAACGh4ckoKCgs8LA
wP3j4OD/5OHh/9fU1P/Bv7//pKKi/5ORkf/Hw8P/nZub/0E/P/+npaX/4+Hh/7Oxsf2hoKCL9PHx/sjG
xv9mY2P/S0tLgwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHd3dxyBgoJlpKKis7SxsfTT0dH/3tra/7i2
tv/c2Nj/rKqq/0pKSv9jYWH/y8jI6aKenlgAAAAA+Pb2s+Ti4v+Ylpb/SEdH7UhISA8AAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAH5+fgl1dXVLk5OTl5iWlt/o5ub/08/P/2xra/8+Pj58Pz8/CAAA
AAAAAAAA////N+vo6P/EwsL/YmBg/0dHR3YAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAHZ2djDBv7/97uvr/6Gfn/9UVFSzAAAAAAAAAAAAAAAAAAAAAPLx8brg3d3/k5GR/0dH
R8wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACTlJSp7uvr/8/N
zf9vbW3+T09PLgAAAAAAAAAAAAAAAP///1zy8fH/s7Cw/09PT/QAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB+fn4qwL29/Ovo6P+joaH/VVRUrAAAAAAAAAAAAAAAAP//
/1ji39//srCw/1NSUvgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAlZSUpOvn5//OzMz/cG5u/U1NTTIAAAAAAAAAAOrm5qu8urr/m5mZ/1FRUdcAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAfX19Jrq4uPvo5eX/pKKi/1BP
T+BKR0dddnZ2lYuJif+em5v/d3Z2/1NSUo0AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAJCNjZrh39//zsrK/4uJif9fXl7/ZGJi/4F/f/+Eg4P/Wlpa8mNj
YxwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIGB
gQuTkZHLzMjI/7y6uv+dmpr/jouL/4GAgP9iYmL4cHBwTAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACIiIgIe3x8eI+OjuGJiIj/enl582ho
aKxwcHAvAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAA////AP///wD///8A8B//AMAAfwCAAB8AgAAPAIfADwCAwAcAwAAHAOAAAwD4AEMA/4HhAP/h
4QD/4eEA//DhAP/w4QD/+AEA//gDAP/8BwD//g8A////AP///wD///8AKAAAACAAAABAAAAAAQAIAAAA
AACABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8AgX9/AMK+vgBCQUEAoZ+fAOHe3gBhYGAAj5CQALGv
rwDw7+8A0c7OAHBwcABTUFAAqaenAImHhwCZl5cAamdnALm3twDp5+cA2tbWAFlYWADIxsYAeXh4ADs6
OgBJSEgATU1NAOXj4wBdXFwAbGxsALWzswB0dHQApaOjAIWDgwCNi4sAlZOTAFRVVQBlZGQAnJycAO3r
6wDd2toA1NLSAM7KygDFwsIArqurAEVFRQB9e3sAPj09AL+7uwDk4OAASktLANbW1gBYVVUA6+npANjU
1ABbWloAzMzMAF9eXgDKyMgAY2JiAGpqagBubm4Au7m5AHJycgC3tbUAdnZ2AH99fQCrqakAg4GBAKel
pQCjoaEAi4mJAI+NjQCXlZUA3t3dAJ6engBEQ0MA6OXlAFBQUADb2NgAVVNTANPQ0ADHxMQAZmZmAK+t
rQCGhYUAmpmZAJKQkABHRkYA39vbANzc3ABPTk4AU1JSANbT0wBXV1cAwL29AHt6egCRjo4A4uDgAExL
SwDY1tYAVlVVAMXExABoZ2cAbGpqAHBubgBycHAAg4ODAIeHhwCNjY0Al5eXAJWVlQDs6uoA7OjoAOro
6ADn5OQASEdHAOTi4gBLSkoA49/fAODd3QBSUVEA3NnZANnX1wBVVlYA19XVAFpZWQBeXV0AzcvLAGJh
YQDLyckAZGNjAGloaABra2sAwb+/AL68vAC8uroAc3NzALq4uAB1c3MAuLa2AHd3dwC0srIAsrCwAH58
fACAfn4ArKqqAISCggCqqKgAqKamAIiGhgCmpKQAiIiIAIqIiACkoqIAioqKAKKiogCioKAAoJ6eAI6P
jwCfnZ0AnZ2dAJGRkQCYlpYARUREAOjm5gDk4eEATExMAOHf3wDe3NwA3dvbAFRUVADb19cA1tTUANTR
0QDTz88A0c/PAGppaQDIxcUAbm1tAHJxcQDAvr4AeXl5ALW0tACBgIAAr66uAK6srACGhIQAkY+PAJWS
kgCVlJQAnJubAJmYmABGRUUA7erqAEdHRwDs6ekA6+joAOrn5wBLS0sATUxMAObj4wBOTU0A5eLiAFFQ
UADg3t4AVFNTAFVUVADe29sA3NraAFhXVwDb2dkAWVlZANrY2ADa19cAWlpaANfW1gBcXFwA2NXVAF9d
XQBkYmIA0M7OAGVjYwDNzMwAzsvLAGpoaABqa2sAbGtrAMbExABvbm4AxMLCAHNycgDBvr4AdHNzAHV0
dAB3dnYAure3ALm2tgB8enoAgH9/ALGwsACCgYEAhIODAIuIiACKiYkApqWlAKajowCkoaEAj4+PAJCQ
kAChoKAAoZ6eAJ6dnQCXlpYAmZmZAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAmIVep8fI2T8AAAAAAAAAAAAAAAAA
AAAAAAAAAAAAolykWGNbW2N0TFhOQQAAAAAAAAAAAAAAAAAAAAAAAGsZDeFgu0eZ8hcRzxlMdNSJgXzX
PQAAAAAAAAAAAABuY+NhDj6CFH0WjJdIFzvMw6RYWFh0WFMAAAAAAAAAAGjlIGZ6ycZNyRuo2uSOSw/p
OVvBWFhYWNQAAAAAAAAAO6DgpmI4AAAAAGbYWUqvXyyjRLPMpFhYwR8AAAAAAAAMEngouzsAAAAAAAAA
9ofTZDoSRgI0pKQ3LQAAAAAAAPGIzSpXg3l+jQAAAADv9ElGErCyQ0J2BAVQagAAAAAAAL56e7VFSe9n
zhXrAPOVnu60QzpmoKtH5ovBAAAAAAAAofzRd9YLX7oQAoTPnUBGaASHgAuUHcRPo8y2AAAAAAAAAG9U
ZBt1T98wkiLwK5XcGAPNrqOccROMaRkAAAAAAAAAAABu/vU60Kl9MO1dj7Ev8XO5AACtpSkjGrgAAAAA
AAAAAAAAAG4jwIpR7HIr70wZvwAAAAB3yR7jyAAAAAAAAAAAAAAAAAAAAAhWNTH71AAAAAAAAGRz3bxj
bAAAAAAAAAAAAAAAAAAAACKsCoaQ5QAAAAAAAHd4Cd5TAAAAAAAAAAAAAAAAAAAAAPon0J0VAAAAAAAA
BsKCQiQAAAAAAAAAAAAAAAAAAAAAn9PE6JDpAAAAAAAzxNqZMgAAAAAAAAAAAAAAAAAAAAAAnXDVnRUA
AAAAAFrTUg/MAAAAAAAAAAAAAAAAAAAAAAD5rE1fLukAAAAAqoYe7hwAAAAAAAAAAAAAAAAAAAAAAAAF
xdoF0gAAALeaRaAljQAAAAAAAAAAAAAAAAAAAAAAAPk2y4eRyuIM4SGju2UAAAAAAAAAAAAAAAAAAAAA
AAAAAL9zrg5g23+0u5Yl5wAAAAAAAAAAAAAAAAAAAAAAAAAAJglk5pdtk1XyswcAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAJv0+Hve9u+M8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJvy7+qN+AAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA//////////////////////gH///gAP//wAAB/4AA
AH+AAAA/geAAH4H8AB+APAAPwAQAD8AAAAfwAAAH/AADA/+AB4P/+B+B//wPwf/+D8H//gfB//8Hwf//
A8H//4OB//+AA///wAP//8AH///gD///+B////////////////8oAAAAIAAAAEAAAAABACAAAAAAAIAQ
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAbGxsFVtbW3JRUVG1Tk5O5ExMTP9LS0v/S0pK9UtLS9FMTEycTk5OS15eXgYAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAHJwcHdRUFD3RURE/0dGRv9MS0v/T05O/09OTv9MS0v/SEdH/0RDQ/9HRkb/SUlJ7FBQ
UJdVVVU7AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAABvb2+qSUhI/1NQUP9qaGj/e3p6/4aEhP+LiYn/ioiI/4SDg/95eHj/amdn/1VU
VP9JSEj/REND/0hHR/9OTk7eTk5Omk1LS8ZLTEzhSklJ00hISKBFRUVDAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAdXV1ZkxLS/9sa2v/kY6O/6mnp/+7ubn/y8nJ/9rW1v/X1dX/yMbG/7i2
tv+mpKT/j42N/3l4eP9jYmL/UVBQ/0dHR/9FRET/R0ZG/0dGRv9HRkb/SEdH/0dGRv9GRkavSkpKEAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABcWlrMb25u/6Wjo//FxMT/3NnZ/+bj4//q5+f/6OXl/+bj
4//l4+P/4d/f/9jV1f/GxMT/tLKy/56env+Jh4f/dHNz/19eXv9PTk7/RkVF/0dGRv9HRkb/R0ZG/0dG
Rv9ERETKJSUlBwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAGNiYvufnZ3/zsvL/+Th4f/k4uL+3t7epdzY
2EvW19cg0NDQGeDh4Srr5+dk6efnt+Le3vne3d3/08/P/8C9vf+uq6v/mJaW/4OBgf9ubW3/UVBQ/0VE
RP9HRkb/R0ZG/0ZFRf9ISEiQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAb29v9rm3t//g3d3/3dra/4iG
hv40MjKbODk5KgAAAAAAAAAAAAAAAAAAAAAAAAAA5+fnEqOfn6K+vLz/29nZ/9jW1v/KyMj/ube3/6Oh
of+Bf3//WFVV/0VERP9FRET/W1pa/0VFRfxOTk4iAAAAAAAAAAAAAAAAAAAAAAAAAABycXG3vLq6/+De
3v/Oysr/kpCQ/2RjY/9SUVH/TEtL2ElJSYpTTEw1AAAAAgAAAAAAAAAAdXR0yIqJif+XlZX/o6Gh/7u5
uffT0dH9yMXF/6upqf9/fX3/S0pK/0JBQf+hn5//VVNT/0lHR5cAAAAAAAAAAAAAAAAAAAAAAAAAAHp6
ejuWlZX53NnZ/9nX1//Avr7/p6Wl/5eVlf+Af3//aGdn/1RTU/9NTEzfSkhIi01NTUiMiYn7qKam/6Ce
nv98enr/TkxMn6upqcnKyMj/xcTE/5+dnf9UVFT/i4mJ/8TCwv91c3P/REND+UZGRhkAAAAAAAAAAAAA
AAAAAAAAAAAAAISEhGKfnp743Nra/+Pf3//a19f/0c7O/8C9vf+urKz/mZeX/4F/f/9paGj/VVRU/6Kg
oP+3tbX/o6Gh/2xqav9CQUH/vry8/83Ly//Rzs7/qqio/2xsbP/s6en/29jY/5iWlv9RUFD/TU1NiAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAIeHhzOPj4/Csa+v/djW1v/l4+P/5OLi/9vY2P/NzMz/v7u7/6yq
qv+Ni4v/sbCw/8XCwv+opqb/ZGJi/zs6Ov/Cvr7/4N7e/9TR0f+Zl5f5jo6OWPDs7Pbp5+f/uLa2/3Bu
bv9FRETzSEhIEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACBgYEsfX19d5WVlcWop6f7ysjI/97b
2//e3Nz/19XV/7+7u/+5trb/1tPT/7KwsP9qaWn/Pj09/4KBgf/n5OT/sbCw7pCKik8AAAAA9vLykejm
5v/U0tL/lZOT/01NTf9QTk54AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAH5+
fhlzdHRji4iIrZqZmfS6uLj/09DQ/7q3t//q6Oj/xcLC/4B/f/9EQ0P/Pz4+5o6MjIyJioobAAAAAAAA
AAD///8a5uLi9ubj4/+1s7P/bGtr/0ZFRetSU1MKAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAgICACXBwcE13eHiLnJub++vp6f/k4OD/oZ6e/1lZWfxKQkIrAAAAAAAA
AAAAAAAAAAAAAAAAAAD08fGc5+Tk/9DOzv+Rj4//TEtL/0xMTGQAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB9e3uo29fX//Dv7//Bv7//fnx8/01L
S6QAAAAAAAAAAAAAAAAAAAAAAAAAAP///yXm4uL64N3d/7Gvr/9lY2P/SUlJtAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHh4eCijoqL77evr/97b
2/+ioKD/WVhY+0xMTCIAAAAAAAAAAAAAAAAAAAAAAAAAAPn19bHt6ur/y8nJ/399ff9JSkrhAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAH5/
f6Tb2dn/7Onp/8G+vv9+fHz/TEpKlQAAAAAAAAAAAAAAAAAAAAAAAAAA////gOzp6f/Y1dX/ioiI/0pL
S/8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAe3x8J6Siovvs6ur/2tjY/6KgoP9YV1f3UkZGHAAAAAAAAAAAAAAAAAAAAAD///+U29nZ/8fE
xP+Jh4f/Tk1N9AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAgYGBpNvX1//o5eX/wL29/317e/9MSkqVAAAAAAAAAAAAAAAA////Aubj
49zBv7//tbOz/3x6ev9OTU3UAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACEhIQno6Gh++vo6P/Y1dX/oZ+f/1dWVvdNTU0+AAAAAAAA
AAC+vLyEpKKi/6elpf+fnZ3/ZWRk/1VVVZ0AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAgICj2NTU/+Xi4v++vLz/gH5+/0tK
SvZISUmnX19fwmtpaf6Fg4P/mJaW/4aEhP9WVVX/ZmZmPwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAISEhCWdnJz25+Tk/9TR
0f+pp6f/e3p6/19dXf9eXV3/cnFx/4aEhP+Ihob/ZWRk/2FfX74AAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIaG
hnCxr6//2NbW/8TCwv+mpKT/jY2N/4SCgv+GhYX/hIOD/25tbf9bWVnpeXl5HgAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAIiIiHaYl5f5u7m5/7Wzs/+koaH/lZKS/4aEhP9sa2v/YWFh3XR0dCsAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAH19fSB2d3ejgoGB7IB/f/92dXX7ampqzGtra3J9fX0JAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP/////////////////////4B///4AD//8AA
Af+AAAB/gAAAP4HgAB+B/AAfgDwAD8AEAA/AAAAH8AAAB/wAAwP/gAeD//gfgf/8D8H//g/B//4Hwf//
B8H//wPB//+Dgf//gAP//8AD///AB///4A////gf////////////////KAAAADAAAABgAAAAAQAIAAAA
AACACgAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8AgX9/AMK+vgBCQUEAoZ+fAOHe3gBhYGAAj5CQALGv
rwD08fEA0c7OAHFwcABTUFAAqaenAImHhwCal5cAamdnALm3twDp5+cA2tbWAFlYWADIxsYAeXh4ADw7
OwBJSEgATU1NAOXj4wBeXFwAbWxsALWzswB0dXUApaOjAIaDgwCNi4sAlZOTAFVVVQBlZGQAnZycAO/s
7ADe2toA1NLSAM3JyQDFwsIArqurAEVFRQB8e3sAPz4+AL+7uwDk4OAASktLANbW1gBYVlYA6+npANfU
1ABbW1sAzMzMAGBeXgDKyMgAY2JiAGtqagBubm4Au7m5AHJycgC4tbUAdnV1AH5+fgCrqakAhIGBAKel
pQCjoaEAi4mJAI+OjgCXlZUA393dAJ+engBEREQA6OXlAFBQUADc2NgAVVNTANPQ0ADHxMQAZmZmAK+t
rQCGhYUAm5mZAJKQkABHRkYA39vbANzc3ABPT08AUlJSANfT0wBXVlYAwb29AHt6egCQjo4A4uDgAE1L
SwDY1tYAVlVVAMXExABoZ2cAbGpqAHBubgBycHAAg4ODAIeHhwCNjY0Al5iYAJWVlQDs6uoA7OjoAOro
6ADn5OQASEdHAOPi4gBLSkoA49/fAODd3QBSUVEA3dnZANnX1wBVVlYA19XVAFtZWQBeXV0AzcvLAGJh
YQDMyckAZGNjAGhoaABra2sAwb+/AL68vAC8uroAc3NzALq4uAB1c3MAuLa2AHd3dwC0srIAsrGxAH18
fACAfn4ArKqqAISCggCqqKgAqKamAIiGhgCnpKQAiIiIAIqIiACloqIAi4uLAKKiogCioKAAoJ6eAI6O
jgCfnZ0AnZ2dAJKRkQCYlpYARkREAOnm5gDk4eEATExMAOHf3wDf3NwA3dvbAFRUVADb19cA1tTUANTR
0QDSz88A0c/PAGtpaQDJxcUAbm1tAHJxcQDAvr4Aenl5ALa0tACBgIAAr66uAK6srACGhIQAkY+PAJSS
kgCUlJQAnJubAJmYmABHRUUA7erqAEdHRwDs6ekA6+joAOrn5wBLS0sATUxMAOfj4wBPTU0A5eLiAFFQ
UADg3t4AVFNTAFVUVADe29sA3NraAFlXVwDb2dkAWVlZANrY2ADa19cAWVpaANfW1gBcW1sA2dXVAF9d
XQBkYmIA0M7OAGVjYwDOzMwAz8zMAGpoaABqa2sAbGtrAMbExABvb28Aw8HBAHRycgDBvr4AdHNzAHZ0
dAB3dXUAure3ALm2tgB8enoAgH9/ALGwsACCgYEAhISEAIuIiACJiYkApqWlAKajowCkoaEAj4+PAJCQ
kAChoKAAoZ6eAJ6dnQCXlpYAmZmZAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKKQsTdOW8pbOeVrAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAABrN8pYpKSkwcFYWFgZyCXxAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAvjlYTMF2TlzPXs55yBnBwVh0Y1NsAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADxeUxj1CXl
6+6QQi6NtOE5zhlYWFh0xzyfuLQ5OYSNAAAAAAAAAAAAAAAAAAAAAJ9bGX8MuGHAnSCVlZedv1eWF7HZ
ThnBWFjDWFhYWHTBpKsiAAAAAAAAAAAAAAAAABxjsSHAlECGgNYbc6nd5hK6oLxE6md+TnTBWFhYWFhY
dFgthQAAAAAAAAAAAAAAVXazSA6Hgtp4y02lc3OmShTg5rcOViKRtCXSyMPBWFhYWFh0wTkAAAAAAAAA
AAAA5Qe8CRY2d3NNd8mpeqkGqWIGeik6h4+XEJku5YFlY1hYWFhYdMEdAAAAAAAAAAAAO+5DFk+myRTm
AAAAAAAAAIew2qmp2t3kPrqdvVUXZ6vDWFhYWFhMAAAAAAAAAAAAJSKIrXepUiUAAAAAAAAAAAAAAACy
rnhProKGHg6/mbQ3dFhYWMwZqwAAAAAAAAAAjVfmenjfv9lYB/EAAAAAAAAAAACiOxASUdY23+SKRVfr
0sFYBLh+LZ8AAAAAAAAA+FXm09GyIESEflsZFbYAAAAAAAAhk71vYaOSKlGAtZRhs2NM2UNqdNcAAAAA
AAAAAI2OfdCwh5e9Ve4dHE4Z1LYAAADuo0YFVy45APCCgIdFRNIYkhKY0sGfAAAAAAAAAEvx5HoorlI+
jg5WIpCzOcwZJIWblSya+Qw5jYeH4BaOVzc0CuSgaViDAAAAAAAAAAC/8uZ6eCjaKSqGt5S/IkJpOdm/
HreVIt4EZys63d0+vTmtJ9OOliTBAAAAAAAAAAAAALj63ammpnhPUTroHg5WIkEOh4eSIjdMfuCuFK+K
D75xyaUrJrNYJQAAAAAAAAAAAADAbL2Pr6qoeChkrxaHHqO6FuQJIn6kL6gxeoKVVwDapsbaCbtcWAAA
AAAAAAAAAAAAAABvbJYg5DZ6KBQp3SyPC1ESIwekBFfF3UO/AAAABnMb5r88weUAAAAAAAAAAAAAAAAA
AADAmO+jjN1dZIK6rabmnrPBWBij9gAAAAAAKTGlKQlEzBkAAAAAAAAAAAAAAAAAAAAAAAAAm/EiDiu6
FAo2LLhOW4sAAAAAAAAAAAZzqIZWhME/AAAAAAAAAAAAAAAAAAAAAAAAAAAAovK7fcUnhxARfwAAAAAA
AAAAAGQxc69UkU4aAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAu5ssKUbq4eaIAAAAAAAAAAAAGc6noSSVY
mAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAvKrFc7UQhBwAAAAAAAAAAAB9dxvdkrZ2swAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAuOYbJ1FU8cwAAAAAAAAAAAAAc02m7Zl5OQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
ACKqxnUDVoQ7AAAAAAAAAAAACk0Ktb0VTgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAGuGycZRVETMAAAA
AAAAAAAACsvG6El/GgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABIKKUGhlaEgwAAAAAAAAAACigpiCMc
XAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABVX8lNsFTxTgAAAAAAAAAACuBSjiLSOwAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAm6pNqYb+hIMAAAAAAAB7gIoSl5PMiQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAVYfJGwtU8cz0AAAAALVAmg6Uo+fKbAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALt6c6roELF0
uAAASw9EvL+/D4HPAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJiMyabdulWBGS1YWwcXIlciQcwu
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACTraZ7hp24hH7SB7OQmA9CORUAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAACiSxRP34ygmRfp6u6TIZHhXJsAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAkw6w3eaOBb0ilpa7QuNlFwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPGih4YS
up2j+ZiQEdnxAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABuuKKaRr9Xu+lTHW4AAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPm4H420tEK+AAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///////8AAP//
/////wAA////////AAD///////8AAP///////wAA/wAf////AAD8AAP///8AAPAAAH///wAA4AAAAD//
AADAAAAAB/8AAMAAAAAD/wAAgAAAAAH/AACAAAAAAP8AAIA/gAAA/wAAgH/4AAB/AACAD/gAAD8AAIAB
+AAAPwAAwAA4CAAfAADAAAAAAB8AAOAAAAAAHwAA+AAAAAAPAAD8AAAAEA8AAP+AAAA4BwAA//AAAPgH
AAD//wAD/AMAAP//4Af8AwAA///4A/4BAAD///wD/gEAAP///AP/AQAA///+Af8BAAD///4B/wEAAP//
/wD/AQAA////AP8BAAD///+AfgEAAP///4A8AQAA////wBgDAAD////AAAMAAP///+AABwAA////4AAH
AAD////wAA8AAP////gAHwAA/////AA/AAD/////AP8AAP///////wAA////////AAD///////8AAP//
/////wAA////////AAAoAAAAMAAAAGAAAAABACAAAAAAAIAlAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAFtbWw9fX19YW1tblFhWVsZTU1PmUFBQ/05PT/9PTU3/TU1N+U1N
Tc5QUFCpUFBQdE9PTyYAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABqamonaWlpn1lZWfROTU3/R0ZG/0VERP9GRET/RkRE/0ZF
Rf9GRUX/R0ZG/0dGRv9HRkb/SEhI/01MTP9TU1PPVFRUfllaWh4AAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHNzc3BdXFz2R0ZG/0RDQ/9GRUX/S0pK/1BP
T/9TUlL/VVRU/1dWVv9UU1P/UlFR/01MTP9JSEj/RkVF/0ZFRf9HRkb/SEdH/0xKSvpSUlLFUlJSalJS
UhIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABiYmIGb29vrlJSUv5EQ0P/TEtL/1lZ
Wf9mZGT/b25u/3d1df98enr/fnx8/359ff98e3v/eHd3/3Jxcf9qaGj/YF5e/1RTU/9KSUn/R0ZG/0dG
Rv9HRkb/SEdH/0tLS/tPT0+yT09PVUxMTHdNTU2gSkpKyEpJSchJSkqvRkZGhktLSzcAAAACAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB1dXWLT09P/0hI
SP9dXV3/cXBw/4GAgP+Qjo7/mpiY/6KgoP+lo6P/qKam/6impv+mpKT/oqCg/5yamv+TkZH/iIaG/3l3
d/9qaWn/XFtb/1BPT/9JSEj/RkVF/0dGRv9HRkb/R0dH/0dGRv9HRkb/R0ZG/0dGRv9IR0f/R0VF/0ZE
RP9FRUXYSUlJVAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHNz
czNdXFz7TUpK/2tpaf+Fg4P/mpiY/6qoqP+4tLT/wsDA/8zKyv/a19f/5ePj/+bk5P/e3Nz/0M7O/8PC
wv+5t7f/rqys/5+dnf+Rj4//g4GB/3V0dP9oZmb/WllZ/1BPT/9IR0f/RkVF/0dGRv9HRkb/R0ZG/0dG
Rv9HRkb/R0ZG/0hHR/9HRkb/REVF/0VFRaFBQUEJAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAG1tbZtLSkr/b21t/4+Ojv+qp6f/vbu7/8zJyf/Y1dX/4N3d/+Xi4v/o5eX/6Obm/+jk
5P/m5OT/5OHh/9/d3f/Z1tb/z8zM/8LBwf+2tLT/qKen/5yZmf+NjIz/gH5+/3Jxcf9lZGT/WFdX/01M
TP9HR0f/RkVF/0dGRv9HRkb/R0ZG/0dGRv9HRkb/SEdH/0ZFRf9BQUG6SUlJCAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAGVlZdphYGD/kI+P/7Gurv/Hxsb/19TU/+Lf3//n5OT/5+Xl/+Xh
4f3s6Ojv8O3twu3p6b/v7e2/7Onp1+Hf3/fi4OD/4d7e/9zZ2f/V0tL/ysjI/7+8vP+ysLD/pqSk/5mX
l/+KiIj/fXt7/29ubv9jYWH/VlVV/0xLS/9HRkb/R0ZG/0dGRv9HRkb/R0ZG/0hHR/9GRUX/REREnQAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAGNiYv98enr/q6mp/8jGxv/b2Nj/5OHh/+bj
4//d2tr01NLSitjY2C8AAAAAAAAAAAAAAAAAAAAAAAAAAOHh4RHe2dlQ5uTkot3Z2e/f3Nz/3tzc/9nV
1f/Qzs7/xsPD/7q5uf+urKz/oqCg/5WSkv+GhYX/eXh4/2hnZ/9UVFT/R0dH/0dGRv9HRkb/R0ZG/0dG
Rv9HRkb/Q0RE/EhISEwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAGVlZf+Ni4v/vLq6/9bU
1P/i39//39zc/8fExP9aWlrePDw8PgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAOXm
5gnc2dlP1tLSqtPR0f/h3d3/3NjY/9TR0f/Mycn/wb+//7Wzs/+pp6f/nZub/4qIiP9zcXH/W1pa/0hH
R/9HRkb/R0ZG/0dGRv9RUFD/SklJ/0ZGRtwlJSUHAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAG5v
b9aRkJD/xMLC/9zZ2f/g3Nz/zszM/52bm/9cW1v/R0ZG/UpKSsRLS0tyT09PHgAAAAEAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAZWZmY2NiYv+al5f/ube3/9PQ0P/a19f/19TU/87MzP/GxMT/uri4/6el
pf+RkJD/d3V1/1lXV/9GRUX/R0ZG/0FAQP+BgID/WllZ/0VFRf9KSkpRAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAHR0dIaGhYX/xMLC/9vZ2f/c2tr/ycXF/6Wjo/+DgYH/aWho/1pZWf9PTk7/SUhI/0lJ
SdVMS0uFUktLLwAAAAEAAAAAAAAAAAAAAAAAAAAAe3h4yYSCgv+UkpL/lZWV/5COjv+Ylpb/rKqq/8/L
y/rT0ND/zMrK/8C+vv+qqKj/kI6O/29tbf9MS0v/REND/1xbW/+rqan/cnBw/0hHR/9JSkrSAAAAAgAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAH19fSN3dnbytLKy/9fV1f/e29v/0c/P/727u/+mpKT/lJKS/4eF
hf98enr/bWxs/15cXP9QT0//SkhI/0pJSdZMSUmGT09PNAAAAACNjY0TfHp6+ZiWlv+joaH/oJ+f/5OQ
kP99e3v/VlVV4319fSm0srLRzMnJ/8zKyv+9u7v/p6Wl/4SBgf9YV1f/Ozs7/6yqqv+5t7f/iIiI/1hX
V/9GRUX/UVFRVQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACDhIRghIOD/sbExP/d2dn/3dra/9PR
0f/IxMT/u7m5/7Oxsf+pp6f/m5mZ/4yKiv99fHz/bm1t/19eXv9RUFD/SklJ/kZHR9xOTk6wi4qK/6im
pv+tq6v/paKi/5CQkP9wb2//UVBQ13Bvb9i+vLz/v7y8/87Ly//Ixsb/s7Gx/5KQkP9bWlr/WFZW//n1
9f/GxcX/n52d/3Bubv9HRkb/TExMwQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAhYWFdIWE
hPjDwcH/3NnZ/+Dd3f/d2tr/2dXV/9TS0v/Nycn/wr+//7W0tP+qqKj/nJqa/46MjP9+fX3/cG5u/19e
Xv9cW1v/nJqa/7Wzs/+2tLT/qKam/42Li/9lY2P/Q0JC/2hnZ//FwsL/ycjI/9DOzv/Pzc3/u7m5/5SS
kv9hXl7/1tTU/+/s7P/b2dn/s7Gx/4iGhv9VVVX/R0ZG/lFRUT4AAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAIaGhkV5eXnaoaCg/8/Nzf/f3Nz/5OHh/+Ph4f/g3d3/29jY/9TQ0P/KyMj/wb6+/7Sz
s/+op6f/m5mZ/46MjP92dXX/qaen/769vf++vLz/rKqq/4yKiv9bW1v/REND/1pZWf/PzMz/09HR/9nW
1v/Sz8//uri4/4mHh/99fn6G8e3t9ebj4//p5ub/xsLC/52cnP9ubGz/R0ZG/01NTcAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACCgoIJfX19boCAgNKTkpL/srCw/9LPz//d29v/4d/f/+Dd
3f/d2tr/2NbW/9LPz//Ix8f/v7y8/7Wzs/+Ylpb/r6ys/8nGxv/GxMT/sa+v/46MjP9bWVn/RURE/z8+
Pv/h39//5ODg/9zZ2f/Lycn/qKam/4J/f58AAAAC+fX1j+Ph4f/q5+f/2NXV/7Gvr/+GhIT/U1JS/0hH
R/5TU1MyAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAGGh4cneHl5d3p7
e8CHhob5pKOj/8bExP/X1NT/3NnZ/93a2v/Z1tb/1dLS/9DNzf+tq6v/srGx/9HOzv/S0ND/ube3/5WT
k/9gYGD/RURE/0FAQP+SkJD/6+jo/9DNzf+sqqr9kY6OkwAAAAEAAAAA//z8G+Xi4vXm5eX/5OPj/8TC
wv+dmpr/a2pq/0ZFRf9RUVGsAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAB6enoTdnZ2ZHV2dqR/fn7xmJaW/7i2tv/Qzs7/19PT/9jW1v/MyMj/rays/9bU
1P/j4eH/xMLC/6Cenv9vbW3/RkVF/0dGRv88Ozv/mJaW/6WiotCQkJBHAAAAAAAAAAAAAAAAAAAAAPXw
8I3j4OD/6ebm/9TT0/+xr6//hIGB/1FQUP9JSUn7UlJSLwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB0dHQKdnd3PnJzc5J9fHzfjIyM/6qn
p//Fw8P/r6ys/9nW1v/x7u7/19TU/66rq/+CgID/UE9P/0ZFReVNSkqWRUVFPl5eXgMAAAAAAAAAAAAA
AAAAAAAAAAAAAP///xjl4uLz5+Tk/+Hf3//CwMD/m5iY/2hoaP9GRUX/UlJSogAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAACeXl5K3Jycnhvb2+ph4aG/tfV1f/r6Oj/7+zs/7+8vP+Zl5f/aWZm/0tKSs0AAAADAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADy7++g4+Dg/+fk5P/Sz8//r62t/4B+fv9QT0//SkpK9k5O
ThwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcnNz0cTAwP/l4uL/8u/v/9LR0f+urKz/gYCA/1JR
Uf9QUFBQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD/+von5OHh++bk5P/f3Nz/wb6+/5eV
lf9lZGT/SEZG/1FRUWcAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAe3t7SZCPj//d29v/6+jo/+fk
5P+/vr7/mZeX/2loaP9MS0vQAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA8e7uoeLf
3//l4+P/0M7O/6yqqv96eXn/SkpK/05OTqwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHR0
dMnDwcH/5eTk/+7r6//T0ND/rq2t/4GBgf9RUFD/Uk5OSwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAA+vT0Mefk5P/o5eX/5OHh/7m2tv+KiIj/UlFR/01NTc4AAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAH19fUWNjIz/3dvb/+rn5//j4uL/wr6+/5uZmf9paGj/S0pKvgAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAA////Cfbz8/Hn5eX/9/X1/7++vv+UkpL/WVhY/05OTvUAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAF3eHjEwsDA/+bj4//r5+f/0tDQ/7Ctrf+DgYH/UVBQ/U9P
Tz4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP///97l4uL/6ubm/8G+vv+XlZX/Xl1d/01N
Tf8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACCgoJFjo2N/97a2v/p5ub/4d7e/8K/
v/+bmZn/aWho/0tKSr0AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA////C/76+vXd2tr/09LS/7y6
uv+Vk5P/XVxc/1BQUPcAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAeXl5wMG9
vf/n4+P/5+Xl/9HPz/+vra3/gYGB/1FQUP5PT09CAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA////P/Tx
8f/Oy8v/x8PD/7Sysv+OjIz/WFdX/1JRUc4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAf39/RI2MjP7d29v/6OXl/9/c3P/Cv7//mZmZ/2loaP9MS0u+AAAAAQAAAAAAAAAAAAAAAAAA
AAAAAAAA9PDwoM3Ly/+6uLj/ube3/6ekpP+DgoL/UVBQ/1hYWK8AAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAHp6esC9u7v/5uPj/+Xj4//Rzs7/r62t/4GBgf9RUFD/T01NYQAA
AAAAAAAAAAAAAAAAAADj399Ut7W1/6Siov+pp6f/qqio/5iWlv90cnL/Tk1N/1pbW3UAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIaGhj+Hhob+3NnZ/+fk5P/d29v/wb6+/5mX
l/9qaWn/SEdH/ExJSXM/QEAQnY6OF4eIiGOKiIj4g4GB/5GPj/+dm5v/nZub/4iHh/9iYWH/VVRU/15e
XiAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB8fHy/uLa2/+bj
4//k4eH/z83N/66srP+HhYX/YWFh/0lJSf9GRkb+R0dH/k9OTv9iYGD/eXh4/4yKiv+TkZH/jYqK/3Z1
df9RUFD/Z2dnsAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AACFhoY7hIOD+9bU1P/k4eH/2NfX/8C/v/+ioKD/goCA/2loaP9aWVn/WFdX/2FgYP9vbW3/fXx8/4iI
iP+Kh4f/fn19/2BeXv9YWFj8dHR0NAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAf39/nJ+env/a1tb/3NjY/87MzP+4trb/n52d/4qIiP96eHj/dHNz/3Z0
dP98enr/g4KC/4aDg/9/fn7/amho/1JTU/9ra2uGAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAXV1dBnp4eMupp6f/0c/P/8/Ozv/DwsL/s7Gx/6Gf
n/+UkpL/jIqK/4iGhv+Ihob/hoSE/359ff9sa2v/VlVV/2VlZbiCgoIHAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIqLixN0dHTBkpGR/768
vP/Cv7//ube3/66srP+ioKD/mJaW/5CQkP+JiIj/fnx8/2pnZ/9cW1v/cXFxsoGBgQcAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AACVlZUEf4CAfHt6etuSkZH/pKKi/6Ohof+cmpr/kpCQ/4WEhP90c3P/ZmVl/2hnZ+l8fHxxAAAAAQAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAIKCghN0dHSBdHR0wnV2dv12d3f/c3Fx/25ubu1ubm67cHBwamlp
aQ0AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA////////AAD///////8AAP///////wAA////////
AAD///////8AAP8AH////wAA/AAD////AADwAAB///8AAOAAAAA//wAAwAAAAAf/AADAAAAAA/8AAIAA
AAAB/wAAgAAAAAD/AACAP4AAAP8AAIB/+AAAfwAAgA/4AAA/AACAAfgAAD8AAMAAOAgAHwAAwAAAAAAf
AADgAAAAAB8AAPgAAAAADwAA/AAAABAPAAD/gAAAOAcAAP/wAAD4BwAA//8AA/wDAAD//+AH/AMAAP//
+AP+AQAA///8A/4BAAD///wD/wEAAP///gH/AQAA///+Af8BAAD///8A/wEAAP///wD/AQAA////gH4B
AAD///+APAEAAP///8AYAwAA////wAADAAD////gAAcAAP///+AABwAA////8AAPAAD////4AB8AAP//
//wAPwAA/////wD/AAD///////8AAP///////wAA////////AAD///////8AAP///////wAA
</value>
</data>
<data name="$this.Text" xml:space="preserve">
<value>Datei(en) mit Datensatz verknüpfen</value>
</data>
<data name="&gt;&gt;grvwGrid.Name" xml:space="preserve">
<value>grvwGrid</value>
</data>
<data name="&gt;&gt;grvwGrid.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;$this.Name" xml:space="preserve">
<value>frmDocLink_Record_Entities</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>

451
app/DD-Record-Organizer/frmDocLink_Record_Entities.vb
View File

@@ -1,451 +0,0 @@
Imports System.Text
Imports System.IO
Imports DD_LIB_Standards
Public Class frmDocLink_Record_Entities
Dim DT_TREEVIEW_PER_CONTROLS As DataTable
Dim TreeView_perControl As Boolean = False
Dim DT_TREEVIEW_CONFIGURATION As DataTable
Private DT_VWPMO_CONSTRUCTOR_FORMS As DataTable
Private TREEVIEW_IMAGELIST As ImageList
Private NODE_NAVIGATION As Boolean = False
Private NODE_NAVIGATION_LOADED As Boolean = False
Private ENTITY_LOADED As Boolean = False
Private ENTITY_ID As Integer
Private RECORD_ID As Integer
Private _FORM_ID As Integer
' Private _objecttype As String
Private Class ClassEntity
Public title As String
Public id As Integer
Public Overrides Function ToString() As String
Return Me.title
End Function
End Class
Public Sub New() 'fileName As String, Objecttype As String)
InitializeComponent()
If ClassWindreamDocGrid.DT_RESULTFILES.Rows.Count = 1 Then
txtFileInfo.Text = ClassWindreamDocGrid.DT_RESULTFILES.Rows(0).Item("DOC_PATH")
Else
txtFileInfo.Text = String.Format("{0} files selected for Record2Link", ClassWindreamDocGrid.DT_RESULTFILES.Rows.Count)
End If
'txtFilename.Text = fileName
'_objecttype = Objecttype
End Sub
Private Function GetENTITIES() As DataTable
Try
Dim SQL As String = String.Format("SELECT DISTINCT FORM_ID,FORM_TITLE,SEQUENCE FROM VWPMO_CONSTRUCTOR_FORMS where CONSTRUCT_ID in " &
"(SELECT CONSTRUCT_ID FROM TBPMO_CONSTRUCTOR_USER WHERE USER_ID = {0}) ORDER BY SEQUENCE", USER_GUID)
Dim dt As DataTable = ClassDatabase.Return_Datatable(SQL)
Return dt
Catch ex As Exception
MsgBox("Entities could not be loaded in LinkToRecord: " & vbNewLine & ex.Message)
Return Nothing
End Try
End Function
Private Sub frmWD_Link_to_Record_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim DT_ENTITIES As DataTable = GetENTITIES()
Dim selected As Integer = 0
If DT_ENTITIES.Rows.Count = 0 Then
Exit Sub
End If
For Each row As DataRow In DT_ENTITIES.Rows
Dim entity As New ClassEntity
entity.title = row.Item("FORM_TITLE")
entity.id = row.Item("FORM_ID")
cmbConstructorForms.Items.Add(entity)
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
cmbConstructorForms.SelectedIndex = selected
End Sub
Sub Load_TreeViewEbene(constructorId As Integer)
Cursor = Cursors.WaitCursor
trvwMain.Nodes.Clear()
If NODE_NAVIGATION = True Then
Dim newTreeview As TreeView
newTreeview = ClassNodeNavigation.CreateTreeViewNodes(DT_TREEVIEW_PER_CONTROLS, TREEVIEW_IMAGELIST)
If Not IsNothing(newTreeview) Then
For Each node As TreeNode In newTreeview.Nodes
trvwMain.Nodes.Add(node.Clone)
Next
End If
Else
Try
Dim sel_sql = String.Format("SELECT *, [dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), FORM_VIEW_ID), {1}) AS 'CAPTION' " &
"from VWPMO_CONSTRUCTOR_FORMS WHERE FORM_TYPE_ID IN (1,4) AND PARENT_ID = 0 AND CONSTRUCT_ID = {2} AND SCREEN_ID = {3} ORDER BY SEQUENCE", USER_LANGUAGE, CURRENT_SCREEN_ID, constructorId, CURRENT_SCREEN_ID)
Dim DT As DataTable = ClassDatabase.Return_Datatable(sel_sql)
If DT.Rows.Count >= 1 Then
trvwMain.Nodes.Clear()
For Each rowEbene0 As DataRow In DT.Rows
Dim Node As TreeNode
Node = trvwMain.Nodes.Add("E1: " & rowEbene0.Item("CAPTION").ToString)
Node.Tag = rowEbene0.Item("GUID")
'Jetzt die Ebene1Knoten einhängen
sel_sql = String.Format("SELECT *, [dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), FORM_VIEW_ID), {1}) AS 'CAPTION' " &
"from VWPMO_CONSTRUCTOR_FORMS WHERE FORM_TYPE_ID in (2,5) AND PARENT_ID = {2} AND CONSTRUCT_ID = {3} AND SCREEN_ID = {4} ORDER BY SEQUENCE", USER_LANGUAGE, CURRENT_SCREEN_ID, rowEbene0.Item("FORM_ID"), constructorId, CURRENT_SCREEN_ID)
Dim dtEbene1 As DataTable = ClassDatabase.Return_Datatable(sel_sql)
If dtEbene1.Rows.Count > 0 Then
For Each rowEbene1 As DataRow In dtEbene1.Rows
Dim Node1 As TreeNode
Node1 = Node.Nodes.Add("E2: " & rowEbene1.Item("CAPTION").ToString)
Node1.Tag = rowEbene1.Item("GUID")
'Jetzt die Ebene2 Knoten einhängen
sel_sql = String.Format("SELECT *, [dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), FORM_VIEW_ID), {1}) AS 'CAPTION' " &
"from VWPMO_CONSTRUCTOR_FORMS WHERE FORM_TYPE_ID in (3,5) AND PARENT_ID = {2} AND CONSTRUCT_ID = {3} AND SCREEN_ID = {4} ORDER BY SEQUENCE", USER_LANGUAGE, CURRENT_SCREEN_ID, rowEbene1.Item("FORM_ID"), constructorId, CURRENT_SCREEN_ID)
Dim dtEbene2 As DataTable = ClassDatabase.Return_Datatable(sel_sql)
If dtEbene2.Rows.Count > 0 Then
For Each rowEbene2 As DataRow In dtEbene2.Rows
Dim Node2 As TreeNode
Node2 = Node1.Nodes.Add("E3: " & rowEbene2.Item("CAPTION").ToString)
Node2.Tag = rowEbene2.Item("GUID")
Next
End If
Next
End If
Next
trvwMain.ExpandAll()
trvwMain.Nodes(0).EnsureVisible()
Else
MsgBox("Achtung Konfigurationsfehler: Mehrere oder keine Level 0 Entität gefunden!" & "Korrigieren Sie bitte Ihre Eingaben", MsgBoxStyle.Exclamation)
End If
Catch ex As Exception
MsgBox("Error in Load_TreeViewEbene in LinkToRecord:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End If
Cursor = Cursors.Default
End Sub
Public Function Get_Grid_Sql(FormId As Integer, ConstructorDetailID As Integer) As String
Try
Dim ResultSQL, ResultViewName As String
Dim RecordId As Integer
LOGGER.Debug("GridType = Grid", False)
ResultViewName = "VWPMO_ENTITY_TABLE" & FormId.ToString
ResultSQL = "SELECT T.* FROM " & ResultViewName & " T"
Try
Dim sql = String.Format("SELECT COUNT(*) FROM TBPMO_CONSTRUCTOR_USER_SQL WHERE USER_ID = {0} AND CONSTR_DET_ID = {1} AND SQL_COMMAND IS NOT NULL AND SQL_COMMAND <> ''", USER_GUID, ConstructorDetailID)
Dim exists = ClassDatabase.Execute_Scalar(sql)
If exists = 1 Then
sql = String.Format("SELECT SQL_COMMAND FROM TBPMO_CONSTRUCTOR_USER_SQL WHERE USER_ID = {0} AND CONSTR_DET_ID = {1}", USER_GUID, ConstructorDetailID)
Dim result = ClassDatabase.Execute_Scalar(sql)
If Not IsNothing(result) Then
ResultSQL = ResultSQL & " " & result.ToString
'ResultSQL = ResultSQL.ToUpper.Replace("@RECORDID", RECORD_ID)
ResultSQL = ResultSQL.ToUpper.Replace("@USER_ID", USER_GUID)
End If
End If
Return ResultSQL
Catch ex As Exception
LOGGER.Warn("Error in Get_Grid_Sql in LinkToRecord: " & vbNewLine & ex.Message)
MsgBox("Error in Get_Grid_Sql in LinkToRecord: " & vbNewLine & ex.Message)
End Try
Catch ex As Exception
LOGGER.Warn("Error in Get_Grid_Sql: " & vbNewLine & ex.Message)
MsgBox("Error in Get_Grid_Sql: " & vbNewLine & ex.Message)
End Try
End Function
Public foundNode As TreeNode = Nothing
Private Sub cmbConstructorForms_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbConstructorForms.SelectedIndexChanged
Dim entity As ClassEntity = DirectCast(cmbConstructorForms.SelectedItem, ClassEntity)
If cmbConstructorForms.SelectedIndex <> -1 Then
CURRENT_CONSTRUCTOR_ID = entity.id
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, CURRENT_CONSTRUCTOR_ID)
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})", CURRENT_CONSTRUCTOR_ID)
Dim DT As DataTable = ClassDatabase.Return_Datatable(SQL)
If DT.Rows.Count > 1 Then
TreeView_perControl = True
DT_TREEVIEW_PER_CONTROLS = DT
SQL = String.Format("select * from TBPMO_STRUCTURE_NODES_CONFIGURATION where ENTITY_ID IN (SELECT FORM_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = {0})", CURRENT_CONSTRUCTOR_ID)
DT_TREEVIEW_CONFIGURATION = ClassDatabase.Return_Datatable(SQL)
Try
TREEVIEW_IMAGELIST = New ImageList
For Each row As DataRow In DT_TREEVIEW_CONFIGURATION.Rows
Try
Dim bimage = row.Item("NODE_IMAGE")
If Not IsDBNull(bimage) Then
Dim Node_image = ByteArrayToBitmap(bimage)
TREEVIEW_IMAGELIST.Images.Add(row.Item("GUID").ToString, Node_image) 'row.Item("GUID").ToString & "#" & row.Item("ENTITY_ID")
End If
Catch ex As Exception
End Try
Next
trvwMain.ImageList = TREEVIEW_IMAGELIST
Catch ex As Exception
MsgBox("Error in Adding NodeConfigurations to TreeView: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
NODE_NAVIGATION = True
NODE_NAVIGATION_LOADED = False
grvwGrid.Columns.Clear()
dgEntityRecords.DataSource = Nothing
Else
TreeView_perControl = False
NODE_NAVIGATION = False
End If
' Entitäten laden
Load_TreeViewEbene(CURRENT_CONSTRUCTOR_ID)
foundNode = Nothing
SelectNodeRecursive(trvwMain, trvwMain.Nodes, CURRENT_CONSTRUCTOR_DETAIL_ID)
If IsNothing(foundNode) Then
'Erste Entität selektieren
trvwMain.SelectedNode = trvwMain.Nodes.Item(0)
Else
'Aktuelle Entität selektieren
trvwMain.SelectedNode = foundNode
End If
End If
End Sub
Public Sub SelectNodeRecursive(treeview As TreeView, nodes As TreeNodeCollection, constructorDetailId As Integer)
Try
For Each node As TreeNode In nodes
Dim id As Integer = node.Tag
If id = constructorDetailId Then
foundNode = node
Exit Sub
Else
SelectNodeRecursive(treeview, node.Nodes, constructorDetailId)
End If
Next
Catch ex As Exception
End Try
End Sub
Private Sub trvwMain_AfterSelect(sender As Object, e As TreeViewEventArgs) Handles trvwMain.AfterSelect
Try
Dim dt As DataTable
If NODE_NAVIGATION = False Then
SetSelectedNodeStyle(trvwMain.Nodes)
CURRENT_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}", CURRENT_CONSTRUCTOR_DETAIL_ID, CURRENT_CONSTRUCTOR_ID)
_FORM_ID = ClassDatabase.Execute_Scalar(SQL)
SQL = Get_Grid_Sql(_FORM_ID, CURRENT_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
If NODE_NAVIGATION_LOADED = False Then
ENTITY_ID = ClassNodeNavigation.Return_ENTITY_FOR_TAG(SelectedNode.Tag)
Dim SQL As String '= String.Format("SELECT FORM_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = {0} AND FORM_ID = {1}", CURRENT_CONSTRUCTOR_ID, ENTITY_ID)
SQL = Get_Grid_Sql(ENTITY_ID, CURRENT_CONSTRUCTOR_DETAIL_ID)
dt = ClassDatabase.Return_Datatable(SQL)
If IsNothing(dt) Then
Exit Sub
End If
dgEntityRecords.DataSource = dt
grvwGrid.PopulateColumns()
dgEntityRecords.RefreshDataSource()
NODE_NAVIGATION_LOADED = True
End If
LOGGER.Debug("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
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 " + CURRENT_CONSTRUCTOR_DETAIL_ID + " konnte nicht geladen werden: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Exit Sub
End Try
End Sub
Function GetSafeFilename(filename As String)
Return String.Join("_", filename.Split(Path.GetInvalidFileNameChars()))
End Function
Private Function Get_Grid_Layout_Filename(EntityName As String)
Dim Filename As String = String.Format("{0}-{1}-{2}-UserLayout.xml", grvwGrid.Name, GetSafeFilename(EntityName), CURRENT_CONSTRUCTOR_ID)
Return System.IO.Path.Combine(Application.UserAppDataPath(), Filename)
End Function
Public Sub SetSelectedNodeStyle(tncoll As TreeNodeCollection)
For Each node As TreeNode In tncoll
If node.IsSelected Then
node.NodeFont = New Font(trvwMain.Font.FontFamily, trvwMain.Font.Size, FontStyle.Bold)
node.Text = node.Text
Else
node.NodeFont = New Font(trvwMain.Font.FontFamily, trvwMain.Font.Size, FontStyle.Regular)
End If
If node.Nodes.Count > 0 Then
SetSelectedNodeStyle(node.Nodes)
End If
Next
trvwMain.Refresh()
End Sub
Sub Load_Grid_Layout(constructorName As String)
Try
Dim XMLPath = Get_Grid_Layout_Filename(constructorName)
If File.Exists(XMLPath) Then
grvwGrid.RestoreLayoutFromXml(XMLPath)
grvwGrid.GuessAutoFilterRowValuesFromFilter()
End If
Catch ex As Exception
MsgBox("Error in Load_Grid_Layout: " & vbNewLine & ex.Message)
End Try
End Sub
Private Sub GridView1_FocusedRowChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Handles grvwGrid.FocusedRowChanged
If Not IsNothing(dgEntityRecords.DataSource) Then
Dim RecordId As Integer = grvwGrid.GetFocusedRowCellValue(grvwGrid.Columns(0))
txtRecordId.Text = RecordId
End If
End Sub
Private Sub btnLink_Click(sender As Object, e As EventArgs) Handles btnLink.Click
If clsWindream.Create_Session = False Then
MsgBox("No Seesion to windream created! Check Your connection!", MsgBoxStyle.Critical)
Exit Sub
End If
Dim RecordId As Integer
If txtRecordId.Text.Trim.Count > 0 Then
RecordId = Integer.Parse(txtRecordId.Text)
Try
For Each row As DataRow In CURRENT_DT_SELECTED_FILES.Rows
CURRENT_DOC_ID = row.Item("DOC_ID")
Dim DOC_PATH = row.Item("FILEPATH")
Dim _objecttype = row.Item("OBJECTTYPE")
clsWindream.MY_WDOBJECTTYPE = _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)
If ClassDatabase.Execute_non_Query(ins) = False Then
MsgBox("Unexpected Error in Inserting Record-Doc Link. Please check logfile!", MsgBoxStyle.Critical)
Else
If LICENSE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then
Dim proc = String.Format("EXEC PRPROXY_DOC_CHECK_DOC_REC_LINK {0},{1}", CURRENT_DOC_ID, RecordId)
ClassDatabase.Execute_non_Query(proc, True)
End If
End If
Dim sql = String.Format("SELECT * FROM TBPMO_WD_OBJECTTYPE WHERE OBJECT_TYPE = '{0}'", _objecttype)
Dim DT_OBJTYPE As DataTable = ClassDatabase.Return_Datatable(sql, True)
If DT_OBJTYPE.Rows.Count = 1 Then
Dim Entity_Index = DT_OBJTYPE.Rows(0).Item("IDXNAME_ENTITYID")
Dim Record_Index = DT_OBJTYPE.Rows(0).Item("IDXNAME_RECORDID")
Dim ENT_ID = ClassDatabase.Execute_Scalar(String.Format("SELECT FORM_ID FROM TBPMO_RECORD WHERE GUID = {0}", RecordId))
If ENT_ID > 1 Then
If clsWD_SET.IndexFile(DOC_PATH, Entity_Index, ENT_ID, _objecttype) = False Then
Dim msg = "Die Entität-ID konnte nicht gesetzt werden! Bitte überprüfen Sie die Logfile"
If USER_LANGUAGE <> "de-DE" Then
msg = "Could not index Entity-ID! Please check logfile!"
End If
MsgBox(msg, MsgBoxStyle.Exclamation)
End If
End If
If clsWD_SET.IndexFile(DOC_PATH, Record_Index, RecordId, _objecttype) = False Then
Dim msg = "Die Record-ID konnte nicht gesetzt werden! Bitte überprüfen Sie die Logfile"
If USER_LANGUAGE <> "de-DE" Then
msg = "Could not index Record-ID! Please check logfile!"
End If
MsgBox(msg, MsgBoxStyle.Exclamation)
Else
Dim msg = String.Format("Der Datensatz wurde erfolgreich mit der Datei " & vbNewLine & "{0}" & vbNewLine & "verknüpft!", DOC_PATH)
If USER_LANGUAGE <> "de-DE" Then
msg = "The record was successfully linked to the file: " & vbNewLine & DOC_PATH
End If
MsgBox(msg, MsgBoxStyle.Information)
ClassHelper.InsertEssential_Log(CURRENT_DOC_ID, "DOC-ID", "FILE LINK CREATED FOR RECORD: " & RecordId.ToString)
End If
End If
Next
Catch ex As Exception
MsgBox("Unexpected Error in Linking Record to file:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
Else
MsgBox("Please choose a record!", MsgBoxStyle.Exclamation)
Exit Sub
End If
End Sub
Private Sub frmWD_Link_to_Record_Shown(sender As Object, e As EventArgs) Handles Me.Shown
txtRecordId.Text = ""
End Sub
Private Sub grvwGrid_RowStyle(sender As Object, e As DevExpress.XtraGrid.Views.Grid.RowStyleEventArgs) Handles grvwGrid.RowStyle
If e.RowHandle = DevExpress.XtraGrid.GridControl.AutoFilterRowHandle Then
e.Appearance.BackColor = Color.Orange
End If
End Sub
End Class

81
app/DD-Record-Organizer/frmDocRecordLink.Designer.vb generated
View File

@@ -30,17 +30,19 @@ Partial Class frmDocRecordLink
Me.cmbConstructorForms = New System.Windows.Forms.ComboBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.btnloadData2Entity = New System.Windows.Forms.Button()
Me.Label2 = New System.Windows.Forms.Label()
Me.txtEntity = New System.Windows.Forms.TextBox()
Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
Me.bsiInfo = New DevExpress.XtraBars.BarStaticItem()
Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem3 = New DevExpress.XtraBars.BarButtonItem()
Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem()
Me.Label2 = New System.Windows.Forms.Label()
Me.txtcurrSichtData = New System.Windows.Forms.TextBox()
CType(Me.dgEntityRecords, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.grvwGrid, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -89,9 +91,9 @@ Partial Class frmDocRecordLink
'
'cmbConstructorForms
'
resources.ApplyResources(Me.cmbConstructorForms, "cmbConstructorForms")
Me.cmbConstructorForms.BackColor = System.Drawing.SystemColors.ControlLight
Me.cmbConstructorForms.FormattingEnabled = True
resources.ApplyResources(Me.cmbConstructorForms, "cmbConstructorForms")
Me.cmbConstructorForms.Name = "cmbConstructorForms"
'
'Label1
@@ -101,29 +103,17 @@ Partial Class frmDocRecordLink
'
'btnloadData2Entity
'
resources.ApplyResources(Me.btnloadData2Entity, "btnloadData2Entity")
Me.btnloadData2Entity.Image = Global.DD_Record_Organizer.My.Resources.Resources.refresh_16xLG
resources.ApplyResources(Me.btnloadData2Entity, "btnloadData2Entity")
Me.btnloadData2Entity.Name = "btnloadData2Entity"
Me.btnloadData2Entity.UseVisualStyleBackColor = True
'
'Label2
'
resources.ApplyResources(Me.Label2, "Label2")
Me.Label2.Name = "Label2"
'
'txtEntity
'
Me.txtEntity.BackColor = System.Drawing.SystemColors.ControlLight
resources.ApplyResources(Me.txtEntity, "txtEntity")
Me.txtEntity.Name = "txtEntity"
Me.txtEntity.ReadOnly = True
'
'RibbonControl1
'
Me.RibbonControl1.ExpandCollapseItem.Id = 0
Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bsiInfo, Me.BarButtonItem1, Me.BarButtonItem2})
Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bsiInfo, Me.BarButtonItem1, Me.BarButtonItem2, Me.BarButtonItem3})
resources.ApplyResources(Me.RibbonControl1, "RibbonControl1")
Me.RibbonControl1.MaxItemId = 4
Me.RibbonControl1.MaxItemId = 5
Me.RibbonControl1.Name = "RibbonControl1"
Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
@@ -140,14 +130,29 @@ Partial Class frmDocRecordLink
'
'BarButtonItem1
'
Me.BarButtonItem1.Alignment = DevExpress.XtraBars.BarItemLinkAlignment.Left
resources.ApplyResources(Me.BarButtonItem1, "BarButtonItem1")
Me.BarButtonItem1.Id = 2
Me.BarButtonItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem1.Name = "BarButtonItem1"
'
'BarButtonItem2
'
resources.ApplyResources(Me.BarButtonItem2, "BarButtonItem2")
Me.BarButtonItem2.Id = 3
Me.BarButtonItem2.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem2.Name = "BarButtonItem2"
'
'BarButtonItem3
'
resources.ApplyResources(Me.BarButtonItem3, "BarButtonItem3")
Me.BarButtonItem3.Id = 4
Me.BarButtonItem3.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem3.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem3.Name = "BarButtonItem3"
'
'RibbonPage1
'
Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2})
Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2, Me.RibbonPageGroup3})
Me.RibbonPage1.Name = "RibbonPage1"
resources.ApplyResources(Me.RibbonPage1, "RibbonPage1")
'
@@ -155,10 +160,20 @@ Partial Class frmDocRecordLink
'
Me.RibbonPageGroup1.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far
Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem2)
Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem1)
Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem3)
Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
resources.ApplyResources(Me.RibbonPageGroup1, "RibbonPageGroup1")
'
'RibbonPageGroup2
'
Me.RibbonPageGroup2.Name = "RibbonPageGroup2"
'
'RibbonPageGroup3
'
Me.RibbonPageGroup3.ItemLinks.Add(Me.BarButtonItem1)
Me.RibbonPageGroup3.Name = "RibbonPageGroup3"
resources.ApplyResources(Me.RibbonPageGroup3, "RibbonPageGroup3")
'
'RibbonStatusBar1
'
Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiInfo)
@@ -171,22 +186,22 @@ Partial Class frmDocRecordLink
Me.RibbonPage2.Name = "RibbonPage2"
resources.ApplyResources(Me.RibbonPage2, "RibbonPage2")
'
'RibbonPageGroup2
'Label2
'
Me.RibbonPageGroup2.Name = "RibbonPageGroup2"
resources.ApplyResources(Me.Label2, "Label2")
Me.Label2.Name = "Label2"
'
'BarButtonItem2
'txtcurrSichtData
'
resources.ApplyResources(Me.BarButtonItem2, "BarButtonItem2")
Me.BarButtonItem2.Id = 3
Me.BarButtonItem2.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem2.Name = "BarButtonItem2"
resources.ApplyResources(Me.txtcurrSichtData, "txtcurrSichtData")
Me.txtcurrSichtData.Name = "txtcurrSichtData"
Me.txtcurrSichtData.ReadOnly = True
'
'frmDocRecordLink
'
resources.ApplyResources(Me, "$this")
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Controls.Add(Me.txtEntity)
Me.Controls.Add(Me.txtcurrSichtData)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.btnloadData2Entity)
Me.Controls.Add(Me.Label1)
@@ -214,8 +229,6 @@ Partial Class frmDocRecordLink
Friend WithEvents cmbConstructorForms As ComboBox
Friend WithEvents Label1 As Label
Friend WithEvents btnloadData2Entity As Button
Friend WithEvents Label2 As Label
Friend WithEvents txtEntity As TextBox
Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl
Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage
Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
@@ -225,4 +238,8 @@ Partial Class frmDocRecordLink
Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents RibbonPageGroup3 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents Label2 As Label
Friend WithEvents txtcurrSichtData As TextBox
End Class

235
app/DD-Record-Organizer/frmDocRecordLink.resx
View File

@@ -123,10 +123,10 @@
</data>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="txtFileInfo.Location" type="System.Drawing.Point, System.Drawing">
<value>144, 174</value>
<value>169, 166</value>
</data>
<data name="txtFileInfo.Size" type="System.Drawing.Size, System.Drawing">
<value>1006, 21</value>
<value>974, 21</value>
</data>
<assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="txtFileInfo.TabIndex" type="System.Int32, mscorlib">
@@ -154,7 +154,7 @@
<value>NoControl</value>
</data>
<data name="Label3.Location" type="System.Drawing.Point, System.Drawing">
<value>9, 177</value>
<value>12, 169</value>
</data>
<data name="Label3.Size" type="System.Drawing.Size, System.Drawing">
<value>110, 13</value>
@@ -181,10 +181,10 @@
<value>Top, Bottom, Left, Right</value>
</data>
<data name="dgEntityRecords.Location" type="System.Drawing.Point, System.Drawing">
<value>12, 228</value>
<value>12, 261</value>
</data>
<data name="dgEntityRecords.Size" type="System.Drawing.Size, System.Drawing">
<value>1138, 430</value>
<value>1131, 372</value>
</data>
<data name="dgEntityRecords.TabIndex" type="System.Int32, mscorlib">
<value>15</value>
@@ -201,14 +201,11 @@
<data name="&gt;&gt;dgEntityRecords.ZOrder" xml:space="preserve">
<value>5</value>
</data>
<data name="cmbConstructorForms.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Bottom, Left</value>
</data>
<data name="cmbConstructorForms.Location" type="System.Drawing.Point, System.Drawing">
<value>144, 683</value>
<value>169, 223</value>
</data>
<data name="cmbConstructorForms.Size" type="System.Drawing.Size, System.Drawing">
<value>234, 21</value>
<value>259, 21</value>
</data>
<data name="cmbConstructorForms.TabIndex" type="System.Int32, mscorlib">
<value>17</value>
@@ -225,9 +222,6 @@
<data name="&gt;&gt;cmbConstructorForms.ZOrder" xml:space="preserve">
<value>4</value>
</data>
<data name="Label1.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Bottom, Left</value>
</data>
<data name="Label1.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
</data>
@@ -238,16 +232,16 @@
<value>NoControl</value>
</data>
<data name="Label1.Location" type="System.Drawing.Point, System.Drawing">
<value>9, 686</value>
<value>12, 226</value>
</data>
<data name="Label1.Size" type="System.Drawing.Size, System.Drawing">
<value>124, 13</value>
<value>151, 13</value>
</data>
<data name="Label1.TabIndex" type="System.Int32, mscorlib">
<value>18</value>
</data>
<data name="Label1.Text" xml:space="preserve">
<value>andere Entität wählen:</value>
<value>Andere Sicht-Daten wählen:</value>
</data>
<data name="&gt;&gt;Label1.Name" xml:space="preserve">
<value>Label1</value>
@@ -261,14 +255,11 @@
<data name="&gt;&gt;Label1.ZOrder" xml:space="preserve">
<value>3</value>
</data>
<data name="btnloadData2Entity.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Bottom, Left</value>
</data>
<data name="btnloadData2Entity.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
<value>MiddleLeft</value>
</data>
<data name="btnloadData2Entity.Location" type="System.Drawing.Point, System.Drawing">
<value>384, 681</value>
<value>434, 221</value>
</data>
<data name="btnloadData2Entity.Size" type="System.Drawing.Size, System.Drawing">
<value>122, 23</value>
@@ -294,60 +285,6 @@
<data name="&gt;&gt;btnloadData2Entity.ZOrder" xml:space="preserve">
<value>2</value>
</data>
<data name="Label2.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="Label2.Font" type="System.Drawing.Font, System.Drawing">
<value>Tahoma, 8.25pt, style=Bold, Italic</value>
</data>
<data name="Label2.Location" type="System.Drawing.Point, System.Drawing">
<value>9, 204</value>
</data>
<data name="Label2.Size" type="System.Drawing.Size, System.Drawing">
<value>124, 13</value>
</data>
<data name="Label2.TabIndex" type="System.Int32, mscorlib">
<value>20</value>
</data>
<data name="Label2.Text" xml:space="preserve">
<value>Ausgewählte Entität:</value>
</data>
<data name="&gt;&gt;Label2.Name" xml:space="preserve">
<value>Label2</value>
</data>
<data name="&gt;&gt;Label2.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;Label2.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;Label2.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<data name="txtEntity.Font" type="System.Drawing.Font, System.Drawing">
<value>Tahoma, 8.25pt, style=Bold, Italic</value>
</data>
<data name="txtEntity.Location" type="System.Drawing.Point, System.Drawing">
<value>144, 201</value>
</data>
<data name="txtEntity.Size" type="System.Drawing.Size, System.Drawing">
<value>259, 21</value>
</data>
<data name="txtEntity.TabIndex" type="System.Int32, mscorlib">
<value>21</value>
</data>
<data name="&gt;&gt;txtEntity.Name" xml:space="preserve">
<value>txtEntity</value>
</data>
<data name="&gt;&gt;txtEntity.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;txtEntity.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;txtEntity.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="bsiInfo.Caption" xml:space="preserve">
<value>Waiting for Record-Selection...</value>
</data>
@@ -377,42 +314,68 @@
</value>
</data>
<data name="BarButtonItem2.Caption" xml:space="preserve">
<value>Save GridLayout</value>
<value>...speichern</value>
</data>
<data name="BarButtonItem2.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAFkCAAAC77u/
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAOMCAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iU2F2ZSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAgMzIg
MzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cjwvc3R5
bGU+DQogIDxwYXRoIGQ9Ik0zMSwwSDE5Yy0wLjYsMC0xLDAuNC0xLDF2MTZjMCwwLjYsMC40LDEsMSwx
aDEyYzAuNiwwLDEtMC40LDEtMVYxQzMyLDAuNCwzMS42LDAsMzEsMHogTTMwLDE2SDIwVjJoMTBWMTZ6
IiBjbGFzcz0iQmxhY2siIC8+DQogIDxwYXRoIGQ9Ik0yMiwyMHY0SDZ2LTZoMTB2LTRINlY0SDNDMi40
LDQsMiw0LjQsMiw1djIyYzAsMC42LDAuNCwxLDEsMWgyMmMwLjYsMCwxLTAuNCwxLTF2LTdIMjJ6IE0x
Niw0SDh2OGg4VjR6ICAgTTEyLDEwaC0yVjZoMlYxMHoiIGNsYXNzPSJCbGFjayIgLz4NCjwvc3ZnPgs=
Y2U9InByZXNlcnZlIiBpZD0iTmV3VGFibGVTdHlsZSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5l
dyAwIDAgMzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3
O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJLnN0MHtvcGFj
aXR5OjAuNTt9Cjwvc3R5bGU+DQogIDxnIGNsYXNzPSJzdDAiPg0KICAgIDxwYXRoIGQ9Ik0wLDIwaDh2
NkgwVjIweiBNMTAsMjZoOHYtNmgtOFYyNnogTTIwLDEydjZoOHYtNkgyMHogTTIwLDI2aDh2LTZoLThW
MjZ6IiBjbGFzcz0iQmxhY2siIC8+DQogIDwvZz4NCiAgPHBhdGggZD0iTTAsNGg4djZIMFY0eiBNMCwx
OGg4di02SDBWMTh6IE0xMCwxMGg4VjRoLThWMTB6IE0xMCwxOGg4di02aC04VjE4eiIgY2xhc3M9IkJs
dWUiIC8+DQogIDxwb2x5Z29uIHBvaW50cz0iMjUsMiAyNywwIDI3LDMgMzAsMyAyOCw1IDMwLDcgMjcs
NyAyNywxMCAyNSw4IDIzLDEwIDIzLDcgMjAsNyAyMiw1IDIwLDMgMjMsMyAyMywwICIgY2xhc3M9Illl
bGxvdyIgLz4NCjwvc3ZnPgs=
</value>
</data>
<data name="BarButtonItem3.Caption" xml:space="preserve">
<value>...zurücksetzen</value>
</data>
<data name="BarButtonItem3.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAKIDAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iQ2xlYXJUYWJsZVN0eWxlIiBzdHlsZT0iZW5hYmxlLWJhY2tncm91bmQ6
bmV3IDAgMCAzMiAzMiI+DQogIDxzdHlsZSB0eXBlPSJ0ZXh0L2NzcyI+CgkuQmx1ZXtmaWxsOiMxMTc3
RDc7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNp
dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgY2xhc3M9InN0MCI+DQogICAgPHBhdGggZD0iTTI4LDEwaC04
VjRoOFYxMHogTTI0LjYsMTQuOWMwLjYtMC42LDEuNC0wLjksMi4yLTAuOWMwLjQsMCwwLjgsMC4xLDEu
MiwwLjJWMTJoLTh2NmgxLjVMMjQuNiwxNC45eiBNMCwyNiAgIGg4di02SDBWMjZ6IE0xNC45LDI0LjZs
My4xLTMuMVYyMGgtOHY2aDQuMUMxNC4zLDI1LjUsMTQuNSwyNSwxNC45LDI0LjZ6IiBjbGFzcz0iQmxh
Y2siIC8+DQogIDwvZz4NCiAgPHBhdGggZD0iTTAsNGg4djZIMFY0eiBNMCwxOGg4di02SDBWMTh6IE0x
MCwxMGg4VjRoLThWMTB6IE0xMCwxOGg4di02aC04VjE4eiBNMTksMjMuM0wxNi4zLDI2ICBjLTAuNCww
LjQtMC40LDEuMiwwLDEuNmw0LDRjMC40LDAuNCwxLjIsMC40LDEuNiwwbDIuNy0yLjdMMTksMjMuM3oi
IGNsYXNzPSJCbHVlIiAvPg0KICA8cGF0aCBkPSJNMzEuNywyMC40bC00LTRjLTAuNC0wLjQtMS4yLTAu
NC0xLjYsMGwtNi4xLDYuMWw1LjYsNS42bDYuMS02LjFDMzIuMSwyMS41LDMyLjEsMjAuOCwzMS43LDIw
LjR6IiBjbGFzcz0iUmVkIiAvPg0KPC9zdmc+Cw==
</value>
</data>
<data name="RibbonControl1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value>
</data>
<data name="RibbonPageGroup1.Text" xml:space="preserve">
<value>Funktionen</value>
</data>
<data name="RibbonPage1.Text" xml:space="preserve">
<value>Start</value>
</data>
<data name="RibbonControl1.Size" type="System.Drawing.Size, System.Drawing">
<value>1162, 158</value>
<value>1155, 158</value>
</data>
<data name="RibbonStatusBar1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 712</value>
<value>0, 639</value>
</data>
<data name="RibbonStatusBar1.Size" type="System.Drawing.Size, System.Drawing">
<value>1162, 22</value>
<value>1155, 22</value>
</data>
<data name="&gt;&gt;RibbonStatusBar1.Name" xml:space="preserve">
<value>RibbonStatusBar1</value>
@@ -438,9 +401,69 @@
<data name="&gt;&gt;RibbonControl1.ZOrder" xml:space="preserve">
<value>9</value>
</data>
<data name="RibbonPageGroup1.Text" xml:space="preserve">
<value>Layout</value>
</data>
<data name="RibbonPageGroup3.Text" xml:space="preserve">
<value>Funktionen</value>
</data>
<data name="RibbonPage2.Text" xml:space="preserve">
<value>RibbonPage2</value>
</data>
<data name="Label2.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="Label2.Font" type="System.Drawing.Font, System.Drawing">
<value>Tahoma, 8.25pt, style=Bold</value>
</data>
<data name="Label2.Location" type="System.Drawing.Point, System.Drawing">
<value>12, 196</value>
</data>
<data name="Label2.Size" type="System.Drawing.Size, System.Drawing">
<value>127, 13</value>
</data>
<data name="Label2.TabIndex" type="System.Int32, mscorlib">
<value>24</value>
</data>
<data name="Label2.Text" xml:space="preserve">
<value>Aktuelle Sicht-Daten:</value>
</data>
<data name="&gt;&gt;Label2.Name" xml:space="preserve">
<value>Label2</value>
</data>
<data name="&gt;&gt;Label2.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;Label2.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;Label2.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<data name="txtcurrSichtData.Font" type="System.Drawing.Font, System.Drawing">
<value>Tahoma, 8.25pt, style=Bold</value>
</data>
<data name="txtcurrSichtData.Location" type="System.Drawing.Point, System.Drawing">
<value>169, 193</value>
</data>
<data name="txtcurrSichtData.Size" type="System.Drawing.Size, System.Drawing">
<value>259, 21</value>
</data>
<data name="txtcurrSichtData.TabIndex" type="System.Int32, mscorlib">
<value>25</value>
</data>
<data name="&gt;&gt;txtcurrSichtData.Name" xml:space="preserve">
<value>txtcurrSichtData</value>
</data>
<data name="&gt;&gt;txtcurrSichtData.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;txtcurrSichtData.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;txtcurrSichtData.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<metadata name="$this.Localizable" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
@@ -448,7 +471,7 @@
<value>6, 13</value>
</data>
<data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
<value>1162, 734</value>
<value>1155, 661</value>
</data>
<data name="frmDocRecordLink.IconOptions.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
@@ -1705,6 +1728,18 @@
<data name="&gt;&gt;BarButtonItem1.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;BarButtonItem2.Name" xml:space="preserve">
<value>BarButtonItem2</value>
</data>
<data name="&gt;&gt;BarButtonItem2.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;BarButtonItem3.Name" xml:space="preserve">
<value>BarButtonItem3</value>
</data>
<data name="&gt;&gt;BarButtonItem3.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;RibbonPage1.Name" xml:space="preserve">
<value>RibbonPage1</value>
</data>
@@ -1717,23 +1752,23 @@
<data name="&gt;&gt;RibbonPageGroup1.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;RibbonPage2.Name" xml:space="preserve">
<value>RibbonPage2</value>
</data>
<data name="&gt;&gt;RibbonPage2.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonPage, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;RibbonPageGroup2.Name" xml:space="preserve">
<value>RibbonPageGroup2</value>
</data>
<data name="&gt;&gt;RibbonPageGroup2.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;BarButtonItem2.Name" xml:space="preserve">
<value>BarButtonItem2</value>
<data name="&gt;&gt;RibbonPageGroup3.Name" xml:space="preserve">
<value>RibbonPageGroup3</value>
</data>
<data name="&gt;&gt;BarButtonItem2.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
<data name="&gt;&gt;RibbonPageGroup3.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;RibbonPage2.Name" xml:space="preserve">
<value>RibbonPage2</value>
</data>
<data name="&gt;&gt;RibbonPage2.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonPage, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;$this.Name" xml:space="preserve">
<value>frmDocRecordLink</value>

131
app/DD-Record-Organizer/frmDocRecordLink.vb
View File

@@ -12,10 +12,10 @@ Public Class frmDocRecordLink
End Function
End Class
Private Function GET_CURRENT_ENTITY_DATA()
Dim oDatatabel As DataTable = CURRENT_DT_ENTITY_RECORDS.Copy
Return oDatatabel
Dim oDatatable As DataTable = CURRENT_DT_ENTITY_RECORDS.Copy
Return oDatatable
End Function
Sub Refresh_Grid_Data(current As Boolean, ENTITY_DATATABLE As DataTable, ENTITY_ID As Integer)
Sub Refresh_Grid_Data(current As Boolean, ENTITY_DATATABLE As DataTable)
Dim DT_RECORDS As DataTable
If current = True Then
DT_RECORDS = GET_CURRENT_ENTITY_DATA()
@@ -34,8 +34,8 @@ Public Class frmDocRecordLink
Try
For Each row As DataRow In CURRENT_DT_SELECTED_FILES.Rows
Dim DOC_ID = row.Item("DOC_ID")
Dim sel = String.Format("select T.RECORD_ID FROM TBPMO_DOC_RECORD_LINK T, TBPMO_RECORD T1 WHERE T.RECORD_ID = T1.GUID AND T1.FORM_ID = {0} AND T.DOC_ID = {1}", ENTITY_ID, DOC_ID)
Dim DTRECS_LINKED As DataTable = clsDatabase.Return_Datatable(sel)
Dim sel = String.Format("select T.RECORD_ID FROM TBPMO_DOC_RECORD_LINK T, TBPMO_RECORD T1 WHERE T.RECORD_ID = T1.GUID AND T1.FORM_ID = {0} AND T.DOC_ID = {1}", CURRENT_LINK_ENTITY_ID, DOC_ID)
Dim DTRECS_LINKED As DataTable = MYDB_ECM.GetDatatable(sel)
For Each recrow As DataRow In DTRECS_LINKED.Rows
For Each rowrecsdisplay As DataRow In DT_RECORDS.Rows
If rowrecsdisplay.Item("Record-ID") = recrow.Item("RECORD_ID") Then
@@ -58,7 +58,7 @@ Public Class frmDocRecordLink
grvwGrid.BestFitColumns()
End Sub
Private Sub frmDocRecordLink_Load(sender As Object, e As EventArgs) Handles Me.Load
Me.txtEntity.Text = CURRENT_ENTITYSTRING
ENTITY_LOAD_ACTIVE = True
If ClassWindreamDocGrid.DT_RESULTFILES.Rows.Count = 1 Then
txtFileInfo.Text = ClassWindreamDocGrid.DT_RESULTFILES.Rows(0).Item("DOC_PATH")
Else
@@ -68,21 +68,40 @@ Public Class frmDocRecordLink
If IsNothing(CURRENT_DT_ENTITY_RECORDS) Then
Me.Close()
End If
Refresh_Grid_Data(True, Nothing, CURRENT_ENTITY_ID)
If CURRENT_LINK_ENTITY_ID = 0 Then
Refresh_Grid_Data(True, Nothing)
CURRENT_LINK_ENTITY_ID = CURRENT_ENTITY_ID
Else
Dim DT_RESULT As DataTable
If CURRENT_LINK_ENTITY_ID = CURRENT_ENTITY_ID Then
DT_RESULT = CURRENT_DT_ENTITY_RECORDS
Else
DT_RESULT = ReturnDataforEntity(CURRENT_LINK_ENTITY_ID)
End If
If Not IsNothing(DT_RESULT) Then
Refresh_Grid_Data(False, DT_RESULT)
End If
End If
Dim DT_ENTITIES As DataTable = GetENTITIES()
Dim selected As Integer = 0
Dim oSelectedIndex As Integer = 0
If DT_ENTITIES.Rows.Count = 0 Then
Exit Sub
End If
Dim oCount = 0
For Each row As DataRow In DT_ENTITIES.Rows
Dim entity As New ClassEntity
entity.title = row.Item("FORM_TITLE")
entity.id = row.Item("FORM_ID")
cmbConstructorForms.Items.Add(entity)
If CURRENT_LINK_ENTITY_ID = entity.id Then
txtcurrSichtData.Text = entity.title
oSelectedIndex = oCount
End If
oCount += 1
Next
If USER_LANGUAGE = "de-DE" Then
Me.Text = CURRENT_DT_SELECTED_FILES.Rows.Count.ToString & " Datei(en) mit Datensatz verknüpfen:"
@@ -90,7 +109,7 @@ Public Class frmDocRecordLink
Me.Text = "Link " & CURRENT_DT_SELECTED_FILES.Rows.Count.ToString & " files with record:"
End If
' Den index der aktuell geöffneten ConstructorForm setzen
cmbConstructorForms.SelectedIndex = selected
cmbConstructorForms.SelectedIndex = oSelectedIndex
Catch ex As Exception
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error in frmDocRecordLink_Load", ex.Message, ex.StackTrace)
@@ -103,7 +122,7 @@ Public Class frmDocRecordLink
Try
Dim SQL As String = String.Format("SELECT DISTINCT FORM_ID,FORM_TITLE,SEQUENCE FROM VWPMO_CONSTRUCTOR_FORMS where CONSTRUCT_ID in " &
"(SELECT CONSTRUCT_ID FROM TBPMO_CONSTRUCTOR_USER WHERE USER_ID = {0}) ORDER BY SEQUENCE", USER_GUID)
Dim dt As DataTable = ClassDatabase.Return_Datatable(SQL)
Dim dt As DataTable = MYDB_ECM.GetDatatable(sql)
Return dt
Catch ex As Exception
MsgBox("Entities could not be loaded in LinkToRecord: " & vbNewLine & ex.Message)
@@ -148,7 +167,7 @@ Public Class frmDocRecordLink
End Try
End Sub
Private Function Get_DocGrid_Layout_Filename()
Dim Filename As String = String.Format("GridViewDocRecordLink-{0}-UserLayout.xml", CURRENT_ENTITY_ID)
Dim Filename As String = String.Format("GridViewDocRecordLink-{0}-UserLayout.xml", CURRENT_LINK_ENTITY_ID)
Return System.IO.Path.Combine(Application.UserAppDataPath(), Filename)
End Function
Private Sub frmDocRecordLink_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
@@ -161,20 +180,25 @@ Public Class frmDocRecordLink
If cmbConstructorForms.SelectedIndex <> -1 Then
ENTITY_LOAD_ACTIVE = True
Save_DocGrid_Layout()
Dim ResultSQL, ResultViewName As String
LOGGER.Debug("GridType = Grid", False)
ResultViewName = $"VWPMO_ENTITY_TABLE{entity.id}"
ResultSQL = $"SELECT T.* FROM {ResultViewName} T"
txtEntity.Text = cmbConstructorForms.Text
LOGGER.Debug("ResultSQL: " & ResultSQL, False)
Me.Cursor = Cursors.WaitCursor
Dim DT_RESULT = clsDatabase.Return_Datatable(ResultSQL, True)
Dim DT_RESULT = ReturnDataforEntity(entity.id)
If Not IsNothing(DT_RESULT) Then
Refresh_Grid_Data(False, DT_RESULT, entity.id)
CURRENT_LINK_ENTITY_ID = entity.id
txtcurrSichtData.Text = entity.title
Refresh_Grid_Data(False, DT_RESULT)
End If
End If
Load_DocGrid_Layout()
Me.Cursor = Cursors.Default
End Sub
Private Function ReturnDataforEntity(oEntityID As Integer) As DataTable
Dim ResultSQL, ResultViewName As String
LOGGER.Debug("GridType = Grid")
ResultViewName = $"VWPMO_ENTITY_TABLE{oEntityID}"
ResultSQL = $"SELECT T.* FROM {ResultViewName} T"
LOGGER.Debug("ResultSQL: " & ResultSQL)
Return MYDB_ECM.GetDatatable(ResultSQL)
End Function
Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
If clsWindream.Create_Session = False Then
@@ -183,13 +207,13 @@ Public Class frmDocRecordLink
End If
Dim selectedRows As Integer() = grvwGrid.GetSelectedRows()
Dim i As Integer = 0
Dim oLinkCount As Integer = 0
For Each rowhandle As Integer In selectedRows
Dim SELECTED_RECORDID = grvwGrid.GetRowCellValue(rowhandle, "Record-ID")
If IsNothing(SELECTED_RECORDID) Then
Continue For
End If
LOGGER.Debug(">>> Doc will be linked with Record: " & SELECTED_RECORDID.ToString, False)
LOGGER.Debug(">>> Doc will be linked with Record: " & SELECTED_RECORDID.ToString)
Try
For Each row As DataRow In CURRENT_DT_SELECTED_FILES.Rows
CURRENT_DOC_ID = row.Item("DOC_ID")
@@ -198,12 +222,12 @@ Public Class frmDocRecordLink
clsWindream.MY_WDOBJECTTYPE = _objecttype
Dim sql_Exec = String.Format("EXEC PRPMO_CHECK_DOC_RECORD_LINK {0},{1},'{2}','{3}'", SELECTED_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}')", SELECTED_RECORDID, CURRENT_DOC_ID, "MANUAL RECORD-LINK", USER_USERNAME)
If ClassDatabase.Execute_non_Query(sql_Exec) = False Then
If MYDB_ECM.ExecuteNonQuery(sql_Exec) = False Then
MsgBox("Unexpected Error in Inserting Record-Doc Link. Please check logfile!", MsgBoxStyle.Critical)
Else
If LICENSE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then
Dim proc = String.Format("EXEC PRPROXY_DOC_CHECK_DOC_REC_LINK {0},{1}", CURRENT_DOC_ID, SELECTED_RECORDID)
ClassDatabase.Execute_non_Query(proc, True)
MYDB_ECM.ExecuteNonQuery(proc)
End If
Dim msg = String.Format("Der Datensatz wurde erfolgreich verknüpft!")
If USER_LANGUAGE <> "de-DE" Then
@@ -211,35 +235,24 @@ Public Class frmDocRecordLink
End If
bsiInfo.Caption = msg
ClassHelper.InsertEssential_Log(CURRENT_DOC_ID, "DOC-ID", "FILE LINK CREATED FOR RECORD: " & SELECTED_RECORDID.ToString)
oLinkCount += 1
End If
Dim sql = String.Format("SELECT * FROM TBPMO_WD_OBJECTTYPE WHERE OBJECT_TYPE = '{0}'", _objecttype)
Dim DT_OBJTYPE As DataTable = ClassDatabase.Return_Datatable(sql, True)
Dim DT_OBJTYPE As DataTable = MYDB_ECM.GetDatatable(sql)
If DT_OBJTYPE.Rows.Count = 1 Then
Dim Entity_Index = DT_OBJTYPE.Rows(0).Item("IDXNAME_ENTITYID")
Dim Record_Index = DT_OBJTYPE.Rows(0).Item("IDXNAME_RECORDID")
Dim ENT_ID = ClassDatabase.Execute_Scalar(String.Format("SELECT FORM_ID FROM TBPMO_RECORD WHERE GUID = {0}", SELECTED_RECORDID))
Dim ENT_ID = MYDB_ECM.GetScalarValue(String.Format("SELECT FORM_ID FROM TBPMO_RECORD WHERE GUID = {0}", SELECTED_RECORDID))
If ENT_ID > 1 And Entity_Index <> String.Empty Then
If clsWD_SET.IndexFile(DOC_PATH, Entity_Index, ENT_ID, _objecttype) = False Then
'Dim msg = "Die Entität-ID konnte nicht gesetzt werden! Bitte überprüfen Sie die Logfile"
'If USER_LANGUAGE <> "de-DE" Then
' msg = "Could not index Entity-ID! Please check logfile!"
'End If
'MsgBox(msg, MsgBoxStyle.Exclamation)
End If
clsWD_SET.IndexFile(DOC_PATH, Entity_Index, ENT_ID, _objecttype)
End If
If Record_Index <> String.Empty Then
If clsWD_SET.IndexFile(DOC_PATH, Record_Index, SELECTED_RECORDID, _objecttype) = False Then
'Dim msg = "Die Record-ID konnte nicht gesetzt werden! Bitte überprüfen Sie die Logfile"
'If USER_LANGUAGE <> "de-DE" Then
' msg = "Could not index Record-ID! Please check logfile!"
'End If
'MsgBox(msg, MsgBoxStyle.Exclamation)
End If
clsWD_SET.IndexFile(DOC_PATH, Record_Index, SELECTED_RECORDID, _objecttype)
End If
End If
Next
bsiInfo.Caption = $"[{oLinkCount}] records successfully linked - {Now.ToShortTimeString}"
Catch ex As Exception
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error in Linking Record to file", ex.Message, ex.StackTrace)
End Try
@@ -250,4 +263,34 @@ Public Class frmDocRecordLink
Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick
Save_DocGrid_Layout()
End Sub
Private Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick
Reset_View_layout()
End Sub
Sub Reset_View_layout()
Me.Cursor = Cursors.WaitCursor
Try
Dim XMLPath = Get_DocGrid_Layout_Filename()
If File.Exists(XMLPath) Then
File.Delete(XMLPath)
Refresh_Grid_Data(True, Nothing)
Else
MsgBox("Resetting the layout was not successful - File not existing!", MsgBoxStyle.Information)
End If
Catch ex As Exception
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Reset_View_layout: ", ex.Message)
End Try
Me.Cursor = Cursors.Default
End Sub
Private Sub grvwGrid_StyleChanged(sender As Object, e As EventArgs) Handles grvwGrid.ColumnPositionChanged, grvwGrid.ColumnWidthChanged
If ENTITY_LOAD_ACTIVE = False Then
Save_DocGrid_Layout()
End If
End Sub
Private Sub frmDocRecordLink_Shown(sender As Object, e As EventArgs) Handles Me.Shown
ENTITY_LOAD_ACTIVE = False
End Sub
End Class

2
app/DD-Record-Organizer/frmDocSearchResult.vb
View File

@@ -38,7 +38,7 @@ Public Class frmDocSearchResult
Cursor = Cursors.WaitCursor
If reload = False Then
DT_RESULT = ClassDatabase.Return_Datatable(CURRENT_DOCSEARCH_SQL, True)
DT_RESULT = MYDB_ECM.GetDatatable(CURRENT_DOCSEARCH_SQL)
End If
DT_RESULT = DT_RESULT

2
app/DD-Record-Organizer/frmDoc_Links.vb
View File

@@ -27,7 +27,7 @@ Public Class frmDoc_Links
Try
Dim DT_RECORDS As DataTable
Dim oSql = $"select * FROM VWPMO_CUST_DOC_OBJECT_LINKS WHERE DocID = {CURRENT_DOC_ID}"
DT_RECORDS = clsDatabase.Return_Datatable(oSql)
DT_RECORDS = MYDB_ECM.GetDatatable(oSql)
If Not IsNothing(DT_RECORDS) Then
BarStaticItemStatus.Caption = $"{DT_RECORDS.Rows.Count} links for Document found!"
grvwGrid.Columns.Clear()

18
app/DD-Record-Organizer/frmDoctype_NameConvention.vb
View File

@@ -44,15 +44,15 @@
Private Sub frmNamenkonvention_Load(sender As Object, e As EventArgs) Handles Me.Load
Try
lblSave.Visible = False
'Me.TBINDEX_MANTableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBPMO_WD_NAMECONVENTION_FORMATTableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBDD_INDEX_AUTOMTableAdapter.Connection.ConnectionString = MyConnectionString
'Me.TBINDEX_MANTableAdapter.Connection.ConnectionString = MYDB_ECM.CurrentConnectionString
Me.TBPMO_WD_NAMECONVENTION_FORMATTableAdapter.Connection.ConnectionString = MYDB_ECM.CurrentConnectionString
Me.TBDD_INDEX_AUTOMTableAdapter.Connection.ConnectionString = MYDB_ECM.CurrentConnectionString
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 = " & frmWM_DoctypeConfig.akt_DokartID
Dim DTAUTOINDEX As DataTable = ClassDatabase.Return_Datatable(autoIIndex)
Dim DTAUTOINDEX As DataTable = MYDB_ECM.GetDatatable(autoIIndex)
'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 = " & frmWM_DoctypeConfig.akt_DokartID & " ORDER BY T1.FORM_TITLE", True)
DT_ENTITIES = MYDB_ECM.GetDatatable("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 = " & frmWM_DoctypeConfig.akt_DokartID & " ORDER BY T1.FORM_TITLE")
cmbEntity.DataSource = DT_ENTITIES
cmbEntity.DisplayMember = DT_ENTITIES.Columns(2).ColumnName
cmbEntity.ValueMember = DT_ENTITIES.Columns(0).ColumnName
@@ -97,8 +97,8 @@
Else
sql = $"INSERT INTO TBPMO_WD_FORMVIEW_DOKTYPES (NAME_CONVENTION,MANUAL_SUBFOLDER,ADDED_WHO) VALUES ('{txtnamenKonv.Text}',{sf},'{USER_USERNAME}')"
End If
If ClassDatabase.Execute_non_Query(sql) = True Then
DTTBPMO_WD_FORMVIEW_DOKTYPES = ClassDatabase.Return_Datatable("SELECT * FROM TBPMO_WD_FORMVIEW_DOKTYPES WHERE GUID = " & TBPMO_WD_FORMVIEW_DOKTYPES_GUID)
If MYDB_ECM.ExecuteNonQuery(Sql) = True Then
DTTBPMO_WD_FORMVIEW_DOKTYPES = MYDB_ECM.GetDatatable("SELECT * FROM TBPMO_WD_FORMVIEW_DOKTYPES WHERE GUID = " & TBPMO_WD_FORMVIEW_DOKTYPES_GUID)
lblSave.Visible = True
lblSave.Text = "Data saved - " & Now.ToString
Return True
@@ -136,7 +136,7 @@
Try
If cmbEntity.SelectedIndex <> -1 Then
TBPMO_WD_FORMVIEW_DOKTYPES_GUID = Me.cmbEntity.SelectedValue
DTTBPMO_WD_FORMVIEW_DOKTYPES = ClassDatabase.Return_Datatable("SELECT * FROM TBPMO_WD_FORMVIEW_DOKTYPES WHERE GUID = " & TBPMO_WD_FORMVIEW_DOKTYPES_GUID)
DTTBPMO_WD_FORMVIEW_DOKTYPES = MYDB_ECM.GetDatatable("SELECT * FROM TBPMO_WD_FORMVIEW_DOKTYPES WHERE GUID = " & TBPMO_WD_FORMVIEW_DOKTYPES_GUID)
If DTTBPMO_WD_FORMVIEW_DOKTYPES.Rows.Count = 1 Then
FORM_VIEW_ID = DTTBPMO_WD_FORMVIEW_DOKTYPES.Rows(0).Item("FORMVIEW_ID")
Dim NameConv = DTTBPMO_WD_FORMVIEW_DOKTYPES.Rows(0).Item("NAME_CONVENTION")
@@ -171,7 +171,7 @@
"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}) " & _
"ORDER BY DISPLAY", FORM_VIEW_ID)
Dim DT1 As DataTable = ClassDatabase.Return_Datatable(sql)
Dim DT1 As DataTable = MYDB_ECM.GetDatatable(sql)
If DT1.Rows.Count >= 1 Then
cmbIndex_Controls.DataSource = DT1
cmbIndex_Controls.DisplayMember = DT1.Columns(1).ColumnName

26
app/DD-Record-Organizer/frmEntities.vb
View File

@@ -30,9 +30,9 @@ Public Class frmEntities
Private Sub frmForm_Overview_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'TODO: Diese Codezeile lädt Daten in die Tabelle "DD_DMSDataSet.TBPMO_FORM_TYPE". Sie können sie bei Bedarf verschieben oder entfernen.
Try
TBPMO_FORMTableAdapter.Connection.ConnectionString = MyConnectionString
TBPMO_FORM_VIEWTableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBPMO_FORM_TYPETableAdapter.Connection.ConnectionString = MyConnectionString
TBPMO_FORMTableAdapter.Connection.ConnectionString = MYDB_ECM.CurrentConnectionString
TBPMO_FORM_VIEWTableAdapter.Connection.ConnectionString = MYDB_ECM.CurrentConnectionString
Me.TBPMO_FORM_TYPETableAdapter.Connection.ConnectionString = MYDB_ECM.CurrentConnectionString
Load_TreeView()
Me.TBPMO_FORM_TYPETableAdapter.Fill(Me.DD_DMSDataSet.TBPMO_FORM_TYPE)
ClassWindowLocation.LoadFormLocationSize(Me, 1, CURRENT_SCREEN_ID, "frmForm_Overview")
@@ -52,7 +52,7 @@ Public Class frmEntities
"TBPMO_FORM T, TBPMO_FORM_VIEW T1 WHERE T.GUID = T1.FORM_ID AND T.FORM_TYPE_ID = 1 AND T.PARENT_ID = 0 AND T.GUID IN (select DISTINCT ENTITY_ID FROM TBPMO_CLIENT_ENTITY WHERE CLIENT_ID IN (select client_Id from TBDD_CLIENT_USER where USER_ID = {2}))", USER_LANGUAGE, CURRENT_SCREEN_ID, USER_GUID)
LOGGER.Debug(Now.ToString & "Level 0 >>" & DT_SQL, False)
Dim DT As DataTable = ClassDatabase.Return_Datatable(DT_SQL)
Dim DT As DataTable = MYDB_ECM.GetDatatable(DT_SQL)
If DT.Rows.Count > 0 Then
TreeViewEntity.Nodes.Clear()
For Each Row As DataRow In DT.Rows
@@ -65,7 +65,7 @@ Public Class frmEntities
"TBPMO_FORM T, TBPMO_FORM_VIEW T1 WHERE T.GUID = T1.FORM_ID AND T.FORM_TYPE_ID in (2,5) AND T.PARENT_ID IN ({2},0) AND T.GUID IN (select DISTINCT ENTITY_ID FROM TBPMO_CLIENT_ENTITY WHERE CLIENT_ID IN (select client_Id from TBDD_CLIENT_USER where USER_ID = {3})) ORDER BY LEVEL", USER_LANGUAGE, CURRENT_SCREEN_ID, Row.Item("GUID"), USER_GUID)
LOGGER.Debug(Now.ToString & "Level 1 >>" & DT_SQL, False)
'Dim sql As String = "SELECT T.GUID, T1.FORM_TITLE FROM TBPMO_FORM T, TBPMO_FORM_VIEW T1 WHERE T.GUID = T1.FORM_ID AND T.FORM_TYPE_ID in (2,5) AND T.PARENT_ID = " & Row.Item("GUID") & " ORDER BY LEVEL"
Dim dtEbene1 As DataTable = ClassDatabase.Return_Datatable(DT_SQL)
Dim dtEbene1 As DataTable = MYDB_ECM.GetDatatable(DT_SQL)
If dtEbene1.Rows.Count > 0 Then
For Each row1 As DataRow In dtEbene1.Rows
Dim Node1 As TreeNode
@@ -76,7 +76,7 @@ Public Class frmEntities
LOGGER.Debug(Now.ToString & "Level 2 >>" & DT_SQL, False)
' Dim sql1 As String = "SELECT T.GUID, T1.FORM_TITLE FROM TBPMO_FORM T, TBPMO_FORM_VIEW T1 WHERE T.GUID = T1.FORM_ID AND T.FORM_TYPE_ID in (3,5) AND T.PARENT_ID = " & row1.Item("GUID") & " ORDER BY LEVEL"
'Jetzt die Ebene2 Knoten einhängen
Dim dtEbene2 As DataTable = ClassDatabase.Return_Datatable(DT_SQL)
Dim dtEbene2 As DataTable = MYDB_ECM.GetDatatable(DT_SQL)
If dtEbene2.Rows.Count > 0 Then
For Each row2 As DataRow In dtEbene2.Rows
Dim Node2 As TreeNode
@@ -92,7 +92,7 @@ Public Class frmEntities
DT_SQL = String.Format("SELECT T.GUID, T1.FORM_TITLE,[dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), T1.GUID), {1}) AS 'CAPTION' " & _
"FROM TBPMO_FORM T, TBPMO_FORM_VIEW T1 WHERE T.GUID = T1.FORM_ID AND T.FORM_TYPE_ID = 4 AND T.PARENT_ID = 0 AND T.GUID IN (select DISTINCT ENTITY_ID FROM TBPMO_CLIENT_ENTITY WHERE CLIENT_ID IN (select client_Id from TBDD_CLIENT_USER where USER_ID = {2})) ORDER BY CAPTION", USER_LANGUAGE, CURRENT_SCREEN_ID, USER_GUID)
'Dim sql2 As String = "SELECT T.GUID, T1.FORM_TITLE FROM TBPMO_FORM T, TBPMO_FORM_VIEW T1 WHERE T.GUID = T1.FORM_ID AND T.FORM_TYPE_ID = 4 AND T.PARENT_ID = 0 ORDER BY T1.FORM_TITLE"
Dim DT3 As DataTable = ClassDatabase.Return_Datatable(DT_SQL)
Dim DT3 As DataTable = MYDB_ECM.GetDatatable(DT_SQL)
LOGGER.Debug(Now.ToString & "Indepentent Entities >>" & DT_SQL, False)
If DT3.Rows.Count > 0 Then
Dim Node As TreeNode
@@ -248,7 +248,7 @@ Public Class frmEntities
' Save FORM_VIEW Properties
If insert = True Then
Dim sql = "SELECT (MAX(GUID)) FROM TBPMO_FORM"
Dim FORM_ID = ClassDatabase.Execute_Scalar(sql)
Dim FORM_ID = MYDB_ECM.GetScalarValue(SQL)
Dim ADDED_WHO As String = USER_USERNAME
@@ -257,7 +257,7 @@ Public Class frmEntities
'ggg()
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)
ClassDatabase.Execute_non_Query(sql)
MYDB_ECM.ExecuteNonQuery(Sql)
End If
Load_TreeView()
Else
@@ -294,7 +294,7 @@ Public Class frmEntities
Try
Dim CurrentID = GetCurrentGUID()
Dim sql = "EXEC PRPMO_DELETE_ENTITY " & CurrentID
If ClassDatabase.Execute_non_Query(sql) = True Then
If MYDB_ECM.ExecuteNonQuery(Sql) = True Then
MsgBox("Entity was deleted!", MsgBoxStyle.Information)
Load_TreeView()
Load_Forms(999999999)
@@ -309,7 +309,7 @@ Public Class frmEntities
End Sub
Private Sub btninsert_Click(sender As Object, e As EventArgs) Handles btninsert.Click
Dim anz_ent = ClassDatabase.Execute_Scalar("SELECT Count(GUID) FROM TBPMO_FORM where PARENT_ID = 0 and FORM_TYPE_ID = 1")
Dim anz_ent = MYDB_ECM.GetScalarValue("SELECT Count(GUID) FROM TBPMO_FORM where PARENT_ID = 0 and FORM_TYPE_ID = 1")
anz_ent += 1
If anz_ent > LICENSE_DOSSIER_COUNT Then
Dim msg = String.Format("Die Anzahl an lizensierten Sichten/Akten {0} ist erreicht! Bitte kontaktieren Sie Digital Data!", LICENSE_DOSSIER_COUNT.ToString)
@@ -350,7 +350,7 @@ Public Class frmEntities
Try
Dim CurrentID = GetCurrentGUID()
Dim sql As String = "EXEC PRPMO_COPY_ENTITY " & CurrentID.ToString & ", '" & USER_USERNAME & "'"
If ClassDatabase.Execute_non_Query(sql) = True Then
If MYDB_ECM.ExecuteNonQuery(Sql) = True Then
'MsgBox("Die Entität wurde erfolgreich kopiert!", MsgBoxStyle.Information)
Load_TreeView()
Load_Forms(999999999)
@@ -416,7 +416,7 @@ Public Class frmEntities
BW_Entity.RunWorkerAsync()
End Sub
Private Sub bw_DoWork(ByVal sender As Object, ByVal e As DoWorkEventArgs)
DT_RESULT = ClassDatabase.Return_Datatable(EXECUTE_STATEMENT)
DT_RESULT = MYDB_ECM.GetDatatable(EXECUTE_STATEMENT)
End Sub
Private Sub BW_Entity_ProgressChanged(sender As Object, e As System.ComponentModel.ProgressChangedEventArgs) Handles BW_Entity.ProgressChanged

4
app/DD-Record-Organizer/frmFileRename.vb
View File

@@ -20,7 +20,7 @@ Public Class frmFileRename
If USER_LANGUAGE <> "de-DE" Then
oMSG = "Do You really want to rename the file?"
End If
result = MessageBox.Show(oMSG, "Confirmation:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
result = MessageBox.Show(oMSG, CAPTION_CONFIRMATION, MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = MsgBoxResult.Yes Then
If oRenameType = "Displayname" Then
Try
@@ -52,7 +52,7 @@ Public Class frmFileRename
LOGGER.Info($"Renaming FileSystem done!")
Cursor = Cursors.WaitCursor
Dim oEXEC As String = $"EXEC PRPMO_DOC_CREATE_NEW_DOC {ClassWindreamDocGrid.SELECTED_DOC_ID}, {CURRENT_RECORD_ID},'{USER_USERNAME}'"
If ClassDatabase.Execute_non_Query(oEXEC) Then
If MYDB_ECM.ExecuteNonQuery(oEXEC) Then
Me.Close()
Else
MsgBox("Not succesfull - Check log", MsgBoxStyle.Critical)

48
app/DD-Record-Organizer/frmFollowUp.vb
View File

@@ -23,8 +23,8 @@
Try
Dim sql = String.Format("SELECT [CONTROL_ID] ,[FORM_NAME] + ' | ' + [CONTROL_NAME] AS DISPLAY FROM [VWPMO_CONTROL_SCREEN] WHERE CTRLTYPE_ID IN (2,3,12) ORDER BY FORM_ID", cmbConstructor.SelectedValue)
Dim DTCTRL_USR As DataTable = ClassDatabase.Return_Datatable(sql)
Dim DTCTRL_GRP As DataTable = ClassDatabase.Return_Datatable(sql)
Dim DTCTRL_USR As DataTable = MYDB_ECM.GetDatatable(sql)
Dim DTCTRL_GRP As DataTable = MYDB_ECM.GetDatatable(sql)
Dim newRow As DataRow = DTCTRL_USR.NewRow()
@@ -53,10 +53,10 @@
'TODO: Diese Codezeile lädt Daten in die Tabelle "DD_DMSDataSet.TBPMO_FORM_CONSTRUCTOR". Sie können sie bei Bedarf verschieben oder entfernen.
Me.Cursor = Cursors.WaitCursor
Try
Dim DT1 As DataTable = ClassDatabase.Return_Datatable("SELECT [CONTROL_ID] ,[FORM_NAME] + ' | ' + [CONTROL_NAME] AS DISPLAY FROM [VWPMO_CONTROL_SCREEN] WHERE CTRLTYPE_ID = 4 ORDER BY FORM_ID")
Dim DT2 As DataTable = ClassDatabase.Return_Datatable("SELECT [CONTROL_ID] ,[FORM_NAME] + ' | ' + [CONTROL_NAME] AS DISPLAY FROM [VWPMO_CONTROL_SCREEN] WHERE CTRLTYPE_ID = 10 ORDER BY FORM_ID")
Dim DT3 As DataTable = ClassDatabase.Return_Datatable("select GUID,NAME FROM TBPMO_FOLLOW_UP_EMAIL ORDER BY NAME")
Dim DTUser As DataTable = ClassDatabase.Return_Datatable("select guid, username from TBDD_USER t where T.EMAIL IS NOT NULL order by USERNAME")
Dim DT1 As DataTable = MYDB_ECM.GetDatatable("SELECT [CONTROL_ID] ,[FORM_NAME] + ' | ' + [CONTROL_NAME] AS DISPLAY FROM [VWPMO_CONTROL_SCREEN] WHERE CTRLTYPE_ID = 4 ORDER BY FORM_ID")
Dim DT2 As DataTable = MYDB_ECM.GetDatatable("SELECT [CONTROL_ID] ,[FORM_NAME] + ' | ' + [CONTROL_NAME] AS DISPLAY FROM [VWPMO_CONTROL_SCREEN] WHERE CTRLTYPE_ID = 10 ORDER BY FORM_ID")
Dim DT3 As DataTable = MYDB_ECM.GetDatatable("select GUID,NAME FROM TBPMO_FOLLOW_UP_EMAIL ORDER BY NAME")
Dim DTUser As DataTable = MYDB_ECM.GetDatatable("select guid, username from TBDD_USER t where T.EMAIL IS NOT NULL order by USERNAME")
Load_entity_Data()
PARENT_IDComboBox.DataSource = DT3
PARENT_IDComboBox.DisplayMember = DT3.Columns(1).ColumnName
@@ -87,8 +87,8 @@
'clbUsersGroups.Items.Add(New MyListBoxItem() With {.Text = userrow.Item(1), .ExtraData = userrow.Item(0)})
Next
TBPMO_FOLLOW_UP_EMAILTableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBPMO_FORM_CONSTRUCTORTableAdapter.Connection.ConnectionString = MyConnectionString
TBPMO_FOLLOW_UP_EMAILTableAdapter.Connection.ConnectionString = MYDB_ECM.CurrentConnectionString
Me.TBPMO_FORM_CONSTRUCTORTableAdapter.Connection.ConnectionString = MYDB_ECM.CurrentConnectionString
Me.TBPMO_FORM_CONSTRUCTORTableAdapter.Fill(Me.DD_DMSDataSet.TBPMO_FORM_CONSTRUCTOR, USER_LANGUAGE, CURRENT_SCREEN_ID)
Load_WV_PRofiles()
@@ -112,20 +112,20 @@
Try
loaded = False
Dim sql2 = "SELECT FOLLOW_UP_LOG_ERR_ONLY FROM TBPMO_KONFIGURATION WHERE GUID = 1"
chkbxLogErrorsonly.Checked = CBool(ClassDatabase.Execute_Scalar(sql2))
chkbxLogErrorsonly.Checked = CBool(MYDB_ECM.GetScalarValue(sql2))
load_EmailProfiles()
sql2 = "SELECT FOLLOW_UP_EMAIL_PROFILE FROM TBPMO_KONFIGURATION WHERE GUID = 1"
cmbWWEmail.SelectedValue = CInt(ClassDatabase.Execute_Scalar(sql2))
cmbWWEmail.SelectedValue = CInt(MYDB_ECM.GetScalarValue(sql2))
Catch ex As Exception
MsgBox("Fehler beim Laden der Grundeinstellungen:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
loaded = True
Case 2
Try
Dim sql = "SELECT [FOLLOW_UP_ID],[NAME],[FOLLOW_UP_SEQUENCE],[FOLLOW_UP_DAYS],[FOLLOW_UP_TIME_SPAN],[NOW_TIME],[RECORD_ID],[VALUE]" & _
",[EMAIL_SUBJECT],[EMAIL_BODY],[TIME_UNITY],[TIME_DIST],[TIME_SPAN],[DEPENDENT_DATE_CTRL_ID],[DEPENDENT_DONE_CTRL_ID],[DONE_VALUE],[CONSTRUCTOR_ID]" & _
Dim sql = "SELECT [FOLLOW_UP_ID],[NAME],[FOLLOW_UP_SEQUENCE],[FOLLOW_UP_DAYS],[FOLLOW_UP_TIME_SPAN],[NOW_TIME],[RECORD_ID],[VALUE]" &
",[EMAIL_SUBJECT],[EMAIL_BODY],[TIME_UNITY],[TIME_DIST],[TIME_SPAN],[DEPENDENT_DATE_CTRL_ID],[DEPENDENT_DONE_CTRL_ID],[DONE_VALUE],[CONSTRUCTOR_ID]" &
",[CONSTRUCTOR_TITLE] FROM VWPMO_FOLLOW_UP_EMAIL"
Dim DT = ClassDatabase.Return_Datatable(sql)
Dim DT = MYDB_ECM.GetDatatable(sql)
GridResult.DataSource = DT
Catch ex As Exception
MsgBox("Unexpected Error in show follow up records:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
@@ -143,7 +143,7 @@
bool = 0
End If
Dim upd = "UPDATE TBPMO_KONFIGURATION SET FOLLOW_UP_LOG_ERR_ONLY = " & bool & " WHERE GUID = 1"
ClassDatabase.Execute_non_Query(upd)
MYDB_ECM.ExecuteNonQuery(upd)
End If
Catch ex As Exception
MsgBox("Fehler bei Update LogErrorsOnly:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
@@ -157,14 +157,14 @@
Sub load_EmailProfiles()
Try
Dim sql1 = "SELECT FOLLOW_UP_EMAIL_PROFILE FROM TBPMO_KONFIGURATION WHERE GUID = 1"
Dim email_id = ClassDatabase.Execute_Scalar(sql1)
Dim email_id = MYDB_ECM.GetScalarValue(sql1)
Dim sql = "SELECT GUID, NAME FROM TBDD_EMAIL_ACCOUNT WHERE ACTIVE = 1"
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
Dim DT As DataTable = MYDB_ECM.GetDatatable(sql)
If Not IsNothing(DT) Then
cmbWWEmail.DataSource = DT
cmbWWEmail.DisplayMember = DT.Columns(1).ColumnName
cmbWWEmail.ValueMember = DT.Columns(0).ColumnName
Dim emailp = ClassDatabase.Execute_Scalar("SELECT NAME FROM TBDD_EMAIL_ACCOUNT WHERE GUID = " & email_id)
Dim emailp = MYDB_ECM.GetScalarValue("SELECT NAME FROM TBDD_EMAIL_ACCOUNT WHERE GUID = " & email_id)
cmbWWEmail.SelectedIndex = cmbWWEmail.FindStringExact(emailp)
End If
Catch ex As Exception
@@ -185,7 +185,7 @@
Try
DD_ECMAdmin.TBAD_Users.Clear()
Dim sql = "SELECT T.GUID, T1.USERNAME FROM TBPMO_FOLLUPEMAIL_USER T, TBDD_USER T1 WHERE T.USER_ID = T1.GUID AND T.FOLLOW_UP_ID = " & GUIDTextBox.Text & " ORDER BY T1.USERNAME"
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
Dim DT As DataTable = MYDB_ECM.GetDatatable(sql)
For Each userrow As DataRow In DT.Rows
Dim newUserRow As DD_ECMAdmin.TBAD_UsersRow
newUserRow = DD_ECMAdmin.TBAD_Users.NewTBAD_UsersRow
@@ -216,9 +216,9 @@
For Each row As DataRow In DD_ECMAdmin.TBWH_Users1.Rows
If row.Item(0) = CBool(True) Then
Dim sql = "select count(*) from TBPMO_FOLLUPEMAIL_USER Where user_id = " & row.Item(5) & " AND FOLLOW_UP_ID = " & Me.GUIDTextBox.Text
If ClassDatabase.Execute_Scalar(sql) = 0 Then
If MYDB_ECM.GetScalarValue(SQL) = 0 Then
Dim ins = "insert into TBPMO_FOLLUPEMAIL_USER (USER_ID,FOLLOW_UP_ID,ADDED_WHO) VALUES (" & row.Item(5) & ", " & Me.GUIDTextBox.Text & ", '" & USER_USERNAME & "')"
If ClassDatabase.Execute_non_Query(ins) = False Then
If MYDB_ECM.ExecuteNonQuery(ins) = False Then
MsgBox(String.Format("Error in Adding User {0} to FollowUp!", row.Item(1)), MsgBoxStyle.Critical)
End If
End If
@@ -235,7 +235,7 @@
If row.Item(0) = CBool(True) Then
Dim sql
sql = String.Format("DELETE FROM TBPMO_FOLLUPEMAIL_USER WHERE GUID = {0}", row.Item(5))
If ClassDatabase.Execute_non_Query(sql) = False Then
If MYDB_ECM.ExecuteNonQuery(Sql) = False Then
MsgBox(String.Format("Error in deleting User {0} from FollowUp", row.Item(1)), MsgBoxStyle.Critical)
End If
End If
@@ -276,7 +276,7 @@
Try
If GUIDTextBox.Text = "" Then Exit Sub
Dim sql As String = "select FOLLOW_UP_DAYS from TBPMO_FOLLOW_UP_EMAIL where guid = " & GUIDTextBox.Text
Dim follup_Days As String = ClassDatabase.Execute_Scalar(sql)
Dim follup_Days As String = MYDB_ECM.GetScalarValue(SQL)
Formloaded = False
CheckBox1.Checked = False
chkDienstag.Checked = False
@@ -318,7 +318,7 @@
Exit Sub
End If
Dim sql As String = "select FOLLOW_UP_DAYS from TBPMO_FOLLOW_UP_EMAIL where guid = " & GUIDTextBox.Text
Dim follup_Days = ClassDatabase.Execute_Scalar(sql)
Dim follup_Days = MYDB_ECM.GetScalarValue(SQL)
If IsNothing(follup_Days) Then
follup_Days = "0000000"
End If
@@ -428,7 +428,7 @@
End Try
Try
Dim upd = "Update TBPMO_KONFIGURATION SET FOLLOW_UP_EMAIL_PROFILE = " & cmbWWEmail.SelectedValue & " WHERE GUID = 1"
ClassDatabase.Execute_non_Query(upd, True)
MYDB_ECM.ExecuteNonQuery(upd)
Catch ex As Exception
MsgBox("Check logfile - unexpected error in updating email-profile: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try

6
app/DD-Record-Organizer/frmGeodataNavigation.vb
View File

@@ -151,7 +151,7 @@ Public Class frmGeodataNavigation
Private Sub LoadData()
Dim rowhandle As Integer = grvwMain.FocusedRowHandle
EntityDataTable = ClassDatabase.Return_Datatable(EntitySql)
EntityDataTable = MYDB_ECM.GetDatatable(EntitySql)
LoadItemList()
LoadGridData()
@@ -339,7 +339,7 @@ Public Class frmGeodataNavigation
Dim currentRow As DataRowView = grvwMain.GetFocusedRow()
Dim RecordId As Integer = currentRow.Item("Record-ID")
Dim geoDataExists As Boolean = ClassDatabase.Execute_Scalar("SELECT RECORD_ID FROM TBPMO_RECORD_GEODATA WHERE RECORD_ID = " & RecordId)
Dim geoDataExists As Boolean = MYDB_ECM.GetScalarValue("SELECT RECORD_ID FROM TBPMO_RECORD_GEODATA WHERE RECORD_ID = " & RecordId)
If geoDataExists Then
Dim SQL As String = "UPDATE TBPMO_RECORD_GEODATA SET LATITUDE = @lat, LONGITUDE = @lon, CHANGED_WHO = @who WHERE RECORD_ID = @recordid"
@@ -402,7 +402,7 @@ Public Class frmGeodataNavigation
Dim RecordId As Integer = currentRow.Item("Record-ID")
Dim sql = "DELETE FROM TBPMO_RECORD_GEODATA WHERE RECORD_ID = " & RecordId
ClassDatabase.Execute_Scalar(sql)
MYDB_ECM.GetScalarValue(SQL)
LoadData()
End If

4
app/DD-Record-Organizer/frmGlobalSearch.vb
View File

@@ -111,7 +111,7 @@ Public Class frmGlobalSearch
"where T.RECORD_ID = TR.GUID AND TR.FORM_ID = TFV.FORM_ID AND T.value like '%{1}%' ORDER BY T.RECORD_ID", USER_LANGUAGE, txtSearch.Text)
End Sub
Private Function Refresh_Records()
Dim DT_RECORD_RESULT = ClassDatabase.Return_Datatable(sel_Records)
Dim DT_RECORD_RESULT = MYDB_ECM.GetDatatable(sel_Records)
If Not IsNothing(DT_RECORD_RESULT) Then
SplitContainerMain.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.None
SplitContainerMain.Collapsed = False
@@ -139,7 +139,7 @@ Public Class frmGlobalSearch
End If
End Function
Private Function Refresh_Files()
Dim DT_Files = ClassDatabase.Return_Datatable(sel_FT, True)
Dim DT_Files = MYDB_ECM.GetDatatable(sel_FT)
If Not IsNothing(DT_Files) Then
SplitContainerMain.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.None
SplitContainerMain.Collapsed = False

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

@@ -41,7 +41,7 @@ Public Class frmLanguage_Translator
sql = sql.Replace("@OBJECT", group)
End If
Dim DT_OBJ As DataTable = ClassDatabase.Return_Datatable(sql)
Dim DT_OBJ As DataTable = MYDB_ECM.GetDatatable(sql)
Clear_Grid_View()
If Not IsNothing(DT_OBJ) Then
TBPMO_LANGUAGE_OBJECTBindingSource1.DataSource = DT_OBJ
@@ -131,7 +131,7 @@ Public Class frmLanguage_Translator
Exit Sub
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)
If ClassDatabase.Execute_non_Query(upd, False) = True Then
If MYDB_ECM.ExecuteNonQuery(upd) = True Then
ts_statelbl.Text = "Row/ID (" & Grid_RecordID.ToString & ") Updated - " & Now
ts_statelbl.BackColor = Color.Yellow
ts_statelbl.Visible = True

45
app/DD-Record-Organizer/frmLevel_Designer.vb
View File

@@ -169,7 +169,7 @@
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
ClassDatabase.Execute_non_Query(update_sizepnl, False)
MYDB_ECM.ExecuteNonQuery(update_sizepnl)
Catch ex As Exception
MsgBox("Error in frmLevel_Designer_FormClosing: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
@@ -185,10 +185,8 @@
AddressOf Control_Click,
AddressOf Groupbox_DragDrop)
If ClassDatabase.Init = True Then
LoadFormProperties()
LoadControls()
End If
LoadFormProperties()
LoadControls()
End Sub
@@ -200,12 +198,12 @@
#Region "+++++ Load Funktionen +++++"
Public Sub LoadFormProperties()
Dim NAME_SQL As String = "SELECT NAME FROM TBPMO_FORM WHERE GUID = " & CURRENT_ENTITY_ID
Dim formviewid = ClassDatabase.Execute_Scalar("SELECT GUID FROM TBPMO_FORM_VIEW WHERE FORM_ID = " & CURRENT_ENTITY_ID & " AND SCREEN_ID = " & CURRENT_SCREEN_ID)
Dim formviewid = MYDB_ECM.GetScalarValue("SELECT GUID FROM TBPMO_FORM_VIEW WHERE FORM_ID = " & CURRENT_ENTITY_ID & " AND SCREEN_ID = " & CURRENT_SCREEN_ID)
Dim TITLE_SQL As String = "SELECT CAPTION FROM TBPMO_LANGUAGE_OBJECT WHERE PMO_OBJECT_NAME = 'FORMVIEW_TITLE" & formviewid & "' and SCREEN_ID = " & CURRENT_SCREEN_ID & " AND LANGUAGE_TYPE = '" & USER_LANGUAGE & "'"
Dim Height = ClassDatabase.Execute_Scalar("SELECT HEIGHT FROM TBPMO_FORM_VIEW WHERE FORM_ID = " & CURRENT_ENTITY_ID & " and SCREEN_ID = " & CURRENT_SCREEN_ID)
Dim width = ClassDatabase.Execute_Scalar("SELECT WIDTH FROM TBPMO_FORM_VIEW WHERE FORM_ID = " & CURRENT_ENTITY_ID & " and SCREEN_ID = " & CURRENT_SCREEN_ID)
Dim name = ClassDatabase.Execute_Scalar(NAME_SQL)
Dim title = ClassDatabase.Execute_Scalar(TITLE_SQL)
Dim Height = MYDB_ECM.GetScalarValue("SELECT HEIGHT FROM TBPMO_FORM_VIEW WHERE FORM_ID = " & CURRENT_ENTITY_ID & " and SCREEN_ID = " & CURRENT_SCREEN_ID)
Dim width = MYDB_ECM.GetScalarValue("SELECT WIDTH FROM TBPMO_FORM_VIEW WHERE FORM_ID = " & CURRENT_ENTITY_ID & " and SCREEN_ID = " & CURRENT_SCREEN_ID)
Dim name = MYDB_ECM.GetScalarValue(NAME_SQL)
Dim title = MYDB_ECM.GetScalarValue(TITLE_SQL)
' Check_Document_Config(CURRENT_ENTITY_ID)
If Not IsDBNull(Height) Then
If Height > 100 Then
@@ -225,7 +223,7 @@
Public Sub LoadControls()
Dim sql = String.Format("SELECT T.*, dbo.FNPMO_GET_CONTROL_CAPTION ('{0}', {1},T.CONTROL_ID) AS 'CAPTION' FROM VWPMO_CONTROL_SCREEN T" & _
" where T.FORM_ID = {2} and T.SCREEN_ID = {3}", USER_LANGUAGE, CURRENT_SCREEN_ID, CURRENT_ENTITY_ID, CURRENT_SCREEN_ID)
Dim dt As DataTable = ClassDatabase.Return_Datatable(sql)
Dim dt As DataTable = MYDB_ECM.GetDatatable(sql)
For Each dr As DataRow In dt.Rows
@@ -580,21 +578,21 @@
Dim currentPosition As Point = DesignerCtrlBuilder.CurrentControl.Location
' Das Control sollte nicht außerhalb des Panels geschoben werden (Koordinaten kleiner 0)
If CurrentPosition.X < 0 Then
If currentPosition.X < 0 Then
DesignerCtrlBuilder.CurrentControl.Location = New Point(0, DesignerCtrlBuilder.CurrentControl.Location.Y)
End If
If CurrentPosition.Y < 0 Then
If currentPosition.Y < 0 Then
DesignerCtrlBuilder.CurrentControl.Location = New Point(DesignerCtrlBuilder.CurrentControl.Location.X, 0)
End If
' Ebenso nicht über die Größe des Panels (X-Achse)
If CurrentPosition.X > pnlDesigner.Width Then
If currentPosition.X > pnlDesigner.Width Then
DesignerCtrlBuilder.CurrentControl.Location = New Point(pnlDesigner.Width - DesignerCtrlBuilder.CurrentControl.Width, DesignerCtrlBuilder.CurrentControl.Location.Y)
End If
' Ebenso nicht über die Größe des Panels (Y-Achse)
If CurrentPosition.Y > pnlDesigner.Height Then
If currentPosition.Y > pnlDesigner.Height Then
DesignerCtrlBuilder.CurrentControl.Location = New Point(DesignerCtrlBuilder.CurrentControl.Location.X, pnlDesigner.Height - DesignerCtrlBuilder.CurrentControl.Height)
End If
@@ -672,10 +670,11 @@
'Return True
Dim noerror As Boolean = False
Dim sql = "EXECUTE PRPMO_CREATE_SQL " & CURRENT_ENTITY_ID
noerror = ClassDatabase.Execute_non_Query_withConn(sql, 1)
sql = "EXECUTE PRPMO_CREATE_ENTITY_TABLE_VIEW " & CURRENT_ENTITY_ID
noerror = ClassDatabase.Execute_non_Query_withConn(sql, 1)
Dim sql = String.Format("DECLARE @return_value int " & vbNewLine &
"EXEC @return_value = dbo.PRPMO_CREATE_ENTITY_TABLE {0}" & vbNewLine &
"IF @return_value = 0 EXEC @return_value = [dbo].[PRPMO_CREATE_ENTITY_TABLE_VIEW] {0}" & vbNewLine &
"SELECT 'Return Value' = @return_value", CURRENT_ENTITY_ID)
noerror = MYDB_ECM.ExecuteNonQuery(sql)
If noerror = False Then
MsgBox("Error while rebuilding view! See Log for more information", MsgBoxStyle.Critical)
End If
@@ -710,15 +709,15 @@
'Dim sqlHint As String = String.Format("SELECT HINT FROM TBPMO_CONTROL_LANGUAGE WHERE CONTROL_SCREEN_ID = {0} AND LANGUAGE_TYPE = '{1}'", controlId, USER_LANGUAGE)
Dim sqlHint = String.Format("SELECT HINT FROM TBPMO_CONTROL_LANGUAGE WHERE CONTROL_SCREEN_ID = (SELECT GUID FROM TBPMO_CONTROL_SCREEN WHERE CONTROL_ID = {0} AND SCREEN_ID = {1}) AND LANGUAGE_TYPE = '{2}'", controlId, CURRENT_SCREEN_ID, USER_LANGUAGE)
Dim dt As DataTable = ClassDatabase.Return_Datatable(sql)
Dim hint As String = ClassConverter.ToStringOrDefault(ClassDatabase.Execute_Scalar(sqlHint), Nothing)
Dim dt As DataTable = MYDB_ECM.GetDatatable(sql)
Dim hint As String = ClassConverter.ToStringOrDefault(MYDB_ECM.GetScalarValue(sqlHint), Nothing)
Dim props As Object = Nothing
Dim r As DataRow = Nothing
Dim type As String = Nothing
If dt.Rows.Count <> 1 Then
MsgBox("Unexpected behaviour in LoadControlProperties: No Control could be loaded!" & vbNewLine & "Tag.ControlID: " & ControlId.ToString, MsgBoxStyle.Exclamation)
MsgBox("Unexpected behaviour in LoadControlProperties: No Control could be loaded!" & vbNewLine & "Tag.ControlID: " & controlId.ToString, MsgBoxStyle.Exclamation)
Exit Sub
End If
@@ -1054,7 +1053,7 @@
If IsGroupBox(DesignerCtrlBuilder.CurrentControl) Then
Dim parentID As Integer = GetControlID_for_Name(DesignerCtrlBuilder.CurrentControl.Name, CURRENT_ENTITY_ID)
Dim SQL = "SELECT GUID FROM TBPMO_CONTROL WHERE PARENT_CONTROL_ID = " & parentID
Dim dt As DataTable = ClassDatabase.Return_Datatable(SQL)
Dim dt As DataTable = MYDB_ECM.GetDatatable(sql)
For Each dr As DataRow In dt.Rows
Dim id As Integer = dr.Item(0)

18
app/DD-Record-Organizer/frmLicense.resx
View File

@@ -121,7 +121,7 @@
<data name="btnPW_check.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wwAADsMBx2+oZAAAAHVJREFUOE/tkTsOgCAQRDkbJ/AmHNlGbSgJtJiHbLISosTY6SQTlmVm+Jkf94gx
wgAADsIBFShKgAAAAHVJREFUOE/tkTsOgCAQRDkbJ/AmHNlGbSgJtJiHbLISosTY6SQTlmVm+Jkf94gx
TiGEOaWUITW9unwNhN777JzL1tpCanqnEEnvUZt1CCep9iOgFbVcl61Q5niq/aUACdEjHLoC6AUMPyKQ
HTXpI3z8jZ+AMTvOnQxA9nO5IAAAAABJRU5ErkJggg==
</value>
@@ -192,7 +192,7 @@
<value>8, 10</value>
</data>
<data name="lblPW.Size" type="System.Drawing.Size, System.Drawing">
<value>108, 16</value>
<value>107, 16</value>
</data>
<data name="lblPW.TabIndex" type="System.Int32, mscorlib">
<value>27</value>
@@ -279,7 +279,7 @@
<value>6, 20</value>
</data>
<data name="Label4.Size" type="System.Drawing.Size, System.Drawing">
<value>51, 16</value>
<value>50, 16</value>
</data>
<data name="Label4.TabIndex" type="System.Int32, mscorlib">
<value>22</value>
@@ -312,7 +312,7 @@
<value>218, 20</value>
</data>
<data name="Label3.Size" type="System.Drawing.Size, System.Drawing">
<value>69, 16</value>
<value>68, 16</value>
</data>
<data name="Label3.TabIndex" type="System.Int32, mscorlib">
<value>21</value>
@@ -417,7 +417,7 @@
<value>7, 20</value>
</data>
<data name="lblClient.Size" type="System.Drawing.Size, System.Drawing">
<value>140, 16</value>
<value>139, 16</value>
</data>
<data name="lblClient.TabIndex" type="System.Int32, mscorlib">
<value>19</value>
@@ -468,7 +468,7 @@
<value>304, 77</value>
</data>
<data name="Label5.Size" type="System.Drawing.Size, System.Drawing">
<value>65, 16</value>
<value>64, 16</value>
</data>
<data name="Label5.TabIndex" type="System.Int32, mscorlib">
<value>16</value>
@@ -546,7 +546,7 @@
<value>7, 112</value>
</data>
<data name="Label2.Size" type="System.Drawing.Size, System.Drawing">
<value>127, 16</value>
<value>126, 16</value>
</data>
<data name="Label2.TabIndex" type="System.Int32, mscorlib">
<value>10</value>
@@ -633,13 +633,13 @@
<value>7, 77</value>
</data>
<data name="lblnewlicenses.Size" type="System.Drawing.Size, System.Drawing">
<value>209, 16</value>
<value>155, 16</value>
</data>
<data name="lblnewlicenses.TabIndex" type="System.Int32, mscorlib">
<value>3</value>
</data>
<data name="lblnewlicenses.Text" xml:space="preserve">
<value>Anzahl Record-Organizer Lizenzen:</value>
<value>Anzahl OrgFlow Lizenzen:</value>
</data>
<data name="&gt;&gt;lblnewlicenses.Name" xml:space="preserve">
<value>lblnewlicenses</value>

8
app/DD-Record-Organizer/frmLicense.vb
View File

@@ -56,7 +56,7 @@ Public Class frmLicense
Dim result As String = Me._lizenzManager.EncodeLicenseKey(ressultstring, "#DigitalData35452!#")
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 Then
If MYDB_ECM.ExecuteNonQuery(Sql) = True Then
Refresh_Licence(True)
End If
@@ -147,13 +147,13 @@ Public Class frmLicense
Dim wrapper As New ClassEncryption("!35452didalog=")
Dim cipherText As String = wrapper.EncryptData(dtpLicenseAddon.Value.ToString("yyyy-MM-dd"))
Dim sql = String.Format("SELECT COUNT(GUID) FROM TBDD_LICENSE_ADD_ON WHERE CLIENT_ID = {0} AND MODULE = 'Record-Organizer' AND UPPER(NAME) = UPPER('{1}')", CLIENT_ID, cmbAddOn.Text)
Dim count = ClassDatabase.Execute_Scalar(sql, False)
Dim count = MYDB_ECM.GetScalarValue(SQL)
If count = 0 Then
sql = String.Format("INSERT INTO TBDD_LICENSE_ADD_ON (CLIENT_ID, MODULE,NAME,VALID_DATE) VALUES ({0},'Record-Organizer','{1}','{2}')", CLIENT_ID, cmbAddOn.Text, cipherText)
ClassDatabase.Execute_non_Query(sql)
MYDB_ECM.ExecuteNonQuery(Sql)
Else
sql = String.Format("UPDATE TBDD_LICENSE_ADD_ON SET VALID_DATE = '{0}' WHERE CLIENT_ID = {1} AND UPPER(MODULE) = UPPER('Record-Organizer') AND UPPER(NAME) = UPPER('{2}')", cipherText, CLIENT_ID, cmbAddOn.Text)
ClassDatabase.Execute_non_Query(sql)
MYDB_ECM.ExecuteNonQuery(Sql)
End If
Refresh_Licence(False)
Else

6
app/DD-Record-Organizer/frmLogRecord.vb
View File

@@ -15,10 +15,10 @@
Private Sub frmLogRecord_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Try
Me.TBPMO_RECORD_LOG_CONFIGTableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBPMO_RECORD_LOG_CONFIGTableAdapter.Connection.ConnectionString = MYDB_ECM.CurrentConnectionString
Me.TBPMO_RECORD_LOG_CONFIGTableAdapter.Fill(Me.DD_DMSDataSet.TBPMO_RECORD_LOG_CONFIG)
Dim DT1 As DataTable = ClassDatabase.Return_Datatable("SELECT GUID, NAME AS DISPLAY FROM TBPMO_FORM ORDER BY NAME")
Dim DT1 As DataTable = MYDB_ECM.GetDatatable("SELECT GUID, NAME AS DISPLAY FROM TBPMO_FORM ORDER BY NAME")
FORM_IDComboBox.DataSource = DT1
FORM_IDComboBox.DisplayMember = DT1.Columns(1).ColumnName
@@ -57,7 +57,7 @@
Try
If FORM_IDComboBox.SelectedIndex <> -1 Then
Dim sql = String.Format("SELECT GUID, NAME FROM TBPMO_CONTROL WHERE FORM_ID = {0} and CONTROL_TYPE_ID not in (1,5) ORDER BY NAME", FORM_IDComboBox.SelectedValue)
Dim DT1 As DataTable = ClassDatabase.Return_Datatable(sql)
Dim DT1 As DataTable = MYDB_ECM.GetDatatable(sql)
CONTROL_IDComboBox.DataSource = DT1
CONTROL_IDComboBox.DisplayMember = DT1.Columns(1).ColumnName
CONTROL_IDComboBox.ValueMember = DT1.Columns(0).ColumnName

2
app/DD-Record-Organizer/frmLoginUserSelect.vb
View File

@@ -9,7 +9,7 @@
Private Sub frmLoginUserSelect_Load(sender As Object, e As EventArgs) Handles Me.Load
Dim Sql = String.Format("SELECT T.* FROM TBDD_USER T INNER JOIN TBDD_USER_MODULES T1 ON T.GUID = T1.USER_ID INNER JOIN TBDD_MODULES T2 ON T1.MODULE_ID = T2.GUID
WHERE T2.SHORT_NAME = 'ADDI'")
Dim DT_USER = ClassDatabase.Return_Datatable(Sql)
Dim DT_USER = MYDB_ECM.GetDatatable(sql)
Try
DD_ECMAdmin.TBAD_Users.Clear()

1
app/DD-Record-Organizer/frmMain.Designer.vb generated
View File

@@ -732,6 +732,7 @@ Partial Class frmMain
Me.Controls.Add(Me.RibbonStatusBar1)
Me.Controls.Add(Me.ribbonMain)
Me.IconOptions.Icon = CType(resources.GetObject("frmMain.IconOptions.Icon"), System.Drawing.Icon)
Me.IconOptions.Image = CType(resources.GetObject("frmMain.IconOptions.Image"), System.Drawing.Image)
Me.IsMdiContainer = True
Me.KeyPreview = True
Me.Name = "frmMain"

87
app/DD-Record-Organizer/frmMain.resx
View File

@@ -1294,7 +1294,7 @@
<data name="BarButtonItem19.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAADAAAAAwCAYAAABXAvmHAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wgAADsIBFShKgAAAD3JJREFUaEPFWQtczmna7jWs846cdoyZYQx27O6McVpjYlfMt8bYGZMadmRGTskh
wQAADsEBuJFr7QAAD3JJREFUaEPFWQtczmna7jWs846cdoyZYQx27O6McVpjYlfMt8bYGZMadmRGTskh
WnJIEUVU5FCiUKGDSkI5q3GqKNP5ICRFiCgd6KCu77qfmn4x+Kam/fb+/a5f9b7Pv/e+7uc+XM/zav1a
mzhxovbUqVNHTpkyxY7wIyKJqLqYPHly4KRJkzbo6+uP5SOtiTcIjTz/X7Pp06ePmDZtWoixsTEsrW3h
4u4Jv6AQRMbEISUtHenp6UhOTsWFC9Hw8wuCi4s7rKysIet/+OGHMAMDgwX8N+2IpvL/stZ+pP1g00cj
@@ -3662,6 +3662,91 @@
//8AAAAAAAB/////////////AAAAAAAH/////////////wAAAAAAf/////////////8AAAAAP///////
////////AAAAA////////////////wAAAD////////////////8AAD//////////////////AAP/////
/////////////wA///////////////////8f////////////////////
</value>
</data>
<data name="frmMain.IconOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAQAAAAEACAYAAABccqhmAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAACxEAAAsRAX9kX5EAABJrSURBVHhe7d0/qCzlHcbxUygiJOGqJEFM/IcQlIDXIm24
tVUK0wY7iVVsrYQ0EhuLFDaCRWIbYhVIYyApIwZM0CIgYqFVhECEENy8v+vZy5w535md9/fM7s688xSf
EOfuPr+de995zu7M7p6L3W63SL994pkbxa3ileKt4t3i42JntmCxRmOtxpqNtRtr+Aat8SXAjecQf0nF
80X8xflAt9bEmo61HWt8MYWAG08l/iKKXxTvF/SXZtaqWPNnLwPceGxlp+NpUbQh/cWYbU0cC7foWDk2
3HgsZSej8fz03ozFsfE8HTvHghvnFjt1uXO002Z21cmKADfOpezEzSLOiNJOmtm4OHZu0rE1F9yoKg86
Tu69frkTZqaJY+koJwtxo6I80DjB56f7ZvOKY2r2E4W4Mas8wHjjAz14M5vHK3TsZeHGWuVBxVN+v9Y3
O4041mZ5SYAba5QHEif6/JTf7LTimJNPEOLGqeIBFF9cPiAzO6049qQSwI1TxODLB0APzMxOQyoB3HhI
DLwcTA/IzE4rXQK4cUwMuhxID8TMziNVArhxSAy4HEQPwMzOq7oEcCMpwXGpz2f7zZYtjtHJlwhxIymh
vs5vtg7v0jFMcGNfCfQ7/MzWZdI7BnFjVwmK9/bTADNbtoOfHcCNeyXAr/vN1uvg+QDcuFfu7I/0mq3b
63Rs7+HGUO4Yl/wo0MzWZfDSIG4M5U4+62/WhsGrArix3CG+w4+CzGyd8DsGr20I5caf9O5sZuv2CR3r
1zaUG/qnv1mbrj0LuPIfodzo096dzKwNn/aP9yv/UW7gN/2Yte3Km4P6BfB278Zm1pa3u8d89+CPd/3R
HcysLXfeHdgtAJ/8M9uGOycDuwXwUe9GZtamj64UQNngp/9m23L7ZcC+APz032xbbr8M2BfAO70/NLO2
vdMtAH/Rp9m2fHG7AMr/8et/s226EQXgd/+ZbdOtKIA3ehvNbBveiAL4c2+jmW3Dn6MA/KWfZtv0cRTA
l72NZrYNX0YB0B+Y2Qa4AMw2zAVgtmEuALMNcwGYbZgLwGzDXABmG+YCMNswF4DZhrkAzDbMBWC2YS4A
sw1zAZhtmAvAbMNcAGYb5gIw2zAXgNmGXXz+u2d2c6IhGZStoBkZlK2gGRmUraAZ1p6L3T+e2c2JhmRQ
toJmZFC2gmZkULaCZlh7XACVKFtBMzIoW0EzrD0ugEqUraAZGZStoBnWHhdAJcpW0IwMylbQDGuPC6AS
ZStoRgZlK2iGtccFUImyFTQjg7IVNMPa4wKoRNkKmpFB2QqaYe1xAVSibAXNyKBsBc2w9rgAKlG2gmZk
ULaCZlh7XACVKFtBMzIoW0EzrD0ugEqUraAZGZStoBnWHhdAJcpW0IwMylbQDGuPC6ASZStoRgZlK2iG
tccFUImyFTQjg7IVNMPa4wKoRNkKmpFB2QqaYe1xAVSibAXNyKBsBc2w9rgAKlG2gmZkULaCZlh7XACV
KFtBMzIoW0EzrD0ugEqUraAZGZStoBnWHhdAJcpW0IwMylbQDGuPC6ASZStoRgZlK2iGtccFUImyFTQj
g7IVNMPa4wKoRNkKmpFB2QqaYe1xAVSibAXNyKBsBc2w9rgAKlG2gmZkULaCZlh7XACVKFtBMzIoW0Ez
rD0ugEqUraAZGZStoBnWHhdAJcpW0IwMylbQDGuPC6ASZStoRgZlK2iGtccFUImyFTQjg7IVNMPa4wKo
RNkKmpFB2QqaYe1xAVSibAXNyKBsBc2w9rgAKlG2gmZkULaCZlh7XACVKFtBMzIoW0EzrD0ugEqUraAZ
GZStoBnWHhdAJcpW0IwMylbQDGuPC6ASZStoRgZlK2iGtccFUImyFTQjg7IVNMPa4wKoRNkKmpFB2Qqa
Ye1xAVSibAXNyKBsBc2w9rgAKlG2gmZkULaCZlh7XACVKFtBMzIoW0EzrD0ugEqUraAZGZStoBnWHhdA
JcpW0IwMylbQDGuPC6ASZStoRgZlK2iGtccFUImyFTQjg7IVNMPa4wKoRNkKmpFB2QqaYe1xAVSibAXN
yKBsBc2w9rgAKlG2gmZkULaCZlh7XACVKFtBMzIoW0EzrD0ugEqUraAZGZStoBnWHhdAJcpW0IwMylbQ
DGuPC6ASZStoRgZlK2iGtccFUImyFTQjg7IVNMPa4wKoRNkKmpFB2QqaYe1xAVSibAXNyKBsBc2w9rgA
KlG2gmZkULaCZlh7XACVKFtBMzIoW0EzrD0ugEqUraAZGZStoBnWHhdAJcpW0IwMylbQDGuPC6ASZSto
RgZlK2iGtccFUImyFTQjg7IVNMPa4wKoRNkKmpFB2QqaYe1xAVSibAXNyKBsBc2w9rgAKlG2gmZkULaC
Zlh7XACVKFtBMzIoW0EzrD0ugEqUraAZGZStoBnWHhdAJcpW0IwMylbQDGuPC6ASZStoRgZlK2iGtccF
UImyFTQjg7IVNMPa4wKoRNkKmpFB2QqaYe1xAVSibAXNyKBsBc2w9rgAKlG2gmZkULaCZlh7XACVKFtB
MzIoW0EzrD0ugEqUraAZGZStoBnWHhdAJcpW0IwMylbQDGuPC6ASZStoRgZlK2iGtccFUImyFTQjg7IV
NMPa4wKoRNkKmpFB2QqaYe25+OoDXgBZNCSDshU0I4OyFTQjg7Kz/vc3nmHtufjHr3gRZNGQDMpW0IwM
ylbQjAzKzoo1QTOsPRfxP/98gxdCRn9AFmUraEYGZStoRgZlZ8RaoHxr0+0CCO+9XBbA368viFrdcAVl
K2hGBmUraEYGZVcp//axBijb2nWnAMJffv71QsAFMlE3T0HZCpqRQdkKmpFB2ZOVf/P4t6dca9uVAgi/
//HXJ4FwoUzQz8uibAXNyKBsBc3IoOwp4t86/s0p09p3rQBCLIj//pUXzCGUl0HZCpqRQdkKmpFB2YfE
v7EP/m3DAtj795944YyhnAzKVtCMDMpW0IwMyh4T/7aUY9syWgDh89/xAhpCGRmUraAZGZStoBkZlD0k
/k0pw7bnYAGEmsuEdP8MylbQjAzKVtCMDMomvsxnXZMKIEy9TEj3zaBsBc3IoGwFzcig7Ct8mc/A5AII
Uy4T0v0yKFtBMzIoW0EzMij7Dl/mswFVBRAOXSak+2RQtoJmZFC2gmZkUHbwZT4bU10AYewyId0+g7IV
NCODshU0I4OyfZnPDkkVwB5dJqTbZfRzVTQjg7IVNCOjn+vLfDaFVADh099cXXh0m4xu5hxoRgZlK2hG
RjfTl/lsKrkAQvcyIf15RndBz4FmZFC2gmZk7PN8mc9qzFIAYX+FgP4so3uQzIFmZFC2gmZk+Ey/ZcxW
AGHOE050sChoRgZlK2hGxh9/ytvNxsxaAHOig0VBMzIoW0EzTuXXj/5w98vv/2D30oOP7X727e+dTMwM
9JjmFvtIj2GtYn9oP7NcAJUoW0EzjiUWzwvffWR361sP7O676+7dxcXF2T117zd3z93/4O61h5/Ex6yK
oqG5azV3cboAKlG2gmbMLRZNHPS0oJbk4Xvuvf1shPYhywUwzgVQibIVNGMubz7+9CoO/L4ogrkWugtg
nAugEmUraMYc4in1Up7mZ8VrXtq3Gi6AcS6ASpStoBmqFg7+vTg/QPs4lQtgnAugEmUraIYinva3cvDv
KecFXADjXACVKFtBMxRrfM1/SBRaFBvt7yEugHEugEqUraAZWa0t9q5nb3wH9/kQF8A4F0AlylbQjKwW
f/p3ZZ4FuADGuQAqUbaCZmTEwUELpiWZcwEugHEugEqUraAZGS8/9AQumJbEMxza9zEugHEugEqUraAZ
GXG5jBZMS+JkIO37GBfAOBdAJcpW0IyMH33jBi6Y1tSeB3ABjFtsAXz1AR8wWTQjg7KzYh9pRkZ8qIYW
TGtqDwAXwLjFFkDtbyQ6hGZkUHbWnF/dRYulRS6AjRRAyPxuwiGUn0HZGf/6A+dn0WKZS3w4J84x9D+b
To79UmQpBRDvS6D9P7bNfB/AXv9LR7MoO4Oyax3je/tokc4h8wacuFxHWXNYSgHM/ZP4XBZfAOH2l44e
+I1Eh1BuBmVPVvbhWF/aSYt0Dtm34EZxUJ7KBTCvVRRAmPJrycZQZgZlT3LkL+2kRaqKp/M0a4p4ukqZ
KhfAvFZTACEOoLFfSzaG8jIo+5B4zMf+xl5apCqlAI71xiQXwLxWVQDh0O8mHEJZGZQ95lS/m48WqUop
gKUceC6AcasrgBAHVO0VAsrJoOwh8RhP9bv5aJGqXADDXAALUFMCdP8Myian/t18tEhVLoBhLoCF6P5a
sjF03wzK7jvHr+eiRapyAQxzASzIlMuEdL8Myr7jiJf5DqFFqnIBDHMBLMyhy4R0nwzKvu3Il/kOoUWq
cgEMcwEs0NhlQrp9BmWf4jLfIbRIVS6AYS6AhRq6TEi3zejnnuoy3yG0SFUugGEugAWjy4R0u4xu5ikv
8x1Ci1TlAhjmAliBbgnQn2fs8+b+NJ+KFqnKBTDMBbAS+8uE9GcZkXWuM/1jaJGqXADDXAArMucJuvde
5u3nRotU5QIY5gKwRaFFqnIBDHMB2KLQIlW5AIa5AGxRaJGqXADDXAC2KLRIVS6AYS4AWxRapCoXwDAX
gC0KLVKVC2CYC8AWhRapygUwzAVgi0KLVOUCGOYCsEWhRapyAQxzAdii0CJVuQCGneI3A839W4CIC6AR
tEhVLoDzqt3XDBdAI2gBqVwA5+UCsMloAalcAOflArDJaAGpXADn5QKwyWgBqVwA5+UCsMloAalcAOfl
ArDJaAGpXADn5QKwyWgBqVwA5+UCsMloAalcAOflArDJaAGpXADn5QKwyWgBqVwA53WqAvisv9HWhxaQ
ygVwXicogM+iAD7ubbQVogWkcgGc1wkK4OMogLd6G22FaAGpXADndYICeCsK4MXeRlshWkAqF8CwRj4O
/GIUwK3eRlshWqQqF8Cw2sexUDcvdjtfCWgBLVKVC2BYCwUQx/6+AD7s/6GtCy1SlQtgWAMF8GG3AF7t
/aGtDC1SlQtgWAMF8Gq3AG72/tBWhhapygUwrIECuHmnAC5L4MveDWxFaJGqXADDVl4A/9kf990CeLt3
I1sRWqQqF8CwlRfA21QAvhy4YrRIVS6AYSsvgFvXCuCyBPy5gJWiRapyAQxbcQF81j3m+wXwSu/GthK0
SFUugGErLoBXusd8vwBu9G5sK0GLVOUCGLbiArjRPeavFEAoN/CHg1aIFqnKBTBspQXwVv94v/Ifodzo
0d6dbAVokapcAMNWWgCP9o/3K/+xV27oZwErQ4tU5QIYtsICuPbTP1zbEMqN/SxgZWiRqlwAw1ZYANd+
+odrG/bKHXxFYEVokapcAMNWVgBXzvx34cZQ7hRXBD7phNiC0SJVuQCGragA4hi+cua/CzfulTv63YEr
QYtU5QIYtqICuPOuP4Ibu0qATwiuAC1SlVIALz34GGaqXABV8MRfF27sKiHxUsDfHLxwtEhVT937TZw1
RXynHWWqXACTxTE7+NR/Dzf2lSB/X8DC0SKdQ3ahP3zPvZincgFMdvvz/ofgRlICn+8NsAWhRTqH++66
e/fyQ0/gTBLfZHvrWw9g1hxcAJM8T8cwwY1DSrDPBywULdK5RRnEeQESLxfoPnNzARx08HV/F24cEwN6
A20B4uCkhdoaF8CoqoM/4MZDyqD3e4PtzOKnMC3U1rz28JO4/0M2VADv07F6CG48pAyLKwMugQU55uvu
JaF9H7ORAohj8eAZf4Ibp4iBxbuXD8DO7IXvPnJtkbYmc1lyAwUQx2Dq4A+4sUYZ7nMCCxBPjWmhtuS5
+x/EfR/TeAFUv+bvw421ygPxB4cW4FjX3pei9vV/aLgABj/gUwM3ZpQH9JPii84DtBM71rvvliDKjfb5
kAYLII6xn9AxmIEbs8oDi+8R8MnBM3nz8aebvRwYny2gfT6ksQKIYws/15+FG1XlQfolwZnEu/Zowa5Z
XOKkfZ2ioQKY5Sl/H26cQ3nA8WzAVwnO4Nkb37m2YNcqntHEMxvazykaKIA4hmb9qd+FG+dUHnycG/Cn
CU+shRKIgz9z4q9rxQUQx8xsr/WH4MZjKDsTHyZyEZxQXDajxbsGcc0/PlhE+1VjhQUQx8jkD/OocOMx
xc4VPlF4IrFQ1/Q24fipH1czaF8yVlQAcUyc7MDfw42nUHY2vmMg3kTkS4cnEAt2yW8Xjp/48W5G5fU+
WXgBxNqPY2DSZ/ePATeeWvkLiPMELoMTiSsF8VP2lB/j7Yqf8jE7zlPE5b05nuoPWWAB7A/6o7++P2x3
8X+eB5H6og5ASgAAAABJRU5ErkJggg==
</value>
</data>
<data name="$this.Text" xml:space="preserve">

50
app/DD-Record-Organizer/frmMain.vb
View File

@@ -93,7 +93,7 @@ Public Class frmMain
Dim IPs As IPAddress
For Each IPs In Addresslist
'Aktuelle Machine
LOGGER.Info("" & My.Computer.Name & " - IP: " & IPs.ToString, False)
LOGGER.Info("" & My.Computer.Name & " - IP: " & IPs.ToString)
LabelMachine.Caption = My.Computer.Name & " - IP: " & IPs.ToString
Next IPs
@@ -117,7 +117,7 @@ Public Class frmMain
Catch ex As Exception
MsgBox("Error in Load Form:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
LOGGER.Debug("FormLoad finished!", False)
LOGGER.Debug("FormLoad finished!")
Proxy_Server_Controls()
CONN_Manager
@@ -153,7 +153,7 @@ Public Class frmMain
If LICENSE_PROXY = True And clsDatabase.DB_PROXY_INITIALIZED = True Then
'itemRefreshProxy.Visibility = BarItemVisibility.Always
LabelProxyServer.Visibility = BarItemVisibility.Always
LOGGER.Info("PROXY-SERVER is being used", False)
LOGGER.Info("PROXY-SERVER is being used")
Else
'itemRefreshProxy.Visibility = BarItemVisibility.Never
LabelProxyServer.Visibility = BarItemVisibility.Never
@@ -167,7 +167,7 @@ Public Class frmMain
Try
If TIMER_SCAN.Enabled = False And CURRENT_SCAN_FOLDERWATCH <> "" And FWSCAN_started = True Then
If System.IO.Directory.Exists(CURRENT_SCAN_FOLDERWATCH) = False Then
LOGGER.Warn("SCAN PATH '" & CURRENT_SCAN_FOLDERWATCH & "'not accessable!", False)
LOGGER.Warn("SCAN PATH '" & CURRENT_SCAN_FOLDERWATCH & "'not accessable!")
Exit Sub
End If
TIMER_SCAN.Interval = 30000
@@ -212,7 +212,7 @@ Public Class frmMain
Sub LoggedIn()
Try
Dim oSQL = 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(oSQL, False)
Dim anzahl = MYDB_ECM.GetScalarValue(oSQL)
USERS_LOGGED_IN = CInt(anzahl)
Catch ex As Exception
@@ -229,7 +229,7 @@ Public Class frmMain
Try
Dim connection As New SqlClient.SqlConnection(MyConnectionString) 'csb.ConnectionString)
Dim csb As New SqlClient.SqlConnectionStringBuilder
csb.ConnectionString = MyConnectionString
csb.ConnectionString = MYDB_ECM.CurrentConnectionString
Dim constr = connection.ConnectionString
If constr.Contains("Trusted_Connection=True") = False Then
constr = constr.Replace(csb.Password, "XXXXX")
@@ -241,7 +241,7 @@ Public Class frmMain
End Sub
Sub Load_TasksforUser()
Try
VWPMO_WF_ACTIVETableAdapter.Connection.ConnectionString = MyConnectionString
VWPMO_WF_ACTIVETableAdapter.Connection.ConnectionString = MYDB_ECM.CurrentConnectionString
Me.VWPMO_WF_ACTIVETableAdapter.Fill(Me.DD_DMSDataSet.VWPMO_WF_ACTIVE, USER_LANGUAGE, USER_USERNAME)
CURRENT_TASKS_GENERAL = Me.DD_DMSDataSet.VWPMO_WF_ACTIVE
Catch ex As Exception
@@ -306,7 +306,7 @@ Public Class frmMain
Dim SQL2 As String = String.Format("SELECT A.GUID as CONSTRUCT_ID,A.NODE_NAVIGATION,B.FORM_ID, dbo.FNPMO_GETOBJECTCAPTION('{0}', 'CONSTR_MENUE' + CONVERT(VARCHAR(5), A.GUID), {1}) AS FORM_TITLE, A.SEQUENCE_MENU, A.ADDED_WHO, A.ADDED_WHEN, A.CHANGED_WHO," &
"A.CHANGED_WHEN, A.MENU_IMG, A.SHORT_TITLE, A.LANGUAGE, " &
"'CONSTR_MENUE' + CONVERT(VARCHAR(5), A.GUID) as OBECTNAME FROM TBPMO_FORM_CONSTRUCTOR A INNER JOIN TBPMO_FORM_CONSTRUCTOR_DETAIL B ON A.GUID = B.CONSTRUCT_ID where A.GUID in (SELECT CONSTRUCT_ID FROM TBPMO_CONSTRUCTOR_USER WHERE HOME_MENUE = 0 AND USER_ID = {2}) ORDER BY A.SEQUENCE_MENU", USER_LANGUAGE, CURRENT_SCREEN_ID, USER_GUID)
Dim dt As DataTable = ClassDatabase.Return_Datatable(SQL2)
Dim dt As DataTable = MYDB_ECM.GetDatatable(SQL2)
If dt.Rows.Count <> 0 Then
pageForms.Visible = True
@@ -327,7 +327,7 @@ Public Class frmMain
Dim objectname_temp = String.Format("Object {0} not translated", objectname)
Dim ins = String.Format("INSERT INTO TBPMO_LANGUAGE_OBJECT (LANGUAGE_TYPE,SCREEN_ID,PMO_OBJECT_NAME,CAPTION) VALUES " &
"('{0}',{1},'{2}', '{3}')", USER_LANGUAGE, CURRENT_SCREEN_ID, objectname, objectname_temp)
If ClassDatabase.Execute_non_Query(ins) = True Then
If MYDB_ECM.ExecuteNonQuery(ins) = True Then
title = objectname_temp
End If
End If
@@ -359,7 +359,7 @@ Public Class frmMain
Dim SQL2 As String = String.Format("SELECT A.GUID as CONSTRUCT_ID, B.FORM_ID, A.NODE_NAVIGATION,dbo.FNPMO_GETOBJECTCAPTION('{0}', 'CONSTR_MENUE' + CONVERT(VARCHAR(5), A.GUID), {1}) AS FORM_TITLE, A.SEQUENCE_MENU, A.ADDED_WHO, A.ADDED_WHEN, A.CHANGED_WHO," &
"A.CHANGED_WHEN, A.MENU_IMG, A.SHORT_TITLE, A.LANGUAGE, " &
"'CONSTR_MENUE' + CONVERT(VARCHAR(5), A.GUID) as OBECTNAME FROM TBPMO_FORM_CONSTRUCTOR A INNER JOIN TBPMO_FORM_CONSTRUCTOR_DETAIL B On A.GUID = B.CONSTRUCT_ID where A.GUID in (SELECT CONSTRUCT_ID FROM TBPMO_CONSTRUCTOR_USER WHERE HOME_MENUE = 1 AND USER_ID = {2}) ORDER BY A.SEQUENCE_MENU", USER_LANGUAGE, CURRENT_SCREEN_ID, USER_GUID)
Dim dt As DataTable = ClassDatabase.Return_Datatable(SQL2)
Dim oDTConstructors As DataTable = MYDB_ECM.GetDatatable(SQL2)
Dim image2 As Bitmap = LoadNoImage()
Try
@@ -372,8 +372,8 @@ Public Class frmMain
End Try
If dt.Rows.Count <> 0 Then
For Each row As DataRow In dt.Rows
If oDTConstructors.Rows.Count <> 0 Then
For Each row As DataRow In oDTConstructors.Rows
If Not IsDBNull(row.Item("MENU_IMG")) Then
Dim bimg() As Byte = row.Item("MENU_IMG")
Dim bitmap As Bitmap = ByteArrayToBitmap(bimg)
@@ -387,18 +387,18 @@ Public Class frmMain
Dim objectname_temp = String.Format("Object {0} not translated", objectname)
Dim ins = String.Format("INSERT INTO TBPMO_LANGUAGE_OBJECT (LANGUAGE_TYPE,SCREEN_ID,PMO_OBJECT_NAME,CAPTION) VALUES " &
"('{0}',{1},'{2}', '{3}')", USER_LANGUAGE, CURRENT_SCREEN_ID, objectname, objectname_temp)
If ClassDatabase.Execute_non_Query(ins) = True Then
If MYDB_ECM.ExecuteNonQuery(ins) = True Then
title = objectname_temp
End If
End If
Dim index As Integer = row.Item("SEQUENCE_MENU")
Dim tag As String = row.Item("CONSTRUCT_ID") & "#" & row.Item("NODE_NAVIGATION") & "#" & row.Item("FORM_ID")
Dim oTag As String = row.Item("CONSTRUCT_ID") & "#" & row.Item("NODE_NAVIGATION") & "#" & row.Item("FORM_ID")
Dim item As New BarButtonItem(ribbonMain.Manager, title)
item.RibbonStyle = RibbonItemStyles.Large
item.Caption = title
item.Tag = tag
item.Tag = oTag
item.Glyph = image2
AddHandler item.ItemClick, AddressOf tbiOpenEntityFormClick
@@ -412,7 +412,7 @@ Public Class frmMain
End If
Dim sql = "SELECT COUNT(GUID) FROM TBPMO_USER_GLOBAL_SEARCH WHERE USER_ID = " & USER_GUID
Dim Count = ClassDatabase.Execute_Scalar(sql)
Dim Count = MYDB_ECM.GetScalarValue(SQL)
If Count = 0 Then
btnGlobalSearch.Enabled = False
groupSearchAllOver.Visible = False
@@ -487,7 +487,7 @@ Public Class frmMain
Private Sub SetBackgroundImage()
Try
Dim SQL As String = "SELECT BACKGROUND_IMAGE FROM TBDD_MODULES WHERE NAME = 'Record-Organizer'"
Dim bimage() As Byte = ClassDatabase.Execute_Scalar(SQL)
Dim bimage() As Byte = MYDB_ECM.GetScalarValue(SQL)
If Not IsDBNull(bimage) Then
@@ -577,7 +577,7 @@ Public Class frmMain
'Lizenz abgellaufen, überprüfen ob User Admin ist
If LICENSE_COUNT <= (USERS_LOGGED_IN + 1) Then
If USER_IS_ADMIN = True Then
LOGGER.Info("User is Admin - Timer will be started", False)
LOGGER.Info("User is Admin - Timer will be started")
'If USER_LANGUAGE = "de-DE" Then
MsgBox("You now got 3 minutes for creating a new license", MsgBoxStyle.Information)
'Else
@@ -618,7 +618,7 @@ Public Class frmMain
End If
ClassHelper.InsertEssential_Log(USER_GUID, "USER-ID", String.Format("Unexpected errors occured during client-update update of version {0}!", ClassUpdate.VERSION_SERVER))
Dim result As MsgBoxResult
result = MessageBox.Show(msg, "Confirmation:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
result = MessageBox.Show(msg, CAPTION_CONFIRMATION, MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = MsgBoxResult.Yes Then
Process.Start(LOGCONFIG.LogFile)
End If
@@ -671,7 +671,7 @@ Public Class frmMain
'If DOCTYPE_COUNT_ACTUAL > LICENSE_DOCTYPE_COUNT Then
' If CURRENT_USER_IS_ADMIN = True Then
' Logger.Info("User is Admin - Timer will be started", False)
' Logger.Info("User is Admin - Timer will be started")
' If USER_LANGUAGE = "de-DE" Then
' MsgBox("Sie haben nun 3 Minuten Zeit eine neue Lizenz zu vergeben!", MsgBoxStyle.Information)
' Else
@@ -744,7 +744,7 @@ Public Class frmMain
Private Sub itemRefreshProxy_ItemClick(sender As Object, e As ItemClickEventArgs)
Me.Cursor = Cursors.WaitCursor
Dim upd = "UPDATE TBPROXY_CONFIG SET SYNC_RUNNING = 1 WHERE GUID = 1"
clsDatabase.Execute_non_Query(upd, True)
MYDB_ECM.ExecuteNonQuery(upd, True)
If ClassProxy.Refresh_Object_Data() = True Then
If ClassProxy.PRPROXY_SYNC_DOC_OBJECTS() = True Then
Dim msg = "Die Proxydaten wurden erfolgreich synchronisiert!"
@@ -759,7 +759,7 @@ Public Class frmMain
MessageBox.Show("Error while refreshing proxy-data (objects)!", "", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
upd = "UPDATE TBPROXY_CONFIG SET SYNC_RUNNING = 0, LAST_SYNC = GETDATE() WHERE GUID = 1"
clsDatabase.Execute_non_Query(upd, True)
MYDB_ECM.ExecuteNonQuery(upd, True)
Me.Cursor = Cursors.Default
End Sub
Sub Load_ConfigBasic()
@@ -1061,7 +1061,7 @@ Public Class frmMain
If USER_LANGUAGE <> "de-DE" Then
msg = "Would You like to change the Connection-configuration to '" & oSQLDescription & "'?"
End If
oresult = MessageBox.Show(msg, "Confirmation:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
oresult = MessageBox.Show(msg, CAPTION_CONFIRMATION, MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If oresult = MsgBoxResult.Yes Then
BarButtonItemSwitchCon.Caption = "Switch Connection to: " & oSQLDescription
Try
@@ -1100,14 +1100,14 @@ Public Class frmMain
ClassProxy.MyPROXYConnectionString = oSqlcon_Proxy
End If
Dim sql = String.Format("UPDATE TBPMO_CLIENT_CONN_SWITCH_USER SET ACTIVE = 1 WHERE GUID = {0}", oINACTIVE_GUID)
ClassDatabase.Execute_Scalar(sql)
MYDB_ECM.GetScalarValue(SQL)
If ClassInit.InitDatabase = True Then
ClassInit.InitUserLogin()
Load_Connection_Dep_Data()
sql = String.Format("UPDATE TBPMO_CLIENT_CONN_SWITCH_USER SET ACTIVE = 1 WHERE UPPER(CONN_NAME) = UPPER('{0}') AND USER_ID = {1}", oSQLDescription, USER_GUID)
Dim oSuccess As Boolean = False
If ClassDatabase.Execute_non_Query(sql) = True Then
If MYDB_ECM.ExecuteNonQuery(Sql) = True Then
oSuccess = True
End If
If oSuccess = True Then

24
app/DD-Record-Organizer/frmMass_Change.vb
View File

@@ -39,14 +39,14 @@ Public Class frmMass_Change
End If
Dim result As MsgBoxResult
result = MessageBox.Show(msg, "Confirmation:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
result = MessageBox.Show(msg, CAPTION_CONFIRMATION, MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = MsgBoxResult.Yes Then
Cursor = Cursors.WaitCursor
LOGGER.Info(String.Format("### Starting MassChange of column '{0}' with value '{1}'....###", cmbColumn.Text, txtNewValue.Text))
ClassHelper.InsertEssential_Log(USER_GUID, "User-ID", String.Format("### Starting MassChange of column '{0}' with value '{1}'....###", cmbColumn.Text, txtNewValue.Text))
Me.Cursor = Cursors.WaitCursor
SQL = String.Format("SELECT GUID FROM TBPMO_CONTROL WHERE COL_NAME = '{0}' AND FORM_ID = {1}", cmbColumn.Text, CURRENT_ENTITY_ID)
Dim control_Id = ClassDatabase.Execute_Scalar(SQL, True)
Dim control_Id = MYDB_ECM.GetScalarValue(SQL)
If Not IsNothing(control_Id) Then
_CONTROLID = control_Id
@@ -76,8 +76,8 @@ Public Class frmMass_Change
If _CONTROLID <> 0 Then
SQL = String.Format("SELECT CONTROL_TYPE_ID FROM TBPMO_CONTROL WHERE GUID = {0}", _CONTROLID)
Dim control_type_ID = ClassDatabase.Execute_Scalar(SQL, True)
If control_type_ID = 4 Then
Dim control_type_ID = MYDB_ECM.GetScalarValue(SQL)
If control_type_ID = 4 Then
Try
val = CDate(val)
Catch ex As Exception
@@ -94,10 +94,10 @@ Public Class frmMass_Change
' msg = "Attention: there are multiple values for this column. These values will be deleted." & vbNewLine & "Would You like to continue?"
'End If
'Dim result1 As MsgBoxResult
'result1 = MessageBox.Show(msg, "Confirmation:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
'result1 = MessageBox.Show(msg, CAPTION_CONFIRMATION, MessageBoxButtons.YesNo, MessageBoxIcon.Question)
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}", _CONTROLID, CInt(Record))
ClassDatabase.Execute_non_Query(del, False)
MYDB_ECM.ExecuteNonQuery(del)
ClassProxy.PRPROXY_CONTROL_DEL(CInt(Record), CURRENT_ENTITY_ID, _CONTROLID)
Next
End If
@@ -111,11 +111,11 @@ Public Class frmMass_Change
End If
If RIGHT_ONLY_READ_RECORD_FILE = False Then
SQL = String.Format("SELECT GUID FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = {0} AND RECORD_ID = {1}", _CONTROLID, CInt(Record))
Dim ex_GUID = ClassDatabase.Execute_Scalar(SQL, True)
If Not IsNothing(ex_GUID) Then
Dim ex_GUID = MYDB_ECM.GetScalarValue(SQL)
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)
If ClassDatabase.Execute_non_Query(SQL, False) = False Then
_Error = True
If MYDB_ECM.ExecuteNonQuery(SQL) = False Then
_Error = True
LOGGER.Warn("Error in updating the value for Record: " & Record)
Else
@@ -123,8 +123,8 @@ Public Class frmMass_Change
End If
Else
SQL = String.Format("INSERT INTO TBPMO_CONTROL_VALUE (CONTROL_ID, RECORD_ID, VALUE, ADDED_WHO) VALUES ({0},{1},'{2}','{3}')", _CONTROLID, CInt(Record), val, USER_USERNAME)
If ClassDatabase.Execute_non_Query(SQL, False) = False Then
_Error = True
If MYDB_ECM.ExecuteNonQuery(SQL) = False Then
_Error = True
LOGGER.Warn("Error in inserting the value for Record: " & Record)
Else
ClassProxy.PRPROXY_CONTROL_VALUE_UPD_INS(CURRENT_ENTITY_ID, _CONTROLID, CInt(Record), val)

6
app/DD-Record-Organizer/frmMenuDesigner.vb
View File

@@ -1,9 +1,9 @@
Public Class frmMenuDesigner
Private Sub frmMenuDesigner_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.TBPMO_FORMTableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBPMO_MENU_FORMTableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBPMO_MENU_FORM_ENTRIESTableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBPMO_FORMTableAdapter.Connection.ConnectionString = MYDB_ECM.CurrentConnectionString
Me.TBPMO_MENU_FORMTableAdapter.Connection.ConnectionString = MYDB_ECM.CurrentConnectionString
Me.TBPMO_MENU_FORM_ENTRIESTableAdapter.Connection.ConnectionString = MYDB_ECM.CurrentConnectionString
Me.TBPMO_FORMTableAdapter.FillByAll(Me.DD_DMSDataSet.TBPMO_FORM)

4
app/DD-Record-Organizer/frmNewKombiForm.vb
View File

@@ -7,14 +7,14 @@ Public Class frmNewKombiForm
STRING1 = Me.TextBox1.Text
Dim Sql = "select count(*) from TBPMO_FORM_CONSTRUCTOR where UPPER(FORM_TITLE) = UPPER('" & STRING1 & "')"
Dim exists As Integer = ClassDatabase.Execute_Scalar(Sql)
Dim exists As Integer = MYDB_ECM.GetScalarValue(SQL)
If exists = 1 Then
MsgBox("Achtung: Dieser Name existiert bereits!" & vbNewLine & "Bitte wählen Sie einen anderen Namen!", MsgBoxStyle.Exclamation)
Exit Sub
End If
Sql = "EXEC [PRPMO_CREATE_CONSTRUCTOR] " & INTEGER1.ToString & ", '" & STRING1 & "'"
If ClassDatabase.Execute_non_Query(Sql) = True Then
If MYDB_ECM.ExecuteNonQuery(Sql) = True Then
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
Dim frm As New frmConstructorDesigner

6
app/DD-Record-Organizer/frmNewVariant.vb
View File

@@ -22,9 +22,9 @@ Public Class frmNewVariant
RelinkFiles = 1
End If
Dim SQL = String.Format("EXEC PRPMO_CREATE_VARIANT {0},'{1}','{2}','{3}','{4}'", CURRENT_RECORD_ID, USER_USERNAME, cmbReason.Text, txtComment.Text, RelinkFiles)
If ClassDatabase.Execute_non_Query_withConn(SQL, 1) = True Then
If MYDB_ECM.ExecuteNonQuery(SQL) = True Then
Dim sel = String.Format("SELECT MAX(GUID) FROM TBPMO_RECORD WHERE UPPER(ADDED_WHO) = '{0}'", USER_USERNAME.ToUpper)
CURRENT_RECORD_ID = ClassDatabase.Execute_Scalar(sel)
CURRENT_RECORD_ID = MYDB_ECM.GetScalarValue(sel)
msg = "Die neue Variante wurde erzeugt?"
If USER_LANGUAGE <> "de-DE" Then
msg = "The new variant was created successfully?"
@@ -49,7 +49,7 @@ Public Class frmNewVariant
Private Sub frmNewVariant_Load(sender As Object, e As EventArgs) Handles Me.Load
Try
Dim sel = String.Format("SELECT * FROM TBPMO_ENTITY_VARIANT_REASONS WHERE ENTITY_ID = {0}", CURRENT_ENTITY_ID)
DT_REASONS = ClassDatabase.Return_Datatable(sel)
DT_REASONS = MYDB_ECM.GetDatatable(sel)
cmbReason.DataSource = DT_REASONS
cmbReason.DisplayMember = DT_REASONS.Columns("REASON_CODE").ColumnName
cmbReason.ValueMember = DT_REASONS.Columns(0).ColumnName

68
app/DD-Record-Organizer/frmNodeNavigation.Designer.vb generated
View File

@@ -38,11 +38,14 @@ Partial Class frmNodeNavigation
Me.BarStaticItemLocked = New DevExpress.XtraBars.BarStaticItem()
Me.bsitmtInfoDoc = New DevExpress.XtraBars.BarStaticItem()
Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem()
Me.bbtnitmReloadView = New DevExpress.XtraBars.BarButtonItem()
Me.BbtnitmNodeReorder = New DevExpress.XtraBars.BarButtonItem()
Me.bbtnItm_TV_Collape_Expand = New DevExpress.XtraBars.BarButtonItem()
Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroupRecord = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroupDocResult = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RPGNodes = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.SplitContainerMain = New DevExpress.XtraEditors.SplitContainerControl()
@@ -99,9 +102,9 @@ Partial Class frmNodeNavigation
'RibbonControl1
'
Me.RibbonControl1.ExpandCollapseItem.Id = 0
Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bbtnitmRecEdit, Me.bsiInfo, Me.bbtnitmRecSave, Me.bsiDocID, Me.bsitmRecordID, Me.bbtnitmDocResultExport, Me.bbtnitmDocResultLayoutSave, Me.bbtnitmDocResultLayoutReset, Me.bbtnitmDocResultRefresh, Me.BarStaticItemLocked, Me.bsitmtInfoDoc, Me.BarButtonItem1, Me.BarButtonItem2})
Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bbtnitmRecEdit, Me.bsiInfo, Me.bbtnitmRecSave, Me.bsiDocID, Me.bsitmRecordID, Me.bbtnitmDocResultExport, Me.bbtnitmDocResultLayoutSave, Me.bbtnitmDocResultLayoutReset, Me.bbtnitmDocResultRefresh, Me.BarStaticItemLocked, Me.bsitmtInfoDoc, Me.BarButtonItem1, Me.bbtnitmReloadView, Me.BbtnitmNodeReorder, Me.bbtnItm_TV_Collape_Expand})
Me.RibbonControl1.Location = New System.Drawing.Point(0, 0)
Me.RibbonControl1.MaxItemId = 16
Me.RibbonControl1.MaxItemId = 18
Me.RibbonControl1.Name = "RibbonControl1"
Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
Me.RibbonControl1.PopupMenuAlignment = DevExpress.XtraBars.PopupMenuAlignment.Left
@@ -201,16 +204,30 @@ Partial Class frmNodeNavigation
Me.BarButtonItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem1.Name = "BarButtonItem1"
'
'BarButtonItem2
'bbtnitmReloadView
'
Me.BarButtonItem2.Caption = "Sicht neu laden"
Me.BarButtonItem2.Id = 14
Me.BarButtonItem2.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem2.Name = "BarButtonItem2"
Me.bbtnitmReloadView.Caption = "Sicht neu laden"
Me.bbtnitmReloadView.Id = 14
Me.bbtnitmReloadView.ImageOptions.SvgImage = CType(resources.GetObject("bbtnitmReloadView.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.bbtnitmReloadView.Name = "bbtnitmReloadView"
'
'BbtnitmNodeReorder
'
Me.BbtnitmNodeReorder.Caption = "Unterknoten neu ordnen"
Me.BbtnitmNodeReorder.Id = 16
Me.BbtnitmNodeReorder.ImageOptions.SvgImage = CType(resources.GetObject("BbtnitmNodeReorder.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BbtnitmNodeReorder.Name = "BbtnitmNodeReorder"
'
'bbtnItm_TV_Collape_Expand
'
Me.bbtnItm_TV_Collape_Expand.Caption = "Collaps/Expand"
Me.bbtnItm_TV_Collape_Expand.Id = 17
Me.bbtnItm_TV_Collape_Expand.ImageOptions.SvgImage = CType(resources.GetObject("bbtnItm_TV_Collape_Expand.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.bbtnItm_TV_Collape_Expand.Name = "bbtnItm_TV_Collape_Expand"
'
'RibbonPage1
'
Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroupRecord, Me.RibbonPageGroupDocResult, Me.RibbonPageGroup1})
Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroupRecord, Me.RibbonPageGroupDocResult, Me.RibbonPageGroup1, Me.RPGNodes})
Me.RibbonPage1.Name = "RibbonPage1"
Me.RibbonPage1.Text = "Start"
'
@@ -236,10 +253,17 @@ Partial Class frmNodeNavigation
'
'RibbonPageGroup1
'
Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem2)
Me.RibbonPageGroup1.ItemLinks.Add(Me.bbtnitmReloadView)
Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
Me.RibbonPageGroup1.Text = "Funktionen"
'
'RPGNodes
'
Me.RPGNodes.ItemLinks.Add(Me.BbtnitmNodeReorder)
Me.RPGNodes.ItemLinks.Add(Me.bbtnItm_TV_Collape_Expand)
Me.RPGNodes.Name = "RPGNodes"
Me.RPGNodes.Text = "Knoten"
'
'RibbonStatusBar1
'
Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiInfo)
@@ -293,16 +317,18 @@ Partial Class frmNodeNavigation
Me.TreeListDevexpress.OptionsBehavior.Editable = False
Me.TreeListDevexpress.OptionsBehavior.ReadOnly = True
Me.TreeListDevexpress.OptionsFilter.ExpandNodesOnFiltering = True
Me.TreeListDevexpress.OptionsFilter.FilterMode = DevExpress.XtraTreeList.FilterMode.ParentBranch
Me.TreeListDevexpress.OptionsFind.AlwaysVisible = True
Me.TreeListDevexpress.OptionsFind.FindDelay = 300
Me.TreeListDevexpress.OptionsFind.ShowCloseButton = False
Me.TreeListDevexpress.OptionsFind.ShowFindButton = False
Me.TreeListDevexpress.OptionsLayout.AddNewColumns = False
Me.TreeListDevexpress.OptionsMenu.ShowExpandCollapseItems = False
Me.TreeListDevexpress.OptionsSelection.EnableAppearanceFocusedCell = False
Me.TreeListDevexpress.OptionsView.ShowColumns = False
Me.TreeListDevexpress.OptionsView.ShowFirstLines = False
Me.TreeListDevexpress.OptionsView.ShowHorzLines = False
Me.TreeListDevexpress.OptionsView.ShowIndentAsRowStyle = True
Me.TreeListDevexpress.OptionsView.ShowIndicator = False
Me.TreeListDevexpress.OptionsView.ShowTreeLines = DevExpress.Utils.DefaultBoolean.[False]
Me.TreeListDevexpress.OptionsView.ShowVertLines = False
Me.TreeListDevexpress.OptionsView.TreeLineStyle = DevExpress.XtraTreeList.LineStyle.Dark
@@ -316,6 +342,7 @@ Partial Class frmNodeNavigation
'
'SplitContainer1
'
Me.SplitContainer1.AllowDrop = True
Me.SplitContainer1.Dock = System.Windows.Forms.DockStyle.Fill
Me.SplitContainer1.Location = New System.Drawing.Point(0, 0)
Me.SplitContainer1.Name = "SplitContainer1"
@@ -329,30 +356,30 @@ Partial Class frmNodeNavigation
'
Me.SplitContainer1.Panel2.Controls.Add(Me.GridControlDocSearch)
Me.SplitContainer1.Size = New System.Drawing.Size(846, 664)
Me.SplitContainer1.SplitterDistance = 217
Me.SplitContainer1.SplitterDistance = 216
Me.SplitContainer1.TabIndex = 0
'
'pnlControls
'
Me.pnlControls.AllowDrop = True
Me.pnlControls.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnlControls.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnlControls.Location = New System.Drawing.Point(0, 0)
Me.pnlControls.Name = "pnlControls"
Me.pnlControls.Size = New System.Drawing.Size(846, 217)
Me.pnlControls.Size = New System.Drawing.Size(846, 216)
Me.pnlControls.TabIndex = 0
'
'GridControlDocSearch
'
Me.GridControlDocSearch.AllowDrop = True
Me.GridControlDocSearch.BackgroundImage = CType(resources.GetObject("GridControlDocSearch.BackgroundImage"), System.Drawing.Image)
Me.GridControlDocSearch.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.GridControlDocSearch.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
Me.GridControlDocSearch.Dock = System.Windows.Forms.DockStyle.Fill
GridLevelNode1.RelationName = "Level1"
Me.GridControlDocSearch.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode1})
Me.GridControlDocSearch.Location = New System.Drawing.Point(0, 0)
Me.GridControlDocSearch.MainView = Me.GridViewDoc_Search
Me.GridControlDocSearch.Name = "GridControlDocSearch"
Me.GridControlDocSearch.Size = New System.Drawing.Size(846, 443)
Me.GridControlDocSearch.Size = New System.Drawing.Size(846, 444)
Me.GridControlDocSearch.TabIndex = 8
Me.GridControlDocSearch.TabStop = False
Me.GridControlDocSearch.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDoc_Search})
@@ -489,13 +516,13 @@ Partial Class frmNodeNavigation
'tsmiFileRenameFilename
'
Me.tsmiFileRenameFilename.Name = "tsmiFileRenameFilename"
Me.tsmiFileRenameFilename.Size = New System.Drawing.Size(180, 22)
Me.tsmiFileRenameFilename.Size = New System.Drawing.Size(142, 22)
Me.tsmiFileRenameFilename.Text = "Dateiname"
'
'tsmiFileRenameDisplayname
'
Me.tsmiFileRenameDisplayname.Name = "tsmiFileRenameDisplayname"
Me.tsmiFileRenameDisplayname.Size = New System.Drawing.Size(180, 22)
Me.tsmiFileRenameDisplayname.Size = New System.Drawing.Size(142, 22)
Me.tsmiFileRenameDisplayname.Text = "Displayname"
'
'tsmiFileVersion
@@ -614,9 +641,12 @@ Partial Class frmNodeNavigation
Friend WithEvents tsmiFileVersion As ToolStripMenuItem
Friend WithEvents ToolStripSeparator4 As ToolStripSeparator
Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents bbtnitmReloadView As DevExpress.XtraBars.BarButtonItem
Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents tsmiFileDelete As ToolStripMenuItem
Friend WithEvents TimerFileHandle As Timer
Friend WithEvents TimerClearResultfiles As Timer
Friend WithEvents BbtnitmNodeReorder As DevExpress.XtraBars.BarButtonItem
Friend WithEvents RPGNodes As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents bbtnItm_TV_Collape_Expand As DevExpress.XtraBars.BarButtonItem
End Class

4021
app/DD-Record-Organizer/frmNodeNavigation.resx
View File

File diff suppressed because it is too large Load Diff

472
app/DD-Record-Organizer/frmNodeNavigation.vb
View File

@@ -16,6 +16,8 @@ Imports System.IO
Imports DD_LIB_Standards
Imports System.Runtime.InteropServices
Public Class frmNodeNavigation
<DllImport("Shell32", CharSet:=CharSet.Auto, SetLastError:=True)>
Public Shared Function ShellExecuteEx(ByRef lpExecInfo As SHELLEXECUTEINFO) As Boolean
@@ -38,7 +40,7 @@ Public Class frmNodeNavigation
Public hProcess As IntPtr
End Structure
#Region "Laufzeitvariablen & Konstanten"
Dim DTNODES As DataTable
Dim DT_STRUCTURE_NODES As DataTable
Dim DT_ADDING_USERS As DataTable
Dim DT_VWPMO_CONSTRUCTOR_FORMS As DataTable
Private RunningTask As Task
@@ -51,6 +53,7 @@ Public Class frmNodeNavigation
Private oFilterActive As Boolean = False
Private ROW_READ_ONLY As Boolean = False
Private ADD_RECORDS_CONSTR As Boolean = True
Private TV_Collapse_ExpandState = "Collapse"
Public CtrlBuilder As ClassControlBuilder
Public CtrlCommandUI As ClassControlCommandsUI
Public Enum EditState
@@ -61,7 +64,7 @@ Public Class frmNodeNavigation
End Enum
Private DT_CONTROLS_ENTITY As DataTable
Private DT_WINDREAM_COLUMNS_GRID As DataTable
Private DT_COLUMNS_GRID_ENTITY As DataTable
Private DT_DOCRESULT_DROPDOWN_ITEMS As DataTable
Private DT_RESULTLIST_OPTIONS As DataTable
Private DT_RESULTLIST_VARIABLE_VALUE As DataTable
@@ -72,7 +75,6 @@ Public Class frmNodeNavigation
Private SELECTED_NODE_RECORD_ID As Integer
Private SELECTED_NODE_CAPTION As String
Private ENTITY_RECORD_COUNT As Integer = 0
Private act_FormViewID As Integer
Private FORMVIEW_ID As Integer
Private FORM_LOADED As Boolean = False
Private FORM_SHOWN As Boolean = False
@@ -94,8 +96,109 @@ Public Class frmNodeNavigation
Private Const SEE_MASK_FLAG_NO_UI = &H400
Public Const SW_SHOW As Short = 5
Private CONTROL_DOCTYPE_MATCH As Integer = 0
#End Region
Private FocusedNode As TreeListNode
Private MyTreeListViewState As TreeListViewState
#End Region
Public Class TreeListViewState
Private expanded As ArrayList
Private selected As ArrayList
Private focused As Object
Private topNode As Object
Public Sub New()
Me.New(Nothing)
End Sub
Public Sub New(ByVal treeList As TreeList)
Me.treeList_Renamed = treeList
expanded = New ArrayList()
selected = New ArrayList()
End Sub
Public Sub Clear()
expanded.Clear()
selected.Clear()
focused = Nothing
topNode = Nothing
End Sub
Private Function GetExpanded() As ArrayList
Dim op As New OperationSaveExpanded()
TreeList.NodesIterator.DoOperation(op)
Return op.Nodes
End Function
Private Function GetSelected() As ArrayList
Dim al As New ArrayList()
For Each node As TreeListNode In TreeList.Selection
al.Add(node.GetValue(TreeList.KeyFieldName))
Next node
Return al
End Function
Public Sub LoadState()
TreeList.BeginUpdate()
Try
TreeList.CollapseAll()
Dim node As TreeListNode
For Each key As Object In expanded
node = TreeList.FindNodeByKeyID(key)
If node IsNot Nothing Then
node.Expanded = True
End If
Next key
TreeList.FocusedNode = TreeList.FindNodeByKeyID(focused)
For Each key As Object In selected
node = TreeList.FindNodeByKeyID(key)
If node IsNot Nothing Then
TreeList.Selection.Add(node)
End If
Next key
Finally
TreeList.EndUpdate()
Dim topVisibleNode As TreeListNode = TreeList.FindNodeByKeyID(topNode)
If topVisibleNode Is Nothing Then
topVisibleNode = TreeList.FocusedNode
End If
TreeList.TopVisibleNodeIndex = TreeList.GetVisibleIndexByNode(topVisibleNode)
End Try
End Sub
Public Sub SaveState()
If TreeList.FocusedNode IsNot Nothing Then
expanded = GetExpanded()
selected = GetSelected()
focused = TreeList.FocusedNode(TreeList.KeyFieldName)
topNode = TreeList.GetNodeByVisibleIndex(TreeList.TopVisibleNodeIndex)(TreeList.KeyFieldName)
Else
Clear()
End If
End Sub
Private treeList_Renamed As TreeList
Public Property TreeList() As TreeList
Get
Return treeList_Renamed
End Get
Set(ByVal value As TreeList)
treeList_Renamed = value
Clear()
End Set
End Property
Private Class OperationSaveExpanded
Inherits TreeListOperation
Private al As New ArrayList()
Public Overrides Sub Execute(ByVal node As TreeListNode)
If node.HasChildren AndAlso node.Expanded Then
al.Add(node.GetValue(node.TreeList.KeyFieldName))
End If
End Sub
Public ReadOnly Property Nodes() As ArrayList
Get
Return al
End Get
End Property
End Class
End Class
Public Sub New(pEntityID As Int16, pConstructID As Int16)
' Dieser Aufruf ist für den Designer erforderlich.
@@ -159,25 +262,24 @@ Public Class frmNodeNavigation
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 = {2} AND CONSTRUCT_ID = {3} ORDER BY SEQUENCE", USER_LANGUAGE, CURRENT_SCREEN_ID, CURRENT_SCREEN_ID, oConstructID)
DT_VWPMO_CONSTRUCTOR_FORMS = ClassDatabase.Return_Datatable(Sql, True)
CURRENT_DT_TBPMO_ENTITY_RIGHT_CONTROLS = ClassDatabase.Return_Datatable(String.Format("SELECT T.* FROM TBPMO_ENTITY_RIGHT_CONTROLS T INNER JOIN VWPMO_CONSTRUCTOR_FORMS T1 ON T.ENTITY_ID = T1.FORM_ID where T1.CONSTRUCT_ID = {0}", CONSTRUCTORID), False)
DT_VWPMO_CONSTRUCTOR_FORMS = MYDB_ECM.GetDatatable(Sql)
CURRENT_DT_TBPMO_ENTITY_RIGHT_CONTROLS = MYDB_ECM.GetDatatable(String.Format("SELECT T.* FROM TBPMO_ENTITY_RIGHT_CONTROLS T INNER JOIN VWPMO_CONSTRUCTOR_FORMS T1 ON T.ENTITY_ID = T1.FORM_ID where T1.CONSTRUCT_ID = {0}", CONSTRUCTORID))
' Hintergrund Bild initialisieren
If (System.IO.File.Exists(Application.StartupPath + "\Resources\windream-landscape_col_RGB.png")) Then
WM_LOGO = New Bitmap(Application.StartupPath + "\Resources\windream-landscape_col_RGB.png")
' MessageBox.Show("File: " & Application.StartupPath + "\Resources\Pic1.png" & " doesn't exist. Check file and try again.")
End
End If
BACKGROUND_HELPER = New ClassBackgroundHelper(GridViewDoc_Search, WM_LOGO) '
ClassWindowLocation.LoadFormLocationSize(Me, CONSTRUCTORID, CURRENT_SCREEN_ID, "CONSTRUCTOR_MAIN")
'If (System.IO.File.Exists(Application.StartupPath + "\Resources\windream-portrait_col_RGB_Wordpress.png")) Then
' WM_LOGO = New Bitmap(Application.StartupPath + "\Resources\windream-portrait_col_RGB_Wordpress.png")
' BACKGROUND_HELPER = New ClassBackgroundHelper(GridViewDoc_Search, WM_LOGO) '
' ' MessageBox.Show("File: " & Application.StartupPath + "\Resources\Pic1.png" & " doesn't exist. Check file and try again.")
' End
'End If
ClassWindowLocation.LoadFormLocationSize(Me, CONSTRUCTORID, CURRENT_SCREEN_ID, "NODE_NAVIGATION")
Try
DT_CONSTRUCT_VIEW = ClassDatabase.Return_Datatable("SELECT * FROM TBPMO_FORM_CONSTRUCTOR WHERE GUID = " & CONSTRUCTORID)
DT_CONSTRUCT_VIEW = MYDB_ECM.GetDatatable("SELECT * FROM TBPMO_FORM_CONSTRUCTOR WHERE GUID = " & CONSTRUCTORID)
Dim SEL1 = String.Format("SELECT * FROM TBPMO_FORM WHERE GUID IN (SELECT FORM_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE SCREEN_ID = {0} AND CONSTRUCT_ID = {1})", CURRENT_SCREEN_ID, CONSTRUCTORID)
DT_ENTITY_DATA = ClassDatabase.Return_Datatable(SEL1, True)
DT_ENTITY_DATA = MYDB_ECM.GetDatatable(SEL1)
SEL1 = String.Format("SELECT *, dbo.FNPMO_GET_CONTROL_CAPTION ('{0}', 1, CONTROL_ID) AS 'CAPTION' FROM VWPMO_CONTROL_SCREEN", USER_LANGUAGE)
DT_VWPMO_CONTROL_SCREEN = ClassDatabase.Return_Datatable(SEL1, True)
'DT_CONTROL_SCREEN_SHOW_COL_0 = ClassHelper.FILTER_DATATABLE(DT_VWPMO_CONTROL_SCREEN, "CONTROL_SHOW_COLUMN = 0", "") 'ClassDatabase.Return_Datatable("SELECT FORM_ID, CONTROL_ID, CONTROL_COL_NAME, CONTROL_SHOW_COLUMN FROM VWPMO_CONTROL_SCREEN WHERE CONTROL_SHOW_COLUMN = 0", True)
DT_VWPMO_CONTROL_SCREEN = MYDB_ECM.GetDatatable(SEL1)
If DT_CONSTRUCT_VIEW.Rows.Count = 1 Then
'Load Input Grid
Me.Text = DT_CONSTRUCT_VIEW.Rows(0).Item("FORM_TITLE")
@@ -188,8 +290,9 @@ Public Class frmNodeNavigation
' "FROM TBPMO_WORKFLOW T,TBPMO_WORKFLOW_ENTITY_STATE T1 " &
' "WHERE T.GUID = T1.WF_ID " &
' "GROUP BY T1.ENTITY_ID,T.GUID,T.TITLE,T.MANUALLY,T.CREATE_ON_REC_CREATE,T.CREATE_ON_FOLL_UP"
'DT_WORKFLOWS_MANUAL = ClassDatabase.Return_Datatable(sql_ResultList)
'DT_WORKFLOWS_MANUAL = MYDB_ECM.GetDatatable(sql_ResultList)
Load_Datafor_Entity()
FORM_LOADED = True
Catch ex As System.Exception
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, "Error in Loading Form part 4")
@@ -201,10 +304,11 @@ Public Class frmNodeNavigation
Try
Dim oToken = RunningTaskTokenSource.Token
Dim Sql = String.Format("select T.GUID,T.RECORD_ID, T.NODE_CONFIG_ID,T.NODE_CAPTION,T.ID1, T.BACK_COLOR,T.PARENT_GUID from VWPMO_STRUCTURE_NODES T INNER JOIN VWPMO_CONSTRUCTOR_FORMS T1 ON T.ENTITY_ID = T1.FORM_ID WHERE T1.CONSTRUCT_ID = {0}", 1)
DTNODES = ClassDatabase.Return_Datatable(Sql, True)
Sql = String.Format("select T.* from TBPMO_STRUCTURE_NODES_CONFIGURATION T INNER JOIN VWPMO_CONSTRUCTOR_FORMS T1 ON T.ENTITY_ID = T1.FORM_ID WHERE T1.CONSTRUCT_ID = {0}", 1)
Dim DT_TREEVIEW_CONFIGURATION = ClassDatabase.Return_Datatable(Sql)
Dim Sql = String.Format("select T.GUID,T.RECORD_ID, T.NODE_CONFIG_ID,T.NODE_CAPTION,T.ID1, T.BACK_COLOR,T.PARENT_GUID from VWPMO_STRUCTURE_NODES T
INNER JOIN VWPMO_CONSTRUCTOR_FORMS T1 ON T.ENTITY_ID = T1.FORM_ID WHERE T.ENTITY_ID = {0}", CURRENT_ENTITY_ID)
DT_STRUCTURE_NODES = MYDB_ECM.GetDatatable(Sql)
Sql = String.Format("select T.* from TBPMO_STRUCTURE_NODES_CONFIGURATION T INNER JOIN VWPMO_CONSTRUCTOR_FORMS T1 ON T.ENTITY_ID = T1.FORM_ID WHERE T.ENTITY_ID = {0}", CURRENT_ENTITY_ID)
Dim DT_TREEVIEW_CONFIGURATION = MYDB_ECM.GetDatatable(Sql)
For Each row As DataRow In DT_TREEVIEW_CONFIGURATION.Rows
Try
Dim bimage = row.Item("NODE_IMAGE")
@@ -220,10 +324,11 @@ Public Class frmNodeNavigation
TreeListDevexpress.DataSource = DTNODES
TreeListDevexpress.DataSource = DT_STRUCTURE_NODES
TreeListDevexpress.KeyFieldName = "GUID"
TreeListDevexpress.ParentFieldName = "PARENT_GUID"
TreeListDevexpress.StateImageList = ImageCollection1
Try
TreeListDevexpress.Columns.ColumnByName("colRECORD_ID").Visible = False
Catch ex As Exception
@@ -295,11 +400,15 @@ Public Class frmNodeNavigation
End Class
Private Sub TreeListDevexpress_FocusedNodeChanged(sender As Object, e As FocusedNodeChangedEventArgs) Handles TreeListDevexpress.FocusedNodeChanged
FocusedNode = Nothing
If oFilterActive Then
Exit Sub
End If
For Each treeListNode As DevExpress.XtraTreeList.Nodes.TreeListNode In TreeListDevexpress.Selection
FocusedNode = treeListNode
RPGNodes.Enabled = True
Dim oID = treeListNode.Id
Console.Write($"Node ID: {oID}")
Dim PID = treeListNode.ParentNode
Dim Column_pRecord As DevExpress.XtraTreeList.Columns.TreeListColumn = TreeListDevexpress.Columns("RECORD_ID")
Dim Column_Caption As DevExpress.XtraTreeList.Columns.TreeListColumn = TreeListDevexpress.Columns("NODE_CAPTION")
@@ -311,7 +420,7 @@ Public Class frmNodeNavigation
Exit Sub
End If
Dim oNodeInfo = $"NodeGUID {oID}"
Console.Write(oNodeInfo)
If pRecord.Length > 0 Then
oNodeInfo += $" - RecordID {pRecord}"
Node_AfterSelect = True
@@ -325,6 +434,7 @@ Public Class frmNodeNavigation
' ClassNodeNavigation.Check_NODE_CONFIG_ID(oEntityID, SelectedNode)
CURRENT_RECORD_ID = pRecord
ClassHelper.GetDocrecordLinks(CURRENT_RECORD_ID)
CURRENT_ENTITY_ID = oEntityID
CURRENT_NODE_GUID = oID
SELECTED_NODE_CAPTION = oNode_Caption
@@ -349,13 +459,17 @@ Public Class frmNodeNavigation
bbtnitmRecSave.Enabled = False
Else
bbtnitmRecEdit.Enabled = True
In_Visible_Record_Group(True)
End If
End If
If RIGHT_RECORD_AND_FILE_READ_ONLY = True Then
bbtnitmRecEdit.Enabled = False
bbtnitmRecSave.Enabled = False
Else
bbtnitmRecEdit.Enabled = True
In_Visible_Record_Group(True)
End If
' bbtniCopyRecord.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
' bbtniNewVariant2.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
@@ -383,6 +497,8 @@ Public Class frmNodeNavigation
'swAll.Done()
Node_AfterSelect = False
Else
End If
Update_Status_Label(True, oNodeInfo, EditState.None)
Next
@@ -433,7 +549,7 @@ Public Class frmNodeNavigation
Sub Load_Adding_users()
Try
Dim oSql = String.Format("SELECT * FROM TBPMO_ENTITY_USERRIGHT_ADDING where ENTITY_ID IN (SELECT FORM_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = {0})", oConstructID)
DT_ADDING_USERS = ClassDatabase.Return_Datatable(oSql, False)
DT_ADDING_USERS = MYDB_ECM.GetDatatable(oSql)
Catch ex As Exception
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, "Error in Load_Adding_users")
End Try
@@ -441,7 +557,7 @@ Public Class frmNodeNavigation
Private Sub Load_Configurable_Nodes()
Try
Dim oSql = String.Format("SELECT * FROM TBPMO_STRUCTURE_NODES_CONFIGURATION where TYPE_NODE = 1000 AND ENTITY_ID IN (SELECT FORM_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = {0})", oConstructID)
NODE_CONFIGURABLE_NODES_DT = ClassDatabase.Return_Datatable(oSql, False)
NODE_CONFIGURABLE_NODES_DT = MYDB_ECM.GetDatatable(oSql)
Catch ex As Exception
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, "Error in Load_Configurable_Nodes")
End Try
@@ -530,7 +646,7 @@ Public Class frmNodeNavigation
Dim sql
'Dim sql = "SELECT CONTROL_ID, CONTROL_READ_ONLY FROM VWPMO_CONTROL_SCREEN WHERE CTRLTYPE_ID NOT IN (1) AND CONTROL_ENTITY_ID = " & oEntityID
DT_CONTROLS_ENTITY = ClassHelper.FILTER_DATATABLE(DT_VWPMO_CONTROL_SCREEN, "CTRLTYPE_ID NOT IN (1) AND CONTROL_ENTITY_ID = " & oEntityID, "")
'ClassDatabase.Return_Datatable(sql, True)
expression = "CONTROL_READ_ONLY = " & 1
Dim CONTROLS_ROW() As DataRow
@@ -568,13 +684,13 @@ Public Class frmNodeNavigation
expression = String.Format("ENTITY_ID = {0} AND LANGUAGE = '{1}'", oEntityID, USER_LANGUAGE)
DT_WINDREAM_COLUMNS_GRID = ClassHelper.FILTER_DATATABLE(CURRENT_RESULTLIST_CONFIG, expression, "SEQUENCE")
expression = String.Format("oEntityID = {0} AND TYPE_ID = 10 AND LANGUAGE = '{1}'", oEntityID, USER_LANGUAGE)
DT_COLUMNS_GRID_ENTITY = ClassHelper.FILTER_DATATABLE(DT_DOCSEARCH_RESULTLIST_CONFIG, expression, "SEQUENCE")
expression = String.Format("ENTITY_ID = {0} AND TYPE_ID = 10 AND LANGUAGE = '{1}'", oEntityID, USER_LANGUAGE)
DT_DOCRESULT_DROPDOWN_ITEMS = ClassHelper.FILTER_DATATABLE(CURRENT_TBPMO_DOCRESULT_DROPDOWN_ITEMS, expression, "SEQUENCE")
LOGGER.Debug($"Found {DT_DOCRESULT_DROPDOWN_ITEMS.Rows.Count} DT_DOCRESULT_DROPDOWN_ITEMS!")
DT_RESULTLIST_OPTIONS = ClassHelper.FILTER_DATATABLE(CURRENT_VARIABLE_CONTROLS, "ENTITY_ID = " & oEntityID, "")
expression = String.Format("ENTITY_ID = {0} AND LANGUAGE = '{1}' AND COLUMN_VIEW LIKE 'VALUE%'", oEntityID, USER_LANGUAGE)
DT_RESULTLIST_VARIABLE_VALUE = ClassHelper.FILTER_DATATABLE(CURRENT_RESULTLIST_CONFIG, expression, "SEQUENCE")
DT_RESULTLIST_VARIABLE_VALUE = ClassHelper.FILTER_DATATABLE(DT_DOCSEARCH_RESULTLIST_CONFIG, expression, "SEQUENCE")
Dim ENTITY_ROW = (From form In DT_ENTITY_DATA.AsEnumerable()
Select form
Where form.Item("GUID") = oEntityID).Single()
@@ -584,7 +700,7 @@ Public Class frmNodeNavigation
DT_RIGHTS_USER = ClassHelper.FILTER_DATATABLE(CURRENT_TBPMO_RIGHT_USER, "ENTITY_ID = " & oEntityID, "")
expression = String.Format("")
sql = String.Format("SELECT DISTINCT EDIT_REC,ADD_REC,DELETE_REC,ADD_DOC,VIEW_DOC,DELETE_DOC FROM TBPMO_RIGHT_GROUP WHERE ENTITY_ID = {0} AND GROUP_ID IN (SELECT GROUP_ID FROM TBDD_GROUPS_USER WHERE USER_ID = {1})", oEntityID, USER_GUID)
DT_RIGHTS_GROUP = ClassDatabase.Return_Datatable(sql, True)
DT_RIGHTS_GROUP = MYDB_ECM.GetDatatable(sql)
sql = String.Format("SELECT VIEW_ID FROM TBPMO_USER_CONSTR_VIEW_TYPE WHERE CONSTRUCTOR_DETAIL_ID = {0} AND [ENTITY_ID] = {1} AND USER_ID = {2}", CURRENT_CONSTRUCTOR_DETAIL_ID, oEntityID, USER_GUID)
@@ -607,9 +723,9 @@ Public Class frmNodeNavigation
CURRENT_ENTITYSQL = Get_Grid_Sql_NODE_NAV(CONSTRUCTORID, oEntityID, CURRENT_CONSTRUCTOR_DETAIL_ID, USER_GUID)
' CURRENT_ENTITYSQL = GridSQL
'Anzahl der Datensätze
ENTITY_RECORD_COUNT = ClassDatabase.Execute_Scalar("SELECT COUNT(*) FROM TBPMO_RECORD where PARENT_RECORD = 0 AND FORM_ID = " & oEntityID, True)
ENTITY_RECORD_COUNT = MYDB_ECM.GetScalarValue("SELECT COUNT(*) FROM TBPMO_RECORD where PARENT_RECORD = 0 AND FORM_ID = " & oEntityID)
ClassDOC_SEARCH.Get_DOC_RESULTTABLE(DT_RESULTLIST_OPTIONS, DT_RESULTLIST_VARIABLE_VALUE, DT_WINDREAM_COLUMNS_GRID, oEntityID, SELECTED_NODE_RECORD_ID, True, True)
ClassDOC_SEARCH.Get_DOC_RESULTTABLE(DT_RESULTLIST_OPTIONS, DT_RESULTLIST_VARIABLE_VALUE, DT_COLUMNS_GRID_ENTITY, oEntityID, SELECTED_NODE_RECORD_ID, True, True)
DT_TBPMO_FORM_VIEW = ClassHelper.FILTER_DATATABLE(CURRENT_TBPMO_FORM_VIEW, "FORM_ID = " & oEntityID & " AND SCREEN_ID = " & CURRENT_SCREEN_ID, "")
@@ -639,7 +755,7 @@ Public Class frmNodeNavigation
Dim DT_AUTOVALUES = ClassHelper.FILTER_DATATABLE(CURRENT_TBPMO_CONTROL, "CONNECTION_ID_1 > 0 AND SQL_COMMAND_1 <> '' AND FORM_ID = " & oEntityID, "")
'Dim DT_AUTOVALUES As DataTable = ClassDatabase.Return_Datatable(SQL_AutoValues, True)
CURRENT_SQL_AUTO_VALUES_DT = DT_AUTOVALUES
If USER_WAN = True Then
@@ -687,11 +803,7 @@ Public Class frmNodeNavigation
Dim SQL As String = "SELECT ADDED_WHO, CONVERT(VARCHAR(16),ADDED_WHEN,20) AS ADDED_WHEN, COALESCE(CHANGED_WHO,'') AS CHANGED_WHO, COALESCE(CONVERT(VARCHAR(16),CHANGED_WHEN,20),'') AS CHANGED_WHEN FROM TBPMO_RECORD WHERE GUID = " & RecordId
Dim expression = "[Record-ID] = " & RecordId
Dim resultDT As DataTable
If CtrlCommandUI.IsInsert = True Then
resultDT = ClassDatabase.Return_Datatable(SQL)
Else
resultDT = ClassDatabase.Return_Datatable(SQL, True)
End If
resultDT = MYDB_ECM.GetDatatable(SQL)
If Not IsNothing(resultDT) Then
@@ -775,9 +887,9 @@ Public Class frmNodeNavigation
sw.Done()
End Sub
Private Sub OnRecordChanged(sender As Object, e As System.EventArgs)
'If ENTITY_LOADING_PROCESS Then
' RECORD_CHANGED = True
'End If
If ENTITY_LOADING_PROCESS Then
RECORD_CHANGED = True
End If
End Sub
'Private Sub HandleToolTip(sender As Object, e As EventArgs)
@@ -935,7 +1047,7 @@ Public Class frmNodeNavigation
Try
CURRENT_RECORD_ID = pRecord
CURRENT_SEARCH_TYPE = "RECORD"
ClassHelper.GetDocrecordLinks(CURRENT_RECORD_ID)
'Wird jetzt bei BeforeRowChange überprüft
@@ -1009,7 +1121,7 @@ Public Class frmNodeNavigation
e.Cancel = True
End If
ClassWindowLocation.SaveFormLocationSize(Me, CONSTRUCTORID, CURRENT_SCREEN_ID, "CONSTRUCTOR_MAIN")
ClassWindowLocation.SaveFormLocationSize(Me, CONSTRUCTORID, CURRENT_SCREEN_ID, "NODE_NAVIGATION")
CURRENT_OPEN_CONSTRUCTOR_FORMS.Remove(CONSTRUCTORID)
@@ -1026,7 +1138,6 @@ Public Class frmNodeNavigation
Private Sub pnlControls_Enter(sender As Object, e As EventArgs) Handles pnlControls.Enter
In_Visible_Record_Group(True)
In_Visible_File_Group(False)
End Sub
Private Sub pnlControls_Leave(sender As Object, e As EventArgs) Handles pnlControls.Leave
@@ -1037,16 +1148,12 @@ Public Class frmNodeNavigation
In_Visible_Record_Group(False)
End Sub
Private Sub pnlControls_MouseDown(sender As Object, e As MouseEventArgs) Handles pnlControls.MouseDown
In_Visible_File_Group(False)
End Sub
Sub In_Visible_Record_Group(oBool As Boolean)
RibbonPageGroupRecord.Visible = oBool
RibbonPageGroupRecord.Enabled = oBool
End Sub
Sub In_Visible_File_Group(oBool As Boolean)
RibbonPageGroupRecord.Visible = oBool
RibbonPageGroupRecord.Enabled = oBool
End Sub
Private Sub bbtnitmEditRec_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtnitmRecEdit.ItemClick
If RECORD_ENABLED = False Then
EnableEditMode()
@@ -1097,7 +1204,8 @@ Public Class frmNodeNavigation
CURRENT_CHANGE_STEP += 1
Dim del = String.Format("DELETE FROM TBPMO_CONTROL_VALUE_CHANGE_HISTORY WHERE UPPER(ADDED_WHO) = '{0}'", USER_USERNAME.ToUpper)
ClassDatabase.Execute_non_Query(del)
MYDB_ECM.ExecuteNonQuery(del)
Lock_RecordControls(False)
Me.bbtnitmRecSave.Enabled = True
@@ -1113,6 +1221,7 @@ Public Class frmNodeNavigation
End If
CURRENT_RECORD_ID = SELECTED_NODE_RECORD_ID
ClassHelper.GetDocrecordLinks(CURRENT_RECORD_ID)
CtrlCommandUI.IsEdit = True
' Abhängige Listen laden
CtrlBuilder.WatchRecordChanges = False
@@ -1155,14 +1264,6 @@ Public Class frmNodeNavigation
' tsButtonAdd.Enabled = True
'End If
bbtnitmRecSave.Enabled = False
Dim stg As String
If USER_LANGUAGE = "de-DE" Then
stg = "Bearbeiten"
Else
stg = "Edit record"
End If
bbtnitmRecSave.Caption = stg
bbtnitmRecSave.Caption = stg
If Not IsNothing(CtrlCommandUI) Then
'ActivateAllTabs()
@@ -1357,14 +1458,14 @@ Public Class frmNodeNavigation
#End Region
Private Sub Customer_Run_Procedures()
Try
Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBPMO_RUN_PROCEDURES WHERE FORM_ID = " & oEntityID)
Dim DT As DataTable = MYDB_ECM.GetDatatable("SELECT * FROM TBPMO_RUN_PROCEDURES WHERE FORM_ID = " & oEntityID)
If Not DT Is Nothing Then
For Each row As DataRow In DT.Rows
Dim prsql As String = row.Item("EXECUTE_COMMAND")
prsql = prsql.ToUpper.Replace("@FORM_ID", oEntityID)
prsql = prsql.ToUpper.Replace("@ENTITY_ID", oEntityID)
prsql = prsql.ToUpper.Replace("@RECORD_ID", SELECTED_NODE_RECORD_ID)
ClassDatabase.Execute_non_Query(prsql)
MYDB_ECM.ExecuteNonQuery(prsql)
Next
End If
Catch ex As Exception
@@ -1408,7 +1509,7 @@ Public Class frmNodeNavigation
End If
Dim DT_RESULT As DataTable
DT_RESULT = ClassDOC_SEARCH.Get_DOC_RESULTTABLE(DT_RESULTLIST_OPTIONS, DT_RESULTLIST_VARIABLE_VALUE, DT_WINDREAM_COLUMNS_GRID, oEntityID, SELECTED_NODE_RECORD_ID, True)
DT_RESULT = ClassDOC_SEARCH.Get_DOC_RESULTTABLE(DT_RESULTLIST_OPTIONS, DT_RESULTLIST_VARIABLE_VALUE, DT_COLUMNS_GRID_ENTITY, oEntityID, SELECTED_NODE_RECORD_ID, True)
If IsNothing(DT_RESULT) Then
Dim msg = "wrong DocSearch-Configuration or unexpected Error in Get_DOC_RESULTTABLE - Check logfile and contact Digital Data"
@@ -1466,7 +1567,7 @@ Public Class frmNodeNavigation
ClassWindreamDocGrid.FillColumns(
GridViewDoc_Search,
DT_RESULT,
DT_WINDREAM_COLUMNS_GRID,
DT_COLUMNS_GRID_ENTITY,
DT_DOCRESULT_DROPDOWN_ITEMS,
AddressOf OnCBSelectedValueChanged,
AddressOf OnDateSelectedValueChanged,
@@ -1534,9 +1635,9 @@ Public Class frmNodeNavigation
Dim sw As New SW("RUN_ENTITY_DOC_SEARCH")
Try
Dim oSQL = $"SELECT ENTITY_DOC_SEARCH FROM TBPMO_FORM WHERE GUID = {oEntityID}"
CURRENT_DOCSEARCH_SQL = ClassDatabase.Execute_Scalar(oSQL, True)
CURRENT_DOCSEARCH_SQL = MYDB_ECM.GetScalarValue(oSQL)
If CURRENT_DOCSEARCH_SQL <> String.Empty Then
Dim oText = $"Die Entität-weite Suche wird im Hintergrund ausgeführt und angezeigt sobald sie fertig ist."
Dim oText = $"Die Entität-weite Suche wird im Hintergrund ausgeführt und in einem separaten Fenster angezeigt sobald sie fertig ist."
If USER_LANGUAGE <> "de-De" Then
oText = $"The entity-wide search will be started in background. The result will be displayed when ready."
End If
@@ -1592,7 +1693,7 @@ Public Class frmNodeNavigation
Dim user As String = USER_USERNAME
Dim Sql As String = String.Format("EXEC PRPMO_DOC_VALUE_UPD_INS {0}, {1}, {2}, '{3}', '{4}'", docId, SELECTED_NODE_RECORD_ID, configId, value, user)
If ClassDatabase.Execute_non_Query(Sql) = False Then
If MYDB_ECM.ExecuteNonQuery(Sql) = False Then
MsgBox("The Update-Command was not successful! Check the log!",, MsgBoxStyle.Critical)
Else
ClassProxy.PRPROXY_DOC_VALUES_UPD(docId, SELECTED_NODE_RECORD_ID)
@@ -1641,7 +1742,7 @@ Public Class frmNodeNavigation
Dim dateString = value.ToString("yyyy-MM-dd") 'hh:mm:ss.fff
Dim Sql As String = String.Format("EXEC PRPMO_DOC_VALUE_UPD_INS {0}, {1}, {2}, '{3}', '{4}'", docId, SELECTED_NODE_RECORD_ID, configid, dateString, user)
If ClassDatabase.Execute_non_Query(Sql) = False Then
If MYDB_ECM.ExecuteNonQuery(Sql) = False Then
ClassHelper.MSGBOX_Handler("ERROR", "UnexpectedError:", "Error updating doc-metadata (date): " & vbNewLine & "Check the log for further information!")
Else
ClassProxy.PRPROXY_DOC_VALUES_UPD(docId, SELECTED_NODE_RECORD_ID)
@@ -1675,7 +1776,7 @@ Public Class frmNodeNavigation
Dim user As String = USER_USERNAME
Dim Sql As String = String.Format("EXEC PRPMO_DOC_VALUE_UPD_INS {0}, {1}, {2},'{3}','{4}'", docId, SELECTED_NODE_RECORD_ID, configid, value, user)
If ClassDatabase.Execute_non_Query(Sql) = False Then
If MYDB_ECM.ExecuteNonQuery(Sql) = False Then
ClassHelper.MSGBOX_Handler("ERROR", "UnexpectedError:", "Error updating doc-metadata (textbox): " & vbNewLine & "Check the log for further information!")
Else
ClassProxy.PRPROXY_DOC_VALUES_UPD(docId, SELECTED_NODE_RECORD_ID)
@@ -1705,7 +1806,7 @@ Public Class frmNodeNavigation
Dim user As String = USER_USERNAME
Dim Sql As String = String.Format("EXEC PRPMO_DOC_VALUE_UPD_INS {0}, {1}, {2},'{3}','{4}'", docId, SELECTED_NODE_RECORD_ID, configid, value, user)
If ClassDatabase.Execute_non_Query(Sql) = False Then
If MYDB_ECM.ExecuteNonQuery(Sql) = False Then
ClassHelper.MSGBOX_Handler("ERROR", "UnexpectedError:", "Error updating doc-metadata (checkbox): " & vbNewLine & "Check the log for further information!")
Else
ClassProxy.PRPROXY_DOC_VALUES_UPD(docId, SELECTED_NODE_RECORD_ID)
@@ -1722,13 +1823,11 @@ Public Class frmNodeNavigation
End Sub
#Region "GridViewEvents"
Private Sub GridViewDoc_Search_ColumnFilterChanged(sender As Object, e As EventArgs) Handles GridViewDoc_Search.ColumnFilterChanged
Private Sub GridViewDoc_Search_LayoutSave(sender As Object, e As EventArgs) Handles GridViewDoc_Search.ColumnFilterChanged, GridViewDoc_Search.ColumnWidthChanged, GridViewDoc_Search.ColumnPositionChanged
Save_DocGrid_Layout()
End Sub
Private Sub GridViewDoc_Search_ColumnWidthChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.ColumnEventArgs) Handles GridViewDoc_Search.ColumnWidthChanged
Save_DocGrid_Layout()
End Sub
Private Sub GridViewDoc_Search_FocusedColumnChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedColumnChangedEventArgs) Handles GridViewDoc_Search.FocusedColumnChanged
@@ -1758,12 +1857,14 @@ Public Class frmNodeNavigation
End Sub
Sub Save_DocGrid_Layout()
Try
Dim XMLPath = Get_DocGrid_Layout_Filename()
GridViewDoc_Search.SaveLayoutToXml(XMLPath)
If FORM_LOADED And Node_AfterSelect = False Then
Dim XMLPath = Get_DocGrid_Layout_Filename()
GridViewDoc_Search.SaveLayoutToXml(XMLPath)
Update_Status_Label(True, "Grid Layout Saved")
Update_Status_Label(True, "Grid Layout Saved")
End If
Catch ex As Exception
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, ex.StackTrace)
End Try
@@ -1827,8 +1928,10 @@ Public Class frmNodeNavigation
End Sub
#Region "Dropping Files"
Sub Drag_Enter(e As DragEventArgs)
If act_FormViewID <> 0 Then
If oEntityID <> 0 Then
ClassDragDrop.Drag_enter(e)
Else
Update_Status_Label(True, "No entity selected", EditState.Insert)
End If
End Sub
Sub Drag_Drop(e As DragEventArgs)
@@ -1844,15 +1947,15 @@ Public Class frmNodeNavigation
ClassHelper.MSGBOX_Handler("INFO", "Attention", "Check Your windream-connection and restart ADDI afterwards.", "Could not create a windream session!")
Exit Sub
End If
If act_FormViewID <> 0 And (RIGHT_READ_ONLY_DOC = False And GridControlDocSearch.ContextMenuStrip.Name = "ContextMenuStripResultFiles") Or RIGHT_ADD_DOC = True Then
If oEntityID <> 0 And (RIGHT_READ_ONLY_DOC = False And GridControlDocSearch.ContextMenuStrip.Name = "ContextMenuStripResultFiles") Or RIGHT_ADD_DOC = True Then
Dim sql = "select count(*) from VWPMO_DOKUMENTTYPES where FORMVIEW_ID = " & FORMVIEW_ID
Dim count_DT = ClassDatabase.Execute_Scalar(sql, True)
Dim count_DT = MYDB_ECM.GetScalarValue(sql)
If count_DT = 0 And CURRENT_ENTITY_REDUNDANT_ID = 0 Then
MsgBox("No documenttypes for this entity configured! Indexing is not possible!" & vbNewLine & "Please check the configuration!", MsgBoxStyle.Exclamation)
Exit Sub
ElseIf count_DT = 0 And CURRENT_ENTITY_REDUNDANT_ID <> 0 Then
sql = "select count(*) from VWPMO_DOKUMENTTYPES where FORM_ID = " & CURRENT_ENTITY_REDUNDANT_ID
count_DT = ClassDatabase.Execute_Scalar(sql, True)
count_DT = MYDB_ECM.GetScalarValue(sql)
If count_DT = 0 Then
MsgBox("No documenttypes for this entity configured! Indexing is not possible!" & vbNewLine & "Please check the configuration!", MsgBoxStyle.Exclamation)
Exit Sub
@@ -1913,6 +2016,7 @@ Public Class frmNodeNavigation
If NEW_FILES_ADDED = True Then
Me.Cursor = Cursors.WaitCursor
RUN_WDSEARCH_GRID(True)
ClassHelper.GetDocrecordLinks(CURRENT_RECORD_ID)
TimerClearResultfiles.Start()
Else
LOGGER.Debug("No new files were added or windream tab is not focused!")
@@ -1972,13 +2076,13 @@ Public Class frmNodeNavigation
End If
Dim sql = "select count(*) from VWPMO_DOKUMENTTYPES where FORMVIEW_ID = " & FORMVIEW_ID
Dim count_DT = ClassDatabase.Execute_Scalar(sql, True)
Dim count_DT = MYDB_ECM.GetScalarValue(sql)
If count_DT = 0 And CURRENT_ENTITY_REDUNDANT_ID = 0 Then
ClassHelper.MSGBOX_Handler("INFO", "Attention", "Configuration missing: ", "No documenttypes for this entity (" & FORMVIEW_ID.ToString & ") configured! Indexing is not possible! Please check the configuration.")
Exit Sub
ElseIf count_DT = 0 And CURRENT_ENTITY_REDUNDANT_ID <> 0 Then
sql = "select count(*) from VWPMO_DOKUMENTTYPES where FORM_ID = " & CURRENT_ENTITY_REDUNDANT_ID
count_DT = ClassDatabase.Execute_Scalar(sql, True)
count_DT = MYDB_ECM.GetScalarValue(sql)
If count_DT = 0 Then
ClassHelper.MSGBOX_Handler("INFO", "Attention", "Configuration missing: ", "No documenttypes for the redundant entity (" & CURRENT_ENTITY_REDUNDANT_ID.ToString & ") configured! Indexing is not possible! Please check the configuration.")
Exit Sub
@@ -2024,6 +2128,13 @@ Public Class frmNodeNavigation
Private Sub pnlControls_DragEnter(sender As Object, e As DragEventArgs) Handles pnlControls.DragEnter
Drag_Enter(e)
End Sub
Private Sub SplitContainer1_DragEnter(sender As Object, e As DragEventArgs) Handles SplitContainer1.DragEnter
Drag_Enter(e)
End Sub
Private Sub SplitContainer1_DragDrop(sender As Object, e As DragEventArgs) Handles SplitContainer1.DragDrop
Drag_Drop(e)
End Sub
#End Region
Function Save_Record()
@@ -2082,8 +2193,8 @@ Public Class frmNodeNavigation
End If
If EDIT_STATE = EditState.Insert Then
'Dim exec = String.Format("EXEC PRPMO_CLIENT_AFTER_RECORD_INSERT {0}", CURRENT_RECORD_ID)
'ClassDatabase.Execute_non_Query_withConn(exec, 1)
Dim exec = String.Format("EXEC PRPMO_CLIENT_AFTER_RECORD_INSERT {0}", CURRENT_RECORD_ID)
MYDB_ECM.ExecuteNonQuery(exec)
ElseIf EDIT_STATE = EditState.Update Then
'Weil es ein Insert war müssen noch die Daten gespeichert/erneuert werden
@@ -2272,7 +2383,7 @@ Public Class frmNodeNavigation
Try
Dim oSQLDRList = $"Select COALESCE(IN_WORK_USER,'') IN_WORK_USER, COALESCE(IN_WORK_COMMENT,'') IN_WORK_COMMENT,IN_WORK FROM TBPMO_DOCRESULT_LIST where DocID = {ClassWindreamDocGrid.SELECTED_DOC_ID}"
Dim oDT As DataTable = ClassDatabase.Return_Datatable(oSQLDRList)
Dim oDT As DataTable = MYDB_ECM.GetDatatable(oSQLDRList)
If Not IsNothing(oDT) Then
If oDT.Rows.Count = 1 Then
IW_USER = oDT.Rows(0).Item("IN_WORK_USER")
@@ -2425,7 +2536,7 @@ Public Class frmNodeNavigation
Exit Sub
End If
Refresh_Selected_Table()
Dim frm As New frmDocRecordLink ' frmDocLink_Record_Entities() 'fileName, ClassWindreamDocGrid.RESULT_OBJECTTYPE)
Dim frm As New frmDocRecordLink
frm.Show()
Catch ex As Exception
MsgBox("Unexpected Error in Linking Record: " & ex.Message, MsgBoxStyle.Critical)
@@ -2489,7 +2600,7 @@ Public Class frmNodeNavigation
msg = "Would You like to delete only the references?" & vbNewLine & "File(s) will stay in ECM/Archive/Explorer!"
End If
Dim result As MsgBoxResult
result = MessageBox.Show(msg, "Confirmation:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
result = MessageBox.Show(msg, CAPTION_CONFIRMATION, MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = MsgBoxResult.Yes Then
Try
For Each row As DataRow In ClassWindreamDocGrid.DT_RESULTFILES.Rows
@@ -2569,4 +2680,183 @@ Public Class frmNodeNavigation
CURRENT_SEARCH_TYPE = "ENTITY"
RUN_ENTITY_DOC_SEARCH()
End Sub
Private Sub bbtnitmReloadView_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtnitmReloadView.ItemClick
ReloadTreeView()
End Sub
Sub ReloadTreeView()
TreeListDevexpress.Nodes.Clear()
Load_nodes()
End Sub
Private Sub UnterknotenNeuOrdnenToolStripMenuItem_Click(sender As Object, e As EventArgs)
MyTreeListViewState = New TreeListViewState(TreeListDevexpress)
Dim oQuestion = "Wollen Sie die gesamte Struktur unterhalb dieses Knotens neu ordnen lassen?" & vbNewLine & "Nein, wenn nur die direkten Unterknoten neu geordnet werden sollen!"
If USER_LANGUAGE <> "de-DE" Then
oQuestion = "Do you want to reorder the entire structure below this node?" & vbNewLine & "No, if only the direct subnodes are to be reordered!"
End If
Dim result As MsgBoxResult
result = MessageBox.Show(oQuestion, CAPTION_CONFIRMATION, MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question)
Dim oSubnodes As String = "0"
If result = MsgBoxResult.Yes Then
oSubnodes = "1"
ElseIf result = MsgBoxResult.Cancel Then
Exit Sub
End If
Cursor = Cursors.WaitCursor
Dim oSQL = $"EXEC PRCUST_REORDER_CHILD_NODES "
Dim oNodeGUID As Integer = 0
Dim oID = FocusedNode.Id
Dim PID = FocusedNode.ParentNode
Dim Column_pRecord As TreeListColumn = TreeListDevexpress.Columns("RECORD_ID")
Dim Column_Caption As TreeListColumn = TreeListDevexpress.Columns("NODE_CAPTION")
If oID > 0 Then
MyTreeListViewState.SaveState()
oNodeGUID = oID
oSQL += $" {oNodeGUID},{oSubnodes} "
MYDB_ECM.ExecuteNonQuery(oSQL)
ReloadTreeView()
MyTreeListViewState.LoadState()
TreeListDevexpress.FocusedNode = FocusedNode
End If
Cursor = Cursors.Default
End Sub
'Private Sub TreeListDevexpress_MouseUp(sender As Object, e As MouseEventArgs) Handles TreeListDevexpress.MouseUp
' Dim tree As TreeList = TryCast(sender, TreeList)
' Dim oLocation = e.Location
' 'If e.Button = MouseButtons.Right AndAlso ModifierKeys = Keys.None AndAlso tree.State = TreeListState.Regular Then
' ' Dim info As TreeListHitInfo = tree.CalcHitInfo(e.Location)
' ' FocusedNode = tree.FocusedNode
' ' Dim SavedTopIndex As Integer = tree.TopVisibleNodeIndex
' ' tree.FocusedNode = info.Node
' ' cmsTreeView.Show(TreeListDevexpress, e.Location)
' 'End If
'End Sub
Private Sub GridViewDoc_Search_RowStyle(sender As Object, e As RowStyleEventArgs) Handles GridViewDoc_Search.RowStyle
If e.RowHandle = DevExpress.XtraGrid.GridControl.AutoFilterRowHandle Then
e.Appearance.BackColor = Color.Yellow
Else
If e.RowHandle = -1 Then
Exit Sub
End If
Try
Dim rowCellValue = GridViewDoc_Search.GetRowCellValue(e.RowHandle, "in work?")
If Not IsNothing(rowCellValue) Then
Dim inwork = rowCellValue
If inwork = True Then
e.Appearance.BackColor = Color.Orchid
e.HighPriority = True
End If
End If
Catch ex As Exception
LOGGER.Warn("Unexpected Error in Checking Value In Work: " & ex.Message)
End Try
Try
Dim DROPDOWN_VALUE
If Not IsNothing(DT_DOCRESULT_DROPDOWN_ITEMS) Then
'Den ColumnTitle aus ConfigTableholen
If DT_DOCRESULT_DROPDOWN_ITEMS.Rows.Count > 0 Then
For Each confrow As DataRow In DT_DOCRESULT_DROPDOWN_ITEMS.Rows
Dim CAPTION = confrow.Item("HEADER_CAPTION")
DROPDOWN_VALUE = GridViewDoc_Search.GetRowCellValue(e.RowHandle, CAPTION)
If Not IsNothing(DROPDOWN_VALUE) Then
Exit For
End If
Next
If Not IsNothing(DROPDOWN_VALUE) Then
Dim ColorRow As Color
Dim expression As String = String.Format("VALUE = '{0}'", DROPDOWN_VALUE)
Dim matchingRows() As DataRow = DT_DOCRESULT_DROPDOWN_ITEMS.Select(expression, "SEQUENCE")
Dim rowcolorname As String = ""
'Die Color für den value auswählen
For Each matchingRow As DataRow In matchingRows
rowcolorname = ""
If Not IsDBNull(matchingRow.Item("COLOR")) Then
rowcolorname = matchingRow.Item("COLOR")
End If
If rowcolorname <> "" Then
Exit For
End If
Next
If rowcolorname <> "" Then
ColorRow = Color.FromName(rowcolorname)
e.Appearance.BackColor = ColorRow
e.HighPriority = True
End If
'Dim c As Color = DirectCast(rowCellValue, Color)
End If
End If
End If
Catch ex As Exception
LOGGER.Warn("Unexpected Error in RowStyle-Color Dropdown: " & ex.Message)
End Try
End If
End Sub
Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BbtnitmNodeReorder.ItemClick
MyTreeListViewState = New TreeListViewState(TreeListDevexpress)
Dim oQuestion = "Wollen Sie die gesamte Struktur unterhalb dieses Knotens neu ordnen lassen?" & vbNewLine & "Nein, wenn nur die direkten Unterknoten neu geordnet werden sollen!"
If USER_LANGUAGE <> "de-DE" Then
oQuestion = "Do you want to reorder the entire structure below this node?" & vbNewLine & "No, if only the direct subnodes are to be reordered!"
End If
Dim result As MsgBoxResult
result = MessageBox.Show(oQuestion, CAPTION_CONFIRMATION, MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question)
Dim oSubnodes As String = "0"
If result = MsgBoxResult.Yes Then
oSubnodes = "1"
ElseIf result = MsgBoxResult.Cancel Then
Exit Sub
End If
Cursor = Cursors.WaitCursor
Dim oSQL = $"EXEC PRCUST_REORDER_CHILD_NODES "
Dim oNodeGUID As Integer = 0
Dim oID = FocusedNode.Id
Dim PID = FocusedNode.ParentNode
Dim Column_pRecord As TreeListColumn = TreeListDevexpress.Columns("RECORD_ID")
Dim Column_Caption As TreeListColumn = TreeListDevexpress.Columns("NODE_CAPTION")
If oID > 0 Then
MyTreeListViewState.SaveState()
oNodeGUID = oID
oSQL += $" {oNodeGUID},{oSubnodes} "
MYDB_ECM.ExecuteNonQuery(oSQL)
ReloadTreeView()
MyTreeListViewState.LoadState()
TreeListDevexpress.FocusedNode = FocusedNode
Update_Status_Label(True, "Nodes reordered")
End If
Cursor = Cursors.Default
End Sub
Private Sub bbtnItm_TV_Collape_Expand_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtnItm_TV_Collape_Expand.ItemClick
If TV_Collapse_ExpandState = "Collapse" Then
TreeListDevexpress.CollapseAll()
TV_Collapse_ExpandState = "Expand"
Else
TreeListDevexpress.ExpandAll()
TV_Collapse_ExpandState = "Collapse"
End If
End Sub
Private Sub bbtnitmRecSave_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtnitmRecSave.ItemClick
Save_Record()
End Sub
End Class

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