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

DAtabase integriert

Browse Source
This commit is contained in:
SchreiberM 2023-05-22 16:55:44 +02:00
parent 2db575d944
commit c2deb54f11
114 changed files with 8526 additions and 14722 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

59
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,7 @@ 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)
LOGGER.Warn("ATTENTION: GET_DOCSEARCH_DATATABLE IS NOTHING!!")
Return Nothing
End If
sw.Done()
@ -445,7 +445,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 +462,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 +489,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 +516,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 +536,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 +554,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 +568,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)

6
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)

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

21
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
@ -439,7 +438,7 @@ Public Class ClassHelper
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 = clsDatabase.Return_Datatable(oSQL, False)
CURRENT_DT_TBPMO_DOC_RECORD_LINK = MYDB_ECM.GetDatatable(oSQL)
Catch ex As Exception
LOGGER.Warn("Unexpected Error in GetDocrecordLinks: " & ex.Message)
Return False

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

71
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
@ -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,31 @@ 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")
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 +241,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 +260,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!")
@ -292,12 +302,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 +326,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 +338,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
@ -372,7 +381,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 +399,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 +407,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 +425,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"))

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

@ -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

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

@ -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

56
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,7 +129,7 @@ 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
@ -165,14 +165,14 @@ Public Class ClassSAP
If RowLimit <> 0 Then
oReadTable.RowCount = RowLimit
End If
LOGGER.Debug("Table.Run executing.....", False)
LOGGER.Debug("Table.Run executing.....")
read = oReadTable
read.Run()
LOGGER.Debug("Table.Run executed", False)
LOGGER.Debug("Table.Run executed")
RESULT_TABLE = read.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

77
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!")
@ -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!"
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)!"
End If
Dim result As MsgBoxResult
result = MessageBox.Show(msg, CAPTION_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

6
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)

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

@ -77,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"))
@ -224,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
@ -240,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

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()

68
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
@ -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)

40
app/DD-Record-Organizer/DD-Record-Organizer.vbproj
View File

@ -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>

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)

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

@ -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")

4
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)
@ -110,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
@ -198,4 +199,5 @@ Module ModuleRuntimeVariables
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

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

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

17
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)
@ -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

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

@ -35,13 +35,13 @@ Public Class frmConstructorDesigner
Me.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Connection.ConnectionString = MyConnectionString
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)
@ -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()
@ -137,7 +137,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 +169,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 +177,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 +205,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 +216,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 +308,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 +351,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 +366,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 +462,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 +491,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 +517,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 +544,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 +569,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 +579,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 +595,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 +609,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 +634,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 +666,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 +683,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 +703,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 +723,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 +739,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 +756,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 +844,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 +861,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 +876,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
@ -922,7 +922,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 +954,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 +976,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 +990,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 +1006,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

88
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
vgAADr4B6kKxwAAAAMpJREFUSEu9lUEOwyAMBHlS38Dj+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
vQAADr0BR/uQrQAAAFBJREFUOE9joBh8+/btPz4MVYYbgBQ5OTmBMUwTMh+qDDegigHYNBKL4S6A0chs
vAAADrwBlbxySQAAAFBJREFUOE9joBh8+/btPz4MVYYbgBQ5OTmBMUwTMh+qDDegigHYNBKL4S6A0chs
YmjauYAQhqkbTi5A1ojMJ0QTNIAQRvECNgxNb4MWMDAAAPsOTf9dAGOQAAAAAElFTkSuQmCC
</value>
</data>
@ -230,7 +230,7 @@
<value>Knoten umbenennen</value>
</data>
<data name="SdsdToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>216, 26</value>
<value>212, 22</value>
</data>
<data name="SdsdToolStripMenuItem.Text" xml:space="preserve">
<value>Knotentext:</value>
@ -242,18 +242,18 @@
<value>152, 23</value>
</data>
<data name="ToolStripSeparator15.Size" type="System.Drawing.Size, System.Drawing">
<value>213, 6</value>
<value>209, 6</value>
</data>
<data name="OberhalbToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
vgAADr4B6kKxwAAAAG1JREFUOE+1kdEJgDAMRDtbhssa3TK/0ZSIxV5Co3jwUI7LA7Gp6idgWQGWFWBZ
vQAADr0BR/uQrQAAAG1JREFUOE+1kdEJgDAMRDtbhssa3TK/0ZSIxV5Co3jwUI7LA7Gp6idgWQGWFWBZ
4X7xiEg/UUD3yUgosNjYjphZiWg8n5JF4IOFSAIFNsyYJf8IENufMMdG2bElFFzHgPw3vgWWFWBZAZb7
aDsAn1PBeUq8SBsAAAAASUVORK5CYII=
</value>
</data>
<data name="OberhalbToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>216, 26</value>
<value>212, 22</value>
</data>
<data name="OberhalbToolStripMenuItem.Text" xml:space="preserve">
<value>Auf dieser Ebene</value>
@ -261,14 +261,14 @@
<data name="UnterhalbToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
vgAADr4B6kKxwAAAAJVJREFUOE+lkdEJxDAMQztbhssat2V+fZWxD1vKR8IZBLX8JEr7mNlf2po3UiNm
vQAADr0BR/uQrQAAAJVJREFUOE+lkdEJxDAMQztbhssat2V+fZWxD1vKR8IZBLX8JEr7mNlf2po3UiNm
rWVVYSsvRgxCYwzXVcELfwDuCnBjvi0QYIBckB7zbYECdlGBi/m2QIDmnFKQHvNtgTKIQBbk83FBDdeS
0wL/WPwG8HBjvi1uxO/KkhrGTXgxYrKkhjHCi1EmSn5hjPBs3GprnsueLz0XwXnZAqB7AAAAAElFTkSu
QmCC
</value>
</data>
<data name="UnterhalbToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>216, 26</value>
<value>212, 22</value>
</data>
<data name="UnterhalbToolStripMenuItem.Text" xml:space="preserve">
<value>Unterhalb</value>
@ -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
vgAADr4B6kKxwAAAAFxJREFUOE/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+SX8VGAAAACXBIWXMAAAsNAAALDQHtB8AsAAACLUlE
JQAAgIMAAPn/AACA6QAAdTAAAOpgAAA6mAAAF2+SX8VGAAAACXBIWXMAAAsMAAALDAE/QCLIAAACLUlE
QVQ4T52TvY/ScBjHuVIRKHA9JAgnL+VoC7TX0kLLS6EvFBTa0uj5J7gYF+PsfpOTMrg4ORgHY+LCYJwc
TYyJiYuDLu7GxHgxd/Hnr5fA8TZcrsmnzfN9nufTNPnVBwDw2ZYljGzr3ciyTNu2EC87L75eb+DvD67f
hU9g9vt/HNs5cMaOf9Owohro7YNbe8PhjfuzzBOgkDuabk6bbRXoxuBkNLIeus6yhKyIwY5umo5tHxmG
@ -322,7 +322,7 @@
<value>Suche Knoten</value>
</data>
<data name="cmsTreeView.Size" type="System.Drawing.Size, System.Drawing">
<value>225, 257</value>
<value>225, 235</value>
</data>
<data name="&gt;&gt;cmsTreeView.Name" xml:space="preserve">
<value>cmsTreeView</value>
@ -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
vgAADr4B6kKxwAAAAFxJREFUOE/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
vQAADr0BR/uQrQAAASpJREFUOE9jGDygcNbz/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
vQAADr0BR/uQrQAAALZJREFUOE9jGDogvP3BfyiTdBDf/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
vQAADr0BR/uQrQAAAKNJREFUOE9jGHygcNbz/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
vQAADr0BR/uQrQAAASxJREFUOE9jGFygcNbz/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
vgAADr4B6kKxwAAAAUlJREFUOE+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
vQAADr0BR/uQrQAAAHlJREFUOE+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
vQAADr0BR/uQrQAAAINJREFUOE9jQAbfvn37TwyGKscEIEknJye8mH4GfHj/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
vQAADr0BR/uQrQAAAFFJREFUKFOdj0EKACAIBH2b/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+SX8VGAAAACXBIWXMAAAsNAAALDQHtB8AsAAAC+klE
JQAAgIMAAPn/AACA6QAAdTAAAOpgAAA6mAAAF2+SX8VGAAAACXBIWXMAAAsMAAALDAE/QCLIAAAC+klE
QVQ4T42S+0+TZxiG+V/MYkycidHpNP7gIaTooAbQDwsC4qilHMqhYC1yKNKPOhmjtANKELSVTSbBMVo/
goeI4AFD0GWZAw8YNZxMLZiJqQf0sq/LPlyyLPvhfvIm73tfb57nuaMAVaX1yvqIZGtdYKjcpczbm/uf
H6rzX805csZmtHWu/fTt31IPZQ19eRVu5YFvcIgLD0ZRJvvwTVRRoBiQ5BNklvrG9WWnDJ+ahT6Ww04l
@ -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>

292
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,7 +314,7 @@ 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")
@ -323,7 +323,7 @@ Public Class frmConstructor_Main
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()
@ -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)
@ -2132,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
@ -2243,7 +2241,7 @@ Public Class frmConstructor_Main
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!")
@ -2341,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
@ -2481,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
@ -2523,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
@ -2546,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()
@ -2571,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
@ -2617,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)
@ -2734,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")
@ -2815,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
@ -2963,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
@ -3153,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)
@ -3208,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
@ -3223,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
@ -3311,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
@ -3350,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
@ -3399,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
@ -3472,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"
@ -3550,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
@ -3617,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)"
@ -3678,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
@ -3697,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
@ -3757,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
@ -3797,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
@ -4044,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)
@ -4093,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)
@ -4127,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)
@ -4157,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)
@ -4363,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)
@ -4509,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
@ -4636,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
@ -4721,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)
@ -4736,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
@ -4757,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
@ -4798,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
@ -4994,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
@ -5068,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
@ -5158,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)
@ -5312,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
@ -5326,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
@ -5349,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()
@ -5359,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
@ -5506,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
@ -5609,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
@ -5849,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)
@ -6043,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")
@ -6213,7 +6172,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
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
@ -6256,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)
@ -6295,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)
@ -6324,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)
@ -6335,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
@ -6612,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
@ -6639,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
@ -6769,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
@ -6808,7 +6764,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
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
@ -6984,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
@ -7172,7 +7128,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
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
@ -7197,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
@ -7304,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
@ -7336,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

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

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

@ -35,7 +35,7 @@ Public Class frmDocRecordLink
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}", CURRENT_LINK_ENTITY_ID, DOC_ID)
Dim DTRECS_LINKED As DataTable = clsDatabase.Return_Datatable(sel)
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
@ -122,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)
@ -192,12 +192,12 @@ Public Class frmDocRecordLink
End Sub
Private Function ReturnDataforEntity(oEntityID As Integer) As DataTable
Dim ResultSQL, ResultViewName As String
LOGGER.Debug("GridType = Grid", False)
LOGGER.Debug("GridType = Grid")
ResultViewName = $"VWPMO_ENTITY_TABLE{oEntityID}"
ResultSQL = $"SELECT T.* FROM {ResultViewName} T"
LOGGER.Debug("ResultSQL: " & ResultSQL, False)
Return clsDatabase.Return_Datatable(ResultSQL, True)
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
@ -213,7 +213,7 @@ Public Class frmDocRecordLink
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")
@ -222,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
@ -238,30 +238,16 @@ Public Class frmDocRecordLink
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

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()

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

@ -49,10 +49,10 @@
Me.TBDD_INDEX_AUTOMTableAdapter.Connection.ConnectionString = MyConnectionString
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

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

@ -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

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

@ -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)

44
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
@ -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)

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

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

@ -18,7 +18,7 @@
Me.TBPMO_RECORD_LOG_CONFIGTableAdapter.Connection.ConnectionString = MyConnectionString
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">

42
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
@ -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
@ -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()
@ -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

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

@ -46,7 +46,7 @@ Public Class frmMass_Change
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
@ -97,7 +97,7 @@ Public Class frmMass_Change
'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)

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

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

@ -24,7 +24,7 @@ Partial Class frmNodeNavigation
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmNodeNavigation))
Dim GridLevelNode2 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
Dim GridLevelNode1 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
Me.bbtnitmRecEdit = New DevExpress.XtraBars.BarButtonItem()
Me.bsiInfo = New DevExpress.XtraBars.BarStaticItem()
@ -39,10 +39,12 @@ Partial Class frmNodeNavigation
Me.bsitmtInfoDoc = New DevExpress.XtraBars.BarStaticItem()
Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem()
Me.bbtnitmReloadView = New DevExpress.XtraBars.BarButtonItem()
Me.BbtnitmNodeReorder = 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()
@ -77,8 +79,6 @@ Partial Class frmNodeNavigation
Me.tsmiFileDelete = New System.Windows.Forms.ToolStripMenuItem()
Me.TimerFileHandle = New System.Windows.Forms.Timer(Me.components)
Me.TimerClearResultfiles = New System.Windows.Forms.Timer(Me.components)
Me.cmsTreeView = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.UnterknotenNeuOrdnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.SplitContainerMain, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.SplitContainerMain.Panel1, System.ComponentModel.ISupportInitialize).BeginInit()
@ -96,15 +96,14 @@ Partial Class frmNodeNavigation
CType(Me.GridViewDoc_Search, System.ComponentModel.ISupportInitialize).BeginInit()
Me.cmsResultFilesBasic.SuspendLayout()
Me.cmsResultFileDetail.SuspendLayout()
Me.cmsTreeView.SuspendLayout()
Me.SuspendLayout()
'
'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.bbtnitmReloadView})
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.RibbonControl1.Location = New System.Drawing.Point(0, 0)
Me.RibbonControl1.MaxItemId = 16
Me.RibbonControl1.MaxItemId = 17
Me.RibbonControl1.Name = "RibbonControl1"
Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
Me.RibbonControl1.PopupMenuAlignment = DevExpress.XtraBars.PopupMenuAlignment.Left
@ -211,9 +210,16 @@ Partial Class frmNodeNavigation
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"
'
'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"
'
@ -243,6 +249,12 @@ Partial Class frmNodeNavigation
Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
Me.RibbonPageGroup1.Text = "Funktionen"
'
'RPGNodes
'
Me.RPGNodes.ItemLinks.Add(Me.BbtnitmNodeReorder)
Me.RPGNodes.Name = "RPGNodes"
Me.RPGNodes.Text = "Knoten"
'
'RibbonStatusBar1
'
Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiInfo)
@ -285,7 +297,6 @@ Partial Class frmNodeNavigation
Me.TreeListDevexpress.Appearance.FocusedRow.BackColor = System.Drawing.Color.Aqua
Me.TreeListDevexpress.Appearance.FocusedRow.Options.UseBackColor = True
Me.TreeListDevexpress.Caption = "Instandhaltung View"
Me.TreeListDevexpress.ContextMenuStrip = Me.cmsTreeView
Me.TreeListDevexpress.Dock = System.Windows.Forms.DockStyle.Fill
Me.TreeListDevexpress.Location = New System.Drawing.Point(0, 0)
Me.TreeListDevexpress.Name = "TreeListDevexpress"
@ -297,7 +308,7 @@ 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.OptionsFilter.FilterMode = DevExpress.XtraTreeList.FilterMode.Matches
Me.TreeListDevexpress.OptionsFind.AlwaysVisible = True
Me.TreeListDevexpress.OptionsFind.FindDelay = 300
Me.TreeListDevexpress.OptionsFind.ShowCloseButton = False
@ -308,6 +319,8 @@ Partial Class frmNodeNavigation
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
@ -335,16 +348,17 @@ 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
@ -352,12 +366,12 @@ Partial Class frmNodeNavigation
Me.GridControlDocSearch.AllowDrop = True
Me.GridControlDocSearch.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
Me.GridControlDocSearch.Dock = System.Windows.Forms.DockStyle.Fill
GridLevelNode2.RelationName = "Level1"
Me.GridControlDocSearch.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode2})
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})
@ -537,19 +551,6 @@ Partial Class frmNodeNavigation
'
Me.TimerClearResultfiles.Interval = 3000
'
'cmsTreeView
'
Me.cmsTreeView.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.UnterknotenNeuOrdnenToolStripMenuItem})
Me.cmsTreeView.Name = "cmsTreeView"
Me.cmsTreeView.Size = New System.Drawing.Size(205, 26)
'
'UnterknotenNeuOrdnenToolStripMenuItem
'
Me.UnterknotenNeuOrdnenToolStripMenuItem.Image = CType(resources.GetObject("UnterknotenNeuOrdnenToolStripMenuItem.Image"), System.Drawing.Image)
Me.UnterknotenNeuOrdnenToolStripMenuItem.Name = "UnterknotenNeuOrdnenToolStripMenuItem"
Me.UnterknotenNeuOrdnenToolStripMenuItem.Size = New System.Drawing.Size(204, 22)
Me.UnterknotenNeuOrdnenToolStripMenuItem.Text = "Unterknoten neu ordnen"
'
'frmNodeNavigation
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@ -580,7 +581,6 @@ Partial Class frmNodeNavigation
CType(Me.GridViewDoc_Search, System.ComponentModel.ISupportInitialize).EndInit()
Me.cmsResultFilesBasic.ResumeLayout(False)
Me.cmsResultFileDetail.ResumeLayout(False)
Me.cmsTreeView.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
@ -638,6 +638,6 @@ Partial Class frmNodeNavigation
Friend WithEvents tsmiFileDelete As ToolStripMenuItem
Friend WithEvents TimerFileHandle As Timer
Friend WithEvents TimerClearResultfiles As Timer
Friend WithEvents cmsTreeView As ContextMenuStrip
Friend WithEvents UnterknotenNeuOrdnenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents BbtnitmNodeReorder As DevExpress.XtraBars.BarButtonItem
Friend WithEvents RPGNodes As DevExpress.XtraBars.Ribbon.RibbonPageGroup
End Class

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

@ -389,9 +389,21 @@
bGFzcz0iR3JlZW4iIC8+DQogIDwvZz4NCjwvc3ZnPgs=
</value>
</data>
<metadata name="cmsTreeView.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>944, 17</value>
</metadata>
<data name="BbtnitmNodeReorder.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAK8BAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iU29ydF9GaWVsZHNfMV8iIHN0eWxlPSJlbmFibGUtYmFja2dyb3VuZDpu
ZXcgMCAwIDMyIDMyIj4NCiAgPHN0eWxlIHR5cGU9InRleHQvY3NzIj4KCS5HcmVlbntmaWxsOiMwMzlD
MjM7fQo8L3N0eWxlPg0KICA8cGF0aCBkPSJNMjYsMzBWMTRoNkwyNCwybC04LDEyaDZ2MTZIMjZ6IE02
LDJ2MTZIMGw4LDEybDgtMTJoLTZWMkg2eiIgaWQ9IlNvcnRfRmllbGRzIiBjbGFzcz0iR3JlZW4iIC8+
DQo8L3N2Zz4L
</value>
</data>
<metadata name="ImageCollection1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
@ -412,7 +424,7 @@
<data name="DateiÖffnenToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
vwAADr8BOAVTJAAAALRJREFUOE+lkcERhCAMRS1lS7CEHbrgTiGeKIsWthAO3rjGfCYiSNjB3T/zRwz5
vAAADrwBlbxySQAAALRJREFUOE+lkcERhCAMRS1lS7CEHbrgTiGeKIsWthAO3rjGfCYiSNjB3T/zRwz5
D6ILEf1ltfjE16JSSmll72yqjPdVWrKGAAjNCHnvyRhDeN4hKoAbNmksp48gHYA3PiEEstbmgOYa0gC4
sCGshWp/A+znyc45Aoxr8yPEGMspM2FoClC5CUMNAA2DEd7il+SK7oDuIwIgvaoaAMSB5jdirLwxUAeA
cBM25n12g1+tFudNywGNDF/TgW96BAAAAABJRU5ErkJggg==
@ -601,13 +613,6 @@
<metadata name="TimerClearResultfiles.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>779, 17</value>
</metadata>
<data name="UnterknotenNeuOrdnenToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAAwAAAAMCAYAAABWdVznAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wgAADsIBFShKgAAAAFFJREFUKFOdj0EKACAIBH2b/3+P16JwRTQzWphD0dhKIjI81GU9YuZNlE/YD17A
gEgp3EiCNq0DAeh1nS/BL9VxXBoDIibg8EKqpE3reLsXiCYgi0Ps3hQ2TwAAAABJRU5ErkJggg==
</value>
</data>
<data name="frmNodeNavigation.IconOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40

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

@ -63,7 +63,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
@ -261,8 +261,8 @@ 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-portrait_col_RGB_Wordpress.png")) Then
' WM_LOGO = New Bitmap(Application.StartupPath + "\Resources\windream-portrait_col_RGB_Wordpress.png")
@ -272,13 +272,13 @@ Public Class frmNodeNavigation
'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")
@ -289,7 +289,7 @@ 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
@ -303,10 +303,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)
DTNODES = 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")
@ -397,10 +398,13 @@ 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
Dim PID = treeListNode.ParentNode
Dim Column_pRecord As DevExpress.XtraTreeList.Columns.TreeListColumn = TreeListDevexpress.Columns("RECORD_ID")
@ -536,7 +540,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
@ -544,7 +548,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
@ -633,7 +637,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
@ -671,13 +675,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")
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()
@ -687,7 +691,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)
@ -710,9 +714,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, "")
@ -742,7 +746,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
@ -790,11 +794,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
@ -1195,7 +1195,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
@ -1254,14 +1255,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()
@ -1456,14 +1449,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
@ -1507,7 +1500,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"
@ -1565,7 +1558,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,
@ -1633,7 +1626,7 @@ 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 in einem separaten Fenster angezeigt sobald sie fertig ist."
If USER_LANGUAGE <> "de-De" Then
@ -1691,7 +1684,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)
@ -1740,7 +1733,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)
@ -1774,7 +1767,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)
@ -1804,7 +1797,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)
@ -1947,13 +1940,13 @@ Public Class frmNodeNavigation
End If
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
@ -2014,6 +2007,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!")
@ -2073,13 +2067,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
@ -2190,8 +2184,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
@ -2380,7 +2374,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")
@ -2533,7 +2527,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)
@ -2686,7 +2680,7 @@ Public Class frmNodeNavigation
Load_nodes()
End Sub
Private Sub UnterknotenNeuOrdnenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UnterknotenNeuOrdnenToolStripMenuItem.Click
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
@ -2712,7 +2706,7 @@ Public Class frmNodeNavigation
MyTreeListViewState.SaveState()
oNodeGUID = oID
oSQL += $" {oNodeGUID},{oSubnodes} "
ClassDatabase.Execute_non_Query(oSQL)
MYDB_ECM.ExecuteNonQuery(oSQL)
ReloadTreeView()
MyTreeListViewState.LoadState()
TreeListDevexpress.FocusedNode = FocusedNode
@ -2725,14 +2719,121 @@ Public Class frmNodeNavigation
Private Sub TreeListDevexpress_MouseUp(sender As Object, e As MouseEventArgs) Handles TreeListDevexpress.MouseUp
Dim tree As TreeList = TryCast(sender, TreeList)
If e.Button = MouseButtons.Right AndAlso ModifierKeys = Keys.None AndAlso tree.State = TreeListState.Regular Then
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)
' 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
FocusedNode = tree.FocusedNode
Dim SavedTopIndex As Integer = tree.TopVisibleNodeIndex
tree.FocusedNode = info.Node
cmsTreeView.Show(TreeListDevexpress, e.Location)
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
End Class

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

@ -98,7 +98,7 @@
Dim column = e.Column.FieldName
Dim id = gvMainView.GetFocusedRowCellValue(gvMainView.Columns("GUID"))
Dim sql = String.Format("UPDATE TBPMO_FORM_CONSTRUCTOR SET {0} = '{1}',CHANGED_WHO = '{2}',LANGUAGE = '{3}' where GUID = {4}", column, e.Value, USER_USERNAME, USER_LANGUAGE, id)
If ClassDatabase.Execute_non_Query(sql, False) = False Then
If MYDB_ECM.ExecuteNonQuery(sql) = False Then
MsgBox("Update Value not successfull. Check logfile", MsgBoxStyle.Critical)
End If

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

@ -8,7 +8,7 @@ Public Class frmRecOrgConfig_Basic
Private Sub frmConfiguration_Basic_Load(sender As Object, e As EventArgs) Handles Me.Load
Try
Dim sql As String = "select * from TBDD_MODULES where UPPER(NAME) = UPPER('Record-Organizer')"
Dim dt As DataTable = ClassDatabase.Return_Datatable(sql)
Dim dt As DataTable = MYDB_ECM.GetDatatable(sql)
If Not dt Is Nothing Then
If dt.Rows.Count = 1 Then
Me.txtDelimiterVersion.Text = dt.Rows(0).Item("VERSION_DELIMITER")
@ -26,7 +26,7 @@ Public Class frmRecOrgConfig_Basic
End If
End If
sql = "select * from TBPMO_SERVICE_RIGHT_CONFIG where GUID = 1"
dt = ClassDatabase.Return_Datatable(sql)
dt = MYDB_ECM.GetDatatable(sql)
If Not dt Is Nothing Then
If dt.Rows.Count = 1 Then
Me.txtDomäne.Text = dt.Rows(0).Item("AD_DOMAIN")
@ -38,14 +38,14 @@ Public Class frmRecOrgConfig_Basic
PWplainText = wrapper.DecryptData(dt.Rows(0).Item("AD_USER_PW"))
Me.txtPW.Text = PWplainText
Catch ex As Exception
DD_LIB_Standards.clsLogger.Add("- the Password '" & dt.Rows(0).Item("AD_USER_PW") & "' could not be decrypted", False)
LOGGER.Warn("- the Password '" & dt.Rows(0).Item("AD_USER_PW") & "' could not be decrypted")
Me.txtPW.Text = ""
End Try
Me.txtServername.Text = dt.Rows(0).Item("AD_SERVER")
End If
End If
sql = "select * from TBPMO_KONFIGURATION where GUID = 1"
dt = ClassDatabase.Return_Datatable(sql)
dt = MYDB_ECM.GetDatatable(sql)
If Not dt Is Nothing Then
If dt.Rows.Count = 1 Then
' Me.chkUnicode.Checked = dt.Rows(0).Item("WD_UNICODE")
@ -115,7 +115,7 @@ Public Class frmRecOrgConfig_Basic
'End If
Dim upd = String.Format("UPDATE TBPMO_KONFIGURATION SET WIKI_STRING = '{0}', CHANGED_WHO = '{1}', WD_UNICODE = {2} WHERE GUID = 1", Me.txtWiki.Text, USER_USERNAME, wduni)
If ClassDatabase.Execute_non_Query(upd) = True Then
If MYDB_ECM.ExecuteNonQuery(upd) = True Then
lblSaveresult.Visible = True
Else
lblSaveresult.Visible = False
@ -130,7 +130,7 @@ Public Class frmRecOrgConfig_Basic
Dim pw As String = cipherText
Dim upd = String.Format("UPDATE TBPMO_SERVICE_RIGHT_CONFIG SET AD_DOMAIN = '{0}', AD_USER = '{1}', AD_USER_PW = '{2}', AD_SERVER = '{3}', CHANGED_WHO = '{4}' WHERE GUID = 1", Me.txtDomäne.Text, Me.txtUser.Text, pw, Me.txtServername.Text, USER_USERNAME)
ClassDatabase.Execute_non_Query(upd, False)
MYDB_ECM.ExecuteNonQuery(upd)
btnsave.Enabled = False
End If
@ -173,7 +173,7 @@ Public Class frmRecOrgConfig_Basic
Dim pw As String = cipherText
Dim upd = String.Format("UPDATE TBPMO_SERVICE_RIGHT_CONFIG SET AD_DOMAIN = '{0}', AD_USER = '{1}', AD_USER_PW = '{2}', AD_SERVER = '{3}', CHANGED_WHO = '{4}' WHERE GUID = 1", Me.txtDomäne.Text, Me.txtUser.Text, pw, Me.txtServername.Text, USER_USERNAME)
ClassDatabase.Execute_non_Query(upd, False)
MYDB_ECM.ExecuteNonQuery(upd)
btnsave.Enabled = False
Else
MsgBox("The persionalized connection to windream could NOT be created." & vbNewLine & "Please check the User-Data!", MsgBoxStyle.Critical)
@ -223,7 +223,7 @@ Public Class frmRecOrgConfig_Basic
Select Case TabControl1.SelectedIndex
Case 1
Dim sql = String.Format("SELECT * FROM TBDD_MODULES WHERE UPPER(NAME) = UPPER('Record-Organizer')")
Dim KONFIG_DT As DataTable = DD_LIB_Standards.clsDatabase.Return_Datatable(sql, True)
Dim KONFIG_DT As DataTable = MYDB_ECM.GetDatatable(sql)
If KONFIG_DT.Rows.Count = 1 Then
txtBoxUpdatePath.Text = KONFIG_DT.Rows(0).Item("VERSION_UPATE_PATH")
End If
@ -232,7 +232,7 @@ Public Class frmRecOrgConfig_Basic
Private Sub btnSaveUpdatePath_Click(sender As Object, e As EventArgs) Handles btnSaveUpdatePath.Click
Dim upd = String.Format("UPDATE TBDD_MODULES SET VERSION_UPATE_PATH = '{0}' WHERE UPPER(NAME) = UPPER('Record-Organizer')", txtBoxUpdatePath.Text)
If DD_LIB_Standards.clsDatabase.Execute_non_Query(upd) = True Then
If MYDB_ECM.ExecuteNonQuery(upd) = True Then
lblSave.Visible = True
Else
lblSave.Visible = False

70
app/DD-Record-Organizer/frmRecordView.vb
View File

@ -56,21 +56,21 @@ Public Class frmRecordView
'Titel updaten
Me.Text &= " " + RECORD_ID.ToString()
Dim sql = "SELECT FORM_ID FROM TBPMO_RECORD WHERE GUID = " & RECORD_ID
ENTITY_ID = ClassDatabase.Execute_Scalar(sql, True)
ENTITY_ID = MYDB_ECM.GetScalarValue(sql)
ClassRightManagement.Check_Set_Rights(RECORD_ID, ENTITY_ID)
ClassProxy.Refresh_Workflow_Data()
'sql = String.Format("select * from TBPMO_DOCSEARCH_VARIABLE_CONTROLS WHERE ENTITY_ID = {0}", ENTITY_ID)
DT_RESULTLIST_OPTIONS = ClassHelper.FILTER_DATATABLE(CURRENT_VARIABLE_CONTROLS, "ENTITY_ID = " & ENTITY_ID, "") 'ClassDatabase.Return_Datatable(sql, True)
DT_RESULTLIST_OPTIONS = ClassHelper.FILTER_DATATABLE(CURRENT_VARIABLE_CONTROLS, "ENTITY_ID = " & ENTITY_ID, "") 'MYDB_ECM.GetDatatable(sql)
' sql = String.Format("select * from TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE VISIBLE = 1 AND ENTITY_ID = {0} AND LANGUAGE = '{1}' AND COLUMN_VIEW LIKE 'VALUE%' ORDER BY SEQUENCE", ENTITY_ID, USER_LANGUAGE)
Dim expression As String = 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") 'ClassDatabase.Return_Datatable(sql, True)
DT_RESULTLIST_VARIABLE_VALUE = ClassHelper.FILTER_DATATABLE(DT_DOCSEARCH_RESULTLIST_CONFIG, expression, "SEQUENCE") 'MYDB_ECM.GetDatatable(sql)
'Dim sql_ResultList = String.Format("select * from TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE ENTITY_ID = {0} AND LANGUAGE = '{1}' ORDER BY SEQUENCE", ENTITY_ID, USER_LANGUAGE)
expression = String.Format("ENTITY_ID = {0} AND LANGUAGE = '{1}'", ENTITY_ID, USER_LANGUAGE)
DT_WINDREAM_RESULTLIST = ClassHelper.FILTER_DATATABLE(CURRENT_RESULTLIST_CONFIG, expression, "SEQUENCE") 'ClassDatabase.Return_Datatable(sql_ResultList, True)
DT_WINDREAM_RESULTLIST = ClassHelper.FILTER_DATATABLE(DT_DOCSEARCH_RESULTLIST_CONFIG, expression, "SEQUENCE")
Dim sql_ResultList = String.Format("select * from TBPMO_DOCRESULT_DROPDOWN_ITEMS WHERE CONFIG_ID IN (SELECT GUID FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE ENTITY_ID = {0} AND TYPE_ID = 10 AND LANGUAGE = '{1}')", ENTITY_ID, USER_LANGUAGE)
DT_DOCRESULT_DROPDOWN_ITEMS = ClassDatabase.Return_Datatable(sql_ResultList, True)
DT_DOCRESULT_DROPDOWN_ITEMS = MYDB_ECM.GetDatatable(sql_ResultList)
TBPMO_WORKFLOW_TASK_HISTORYTableAdapter.Connection.ConnectionString = MyConnectionString
ClassWindowLocation.LoadFormLocationSize(Me, 0, CURRENT_SCREEN_ID, "frmRecordView")
@ -95,7 +95,7 @@ Public Class frmRecordView
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) = 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)
@ -117,7 +117,7 @@ Public Class frmRecordView
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) = 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)
@ -137,7 +137,7 @@ Public Class frmRecordView
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) = 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)
@ -258,9 +258,9 @@ Public Class frmRecordView
End If
Dim Sql = "SELECT GUID FROM TBPMO_FORM_VIEW WHERE SCREEN_ID = 1 AND FORM_ID = " & ENTITY_ID
FORMVIEW_ID = ClassDatabase.Execute_Scalar(Sql, True)
FORMVIEW_ID = MYDB_ECM.GetScalarValue(Sql)
Sql = "SELECT PARENT_ID FROM TBPMO_FORM WHERE GUID = " & ENTITY_ID
PARENT_ENTITY_ID = ClassDatabase.Execute_Scalar(Sql, True)
PARENT_ENTITY_ID = MYDB_ECM.GetScalarValue(Sql)
Catch ex As Exception
@ -283,7 +283,7 @@ Public Class frmRecordView
If WF_TASK_ID > 0 Then
lblTaskState.Text = "No active workflows"
lblTaskState.Visible = False
Dim sel = ClassDatabase.Execute_Scalar("SELECT USER_SELECT FROM TBPMO_WORKFLOW_TASK WHERE GUID = " & WF_TASK_ID, True)
Dim sel = MYDB_ECM.GetScalarValue("SELECT USER_SELECT FROM TBPMO_WORKFLOW_TASK WHERE GUID = " & WF_TASK_ID)
If Not IsNothing(sel) Then
Load_Selectable_Users(sel)
End If
@ -305,7 +305,7 @@ Public Class frmRecordView
Sub Check_end()
Try
Dim sql As String = String.Format("SELECT FINISHED FROM TBPMO_WORKFLOW_TASK WHERE GUID = {0}", WF_TASK_ID)
Dim finished = ClassDatabase.Execute_Scalar(sql, True)
Dim finished = MYDB_ECM.GetScalarValue(sql)
If Not IsNothing(finished) Then
If CBool(finished) = True Then
lblTaskState.Text = "Workflow-Ende erreicht!"
@ -331,9 +331,9 @@ Public Class frmRecordView
Sub Load_States()
Try
Dim sql As String = String.Format("SELECT STATE_ID, dbo.FNPMO_GETOBJECTCAPTION('{0}', 'WF_STATE_TITLE' + CONVERT(VARCHAR(5), STATE_ID), 1) AS STATE_DESC FROM TBPMO_WORKFLOW_ENTITY_STATE WHERE " &
"INACTIVE = 0 AND ENTITY_ID = {1} AND STATE_ID NOT IN (" & _
"INACTIVE = 0 AND ENTITY_ID = {1} AND STATE_ID NOT IN (" &
"SELECT STATE_ID FROM TBPMO_WORKFLOW_TASK_HISTORY WHERE WF_TASK_ID = {2})", USER_LANGUAGE, ENTITY_ID, WF_TASK_ID)
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql, True)
Dim DT As DataTable = MYDB_ECM.GetDatatable(sql, True)
If DT.Rows.Count > 0 Then
STATE_IDComboBox.Enabled = True
STATE_IDComboBox.DataSource = DT
@ -356,7 +356,7 @@ Public Class frmRecordView
Sub Load_Selectable_Users(sel As String)
Try
DD_ECMAdmin.TBAD_Users.Clear()
Dim DT As DataTable = ClassDatabase.Return_Datatable(sel, True)
Dim DT As DataTable = MYDB_ECM.GetDatatable(sel)
For Each userrow As DataRow In DT.Rows
Dim newUserRow As DD_ECMAdmin.TBAD_UsersRow
newUserRow = DD_ECMAdmin.TBAD_Users.NewTBAD_UsersRow
@ -392,7 +392,7 @@ Public Class frmRecordView
End Try
Dim sql = String.Format("SELECT dbo.FNPMO_GETOBJECTCAPTION('{0}', 'WF_STATE_TITLE' + CONVERT(VARCHAR(5), GUID), 1) AS STATE_DESC FROM TBPMO_WORKFLOW_TASK_STATE WHERE GUID = {1}", USER_LANGUAGE, STATE_IDComboBox.SelectedValue)
Dim State_DESC = ClassDatabase.Execute_Scalar(sql, True)
Dim State_DESC = MYDB_ECM.GetScalarValue(sql)
Dim Comment
If COMMENTTextBox.Text <> "" Then
Comment = String.Format(COMMENTTextBox.Text & vbNewLine & "" & Now.ToString & ": User {0} changed the state to: {1}", Environment.UserName, State_DESC)
@ -402,9 +402,9 @@ Public Class frmRecordView
If STATE_id > 0 Then
ins = String.Format("INSERT INTO TBPMO_WORKFLOW_TASK_HISTORY (WF_TASK_ID,STATE_ID,STATE_DESC,COMMENT,ADDED_WHO) VALUES" &
"({0},{1},'{2}','{3}','{4}')", WF_TASK_ID, STATE_id, State_DESC, Comment, USER_USERNAME)
If ClassDatabase.Execute_non_Query(ins) Then
If MYDB_ECM.ExecuteNonQuery(ins) Then
If clsDatabase.DB_PROXY_INITIALIZED = True Then
ClassDatabase.Execute_non_Query("EXEC PRPROXY_TBPMO_WORKFLOW_TASK_HISTORY_INS " & WF_TASK_ID, True)
MYDB_ECM.ExecuteNonQuery("EXEC PRPROXY_TBPMO_WORKFLOW_TASK_HISTORY_INS " & WF_TASK_ID)
End If
End If
@ -416,9 +416,9 @@ Public Class frmRecordView
upd = String.Format("UPDATE TBPMO_WORKFLOW_TASK SET COMMENT = '{0}', DUE_DATE = '{1}',CHANGED_WHO = '{2}', TASK_DATE = '{3}' " &
"WHERE GUID = {4}", COMMENTTextBox.Text, DUE_DATEDateTimePicker.Value, USER_USERNAME, DateTimePickerTASK_DATE.Value, WF_TASK_ID)
End If
If ClassDatabase.Execute_non_Query(upd) Then
If MYDB_ECM.ExecuteNonQuery(upd) Then
If clsDatabase.DB_PROXY_INITIALIZED = True Then
ClassDatabase.Execute_non_Query("EXEC PRPROXY_TBPMO_WORKFLOW_TASK_UPDATE " & WF_TASK_ID, True)
MYDB_ECM.ExecuteNonQuery("EXEC PRPROXY_TBPMO_WORKFLOW_TASK_UPDATE " & WF_TASK_ID)
End If
End If
@ -540,7 +540,7 @@ Public Class frmRecordView
Sub Drag_Drop(e As DragEventArgs)
If FORMVIEW_ID <> 0 Then
Dim sql = "select count(*) from VWPMO_DOKUMENTTYPES where FORMVIEW_ID = " & FORMVIEW_ID
If ClassDatabase.Execute_Scalar(sql, True) = 0 Then
If MYDB_ECM.GetScalarValue(sql) = 0 Then
MsgBox("No documenttypes for this entity configured! Indexing is not possible!" & vbNewLine & "Please check the configuration!", MsgBoxStyle.Exclamation)
Exit Sub
End If
@ -552,15 +552,7 @@ Public Class frmRecordView
Console.WriteLine("DragDrop-Wert: " & Wert)
If Wert.Contains("SCAN") Then
Exit Sub
'Dim split() = Wert.Split(";")
'If IsNumeric(split(1)) Then
' CURRENT_FILEID = split(1)
' CURRENT_PARENT_ENTITY_ID = ClassDatabase.Execute_Scalar("SELECT PARENT_ID FROM TBPMO_FORM WHERE GUID = " & ENTITY_ID)
' CURRENT_RECORD_ID = JUMP_RECORD_ID
' CURRENT_FORMVIEW_ID = FORMVIEW_ID
' frmWD_Index_Dokart.ShowDialog()
' RUN_WDSEARCH_GRID()
'End If
ElseIf (e.Data.GetDataPresent("FileGroupDescriptor")) AndAlso (e.Data.GetDataPresent("FileContents")) Then
CURRENT_RECORD_ID = RECORD_ID
If ClassDragDrop.Drop_File(e) = True Then
@ -590,7 +582,7 @@ Public Class frmRecordView
LOGGER.Info("Check_Dropped_Files:" & Str.ToString)
Dim CURRENT_WORKFILE = Str.Substring(Str.LastIndexOf("@") + 1)
Dim insert = String.Format("INSERT INTO TBPMO_FILES_USER(FILENAME2WORK, USER_WORK, HANDLE_TYPE) VALUES('{0}','{1}','{2}')", CURRENT_WORKFILE, USER_USERNAME, DropType)
If ClassDatabase.Execute_non_Query(insert, True) = False Then
If MYDB_ECM.ExecuteNonQuery(insert, True) = False Then
Exit Sub
End If
End If
@ -598,10 +590,10 @@ Public Class frmRecordView
Next
Dim sql = "select count(*) from VWPMO_DOKUMENTTYPES where FORMVIEW_ID = " & FORMVIEW_ID
If ClassDatabase.Execute_Scalar(sql, True) >= 1 Then
If MYDB_ECM.GetScalarValue(sql) >= 1 Then
ClassHelper.Create_USER_FILE_TABLE()
If Not IsNothing(CURRENT_TBPMO_FILES_USER) Then
If CURRENT_TBPMO_FILES_USER.Rows.Count > 0 Then
For Each Filerow As DataRow In CURRENT_TBPMO_FILES_USER.Rows
'Dim datei = Str.ToString.Replace("@DROPFROMFSYSTEM@", "")
@ -633,10 +625,10 @@ Public Class frmRecordView
For Each row As DataRow In DD_ECMAdmin.TBAD_Users.Rows
If row.Item(0) = CBool(True) Then
Dim sql = "select count(*) from TBPMO_WORKFLOW_TASK_USER Where USER_ID = " & row.Item(5) & " AND WF_TASK_ID = " & WF_TASK_ID
If ClassDatabase.Execute_Scalar(sql, True) = 0 Then
If MYDB_ECM.GetScalarValue(sql) = 0 Then
'##
Dim Ins = "Insert INTO TBPMO_WORKFLOW_TASK_USER (WF_TASK_ID,[USER_ID],ADDED_WHO) VALUES (" & WF_TASK_ID & ", " & row.Item(5) & ",'" & USER_USERNAME & "')"
If ClassDatabase.Execute_non_Query(Ins, False) = False Then
If MYDB_ECM.ExecuteNonQuery(Ins) = False Then
MsgBox(String.Format("Error in Adding User {0} to Task", row.Item(1)), MsgBoxStyle.Critical)
Else
ClassProxy.Refresh_Workflow_Data()
@ -654,7 +646,7 @@ Public Class frmRecordView
Try
'Dim sql = "SELECT * FROM VWPMO_WF_USER WHERE LOWER(USERNAME) = '" & USER_USERNAME & "' AND WF_TASK_ID = " & Me.GUIDTextBox.Text
Dim sql = "SELECT * FROM VWPMO_WF_USER WHERE WF_TASK_ID = " & WF_TASK_ID
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql, True)
Dim DT As DataTable = MYDB_ECM.GetDatatable(sql)
Dim count As Integer = 0
If DT Is Nothing = False Then
ListViewExclusiveUser.Items.Clear()
@ -694,7 +686,7 @@ Public Class frmRecordView
Sub Get_Description()
Try
Dim sql = String.Format("SELECT COMMENT FROM TBPMO_WORKFLOW_ENTITY_STATE WHERE WF_ID = {0} AND STATE_ID = {1} AND ENTITY_ID = {2}", WF_IDTextBox.Text, STATE_IDComboBox.SelectedValue, ENTITY_ID)
Dim result = ClassDatabase.Execute_Scalar(sql, True)
Dim result = MYDB_ECM.GetScalarValue(sql)
txtDescriptionStep.Text = result
Catch ex As Exception
@ -745,9 +737,9 @@ Public Class frmRecordView
Try
If (Me.ListViewExclusiveUser.SelectedItems.Count > 0) Then
Dim sql = "DELETE FROM TBPMO_WORKFLOW_TASK_USER WHERE GUID = " & Me.ListViewExclusiveUser.SelectedItems.Item(0).Text
ClassDatabase.Execute_non_Query(sql, False)
MYDB_ECM.ExecuteNonQuery(SQL)
If clsDatabase.DB_PROXY_INITIALIZED Then
ClassDatabase.Execute_non_Query(sql, False)
MYDB_ECM.ExecuteNonQuery(SQL)
End If
Load_TASK_USER()
End If

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

@ -167,7 +167,7 @@
Case 1
Dim sql = String.Format("select T1.FORM_ID, [dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), T1.GUID), 1) AS 'FORM_TITLE' FROM TBPMO_FORM_VIEW T1 " & _
"WHERE T1.SCREEN_ID = 1 ORDER BY T1.FORM_TITLE", USER_LANGUAGE)
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql, True)
Dim DT As DataTable = MYDB_ECM.GetDatatable(sql)
If Not IsNothing(DT) Then
cmbEntity.DataSource = DT
cmbEntity.DisplayMember = DT.Columns(1).ColumnName
@ -180,7 +180,7 @@
Sub Refresh_Free_Users()
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 NOT IN (SELECT USER_ID FROM TBPMO_RIGHT_USER WHERE ENTITY_ID = {cmbEntity.SelectedValue}) ORDER BY USERNAME"
Dim DT_USER = ClassDatabase.Return_Datatable(Sql)
Dim DT_USER = MYDB_ECM.GetDatatable(sql)
Try
DD_ECMAdmin.TBAD_Users.Clear()
@ -237,7 +237,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID NOT IN (SELECT USER_ID FROM TBPMO_RIGH
For Each row As DataRow In DD_ECMAdmin.TBAD_Users.Rows
If row.Item(0) = CBool(True) Then
Dim insert = String.Format("INSERT INTO TBPMO_RIGHT_USER (USER_ID,ENTITY_ID) VALUES ({0},{1})", row.Item(5), cmbEntity.SelectedValue)
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
@ -263,7 +263,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID NOT IN (SELECT USER_ID FROM TBPMO_RIGH
Exit Sub
End Try
Dim del = String.Format("DELETE FROM TBPMO_RIGHT_USER WHERE GUID = {0}", ID)
If ClassDatabase.Execute_non_Query(del) = True Then
If MYDB_ECM.ExecuteNonQuery(del) = True Then
Refresh_Rights_Users(cmbEntity.SelectedValue)
Refresh_Free_Users()
End If
@ -290,7 +290,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID NOT IN (SELECT USER_ID FROM TBPMO_RIGH
int_bool = 0
End If
Dim upd = String.Format("UPDATE TBPMO_RIGHT_USER SET {0} = {1} WHERE GUID = {2}", column, int_bool, ID)
If ClassDatabase.Execute_non_Query(upd) = False Then
If MYDB_ECM.ExecuteNonQuery(upd) = False Then
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Could not Update Right-details!")
statelbl.Text = ""
Else

47
app/DD-Record-Organizer/frmSAP_FuBa.vb
View File

@ -151,10 +151,10 @@ Public Class frmSAP_FuBa
End If
'######
Dim i = 0
Dim tablename = "[TBPMO_SAP_" & TempTableNameTextBox.Text & "]"
ClassDatabase.Execute_non_Query_withConn("DROP TABLE " & tablename, 1)
Dim oTablename = "[TBPMO_SAP_" & TempTableNameTextBox.Text & "]"
MYDB_ECM.ExecuteNonQuery("DROP TABLE " & oTablename)
Dim createtablesql = "CREATE TABLE " & tablename & " ( "
Dim createtablesql = "CREATE TABLE " & oTablename & " ( "
For Each col As System.Data.DataColumn In SAPResulttable.Columns
If i = 0 Then
createtablesql += "[" & col.ColumnName & "] [varchar](250)"
@ -163,49 +163,30 @@ Public Class frmSAP_FuBa
End If
i += 1
Next
createtablesql += ", [ADDED_WHEN] DATETIME NOT NULL DEFAULT GETDATE()"
createtablesql += ")"
''Die Tabelle anlegen
LOGGER.Debug("Create Table: " & createtablesql)
If ClassDatabase.Execute_non_Query_withConn(createtablesql, 1) = False Then
If MYDB_ECM.ExecuteNonQuery(createtablesql) = False Then
MsgBox("Error in creating TempTable: Check log", MsgBoxStyle.Critical)
Exit Sub
End If
LOGGER.Debug("table has been created")
Dim alter = String.Format("ALTER TABLE {0} ADD GUID INTEGER NOT NULL IDENTITY(1,1)", tablename)
ClassDatabase.Execute_non_Query_withConn(alter, 1)
'Dim del = "delete from " & tablename
'ClassDatabase.Execute_non_Query_withConn(del, 1)
'If ClassDatabase.Execute_non_Query_withConn(createtablesql, 1) = False Then
' Me.Cursor = Cursors.Default
' MsgBox("Error while creating the temporary table. Please check the logfile!", MsgBoxStyle.Critical)
' Exit Sub
'End If
'Dim ins = "Insert into " & tablename & "("
'Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM " & tablename)
'If Not IsNothing(DT) Then
' Dim anz As Integer = 0
' For Each col As DataColumn In DT.Columns
' If anz = 0 Then
' ins = ins & col.ColumnName
' Else
' ins = ins & ", " & col.ColumnName
' End If
' anz += 1
' Next
' ins = ins & ") VALUES ("
'End If
Dim alter = String.Format("ALTER TABLE {0} ADD GUID INTEGER NOT NULL IDENTITY(1,1)", oTablename)
MYDB_ECM.ExecuteNonQuery(alter)
Try
Dim OwnerCS As String
OwnerCS = ClassDatabase.GetConnectionString(1)
'Dim OwnerCS As String
'OwnerCS = ClassDatabase.GetConnectionString(1)
Dim SQLconnect As New SqlClient.SqlConnection
SQLconnect.ConnectionString = OwnerCS
SQLconnect.ConnectionString = MYDB_ECM.CurrentConnectionString
SQLconnect.Open()
' Note that the column positions in the source DataTable
' match the column positions in the destination table,
' so there is no need to map columns.
Using bulkCopy As SqlBulkCopy = New SqlBulkCopy(SQLconnect)
bulkCopy.DestinationTableName = tablename
bulkCopy.DestinationTableName = oTablename
Try
' Write from the source to the destination.
bulkCopy.WriteToServer(SAPResulttable)
@ -215,8 +196,8 @@ Public Class frmSAP_FuBa
End Using
SQLconnect.Close()
Me.Cursor = Cursors.Default
LOGGER.Debug("Create table from SAP FuBa was successfull " & SAPResulttable.Rows.Count & " Rows were inserted to table '" & tablename & "'!")
MsgBox("Create table was successfull! " & vbNewLine & SAPResulttable.Rows.Count & " Rows were inserted to table '" & tablename & "'!", MsgBoxStyle.Information)
LOGGER.Debug("Create table from SAP FuBa was successfull " & SAPResulttable.Rows.Count & " Rows were inserted to table '" & oTablename & "'!")
MsgBox("Create table was successfull! " & vbNewLine & SAPResulttable.Rows.Count & " Rows were inserted to table '" & oTablename & "'!", MsgBoxStyle.Information)
Catch ex As Exception
MsgBox("Unexpected Error in SQL bulkCopy: " & ex.Message, MsgBoxStyle.Critical)
Me.Cursor = Cursors.Default

425
app/DD-Record-Organizer/frmSQLEditor.Designer.vb generated
View File

@ -1,425 +0,0 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmSQLEditor
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()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmSQLEditor))
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.Button1 = New System.Windows.Forms.Button()
Me.txtValue = New System.Windows.Forms.TextBox()
Me.DD_DMSDataSet = New DD_Record_Organizer.DD_DMSDataSet()
Me.TBDD_CONNECTIONBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.TBDD_CONNECTIONTableAdapter = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBDD_CONNECTIONTableAdapter()
Me.TableAdapterManager = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager()
Me.cmbConnection = New System.Windows.Forms.ComboBox()
Me.Button2 = New System.Windows.Forms.Button()
Me.btnTestSQL = New System.Windows.Forms.Button()
Me.cmbPlaceholder = New System.Windows.Forms.ComboBox()
Me.btnAddPlaceholder = New System.Windows.Forms.Button()
Me.btnRefreshConnections = New System.Windows.Forms.Button()
Me.dgvPlaceholders = New System.Windows.Forms.DataGridView()
Me.dgvResult = New System.Windows.Forms.DataGridView()
Me.Label5 = New System.Windows.Forms.Label()
Me.Label6 = New System.Windows.Forms.Label()
Me.cmbSelectColumns = New System.Windows.Forms.ComboBox()
Me.Label7 = New System.Windows.Forms.Label()
Me.cmbFromTables = New System.Windows.Forms.ComboBox()
Me.Label8 = New System.Windows.Forms.Label()
Me.radioTable = New System.Windows.Forms.RadioButton()
Me.radioView = New System.Windows.Forms.RadioButton()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.cmbWhereColumns = New System.Windows.Forms.ComboBox()
Me.cmbWhereOperator = New System.Windows.Forms.ComboBox()
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
Me.GroupBox3 = New System.Windows.Forms.GroupBox()
Me.GroupBox4 = New System.Windows.Forms.GroupBox()
Me.txtCondition = New System.Windows.Forms.TextBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.colPlaceholder = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.colReplace = New System.Windows.Forms.DataGridViewTextBoxColumn()
CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBDD_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.dgvPlaceholders, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.dgvResult, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox1.SuspendLayout()
Me.GroupBox2.SuspendLayout()
Me.GroupBox3.SuspendLayout()
Me.GroupBox4.SuspendLayout()
Me.SuspendLayout()
'
'Button1
'
resources.ApplyResources(Me.Button1, "Button1")
Me.Button1.DialogResult = System.Windows.Forms.DialogResult.OK
Me.Button1.Image = Global.DD_Record_Organizer.My.Resources.Resources.save_16xLG
Me.Button1.Name = "Button1"
Me.Button1.UseVisualStyleBackColor = True
'
'txtValue
'
Me.txtValue.AcceptsTab = True
resources.ApplyResources(Me.txtValue, "txtValue")
Me.txtValue.Name = "txtValue"
'
'DD_DMSDataSet
'
Me.DD_DMSDataSet.DataSetName = "DD_DMSDataSet"
Me.DD_DMSDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
'
'TBDD_CONNECTIONBindingSource
'
Me.TBDD_CONNECTIONBindingSource.DataMember = "TBDD_CONNECTION"
Me.TBDD_CONNECTIONBindingSource.DataSource = Me.DD_DMSDataSet
'
'TBDD_CONNECTIONTableAdapter
'
Me.TBDD_CONNECTIONTableAdapter.ClearBeforeFill = True
'
'TableAdapterManager
'
Me.TableAdapterManager.BackupDataSetBeforeUpdate = False
Me.TableAdapterManager.TBDD_CONNECTIONTableAdapter = Me.TBDD_CONNECTIONTableAdapter
Me.TableAdapterManager.TBDD_DOKUMENTARTTableAdapter = Nothing
Me.TableAdapterManager.TBDD_EINGANGSARTENTableAdapter = Nothing
Me.TableAdapterManager.TBDD_EMAIL_ACCOUNTTableAdapter = Nothing
Me.TableAdapterManager.TBDD_GROUPS_USERTableAdapter = Nothing
Me.TableAdapterManager.TBDD_INDEX_AUTOMTableAdapter = Nothing
Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Nothing
Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FOLLOW_UP_EMAILTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FOLLUPEMAIL_USERTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTORTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FORM_TYPETableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FORM_VIEWTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FORMTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_KONFIGURATIONTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_LANGUAGE_OBJECTTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_RECORD_LOG_CONFIGTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_RECORDTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_TEMPLATE_ENTITYTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_TEMPLATE_PATTERNTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_TEMPLATETableAdapter = Nothing
Me.TableAdapterManager.TBPMO_WD_FVIEW_DT_INDEXTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_WD_OBJECTTYPETableAdapter = Nothing
Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_STATETableAdapter = Nothing
Me.TableAdapterManager.TBPMO_WORKFLOWTableAdapter = Nothing
Me.TableAdapterManager.UpdateOrder = DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
'
'cmbConnection
'
resources.ApplyResources(Me.cmbConnection, "cmbConnection")
Me.cmbConnection.DataSource = Me.TBDD_CONNECTIONBindingSource
Me.cmbConnection.DisplayMember = "BEZEICHNUNG"
Me.cmbConnection.FormattingEnabled = True
Me.cmbConnection.Name = "cmbConnection"
Me.cmbConnection.ValueMember = "GUID"
'
'Button2
'
resources.ApplyResources(Me.Button2, "Button2")
Me.Button2.Image = Global.DD_Record_Organizer.My.Resources.Resources.database_connect
Me.Button2.Name = "Button2"
Me.Button2.UseVisualStyleBackColor = True
'
'btnTestSQL
'
resources.ApplyResources(Me.btnTestSQL, "btnTestSQL")
Me.btnTestSQL.Image = Global.DD_Record_Organizer.My.Resources.Resources.Go
Me.btnTestSQL.Name = "btnTestSQL"
Me.btnTestSQL.UseVisualStyleBackColor = True
'
'cmbPlaceholder
'
resources.ApplyResources(Me.cmbPlaceholder, "cmbPlaceholder")
Me.cmbPlaceholder.FormattingEnabled = True
Me.cmbPlaceholder.Items.AddRange(New Object() {resources.GetString("cmbPlaceholder.Items"), resources.GetString("cmbPlaceholder.Items1"), resources.GetString("cmbPlaceholder.Items2")})
Me.cmbPlaceholder.Name = "cmbPlaceholder"
'
'btnAddPlaceholder
'
resources.ApplyResources(Me.btnAddPlaceholder, "btnAddPlaceholder")
Me.btnAddPlaceholder.Image = Global.DD_Record_Organizer.My.Resources.Resources.action_add_16xLG
Me.btnAddPlaceholder.Name = "btnAddPlaceholder"
Me.btnAddPlaceholder.UseVisualStyleBackColor = True
'
'btnRefreshConnections
'
resources.ApplyResources(Me.btnRefreshConnections, "btnRefreshConnections")
Me.btnRefreshConnections.Image = Global.DD_Record_Organizer.My.Resources.Resources.refresh_16xLG
Me.btnRefreshConnections.Name = "btnRefreshConnections"
Me.btnRefreshConnections.UseVisualStyleBackColor = True
'
'dgvPlaceholders
'
resources.ApplyResources(Me.dgvPlaceholders, "dgvPlaceholders")
Me.dgvPlaceholders.AllowUserToAddRows = False
Me.dgvPlaceholders.AllowUserToDeleteRows = False
DataGridViewCellStyle1.BackColor = System.Drawing.Color.Cyan
Me.dgvPlaceholders.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle2.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvPlaceholders.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle2
Me.dgvPlaceholders.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvPlaceholders.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.colPlaceholder, Me.colReplace})
DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle3.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvPlaceholders.DefaultCellStyle = DataGridViewCellStyle3
Me.dgvPlaceholders.Name = "dgvPlaceholders"
'
'dgvResult
'
resources.ApplyResources(Me.dgvResult, "dgvResult")
Me.dgvResult.AllowUserToAddRows = False
Me.dgvResult.AllowUserToDeleteRows = False
DataGridViewCellStyle4.BackColor = System.Drawing.Color.Cyan
Me.dgvResult.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4
DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle5.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvResult.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle5
Me.dgvResult.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle6.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle6.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle6.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvResult.DefaultCellStyle = DataGridViewCellStyle6
Me.dgvResult.Name = "dgvResult"
Me.dgvResult.ReadOnly = True
'
'Label5
'
resources.ApplyResources(Me.Label5, "Label5")
Me.Label5.Name = "Label5"
'
'Label6
'
resources.ApplyResources(Me.Label6, "Label6")
Me.Label6.Name = "Label6"
'
'cmbSelectColumns
'
resources.ApplyResources(Me.cmbSelectColumns, "cmbSelectColumns")
Me.cmbSelectColumns.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmbSelectColumns.FormattingEnabled = True
Me.cmbSelectColumns.Name = "cmbSelectColumns"
'
'Label7
'
resources.ApplyResources(Me.Label7, "Label7")
Me.Label7.Name = "Label7"
'
'cmbFromTables
'
resources.ApplyResources(Me.cmbFromTables, "cmbFromTables")
Me.cmbFromTables.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmbFromTables.FormattingEnabled = True
Me.cmbFromTables.Name = "cmbFromTables"
'
'Label8
'
resources.ApplyResources(Me.Label8, "Label8")
Me.Label8.Name = "Label8"
'
'radioTable
'
resources.ApplyResources(Me.radioTable, "radioTable")
Me.radioTable.Name = "radioTable"
Me.radioTable.TabStop = True
Me.radioTable.UseVisualStyleBackColor = True
'
'radioView
'
resources.ApplyResources(Me.radioView, "radioView")
Me.radioView.Name = "radioView"
Me.radioView.TabStop = True
Me.radioView.UseVisualStyleBackColor = True
'
'GroupBox1
'
resources.ApplyResources(Me.GroupBox1, "GroupBox1")
Me.GroupBox1.Controls.Add(Me.radioTable)
Me.GroupBox1.Controls.Add(Me.radioView)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.TabStop = False
'
'cmbWhereColumns
'
resources.ApplyResources(Me.cmbWhereColumns, "cmbWhereColumns")
Me.cmbWhereColumns.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmbWhereColumns.FormattingEnabled = True
Me.cmbWhereColumns.Name = "cmbWhereColumns"
'
'cmbWhereOperator
'
resources.ApplyResources(Me.cmbWhereOperator, "cmbWhereOperator")
Me.cmbWhereOperator.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmbWhereOperator.FormattingEnabled = True
Me.cmbWhereOperator.Items.AddRange(New Object() {resources.GetString("cmbWhereOperator.Items"), resources.GetString("cmbWhereOperator.Items1"), resources.GetString("cmbWhereOperator.Items2"), resources.GetString("cmbWhereOperator.Items3")})
Me.cmbWhereOperator.Name = "cmbWhereOperator"
'
'GroupBox2
'
resources.ApplyResources(Me.GroupBox2, "GroupBox2")
Me.GroupBox2.Controls.Add(Me.cmbConnection)
Me.GroupBox2.Controls.Add(Me.Button2)
Me.GroupBox2.Controls.Add(Me.btnRefreshConnections)
Me.GroupBox2.Name = "GroupBox2"
Me.GroupBox2.TabStop = False
'
'GroupBox3
'
resources.ApplyResources(Me.GroupBox3, "GroupBox3")
Me.GroupBox3.Controls.Add(Me.cmbPlaceholder)
Me.GroupBox3.Controls.Add(Me.btnAddPlaceholder)
Me.GroupBox3.Name = "GroupBox3"
Me.GroupBox3.TabStop = False
'
'GroupBox4
'
resources.ApplyResources(Me.GroupBox4, "GroupBox4")
Me.GroupBox4.Controls.Add(Me.txtCondition)
Me.GroupBox4.Controls.Add(Me.Label6)
Me.GroupBox4.Controls.Add(Me.cmbSelectColumns)
Me.GroupBox4.Controls.Add(Me.Label7)
Me.GroupBox4.Controls.Add(Me.cmbWhereOperator)
Me.GroupBox4.Controls.Add(Me.cmbFromTables)
Me.GroupBox4.Controls.Add(Me.cmbWhereColumns)
Me.GroupBox4.Controls.Add(Me.Label8)
Me.GroupBox4.Name = "GroupBox4"
Me.GroupBox4.TabStop = False
'
'txtCondition
'
resources.ApplyResources(Me.txtCondition, "txtCondition")
Me.txtCondition.Name = "txtCondition"
'
'Label1
'
resources.ApplyResources(Me.Label1, "Label1")
Me.Label1.Name = "Label1"
'
'Label2
'
resources.ApplyResources(Me.Label2, "Label2")
Me.Label2.Name = "Label2"
'
'colPlaceholder
'
resources.ApplyResources(Me.colPlaceholder, "colPlaceholder")
Me.colPlaceholder.Name = "colPlaceholder"
Me.colPlaceholder.ReadOnly = True
'
'colReplace
'
resources.ApplyResources(Me.colReplace, "colReplace")
Me.colReplace.Name = "colReplace"
'
'frmSQLEditor
'
resources.ApplyResources(Me, "$this")
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.GroupBox4)
Me.Controls.Add(Me.GroupBox3)
Me.Controls.Add(Me.GroupBox2)
Me.Controls.Add(Me.GroupBox1)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.dgvResult)
Me.Controls.Add(Me.dgvPlaceholders)
Me.Controls.Add(Me.btnTestSQL)
Me.Controls.Add(Me.txtValue)
Me.Controls.Add(Me.Button1)
Me.Name = "frmSQLEditor"
CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBDD_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.dgvPlaceholders, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.dgvResult, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
Me.GroupBox2.ResumeLayout(False)
Me.GroupBox3.ResumeLayout(False)
Me.GroupBox4.ResumeLayout(False)
Me.GroupBox4.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents txtValue As System.Windows.Forms.TextBox
Friend WithEvents DD_DMSDataSet As DD_Record_Organizer.DD_DMSDataSet
Friend WithEvents TBDD_CONNECTIONBindingSource As System.Windows.Forms.BindingSource
Friend WithEvents TBDD_CONNECTIONTableAdapter As DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBDD_CONNECTIONTableAdapter
Friend WithEvents TableAdapterManager As DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager
Friend WithEvents cmbConnection As System.Windows.Forms.ComboBox
Friend WithEvents Button2 As System.Windows.Forms.Button
Friend WithEvents btnTestSQL As System.Windows.Forms.Button
Friend WithEvents cmbPlaceholder As System.Windows.Forms.ComboBox
Friend WithEvents btnAddPlaceholder As System.Windows.Forms.Button
Friend WithEvents btnRefreshConnections As System.Windows.Forms.Button
Friend WithEvents dgvPlaceholders As System.Windows.Forms.DataGridView
Friend WithEvents dgvResult As System.Windows.Forms.DataGridView
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents cmbSelectColumns As System.Windows.Forms.ComboBox
Friend WithEvents Label7 As System.Windows.Forms.Label
Friend WithEvents cmbFromTables As System.Windows.Forms.ComboBox
Friend WithEvents Label8 As System.Windows.Forms.Label
Friend WithEvents radioTable As System.Windows.Forms.RadioButton
Friend WithEvents radioView As System.Windows.Forms.RadioButton
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents cmbWhereColumns As System.Windows.Forms.ComboBox
Friend WithEvents cmbWhereOperator As System.Windows.Forms.ComboBox
Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents txtCondition As System.Windows.Forms.TextBox
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents colPlaceholder As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents colReplace As System.Windows.Forms.DataGridViewTextBoxColumn
End Class

618
app/DD-Record-Organizer/frmSQLEditor.en-US.resx
View File

@ -1,618 +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>
<data name="Button1.Text" xml:space="preserve">
<value>Save</value>
</data>
<data name="btnTestSQL.Text" xml:space="preserve">
<value>Test SQL-Command</value>
</data>
<data name="btnAddPlaceholder.Text" xml:space="preserve">
<value>Insert placeholder</value>
</data>
<data name="colPlaceholder.HeaderText" xml:space="preserve">
<value>Placeholder</value>
</data>
<data name="colReplace.HeaderText" xml:space="preserve">
<value>Substitution</value>
</data>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="Label5.Size" type="System.Drawing.Size, System.Drawing">
<value>42, 15</value>
</data>
<data name="Label5.Text" xml:space="preserve">
<value>Result:</value>
</data>
<data name="radioTable.Size" type="System.Drawing.Size, System.Drawing">
<value>59, 19</value>
</data>
<data name="radioTable.Text" xml:space="preserve">
<value>Tables</value>
</data>
<data name="GroupBox1.Text" xml:space="preserve">
<value>Select Tabletype</value>
</data>
<data name="GroupBox3.Text" xml:space="preserve">
<value>Placeholders</value>
</data>
<data name="GroupBox4.Text" xml:space="preserve">
<value>Generate SQL-Command</value>
</data>
<data name="Label1.Size" type="System.Drawing.Size, System.Drawing">
<value>144, 15</value>
</data>
<data name="Label1.Text" xml:space="preserve">
<value>Placeholder Substitutions:</value>
</data>
<data name="Label2.Size" type="System.Drawing.Size, System.Drawing">
<value>93, 15</value>
</data>
<data name="Label2.Text" xml:space="preserve">
<value>SQL-Command:</value>
</data>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAgAEBAAAAEACABoBQAAhgAAABAQAAABACAAaAQAAO4FAAAYGAAAAQAIAMgGAABWCgAAGBgAAAEA
IACICQAAHhEAACAgAAABAAgAqAgAAKYaAAAgIAAAAQAgAKgQAABOIwAAMDAAAAEACACoDgAA9jMAADAw
AAABACAAqCUAAJ5CAAAoAAAAEAAAACAAAAABAAgAAAAAAEABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP//
/wD3kQAAM9RuAKrGogAuhjIA/8yZAGytbADb0tIA/609AGDplADbsrIAN61FAIPNlQD/4OAAYcd9AFOm
VABDkUUASsFrACe/VgD/zMwA7e3tAE3phACZwJQAO8NbAOvc3ADbwMAAss6yAP/x8QCR0p8A64UAAC6i
PwA4jDsA/9bWAODJyQA/pEoA29vbAEbKcgDs5eUAbbV0AP+ZAAD/+PgA/+rqANu5uQAvjzQAT+2LAP/l
5QD/29sA/9HRANvFxQCmxp0A4M3NACuKMAA10GsA287OADOQNwDbyckA7OrqAOzf3wD/+/sA//T0AP/u
7gDs4uIA29jYANu8vAAovFUA7ejoAC2IMAAzjjUA/+fnAP/Z2QD/1NQA4MfHANu0tADs7OwA7evrAO3m
5gBCkUQA//DwANu/vwDburoA27i4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAACgoKCgoKCgoKCgoKAAAACgxLjEcOkVPLytHCxQoAAAoODg+RDcXGU9AUUkL
KAAAKDZOTCwKGBBOIkZRMCgAACgICEI0JQMWDDJIK0koAAAoPztLQxITNS0fPVBHKAAAKCQkFQUND0Ej
BCJAUSgAACgkARUgHScHPDMOQCEoAAAoJCRKTREbJjgxGkBRKAAAKCQBJAE5KTYqMQ5AISgAACgJKCgo
KCgoKCgoKCgoAAAoBh4eHh4eHh4eHh4CKAAAKAYGBgYGBgYGBgYGCSgAAAAoKCgoKCgoKCgoKCgAAAAA
AAAAAAAAAAAAAAAAAAD//wAAwAMAAIABAACAAQAAgAEAAIABAACAAQAAgAEAAIABAACAAQAAgAEAAIAB
AACAAQAAgAEAAMADAAD//wAAKAAAABAAAAAgAAAAAQAgAAAAAABABAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAA/5kAR/+ZAP//mQD//5kA//+ZAP//mQD//5kA//+ZAP//mQD//5kA//+ZAP//mQD//5kA//+Z
AEcAAAAAAAAAAP+ZAP/bxcX//+Xl/9vFxf//8fH/7N/f///n5//bv7///9vb/9u5uf//1NT/27Ky///M
zP//mQD/AAAAAAAAAAD/mQD/28nJ/9vJyf/s4uL/M441/zOQN/+ZwJT/69zc/9u/v//bvLz/27i4/9u0
tP/bsrL//5kA/wAAAAAAAAAA/5kA/9vOzv//8PD/7ebm/y+PNP9g6ZT/O8Nb/1OmVP//8PD/4MnJ///Z
2f/buLj//9HR//+ZAP8AAAAAAAAAAP+ZAP/b0tL/29LS/+3o6P8rijD/Rspy/zPUbv9N6YT/N61F/6bG
nf/gx8f/27m5/9u0tP//mQD/AAAAAAAAAAD/mQD/29jY///7+//t6+v/LYgw/0rBa/8nv1b/NdBr/0/t
i/8uoj///+7u/9u6uv//1NT//5kA/wAAAAAAAAAA/5kA/9vb2//b29v/7e3t/y6GMv+DzZX/Ycd9/yi8
Vf8/pEr/qsai/+DJyf/bvLz/27i4//+ZAP8AAAAAAAAAAP+ZAP/b29v//////+3t7f84jDv/kdKf/221
dP9srWz///T0/+DNzf//4OD/27y8///W1v//mQD/AAAAAAAAAAD/mQD/29vb/9vb2//s7Oz/QpFE/0OR
Rf+yzrL/7OXl/9vJyf/bxcX/28DA/9u8vP/buLj//5kA/wAAAAAAAAAA/5kA/9vb2///////29vb////
///s6ur///j4/9vOzv//6ur/28XF///g4P/bvLz//9bW//+ZAP8AAAAAAAAAAP+ZAP//rT3//5kA//+Z
AP//mQD//5kA//+ZAP//mQD//5kA//+ZAP//mQD//5kA//+ZAP//mQD/AAAAAAAAAAD/mQD//8yZ/+uF
AP/rhQD/64UA/+uFAP/rhQD/64UA/+uFAP/rhQD/64UA/+uFAP/3kQD//5kA/wAAAAAAAAAA/5kA///M
mf//zJn//8yZ///Mmf//zJn//8yZ///Mmf//zJn//8yZ///Mmf//zJn//609//+ZAP8AAAAAAAAAAP+Z
AEf/mQD//5kA//+ZAP//mQD//5kA//+ZAP//mQD//5kA//+ZAP//mQD//5kA//+ZAP//mQBHAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAD//wAAwAMAAIABAACAAQAAgAEAAIABAACAAQAAgAEAAIABAACAAQAAgAEAAIABAACAAQAAgAEAAMAD
AAD//wAAKAAAABgAAAAwAAAAAQAIAAAAAACgAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8A95EAAEHc
eQALjgoAvaenAI/nswBBpj4A/8yZAHmwdQDZ1NQA/609ACh8JwBt0o8AULdnAJ7ImQD/4eEAKbxWABSl
JwC6y7MAV51VAP/MzAC2k5MAz7i4ACemQgAzzWcAOo45AB+RHQDM6dIAY7t2AJK1kgCFwn4AR8lvALa2
tgDH0cMADXkNAP/w8AA+tl0AU9R/AIrMmQCf0qkAG3waAOuFAACxwqgAe8mPANTIyABbrFcAH6w2AG7B
fwC2np4AcqRxAP/X1wAUlygAdteYACWILABDvmYAz6+vAC/FXwA0hTQAcMmIADjUbwDO08wAF4UUACSa
IgB5t34A/5kAAM/AwAC2rq4AIYQfACq0TwAnjyUAysrKAMC2tgD/+PgA/+npAJ6/nAAieiAAfMKJAE7F
awA/1XQAac6JAL6trQBF4X4Ax8u+ADC5VgA1yWAAtqioAP/c3AAPkQ8A/9LSALajowC2mZkASbtnABuD
GQAZihgAVLlsAMa4uAD67eoAtcOtAM/NzQBryoUAQ8NpANjY2AD/9PQA/+XlAM/ExADPs7MAtrKyAIe+
gQDPyckAQ7pjAC2+WAAehx0A2NHRAC7CXAD//PwA/+3tAP/PzwDPvb0AtpaWAB15HAAwy2UAuaWlAD3X
cgAyyGEAvbe3APzx8AAcgRsANM9pADnSbQD/+voA//b2AP/y8gD/6+sA/+fnAP/j4wD/398A/9raAP/V
1QDPz88Az8vLAM/HxwDPwsIAz7u7AM+2tgDPsbEAtrS0ALawsAC2m5sAtqysALaqqgC2oaEAtqamALuo
qAAnfCUAL8JeACi7VQBA23gA//39AP/7+wD/+fkA//f3AP/19QD/8fEA/+7uAP/s7AD/6OgA/+DgAP/e
3gD/3d0A/9vbAP/Z2QD/2NgA/9bWAP/U1AD/09MA/9HRAP/Q0AD/zs4ANM5oAP/NzQA6020A2NLSALaU
lAC2lZUAtpeXALaYmAC2mpoAtpycAL2oqAC2n58AtrW1ALanpwC2ra0AHXocAC/GXwDZ2NgAvKioAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEFBQUFBQUFBQUFBQUFBQUFBQUFB
AAAAQYdoWmhoYCSFeqeoMaqrW4pZt7IVQQAAQYammKZ0CT8uU0oQvqmqlDOud3W0QQAAQcBWVlZxGwZO
WGwtmb4xvLtbubgWQQAAQXSklqSDXjUmTxIHE0qIMYmsulmxQQAAQSSjlaNJPg0gs51VBB9hvVerW66w
QQAAQcFDQ0MKXVBlw4B7Ui9GKwW8u7p3QQAAQaKDk6Gff2Q3bzkZgQO1cKVXlK2vQQAAQaGga4JzKTtc
VBFyeTx8RHSpvDOuQQAAQWuSv7/EwixfJUWcmzQaYsUxvLu6QQAAQXMBIQEBTCcdDm4YIw9+URCovKyK
QQAAQZ4BIQEBmihNMDYUIoRKWhCovKyKQQAAQb8hISFmDBxAeEu2SFaYWpcxvLu6QQAAQZ4BIQEBHjoy
PaGjloWmWhCovKyKQQAAQXMBIQEBR56ffWejloWmWhCovKyKQQAAQWOLi4uLi2OMbY1pjkJ2jxeQapE4
QQAAQQtBQUFBQUFBQUFBQUFBQUFBQUFBQQAAQQgqKioqKioqKioqKioqKioqKioCQQAAQQgICAgICAgI
CAgICAgICAgICAgLQQAAAEFBQUFBQUFBQUFBQUFBQUFBQUFBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8A////AMAAAwCAAAEAgAABAIAAAQCAAAEAgAABAIAA
AQCAAAEAgAABAIAAAQCAAAEAgAABAIAAAQCAAAEAgAABAIAAAQCAAAEAgAABAIAAAQDAAAMA////AP//
/wAoAAAAGAAAADAAAAABACAAAAAAAGAJAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP+Z
AEf/mQD//5kA//+ZAP//mQD//5kA//+ZAP//mQD//5kA//+ZAP//mQD//5kA//+ZAP//mQD//5kA//+Z
AP//mQD//5kA//+ZAP//mQD//5kA//+ZAEcAAAAAAAAAAP+ZAP//4+P//+Xl/7ajo///5eX//+Xl/8a4
uP//8PD//+vr/7mlpf//4OD//97e/7aenv//29v//9nZ/7aZmf//1dX//9LS/7aUlP//zs7//8zM//+Z
AP8AAAAAAAAAAP+ZAP//5+f//+jo/7ampv//6Oj//+3t/3mwdf8kmiL/W6xX/8fLvv//6en//+Hh/7af
n///3d3//9vb/7abm///19f//9TU/7aWlv//z8///83N//+ZAP8AAAAAAAAAAP+ZAP+2p6f/tqio/7ao
qP+2qKj/2NHR/x+RHf+P57P/TsVr/w+RD/+HvoH/1MjI/7uoqP+2n5//tp6e/7acnP+2mpr/tpmZ/7aX
l/+2lZX/tpOT//+ZAP8AAAAAAAAAAP+ZAP//7e3//+7u/7aqqv//7u7///b2/xmKGP9215j/U9R//z/V
dP8UpSf/QaY+/7rLs///6en//9/f/7aenv//2tr//9jY/7aYmP//0tL//9DQ//+ZAP8AAAAAAAAAAP+Z
AP//8PD///Hx/7asrP//8fH///j4/xeFFP9t0o//R8lv/zTOaP9A23j/Nclg/wuOCv+Fwn7/+u3q/72o
qP//3Nz//9nZ/7aZmf//1NT//9HR//+ZAP8AAAAAAAAAAP+ZAP+2ra3/tq6u/7aurv+2rq7/2dTU/xuD
Gf9pzon/Q8Np/y/GX/80z2n/Pddy/0Xhfv8frDb/J48l/7HCqP+9p6f/tpyc/7aamv+2mJj/tpaW//+Z
AP8AAAAAAAAAAP+ZAP//9fX///b2/7awsP//9/f///v7/xyBG/9ryoX/Q75m/y2+WP8vxV//M81n/znS
bf9B3Hn/OtNt/x6HHf//7Oz//9zc/7abm///1tb//9PT//+ZAP8AAAAAAAAAAP+ZAP//9/f///n5/7ay
sv//+vr///z8/xt8Gv9wyYj/Sbtn/zC5Vv8pvFb/LsJc/zDLZf841G//Mshh/yGEH///7e3//93d/7ac
nP//19f//9TU//+ZAP8AAAAAAAAAAP+ZAP+2srL/trS0/7a1tf+2tbX/2djY/x16HP97yY//VLls/z62
Xf8qtE//KLtV/y/CXv8Ulyj/Oo45/7XDrf+8qKj/tp6e/7acnP+2mpr/tpiY//+ZAP8AAAAAAAAAAP+Z
AP///Pz//////7a2tv///////////yJ6IP+KzJn/Y7t2/1C3Z/9DumP/J6ZC/w15Df+eyJn//PHw/76t
rf//4eH//97e/7acnP//2Nj//9XV//+ZAP8AAAAAAAAAAP+ZAP///f3//////7a2tv///////////yd8
Jf+f0qn/fMKJ/27Bf/8liCz/V51V/8fRw///8vL//+np/7ajo///4eH//97e/7acnP//2Nj//9XV//+Z
AP8AAAAAAAAAAP+ZAP+2tbX/tra2/7a2tv+2trb/2NjY/yh8J//M6dL/ebd+/x15HP+ev5z/2NLS/8C2
tv+2qKj/tqam/7ajo/+2oaH/tp6e/7acnP+2mpr/tpiY//+ZAP8AAAAAAAAAAP+ZAP///f3//////7a2
tv///////////5K1kv80hTT/cqRx/87TzP//9/f///Hx/7aqqv//6+v//+jo/7ajo///4eH//97e/7ac
nP//2Nj//9XV//+ZAP8AAAAAAAAAAP+ZAP///Pz//////7a2tv///////////8rKyv///f3///v7/723
t///9PT///Hx/7aqqv//6+v//+jo/7ajo///4eH//97e/7acnP//2Nj//9XV//+ZAP8AAAAAAAAAAP+Z
AP/Pzc3/z8/P/8/Pz//Pz8//z8/P/8/Pz//Pzc3/z8vL/8/Jyf/Px8f/z8TE/8/Cwv/PwMD/z729/8+7
u//PuLj/z7a2/8+zs//PsbH/z6+v//+ZAP8AAAAAAAAAAP+ZAP//rT3//5kA//+ZAP//mQD//5kA//+Z
AP//mQD//5kA//+ZAP//mQD//5kA//+ZAP//mQD//5kA//+ZAP//mQD//5kA//+ZAP//mQD//5kA//+Z
AP8AAAAAAAAAAP+ZAP//zJn/64UA/+uFAP/rhQD/64UA/+uFAP/rhQD/64UA/+uFAP/rhQD/64UA/+uF
AP/rhQD/64UA/+uFAP/rhQD/64UA/+uFAP/rhQD/95EA//+ZAP8AAAAAAAAAAP+ZAP//zJn//8yZ///M
mf//zJn//8yZ///Mmf//zJn//8yZ///Mmf//zJn//8yZ///Mmf//zJn//8yZ///Mmf//zJn//8yZ///M
mf//zJn//609//+ZAP8AAAAAAAAAAP+ZAEf/mQD//5kA//+ZAP//mQD//5kA//+ZAP//mQD//5kA//+Z
AP//mQD//5kA//+ZAP//mQD//5kA//+ZAP//mQD//5kA//+ZAP//mQD//5kA//+ZAEcAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAA////AP///wDAAAMAgAABAIAAAQCAAAEAgAABAIAAAQCAAAEAgAABAIAAAQCAAAEAgAABAIAA
AQCAAAEAgAABAIAAAQCAAAEAgAABAIAAAQCAAAEAwAADAP///wD///8AKAAAACAAAABAAAAAAQAIAAAA
AACABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8A9I4AADvYdQDCpYcAGIAbAJLlswD/0KsA/7VTAG+n
bADN59IAI7c+AL25uQBs0IsA/9zcADuOOQDqnSoA0qRgAECzXACfzJkA/8B0ABegJACEv34A7fLpALik
pABXum4A1cvLAC/HYQAsfSwAhcqUAF6tWwD/rT0AT9mBAK/HqQA7pTkAfaZ9ACm5UgD/nAoA2tnZACiQ
JgBwvH4A//HxACuhLgB62JoA/8yZAFDLdgD/0NAAuJiYABiRHQCm1K0A3ejTAEnBawDHx8cAwK2tAFvQ
gQA+zG0AeceMAP/n5wAfqC4ALooxAB6TLwBlomQANrxdAEPffQCUzqAAYrp1AFSsYwBs2pMA64UAACF7
IQCp1aIANM5oAC/CVAARiBkAMbJTALiysgAjsEYAn8+nAP+ZAABQtmgA2dLSAP/4+ABwyIgAqcCoAITD
jgDOzsYAwL+/APnv6wAenCEAOdNtADfHZAD/1tYAuKurALiengAaeBwAxbi4AEjkgQBx1JAAo8ygACzB
WwBEt2EAS8ZwAP/h4QDRz88A/+zsACe0TgBB2nMAS7pnACSUIwBpzIcAMIQxADTBYAAYixwAPqE8ADu5
XQC9tLQAuLe3AL+pqQD7lQAAJX0kAF+4cQDAsbEAMshdADPKZQCwwqkAT7tqAFS3awAztVYAfMSKANPP
ywAeeh4AHn4gANvW1gAljSUAK75YAGzJhgD/+/sA//X1APeRAAD/5OQA/9nZAP/T0wAckh4Axbu7AL28
vAC4r68AuKenALihoQDW0NAAva+vABiEGwBKvmkA2ubTAEPdegAuw10ANtBqABl9GgAqtlEAu7a2AL2s
rAAwyWMAP9h0AP/9/QD/8/MA/+/vAP/q6gD/398AvbGxALi1tQC4ra0AuKmpALiamgC4nJwAF4waADLN
ZwC9t7cAv6urACiPJAApulQAssOpADfTbQDa19cAMMZgADPMZgA40mwAOtRuAL+wsAD//v4A//r6AP/3
9wD/9vYA//T0AP/y8gD/8PAAGYMbAP/u7gD/7e0A/+vrAP/p6QD/5uYA/+XlAP/j4wD/4OAA/97eAP/d
3QD/29sA/9raAP/Y2AD/19cA/9XVAP/U1AD/0dEAJrVOACu/WQDa2toA2tjYAL29vQC9uroAvba2ALi4
uAC9rq4AuLS0ALiZmQC4s7MAuLGxALiwsAC4nZ0AuK6uALifnwC4oKAAuKysALiiogC4qqoAuKOjALil
pQDZ2dkA29fXAD/ZdABD33wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAEU5OTk5OTk5OTk5OTk5OTk5OTk5OTk5OTk5OTk4RAABOBCnDw+bDw8PmxGjF6KXGOZLHi4vpZqbL
5M3OB04AAE6fpcXF6MXFxejDoym6yMjJ58rLDl2M0NHe0y6MTgAATtzExMRcxMTEjxMqIiHBOcgYZsrL
5M3P0N6NLs5OAABOlebmqampqalQjgZDOh5VX+rq5+fl5OKsq94vXU4AAE6nKcCjkaOjo4QwKzYgelhG
GjnJZufMDoys0Y0OTgAATnO/ib5Lvr6+7K1hLTe47gtxMmjJ56YOzaxb0sxOAABO2r69Ud9RUVG1cA1l
WrdZmWoVFlc1yssO4s/Ry04AAE6v3d2oqKioqNeWbTNvtke4oWBIbLOwk+RdrKvlTgAATgyIort0u7u7
JsKHlz7VG7ebue0/scPKy+SM0MtOAABO2bsBAdsBAQHWBVJ9ciSGmqCutAOFpMqm5M7Ppk4AAE6QAQEB
2wEBAdacOBlkf9SyY3tMJ3w5Zqbkzc/KTgAATtjb29vb29vb1l4dQU8SSp1pSQmBeerp5+RdrOdOAABO
2AEBAdsBAQHWgkAoeH5rPA+YwMWSyMnK5Q6MZk4AAE7YAQEB2wEBAdZFMVSAQoNilCnExZLIycrlDoxm
TgAATtgBAQHbAQEB63cKTTs9F1GRwcTFksjJyuUOjGZOAABO2Nvb29vb29s0I24cU2eeS5GpXOiS6hjn
5eTi504AAE7YAQEB2wEBAdsBAQFWiFG+kcHExZLIycrlDoxmTgAATtgBAQHbAQEB2wEBAXSIUb6RwcTF
ksjJyuUOjGZOAABO2AEBAdsBAQHbAQEBdLy9iZGkxMWSyMnK5Q6MZk4AAE7b29vb29vb29vb23So3eDh
4+ZcqpLq6efkXax1TgAATiVOTk5OTk5OTk5OTk5OTk5OTk5OTk5OTk5OTk5OAABOCAICAgICAgICAgIC
AgICAgICAgICAgICAgICdk4AAE4URERERERERERERERERERERERERERERERERESKTgAAECwsLCwsLCws
LCwsLCwsLCwsLCwsLCwsLCwsFB8QAAAAEE5OTk5OTk5OTk5OTk5OTk5OTk5OTk5OTk5OEAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA////////////////gAAAAYAAAAGAAAABgAAAAYAA
AAGAAAABgAAAAYAAAAGAAAABgAAAAYAAAAGAAAABgAAAAYAAAAGAAAABgAAAAYAAAAGAAAABgAAAAYAA
AAGAAAABgAAAAYAAAAGAAAABgAAAAcAAAAP///////////////8oAAAAIAAAAEAAAAABACAAAAAAAIAQ
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP+ZAHP/mQD//5kA//+Z
AP//mQD//5kA//+ZAP//mQD//5kA//+ZAP//mQD//5kA//+ZAP//mQD//5kA//+ZAP//mQD//5kA//+Z
AP//mQD//5kA//+ZAP//mQD//5kA//+ZAP//mQD//5kA//+ZAP//mQD//5kAcwAAAAAAAAAA/5kA/8Kl
h///8fH//+7u///u7v+4rKz//+7u///u7v//7u7/uKys///t7f//7Oz//+vr/7iqqv//6ur//+np///n
5/+4p6f//+bm///k5P//5OT/uKOj///h4f//39///97e/7ifn///29v//9ra///Qq///mQD/AAAAAAAA
AAD/mQD/vays///q6v//6+v//+vr/7iqqv//6+v//+vr///r6/+4qqr//+7u///z8///8fH/v7Cw///l
5f//5eX//+Pj/7iiov//4OD//97e///c3P+4np7//9nZ///X1///1dX/uJmZ///R0f//0ND//9nZ//+Z
AP8AAAAAAAAAAP+ZAP+9rq7//+3t///t7f//7e3/uKur///t7f//7e3//+3t/8W7u/+fzJn/K6Eu/zul
Of+vx6n///Dw///n5///5eX/uKSk///h4f//4OD//97e/7ifn///29v//9jY///X1/+4mZn//9PT///Q
0P//2tr//5kA/wAAAAAAAAAA/5kA/72vr/+4rKz/uKys/7itrf+4ra3/uK2t/7itrf+4ra3/2dLS/xyS
Hv+S5bP/bNqT/x+oLv9erVv/zs7G/8W4uP+4paX/uKWl/7iiov+4oqL/uKCg/7ifn/+4nZ3/uJyc/7ia
mv+4mZn/uJiY/7ienv//mQD/AAAAAAAAAAD/mQD/vbGx///x8f//8vL///Pz/7ivr///8/P///Pz///z
8//b1tb/GJEd/3rYmv9b0IH/T9mB/zLIXf8enCH/qdWi/9XLy///5+f//+Pj///h4f+4oqL//93d///c
3P//2dn/uJyc///V1f//09P//9zc//+ZAP8AAAAAAAAAAP+ZAP+9tLT///T0///19f//9vb/uLKy///2
9v//9vb///b2/9vX1/8XjBr/cdSQ/1DLdv8+zG3/ONJs/0PffP8jtz7/PqE8/93o0///7Oz//+Pj/7ii
ov//39///9zc///b2/+4nJz//9bW///U1P//3d3//5kA/wAAAAAAAAAA/5kA/722tv//9vb///f3///4
+P+4s7P///j4///4+P//+Pj/2tfX/xiLHP9s0Iv/S8Zw/zfHZP8zzGb/OdNt/0Pdev9B2nP/F6Ak/4S/
fv/57+v/wK2t///g4P//3t7//9zc/7idnf//2Nj//9XV///e3v//mQD/AAAAAAAAAAD/mQD/vbe3/7i0
tP+4tLT/uLW1/7i1tf+4tbX/uLW1/7i1tf/a2Nj/GIQb/2nMh/9JwWv/NMFg/zDGYP80zmj/ONJs/z/Y
dP9I5IH/L8JU/ySUI/+yw6n/v6ur/7ihof+4n5//uJ6e/7icnP+4mpr/uKCg//+ZAP8AAAAAAAAAAP+Z
AP+9ubn///v7///9/f///v7/uLe3///+/v///v7///7+/9rZ2f8Zgxv/bMmG/0q+af82vF3/K79Z/y/H
Yf8zzGb/NtBq/zrUbv8/2XT/Q999/yiPJP//7u7//+Dg///e3v+4n5///9nZ///X1///3t7//5kA/wAA
AAAAAAAA/5kA/726uv///v7///////////+4uLj/////////////////2tra/xiAG/9wyIj/T7tq/zu5
Xf8puVL/K75Y/y7DXf8wyWP/Ms1n/zfTbf872HX/JY0l///v7///4OD//9/f/7ifn///2tr//9jY///f
3///mQD/AAAAAAAAAAD/mQD/vby8/////////////////7i4uP/////////////////a2tr/GX0a/3nH
jP9Xum7/RLdh/zO1Vv8mtU7/KbpU/yzBW/8zymX/I7BG/yiQJv+wwqn//+fn///h4f//39//uJ+f///b
2///2Nj//+Dg//+ZAP8AAAAAAAAAAP+ZAP+9vb3/uLi4/7i4uP+4uLj/uLi4/7i4uP+4uLj/uLi4/9ra
2v8aeBz/hcqU/2K6df9Qtmj/QLNc/zGyU/8qtlH/J7RO/xGIGf9vp2z/08/L/8Cxsf+4paX/uKOj/7ii
ov+4n5//uJ6e/7icnP+4oqL//5kA/wAAAAAAAAAA/5kA/729vf////////////////+4uLj/////////
////////2tra/x56Hv+UzqD/cLx+/1+4cf9Ut2v/S7pn/x6TL/87jjn/2ubT///y8v//6+v/uKen///l
5f//4+P//+Dg/7igoP//3Nz//9nZ///h4f//mQD/AAAAAAAAAAD/mQD/vb29/////////////////7i4
uP/////////////////a2tr/IXsh/6bUrf+Ew47/fMSK/1SsY/8efiD/o8yg/9bQ0P//8fH//+3t///r
6/+4p6f//+Xl///j4///4OD/uKCg///c3P//2dn//+Hh//+ZAP8AAAAAAAAAAP+ZAP+9vb3/////////
////////uLi4/////////////////9nZ2f8lfST/zefS/5/Pp/8uijH/ZaJk/+3y6f//+Pj/uK+v///w
8P//7e3//+vr/7inp///5eX//+Pj///g4P+4oKD//9zc///Z2f//4eH//5kA/wAAAAAAAAAA/5kA/729
vf+4uLj/uLi4/7i4uP+4uLj/uLi4/7i4uP+4uLj/x8fH/32mff8whDH/LH0s/6nAqP/Rz8//u7a2/7iy
sv+4r6//uK2t/7irq/+4qqr/uKen/7ilpf+4pKT/uKKi/7igoP+4n5//uJ2d/7iiov//mQD/AAAAAAAA
AAD/mQD/vb29/////////////////7i4uP////////////////+4uLj/////////////////wL+////7
+///+Pj///b2/7ivr///8PD//+3t///r6/+4p6f//+Xl///j4///4OD/uKCg///c3P//2dn//+Hh//+Z
AP8AAAAAAAAAAP+ZAP+9vb3/////////////////uLi4/////////////////7i4uP//////////////
//+4t7f///v7///4+P//9vb/uK+v///w8P//7e3//+vr/7inp///5eX//+Pj///g4P+4oKD//9zc///Z
2f//4eH//5kA/wAAAAAAAAAA/5kA/729vf////////////////+4uLj/////////////////uLi4////
/////////////7i3t///+vr///f3///19f+4r6///+/v///t7f//6+v/uKen///l5f//4+P//+Dg/7ig
oP//3Nz//9nZ///h4f//mQD/AAAAAAAAAAD/mQD/uLi4/7i4uP+4uLj/uLi4/7i4uP+4uLj/uLi4/7i4
uP+4uLj/uLi4/7i4uP+4t7f/uLW1/7i0tP+4sbH/uLCw/7iurv+4rKz/uKur/7ipqf+4p6f/uKWl/7ij
o/+4oqL/uJ+f/7ienv+4nJz/v6mp//+ZAP8AAAAAAAAAAP+ZAP//nAr//5kA//+ZAP//mQD//5kA//+Z
AP//mQD//5kA//+ZAP//mQD//5kA//+ZAP//mQD//5kA//+ZAP//mQD//5kA//+ZAP//mQD//5kA//+Z
AP//mQD//5kA//+ZAP//mQD//5kA//+ZAP//mQD//5kA/wAAAAAAAAAA/5kA//+1U//0jgD/9I4A//SO
AP/0jgD/9I4A//SOAP/0jgD/9I4A//SOAP/0jgD/9I4A//SOAP/0jgD/9I4A//SOAP/0jgD/9I4A//SO
AP/0jgD/9I4A//SOAP/0jgD/9I4A//SOAP/0jgD/9I4A//uVAP//mQD/AAAAAAAAAAD/mQD//8B0/+uF
AP/rhQD/64UA/+uFAP/rhQD/64UA/+uFAP/rhQD/64UA/+uFAP/rhQD/64UA/+uFAP/rhQD/64UA/+uF
AP/rhQD/64UA/+uFAP/rhQD/64UA/+uFAP/rhQD/64UA/+uFAP/rhQD/95EA//+ZAP8AAAAAAAAAAP+Z
AMH/zJn//8yZ///Mmf//zJn//8yZ///Mmf//zJn//8yZ///Mmf//zJn//8yZ///Mmf//zJn//8yZ///M
mf//zJn//8yZ///Mmf//zJn//8yZ///Mmf//zJn//8yZ///Mmf//zJn//8yZ///AdP//rT3//5kAwQAA
AAAAAAAA/5kAR/+ZAMH/mQD//5kA//+ZAP//mQD//5kA//+ZAP//mQD//5kA//+ZAP//mQD//5kA//+Z
AP//mQD//5kA//+ZAP//mQD//5kA//+ZAP//mQD//5kA//+ZAP//mQD//5kA//+ZAP//mQD//5kA//+Z
AMH/mQBHAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP///////////////4AAAAGAAAABgAAAAYAA
AAGAAAABgAAAAYAAAAGAAAABgAAAAYAAAAGAAAABgAAAAYAAAAGAAAABgAAAAYAAAAGAAAABgAAAAYAA
AAGAAAABgAAAAYAAAAGAAAABgAAAAYAAAAHAAAAD////////////////KAAAADAAAABgAAAAAQAIAAAA
AACACgAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8A8YsAADvYdQDjroIAGIAbAJLlswD/0KsA96xQAG+n
bADN59IAI7c+AL25uQBr1IwA/9veAEKPQgDupyMA36hnAEKwWACdxZoA7rp/ABaeJgCHuYYA7O/mALOk
pABYu28A0snJADDHYQAsfSwAjMaVAFqlWADvo0MATNd+AK3OqwA7pTkAe7B3ACi4UgD/nAoA2tnZACiQ
JgBwvH4A//DzACydLwB62JoA+8iQAFDKdgD/0NAAs5aXABiRHQCt1K0A4OjYAEzBbQDKx8gAwK2tAFvN
fgA/yWsAeceMAP/m6AAcqDEALooxAB6TLwBhpWQANbtbAEPffQCZy6AAY752AFSsYwBs2pMA5n0AACF7
IQCp1aIANc5oAC7CVAAKhQwAMrJTALOyswAnp0MAn8+nAP+iAABRtmgA1dTUAP/3+gBwyIgApsOhAIvB
jgDIzsYAwcG8APnv6wAenCEAOtNtADvGZgD/1NgAs6qsALOengAQbhAAxLi4AEjkgQB005EAo8ygAC3B
WwBEuGIASshxAP/f4wDMzMwA/+ruACizTgBB23UASbdkACSUIwBmzoUAMIAwADLBXQAYixwAR6BFADy3
XQDBtbUAuLe3AL+pqQD7lQAAI4AmAF25cADAsbEANcpfADLLZQCwwqkAUL1sAFW2agAztFYAe8CHANPP
ywAeeh4AGoMiANvW1gAkiiIAK75XAGjHfwD/+v0A//P3APeRAAD/4+YA/9jbAP/T0wAglh8Axry8AL28
vACzr68As6eoALOhoQDW0tIAu7CwABiEGwBKvmkA2uXSAETeeQAuxF4AN9BqAAx2DQAqtlEAu7a2AL2s
rAAxyWMAP9VyAP/8/gD/8vUA/+7xAP/p7AD/3eEAvbGxALi1tQC1rK4As6mpALOZnACznJwAGI0XADPN
ZwC9t7cAv6urACiPJAAqu1QAssOpADfTbQDa19cAMMZhADPMZgA40mwAPNVvAL+wsAD//v8A//n8AP/3
9wD/9fgA//P2AP/x9AD/7/IAGYMbAP/t8AD/7O8A/+juAP/n6wD/5egA/+XlAP/h5QD/4OAA/9zgAP/d
3QD/2t0A/9ncAP3Z1gD/1NoA/dfTAP/T1gD/0dEAKLhOACu/WQDa2toA2tjYAL29vQC9uroAvba2ALi4
uAC9rq4AuLS0ALOZmQCzs7MAs7GxALOwsACznJ4As66uALOeoACzn6EAtKysALOiogCzqqoAs6OjALOk
pgDZ2dkA29fXAD/ZdABD33wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABBOTk5OTk5OTk5OTk5OTk5OTk5O
Tk5OTk5OTk5OTk5OTk5OTk5OTk5OTk4QAAAAEAgsLCwsLCwsLCwsLCwsLCwsLCwsLCwsLCwsLCwsLCws
FBQUFBQUFBQUFBQIEAAAThQ0UVFRvr6piYm/v4lcv8ApKcGSpMPEaGjqpcY5x4vkZmamy82rz8/R0tAU
TgAAThQ0wMDAwMCqKcHBpKSSw8TEaMXqpcY5OTmTyIvJZsqszA7OjM8v0Y2NLtEUTgAAThQ0o6Ojo6Po
wMApKcGSpMPDxGjqxaXGOTnnx8iLyWbiy8zNzs8vW9KN01sUTgAAThQ0iYmJv79co6PAwMCqwaS/vr+V
aMWlxjnpOcfIi2ZdysvMzc4vW9GNjdEUTgAAThQ0qamp5ubm5lxcXOjo5jRxSSpTNJLq6hjp6eeTk+Tk
XeKsq6veLy8vLy8UTgAAThQ0vb29vb6pvomJv79cvh4qYRJJQRekxcUYOTk5x8jkZsqmzA7ejNBb0tAU
TgAAThQ0UVFRUVGpvb6+iYlcUa2HYQ02FY4xo2jqxjk5x8iTyWbKy8yrzs9b0c8UTgAAThQ0vLxRUVHj
UVG9vb7mvEmHDTY2INRJHhdzpcY5OceTi8lmpsurzYzPW4wUTgAAThQ0iIiIiLyRUVFRUb2pvEmHbTYt
oblZFa1Uo8XGOTmTyMlmysurzc7PW84UTgAAThQ04ODg4OHh4ZGRkePjlElBNi1lN0dZakhJcVZfGOnn
k5PkXeKsq6svL6sUTgAAThQ0u7uioqLgiIiIvFHjiElBNi03WrebWWpqOkkTKaXnx8iLZsrizM3Oz80U
TgAAThQ0AQEBu7tLooiIiIiRiEl4NmU3tqBHuLmhmXpJcTJfOcfIyWbiy8zNjA4UTgAAThQ0AQEBAQHf
u7uiiIjhiJwZQTNab7a3R7hZoWqZOkkjpMfIi2bipszNzssUTgAAThQ0AQEBAQHfAQG7oojgopx4QTNk
b2O2e0ebuLm5anpJVGjHx8ldyssOzqYUTgAAThQ039/f39/f39/f30tLUJx4QX1kPoZjG6C3R5u4uLlI
hRqTk+Tk4qyrq+IUTgAAThQ0AQEBAQHfAQEBAQFLu5x4QX1kPrKGY5obe65HR7iyhSk5yMfkZqbMDqYU
TgAAThQ0AQEBAQHfAQEBAQHfu154QRlrcn+dsoZjmragR4ZJFsQ5x8jkZsrLDmYUTgAAThQ0AQEBAQHf
AQEBAQHfAV5BKHhPZH+daSSy1WO2FZwjKcY5x8jlZsrLzGYUTgAAThQ0AQEBAQHfAQEBAQHfAV5BKEF+
axJ/aWnUskxJD5iPxcY5OceTyWamzGYUTgAAThQ039/f39/f39/f39/fUF4ogCh4T2QSSkppSZwjGqmS
6hjp55OT5F3irOQUTgAAThQ0AQEBAQHfAQEBAQHfAV4oVChBeE9kZEyccTKjpMOSxaXGOceTyWbKy8kU
TgAAThQ0AQEBAQHfAQEBAQHfAV4WHYAoQXh+g14WUaMppMOSaMXGOTmTi2bKy8kUTgAAThQ0AQEBAQHf
AQEBAQHfAV5UQFSAgBJeHhdWv8ApwcOSaMXGOTmTx8lmpskUTgAAThQ0AQEBAQHfAQEBAQHfAV5UMUBU
d14hiL7mv6PAwaSSaMWlOTmTyMlmpskUTgAAThQ039/f39/f39/f39/fZw8PMT1eHlVW46nmXFzokpKS
kuoY6eeTk+Rd4uUsTgAAThQ0AQEBAQHfAQEBAQHfARcPXm4ToohRUb2piaPAKaSSxMWlxjmTyMlmyoss
TgAAThQ0AQEBAQHfAQEBAQHfAQEBAQGQiIi8Ub2piaPAKaSSxMWlxjmTyMlmyossTgAAThQ0AQEBAQHf
AQEBAQHfAQEBAQFLiIi8Ub2piaPAKaSSxMWlxjmTyMlmyossTgAAThQ0AQEBAQHfAQEBAQHfAQEBAQHf
AQEBAbtLooiIvFGpvr+jKSmSw8XGxsUsTgAATiwUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQU
FBQUFBQUEREREREETgAATk5OTk5OTk5OTk5OTk5OTk5OTk5OTk5OTk5OTk5OTk5OTk5OTk5OTk5OTk5O
TgAATnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2TgAATooCAgICAgIC
AgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgKKTgAATgJERERERERERERERERERERERERE
REREREREREREREREREREREREREREREQCTgAATh8RERERERERERERERERERERERERERERERERERERERER
EREREREREREREREfTgAAEBQsLCwsLCwsLCwsLCwsLCwsLCwsLCwsLCwsLCwsLCwsLCwsLCwsLCwsLCwU
EAAAERQsz9HR0dHR0dHR0dHR0dHR0dHR0dHR0dHR0dHR0dHR0dHR0dHR0dHRzywUEQAAABEQTk5OTk5O
Tk5OTk5OTk5OTk5OTk5OTk5OTk5OTk5OTk5OTk5OTk5OThARAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///////8AAP//
/////wAA////////AAD///////8AAMAAAAAAAwAAgAAAAAABAACAAAAAAAEAAIAAAAAAAQAAgAAAAAAB
AACAAAAAAAEAAIAAAAAAAQAAgAAAAAABAACAAAAAAAEAAIAAAAAAAQAAgAAAAAABAACAAAAAAAEAAIAA
AAAAAQAAgAAAAAABAACAAAAAAAEAAIAAAAAAAQAAgAAAAAABAACAAAAAAAEAAIAAAAAAAQAAgAAAAAAB
AACAAAAAAAEAAIAAAAAAAQAAgAAAAAABAACAAAAAAAEAAIAAAAAAAQAAgAAAAAABAACAAAAAAAEAAIAA
AAAAAQAAgAAAAAABAACAAAAAAAEAAIAAAAAAAQAAgAAAAAABAACAAAAAAAEAAIAAAAAAAQAAgAAAAAAB
AACAAAAAAAEAAIAAAAAAAQAAgAAAAAABAACAAAAAAAEAAMAAAAAAAwAA////////AAD///////8AAP//
/////wAA////////AAAoAAAAMAAAAGAAAAABACAAAAAAAIAlAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP+1ACb/pwDM/6QA//+j
AP//owD//6MA//+jAP//pAD//6QA//+kAP//pAD//6QA//+kAP//pAD//6QA//+kAP//pAD//6QA//+k
AP//pAD//6QA//+kAP//pAD//6QA//+kAP//pAD//6QA//+kAP//pAD//6QA//+kAP//pQD//6UA//+l
AP//pQD//6UA//+lAP//pQD//6UA//+lAP//pQD//6UA//+lAP//pgD//6cAzP+1ACYAAAAAAAAAAP+n
AMzvq07//9Gb///Ok///zpP//8+T///Pk///z5P//82T///Nk///zpP//86U///Mkv//zJL//82T///L
kf//y5L//8uQ///MkP//ypH//8mP///Jj///ypD//8iO///Ijf//yY7//8aM///Hjf//xYv//8aK///D
if//xIn//8KI///Dh///wYf//8CG//+/hP//voT//72D//+8gv//vIH//7qA//+6gP//uoT//61R//+n
AMwAAAAAAAAAAP+mAP/kuIH/ysbK///0+///9Pv///X7///z+f//8/n/s6uv///y+P//8vn///H3///x
9///8vj/s6it///x9///7/X//+70///u9f//7fP/s6aq///s8///6/H//+rw///p7///6fD/s6On///n
7f//5uz//+Tq///j6f//4ef/s52h///f5f//3uT//9vi///b4f//2N7/s5ic///V2///1Nv//9LY///R
1///0d3//7qC//+mAP8AAAAAAAAAAP+lAP/kt33/ysTJ///y8v//8vL///Ly///y8v//8vL/s6mp///x
8f//8PD///Dw///v7///7+//s6en///u7v//7e3//+3t///s7P//6+v/s6Wl///q6v//6en//+jo///o
6P//5+f/s6Gh///l5f//5OT//+Pj///h4f//4OD/s5yc///d3f//3Nz//9ra///Z2f//2Nj/s5aW///V
1f//09P//9LS///Q0P//0dj//7l///+lAP8AAAAAAAAAAP+lAP/kt3z/ysXK///z8///8/P///Pz///z
8///8/P/s6qq///y8v//8vL///Hx///x8f//8PD/s6io///v7///7u7//+7u///t7f//7Oz/s6Wl///r
6///6ur//+np///o6P//6Oj/s6Ki///m5v//5eX//+Tk///j4///4eH/s52d///e3v//3d3//9vb///a
2v//2Nj/s5eX///W1v//1NT//9PT///R0f//0tn//7qA//+lAP8AAAAAAAAAAP+lAP/kuH7/ysfK///1
9f//9fX///X1///09P//9PT/s6ur///z8///8/P///Ly///y8v//8vL/s6mp///w8P//7+////T0///2
9v//9PT/u7Cw///s7P//6+v//+rq///p6f//6Oj/s6Oj///n5///5ub//+Xl///k5P//4uL/s56e///g
4P//3t7//93d///b2///2tr/s5iY///W1v//1dX//9PT///S0v//0tj//7qA//+lAP8AAAAAAAAAAP+l
AP/kuX3/ysjK/7Otrf+zra3/s62t/7OsrP+zrKz/s6ys/7OsrP+zq6v/s6ur/7Orq/+zqqr/s6qq/7Ws
rP/HycL/S6NJ/xCNEP8ymjD/psOh/8vCwv+1qKj/s6Wl/7Olpf+zpKT/s6Oj/7Ojo/+zoqL/s6Gh/7Oh
of+zn5//s5+f/7Oenv+znZ3/s5yc/7Oamv+zmpr/s5mZ/7OYmP+zlpb/s5aW/7OUlP+zlZr//7uB//+l
AP8AAAAAAAAAAP+lAP/kuX7/ysjK///39///9/f///f3///39///9vb/s62t///29v//9fX///X1///0
9P//9PT/s6ur///29v9isl//JqAu/3PRjv9EuVj/BI0C/269av/z8On//+/v///r6///6+v/s6Sk///o
6P//6Oj//+fn///m5v//5eX/s5+f///h4f//4OD//9/f///d3f//3Nz/s5mZ///Z2f//19f//9bW///U
1P//1Nr//7yB//+lAP8AAAAAAAAAAP+lAP/kuoD/ysnK///4+P//+Pj///j4///4+P//+Pj/s62t///3
9///9vb///b2///19f//9fX/s6ur///5+f8YjBf/aMZ9/3XVk/9p1o3/WNJ+/xedIf8glh//uNyy///z
8///7Oz/s6Wl///p6f//6Oj//+jo///m5v//5eX/s6Gh///j4///4eH//+Dg///e3v//3d3/s5qa///a
2v//2Nj//9bW///V1f//1dv//7yC//+lAP8AAAAAAAAAAP+lAP/ku4H/ysrK///6+v//+vr///n5///5
+f//+fn/s66u///4+P//+Pj///f3///39///9vb/s6ys///6+v8MhAz/asmC/2zRi/9e0IL/VNN//0zX
fv8pukv/AooC/2C2Xf/t7uT/wbW1///q6v//6en//+jo///n5///5ub/s6Gh///k5P//4+P//+Hh///f
3///3t7/s5qa///b2///2dn//9jY///W1v//1tz//72D//+lAP8AAAAAAAAAAP+lAP/kvYD/ysrK///7
+///+/v///v7///7+///+vr/s6+v///5+f//+fn///j4///4+P//9/f/s62t///6+v8Mgwz/ZcZ9/2bO
hf9YzX3/TM53/0HRcv86027/OtNs/xShJP8Yjhf/kL2M///z8///6+v//+np///o6P//5+f/s6Gh///l
5f//4+P//+Li///g4P//3t7/s5ub///b2///2tr//9jY///W1v//193//72D//+lAP8AAAAAAAAAAP+l
AP/kvID/ysrK/7Oxsf+zsbH/s7Gx/7Oxsf+zsLD/s7Cw/7OwsP+zr6//s6+v/7Ovr/+zrq7/s66u/9bS
0v8KfQr/YcR5/2HLgP9Tynj/R8tx/zvNa/82zmn/OtNt/0Hbd/8vw1P/BYoG/0ShQv/Cybv/w7e3/7Ok
pP+zo6P/s6Ki/7Ohof+zoaH/s5+f/7Oenv+znZ3/s5yc/7Obm/+zmpr/s5iY/7OYmP+zmJ3//72D//+l
AP8AAAAAAAAAAP+lAP/kvoP/ysrK///+/v///v7///39///9/f///f3/s7Gx///8/P//+/v///v7///6
+v//+fn/s66u///7+/8MfQz/XsF2/17JfP9Qx3P/Q8hs/zbJZv8zzGb/N9Bq/zrTbf9A2nT/Qtt1/xqm
Lf8RiBD/nc+X//7x8f//6ur/s6Ki///m5v//5eX//+Tk///i4v//4OD/s52d///d3f//29v//9ra///Y
2P//2N7//76E//+lAP8AAAAAAAAAAP+lAP/kvYP/ysrK///////////////////+/v///v7/s7Ky///9
/f///Pz///z8///7+///+/v/s6+v///8/P8QfhD/XL1z/1zGef9NxXD/QMVp/zPGYv8xymT/Nc9p/zjR
a/871G7/P9hy/0Teev81yF3/B4sK/0SjQf/d5tP/xbm5///n5///5ub//+Xl///j4///4eH/s52d///e
3v//3d3//9vb///Z2f//2d///7+E//+lAP8AAAAAAAAAAP+lAP/kvYL/ysrK////////////////////
////////s7Oz///+/v///v7///39///8/P//+/v/s7Cw///8/P8QexD/W7tw/1vEd/9Mwm3/P8Jl/zLC
Xv8vxmD/Msxm/zXOaP840Wv/OtNt/z7Xcf9B2nX/Q914/x2qNP8Lgwv/erN2///v7///5ub//+Xl///k
5P//4uL/s52d///f3///3d3//9vb///a2v//2uH//7+E//+lAP8AAAAAAAAAAP+lAP/kvYL/ysrK////
////////////////////////s7Oz//////////////7+///9/f///Pz/s7Gx///9/f8QeRD/XLlv/1vC
dv9Mv2z/P79k/zK/XP8twVv/L8Zg/zLKZP80zWf/N9Bq/znSbP871G7/PdZw/0Hbd/81y2D/B4oJ/5LF
i///7Oz//+bm///m5v//4+P/s56e///g4P//3t7//9zc///a2v//2+L//7+F//+lAP8AAAAAAAAAAP+l
AP/kvYL/ysrK/7Ozs/+zs7P/s7Oz/7Ozs/+zs7P/s7Oz/7Ozs/+zs7P/s7Oz/7Ozs/+zsrL/s7Ky/9XU
1P8NdQ3/Xblv/13Adv9OvWv/QLxj/zO8W/8rvVf/LcFb/y/HYf8xyWP/M8xm/zXOaP830Gr/ONFr/znS
bP881nH/LcBU/yGIIP/SyMj/s6Gh/7Ohof+zn5//s5+f/7Odnf+znJz/s5ub/7Oamv+zm5///8CG//+l
AP8AAAAAAAAAAP+lAP/kvYL/ysrK////////////////////////////s7Oz////////////////////
////////s7Ky///+/v8QdhD/Xrdv/2C/d/9RvGz/RLpj/ze5W/8ruVT/KrxW/yzAWv8uxF7/MMdh/zLL
Zf8zzWf/NM1n/zXOaP840m3/Kr5T/yaMJP//8fH//+fn///l5f//5ub/s5+f///h4f//39///93d///c
3P//3OP//8CG//+lAP8AAAAAAAAAAP+lAP/kvYL/ysrK////////////////////////////s7Oz////
////////////////////////s7Oz///+/v8QchD/YbZw/2S/ev9Vu27/SLll/zy3Xf8wtlX/KLdR/yq7
Vf8rvlj/LcFb/y7EXv8wxmD/Mslj/zPOaf8rv1j/BoMK/4y/hv//7e3//+fn///m5v//5eX/s5+f///h
4f//4OD//97e///c3P//3uT//8CG//+lAP8AAAAAAAAAAP+lAP/kvYL/ysrK////////////////////
////////s7Oz////////////////////////////s7Oz//////8QcBD/ZbZy/2m/ff9bunH/Trho/0K2
X/82tVj/LLRR/ye1T/8ouFL/KrtV/yu/Wf8twlz/L8Vg/xabLP8KeAr/eK50///x8f//6en//+jo///m
5v//5eX/s6Cg///i4v//4OD//97e///d3f//3uT//8GH//+lAP8AAAAAAAAAAP+lAP/kvYL/ysrK////
////////////////////////s7Oz////////////////////////////s7Oz//////8QbxD/a7Z3/3C/
gf9iu3X/Vbhs/0q1Y/8/tFz/NLJV/yuyT/8ms03/J7ZQ/yq6Vf8irUT/BXsJ/z+WPf/a5dL/xry8///r
6///6en//+jo///n5///5ub/s6Gh///j4///4eH//9/f///d3f//3eT//8GH//+lAP8AAAAAAAAAAP+l
AP/kvYL/ysrK/7Ozs/+zs7P/s7Oz/7Ozs/+zs7P/s7Oz/7Ozs/+zs7P/s7Oz/7Ozs/+zs7P/s7Oz/9TU
1P8RbBH/crd7/3nAhv9qvHr/Xrhx/1K2af9ItGH/PrJa/zWxVP8uslH/J7JN/xCMH/8Mcwz/f698/9HK
yv+4ra3/s6am/7Olpf+zpKT/s6Oj/7Oiov+zoaH/s6Gh/7Ofn/+znp7/s52d/7OcnP+znaH//8GH//+l
AP8AAAAAAAAAAP+lAP/kvYL/ysrK////////////////////////////s7Oz////////////////////
////////s7Oz//////8VbRX/eLiA/4LDjf9zvYD/Z7p3/1y3b/9StGf/SrRi/0S1YP8roEL/BHMH/0qY
SP/i6dz///Pz///v7///7u7/s6am///r6///6ur//+np///o6P//5ub/s6Gh///j4///4eH//+Dg///e
3v//4Ob//8OH//+lAP8AAAAAAAAAAP+lAP/kvYL/ysrK////////////////////////////s7Oz////
////////////////////////s7Oz//////8VbRX/gLuG/4zGlf9+wIj/crx//2e5dv9guHL/VLRo/xqD
Iv8UcxT/ibGH///4+P//8/P///Hx///v7///7u7/s6am///s7P//6+v//+np///o6P//5+f/s6Gh///k
5P//4uL//+Dg///e3v//4Ob//8KH//+lAP8AAAAAAAAAAP+lAP/kvYL/ysrK////////////////////
////////s7Oz////////////////////////////s7Oz//////8VbRX/ir+O/5fJnv+JxJH/fsCI/3rB
h/9HoFP/A2sE/1WaVP/o7eP/wr29///09P//8vL///Hx///w8P//7u7/s6am///s7P//6+v//+np///o
6P//5+f/s6Gh///m5v//4+P//+Hh///f3///4Ob//8KH//+lAP8AAAAAAAAAAP+lAP/kvYL/ysrK////
////////////////////////s7Oz////////////////////////////s7Oz//////8acBr/kcGU/6bQ
qv+bzKH/hcCN/yOAJv8Zchn/rc6r///7+///9vb/s6ys///09P//8/P///Ly///w8P//7+//s6en///s
7P//6+v//+rq///o6P//5+f/s6Gh///l5f//4+P//+Hh///f3///3+b//8KH//+lAP8AAAAAAAAAAP+l
AP/kvYL/ysrK/7Ozs/+zs7P/s7Oz/7Ozs/+zs7P/s7Oz/7Ozs/+zs7P/s7Oz/7Ozs/+zs7P/s7Oz/8zM
zP9FiEX/PIw//6nPq/9hpWT/AWUB/1KSUf/Izsb/wL29/7Ourv+zra3/s6ys/7Orq/+zq6v/s6qq/7Oo
qP+zqKj/s6en/7Ompv+zpaX/s6Sk/7Ojo/+zoqL/s6Gh/7Ohof+zn5//s56e/7Odnf+znqL//8KI//+l
AP8AAAAAAAAAAP+lAP/kvYL/ysrK////////////////////////////s7Oz////////////////////
////////s7Oz///////n8Of/SJBI/wtnC/8wgDD/nLqc///9/f//+/v///n5///4+P//9/f/s62t///1
9f//8/P///Ly///x8f//7+//s6en///t7f//6+v//+rq///p6f//6Oj/s6Gh///l5f//4+P//+Hh///g
4P//4ef//8KI//+lAP8AAAAAAAAAAP+lAP/kvYL/ysrK////////////////////////////s7Oz////
////////////////////////s7Oz////////////////////////////vby8///8/P//+/v///r6///4
+P//9/f/s62t///19f//8/P///Ly///x8f//7+//s6en///t7f//6+v//+rq///p6f//6Oj/s6Gh///l
5f//4+P//+Hh///g4P//4ef//8KI//+lAP8AAAAAAAAAAP+lAP/kvYL/ysrK////////////////////
////////s7Oz////////////////////////////s7Oz////////////////////////////s7Ky///8
/P//+/v///r6///4+P//9/f/s62t///19f//8/P///Ly///x8f//7+//s6en///t7f//6+v//+rq///p
6f//6Oj/s6Gh///l5f//4+P//+Hh///g4P//4ef//8KI//+lAP8AAAAAAAAAAP+lAP/lvoX/ysrK////
////////////////////////s7Oz////////////////////////////s7Oz////////////////////
////////s7Oz///////////////////+/////f//s7Gz///7////+f////j+///3/f//9fv/s6uv///z
+f//8ff///D2///u9f//7vT/s6Wp///r8f//6O7//+bs///l7P//5fH//8SM//+lAP8AAAAAAAAAAP+m
AP/kxZj/5b+F/+S9gv/kvYL/5L2C/+S9gv/kvYL/5L2C/+S9gv/kvYL/5L2C/+S9gv/kvYL/5L2C/+S9
gv/kvYL/5L2C/+S9gv/kvYP/5L6D/+S8gP/kvYH/5LuB/+S6gP/kuX//5Lp9/+S4fv/kt3z/5Lh9/+S2
fP/ktXr/5LZ7/+S0ev/ks3j/5LR3/+SyeP/ksXb/5LF3/+Swdv/kr3T/5K5z/+SvdP/krnP/466C//+m
AP8AAAAAAAAAAP+oAP//lwD//5YA//+WAP//lgD//5YA//+WAP//lgD//5YA//+WAP//lgD//5YA//+W
AP//lgD//5YA//+WAP//lgD//5YA//+WAP//lgD//5YA//+WAP//lwD//5cA//+XAP//lwD//5cA//+X
AP//lwD//5cA//+XAP//lwD//5cA//+XAP//lwD//5cA//+YAP//mAD//5gA//+YAP//mAD//5gA//+Y
AP//mAD//5gA//+oAP8AAAAAAAAAAP+pAP/8lgD/+pQA//qUAP/6lAD/+pQA//qUAP/6lAD/+pQA//qU
AP/6lAD/+pQA//qUAP/6lAD/+pQA//qUAP/6lAD/+pQA//qUAP/6lAD/+pQA//qUAP/6lAD/+pQA//qU
AP/6lAD/+pQA//qUAP/6lAD/+pQA//qUAP/6lAD/+pQA//qUAP/6lAD/+pQA//qUAP/6lAD/+pQA//qU
AP/6lAD/+pQA//qUAP/6lAD//JYA//+pAP8AAAAAAAAAAP+qAP/3kQD/8IoA//CKAP/wigD/8IoA//CK
AP/wigD/8IoA//CKAP/wigD/8IoA//CKAP/wigD/8IoA//CKAP/wigD/8IoA//CKAP/wigD/8IoA//CK
AP/wigD/8IoA//CKAP/wigD/8IoA//CKAP/wigD/8IoA//CKAP/wigD/8IoA//CKAP/wigD/8IoA//CK
AP/wigD/8IoA//CKAP/wigD/8IoA//CKAP/wigD/95EA//+qAP8AAAAAAAAAAP+qAP/yiwD/5X0A/+Z9
AP/mfQD/5n0A/+Z9AP/mfQD/5n0A/+Z9AP/mfQD/5n0A/+Z9AP/mfQD/5n0A/+Z9AP/mfQD/5n0A/+Z9
AP/mfQD/5n0A/+Z9AP/mfQD/5n0A/+Z9AP/mfQD/5n0A/+Z9AP/mfQD/5n0A/+Z9AP/mfQD/5n0A/+Z9
AP/mfQD/5n0A/+Z9AP/mfQD/5n0A/+Z9AP/mfQD/5n0A/+Z9AP/lfQD/8osA//+qAP8AAAAAAAAAAP+o
AP/vo0P/4ZtP/+KbTf/im03/4ptN/+KbTf/im03/4ptN/+KbTf/im03/4ptN/+KbTf/im03/4ptN/+Kb
Tf/im03/4ptN/+KbTf/im03/4ptN/+KbTf/im03/4ptN/+KbTf/im03/4ptN/+KbTf/im03/4ptN/+Kb
Tf/im03/4ptN/+KbTf/im03/4ptN/+KbTf/im03/4ptN/+KbTf/im03/4ptN/+KbTf/hm0//76ND//+o
AP8AAAAAAAAAAP+mAMzvtnP/57yV/+i6j//ouo7/6LqO/+i6jv/ouo7/6LqO/+i6jv/ouo7/6LqO/+i6
jv/ouo7/6LqO/+i6jv/ouo7/6LqO/+i6jv/ouo7/6LqO/+i6jv/ouo7/6LqO/+i6jv/ouo7/6LqO/+i6
jv/ouo7/6LqO/+i6jv/ouo7/6LqO/+i6jv/ouo7/6LqO/+i6jv/ouo7/6LqO/+i6jv/ouo7/6LqO/+i6
j//nvJX/77Zz//+mAMwAAAAAAAAAAP+wAFv/xGf/+NGf//jky//44sj/+OLI//jiyP/44sj/+OLI//ji
yP/44sj/+OLI//jiyP/44sj/+OLI//jiyP/44sj/+OLI//jiyP/44sj/+OLI//jiyP/44sj/+OLI//ji
yP/44sj/+OLI//jiyP/44sj/+OLI//jiyP/44sj/+OLI//jiyP/44sj/+OLI//jiyP/44sj/+OLI//ji
yP/44sj/+OLI//jky//40Z///8Rn//+wAFsAAAAAAAAAAAAAAAD/sABb/6QAzP+iAP//ogD//6IA//+i
AP//ogD//6IA//+iAP//ogD//6IA//+iAP//ogD//6IA//+iAP//ogD//6IA//+iAP//ogD//6IA//+i
AP//ogD//6IA//+iAP//ogD//6IA//+iAP//ogD//6IA//+iAP//ogD//6IA//+iAP//ogD//6IA//+i
AP//ogD//6IA//+iAP//ogD//6IA//+iAP//pADM/7AAWwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA////////AAD///////8AAP///////wAA////////
AADAAAAAAAMAAIAAAAAAAQAAgAAAAAABAACAAAAAAAEAAIAAAAAAAQAAgAAAAAABAACAAAAAAAEAAIAA
AAAAAQAAgAAAAAABAACAAAAAAAEAAIAAAAAAAQAAgAAAAAABAACAAAAAAAEAAIAAAAAAAQAAgAAAAAAB
AACAAAAAAAEAAIAAAAAAAQAAgAAAAAABAACAAAAAAAEAAIAAAAAAAQAAgAAAAAABAACAAAAAAAEAAIAA
AAAAAQAAgAAAAAABAACAAAAAAAEAAIAAAAAAAQAAgAAAAAABAACAAAAAAAEAAIAAAAAAAQAAgAAAAAAB
AACAAAAAAAEAAIAAAAAAAQAAgAAAAAABAACAAAAAAAEAAIAAAAAAAQAAgAAAAAABAACAAAAAAAEAAIAA
AAAAAQAAgAAAAAABAADAAAAAAAMAAP///////wAA////////AAD///////8AAP///////wAA
</value>
</data>
</root>

1406
app/DD-Record-Organizer/frmSQLEditor.resx
View File

File diff suppressed because it is too large Load Diff

351
app/DD-Record-Organizer/frmSQLEditor.vb
View File

@ -1,351 +0,0 @@
Imports System.Text.RegularExpressions
Imports Oracle.ManagedDataAccess.Client
Public Class frmSQLEditor
Dim CurrentPosition As Integer = 0
Dim CurrentPlaceholders As New Placeholders()
Dim CurrentTableType As String
Dim AtPlaceholderPattern As String = "@[A-Za-z_]+"
Public Class Placeholders
Public Property RecordId As Integer
Public Property ParentRecordId As Integer
Public Property FormId As Integer
End Class
Public Property Value() As String
Get
Return txtValue.Text
End Get
Set(value As String)
txtValue.Text = value
End Set
End Property
Private Sub frmSQLEditor_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Load_Connections()
cmbPlaceholder.SelectedIndex = 0
End Sub
Private Sub Load_Connections()
Try
'TODO: Diese Codezeile lädt Daten in die Tabelle "DD_DMSDataSet.TBDD_CONNECTION". Sie können sie bei Bedarf verschieben oder entfernen.
Me.TBDD_CONNECTIONTableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBDD_CONNECTIONTableAdapter.Fill(Me.DD_DMSDataSet.TBDD_CONNECTION)
Catch ex As Exception
LOGGER.Warn(" - Unexpected Error in Load Connections - errpor: " & vbNewLine & ex.Message)
MsgBox("Unexpected Error in Load Connections: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim frm As New frmConnections()
frm.Show()
End Sub
Private Sub txtValue_TextChanged(sender As Object, e As EventArgs) Handles txtValue.TextChanged, txtValue.Click
CurrentPosition = txtValue.SelectionStart
If txtValue.Text.Trim().Count = 0 Then
dgvPlaceholders.Enabled = False
Else
dgvPlaceholders.Enabled = True
End If
CheckForPlaceholders()
End Sub
Private Sub CheckForPlaceholders()
Dim count As Integer = 0
Dim text As String = Me.Value
Dim atPlaceholderRegex = New Regex(AtPlaceholderPattern, RegexOptions.IgnoreCase)
Dim matches As MatchCollection = atPlaceholderRegex.Matches(text)
dgvPlaceholders.Rows.Clear()
For Each match As Match In matches
dgvPlaceholders.Rows.Add({match.Value, ""})
Next
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles btnAddPlaceholder.Click
If Not cmbPlaceholder.Text = String.Empty Then
Dim placeholder As String = cmbPlaceholder.Text
txtValue.Text = txtValue.Text.Insert(CurrentPosition, placeholder)
End If
End Sub
Private Sub btnRefreshConnections_Click(sender As Object, e As EventArgs) Handles btnRefreshConnections.Click
Load_Connections()
End Sub
Private Sub btnTestSQL_Click(sender As Object, e As EventArgs) Handles btnTestSQL.Click
Dim query As String = txtValue.Text
For Each row As DataGridViewRow In dgvPlaceholders.Rows
Dim placeholder As String = row.Cells(0).Value
Dim replacement As String = row.Cells(1).Value
' Wenn Ersetzung ausgefüllt wurde, Platzhalter damit ersetzen
If Not String.IsNullOrEmpty(replacement) Then
query = query.Replace(placeholder, replacement)
Else
MsgBox("Bitte geben Sie für den Platzhalter " & placeholder & " einen Wert an!", MsgBoxStyle.Exclamation, "Fehlende Platzhalter Ersetzung")
Exit Sub
End If
Next
Dim ds As DataSet = ExecuteWithConnection(cmbConnection.SelectedValue, query)
If ds IsNot Nothing Then
dgvResult.DataSource = ds.Tables(0)
End If
End Sub
Private Function ExecuteWithConnection(connectionId As Integer, sql As String) As DataSet
Try
Dim connectionString As String
connectionString = ClassDatabase.GetConnectionString(connectionId)
If connectionString <> "" Then
If connectionString.StartsWith("Server=") And connectionString.Contains("Database=") Then
Dim sqlConnection As SqlClient.SqlConnection
Dim sqlCommand As SqlClient.SqlCommand
Dim sqlAdapter As New SqlClient.SqlDataAdapter
Dim dataset As New DataSet
sqlConnection = New SqlClient.SqlConnection(connectionString)
sqlConnection.Open()
sqlCommand = New SqlClient.SqlCommand(sql, sqlConnection)
sqlAdapter.SelectCommand = sqlCommand
sqlAdapter.Fill(dataset)
Return dataset
ElseIf connectionString.Contains("dsn=") Then 'ODBC-Connection
Dim sqlConnection As Odbc.OdbcConnection
Dim sqlCommand As Odbc.OdbcCommand
Dim sqlAdapter As New Odbc.OdbcDataAdapter
Dim dataset As New DataSet
sqlConnection = New Odbc.OdbcConnection(connectionString)
sqlConnection.Open()
sqlCommand = New Odbc.OdbcCommand(sql, sqlConnection)
sqlAdapter.SelectCommand = sqlCommand
sqlAdapter.Fill(dataset)
Return dataset
Else
LOGGER.Debug("It's an Oracle-Connection (ExecuteWithConnection)")
Dim sqlConnection As OracleConnection
Dim sqlCommand As OracleCommand
Dim sqlAdapter As New OracleDataAdapter
Dim dataset As New DataSet
sqlConnection = New OracleConnection(connectionString)
sqlConnection.Open()
sqlCommand = New OracleCommand(sql, sqlConnection)
sqlAdapter.SelectCommand = sqlCommand
sqlAdapter.Fill(dataset)
Return dataset
End If
Else
MsgBox("Keine gültige ConnectionID", MsgBoxStyle.Exclamation)
End If
Catch ex As Exception
LOGGER.Warn(" - Unvorhergesehener Fehler bei TestSQL - Fehler: " & vbNewLine & ex.Message)
MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei TestSQL:")
Return Nothing
End Try
End Function
Private Sub EnableColumns(Optional enabled = True)
cmbSelectColumns.Enabled = enabled
cmbWhereColumns.Enabled = enabled
End Sub
Private Sub EnableTables()
cmbFromTables.Enabled = True
End Sub
Private Sub radioTable_CheckedChanged(sender As Object, e As EventArgs) Handles radioTable.CheckedChanged
CurrentTableType = "TABLE"
EnableTables()
End Sub
Private Sub radioView_CheckedChanged(sender As Object, e As EventArgs) Handles radioView.CheckedChanged
CurrentTableType = "VIEW"
EnableTables()
End Sub
Private Sub GetColumns(tableName As String, ByRef combobox As ComboBox)
Try
Dim CS As String
CS = ClassDatabase.GetConnectionString(cmbConnection.SelectedValue)
Dim typeCS As String = ClassDatabase.Execute_Scalar("SELECT SQL_PROVIDER FROM TBDD_CONNECTION WHERE GUID = " & cmbConnection.SelectedValue, True)
Dim SQL As String
Dim DT As DataTable
If typeCS.ToUpper = "Oracle".ToUpper Then
SQL = "select COLUMN_NAME from USER_TAB_COLS where TABLE_NAME='" & tableName & "' order by COLUMN_NAME"
DT = ClassDatabase.Oracle_Return_Datatable(SQL, CS, True)
Else
SQL = "SELECT name FROM sys.columns WHERE object_id = OBJECT_ID('" & tableName & "') ORDER BY name"
DT = ClassDatabase.Return_Datatable_CS(SQL, CS, True)
End If
If DT IsNot Nothing Then
combobox.Items.Clear()
For Each row As DataRow In DT.Rows
combobox.Items.Add(row.Item(0))
Next
End If
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in GetColumns:")
End Try
End Sub
Private Sub GetColumns(tableName As String, ByRef combobox As DevExpress.XtraEditors.CheckedComboBoxEdit)
Dim SQL As String = "SELECT name FROM sys.columns WHERE object_id = OBJECT_ID('" & tableName & "') ORDER BY name"
Dim ds As DataSet = ExecuteWithConnection(cmbConnection.SelectedValue, SQL)
If ds IsNot Nothing Then
combobox.Properties.Items.Clear()
For Each row As DataRow In ds.Tables(0).Rows
combobox.Properties.Items.Add(row.Item(0))
Next
End If
End Sub
Private Sub cmbTables_DropDown(sender As Object, e As EventArgs) Handles cmbFromTables.DropDown
Dim type As String
If CurrentTableType = "TABLE" Then
type = "'BASE TABLE'"
ElseIf CurrentTableType = "VIEW" Then
type = "'VIEW'"
End If
Dim SQL As String = "SELECT TABLE_NAME from information_schema.tables where TABLE_TYPE = " & type & " ORDER BY TABLE_NAME"
Dim ds As DataSet = ExecuteWithConnection(cmbConnection.SelectedValue, SQL)
If ds IsNot Nothing Then
cmbFromTables.Items.Clear()
For Each row As DataRow In ds.Tables(0).Rows
cmbFromTables.Items.Add(row.Item(0))
Next
End If
End Sub
Private Sub cmbColumns_DropDown(sender As Object, e As EventArgs) Handles cmbSelectColumns.DropDown
Dim table = cmbFromTables.Text
GetColumns(table, cmbSelectColumns)
End Sub
Private Sub cmbWhereColumns_DropDown(sender As Object, e As EventArgs) Handles cmbWhereColumns.DropDown
Dim table = cmbFromTables.Text
GetColumns(table, cmbWhereColumns)
End Sub
Private Sub cmbFromTables_SelectedIndexChanged() Handles cmbFromTables.SelectedIndexChanged
If cmbFromTables.Text <> "" Then
EnableColumns()
Else
EnableColumns(False)
End If
End Sub
Private Sub queryBuilder_Changed(sender As Object, e As EventArgs) Handles cmbSelectColumns.SelectedIndexChanged, cmbFromTables.SelectedIndexChanged, cmbWhereColumns.SelectedIndexChanged, cmbWhereOperator.SelectedIndexChanged, txtCondition.TextChanged
Dim sql = ""
Dim column, table, column2, op, condition As String
Dim isNumberRegex = New Regex("^\d+$")
column = cmbSelectColumns.Text
table = cmbFromTables.Text
column2 = cmbWhereColumns.Text
op = cmbWhereOperator.Text
condition = txtCondition.Text
If column <> "" And table <> "" Then
sql = String.Format("SELECT [{0}] FROM [{1}]", column, table)
If column2 <> "" And op <> "" And condition <> "" Then
If isNumberRegex.Match(condition).Success = False Then
condition = String.Format("'{0}'", condition)
End If
sql &= String.Format(" WHERE [{0}] {1} {2}", column2, op, condition)
End If
End If
txtValue.Text = sql
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Try
Dim sql_comamnd As String = txtValue.Text
If txtValue.Text.Contains("'") Then
sql_comamnd = txtValue.Text.Replace("'", "''")
End If
Dim upd As String = "UPDATE TBPMO_CONTROL SET SQL_COMMAND_1 = '" & sql_comamnd & "', CONNECTION_ID_1 = " & cmbConnection.SelectedValue & ", CHANGED_WHO = '" & USER_USERNAME & "' WHERE GUID = " & CURRENT_CONTROL_ID
If ClassDatabase.Execute_non_Query(upd, True) Then
MsgBox("SQL-Befehl erfolgreich gespeichert!", MsgBoxStyle.Exclamation)
End If
Catch ex As Exception
LOGGER.Warn(" - Unexpected Error in Save SQL-Command for control - error: " & vbNewLine & ex.Message)
MsgBox("Unexpected Error in Save SQL-Command for control - error: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Private Sub frmSQLEditor_Shown(sender As Object, e As EventArgs) Handles Me.Shown
Try
Dim connsql = "SELECT BEZEICHNUNG FROM TBDD_CONNECTION WHERE GUID = (SELECT CONNECTION_ID_1 FROM TBPMO_CONTROL WHERE GUID = " & CURRENT_CONTROL_ID & ")"
Dim con_name = ClassDatabase.Execute_Scalar(connsql, True)
If IsDBNull(con_name) Then
If Me.DD_DMSDataSet.TBDD_CONNECTION.Rows.Count > 0 Then
cmbConnection.SelectedIndex = 0
End If
Else
If IsNothing(con_name) Then
If Me.DD_DMSDataSet.TBDD_CONNECTION.Rows.Count > 0 Then
cmbConnection.SelectedIndex = 0
End If
Else
cmbConnection.SelectedIndex = cmbConnection.FindStringExact(con_name)
End If
End If
Catch ex As Exception
LOGGER.Warn(" - Unexpected Error in Get Connection for Control - error: " & vbNewLine & ex.Message)
MsgBox("Unexpected Error in Get Connection for Control - error: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
End Class

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

@ -1,5 +1,4 @@
Imports System.IO
Imports DD_LIB_Standards
Public Class frmScanFiles
@ -25,7 +24,7 @@ Public Class frmScanFiles
Try
PdfViewer1.DocumentFilePath = ""
Dim del = "DELETE FROM TBPMO_FILES_USER where HANDLE_TYPE = 'SCAN' AND UPPER(USER_WORK) = UPPER('" & USER_USERNAME & "')"
If clsDatabase.Execute_non_Query(del, True) Then
If MYDB_ECM.ExecuteNonQuery(del) Then
' Make a reference to a directory.
Dim di As New DirectoryInfo(CURRENT_SCAN_FOLDERWATCH)
' Get a reference to each file in that directory.
@ -179,7 +178,7 @@ Public Class frmScanFiles
Dim i1 = i.Text
If Not IsNothing(i) Then
Dim del = "DELETE FROM TBPMO_FILES_USER where GUID = " & i.Tag
If ClassDatabase.Execute_non_Query(del, True) Then
If MYDB_ECM.ExecuteNonQuery(del) Then
ClassFolderWatcher.Check_Scan_Files()
Load_Files()
Else
@ -220,7 +219,7 @@ Public Class frmScanFiles
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
PdfViewer1.DocumentFilePath = ""
Dim del = "DELETE FROM TBPMO_FILES_USER where HANDLE_TYPE = 'SCAN' AND UPPER(USER_WORK) = UPPER('" & USER_USERNAME & "')"
If ClassDatabase.Execute_non_Query(del, True) Then
If MYDB_ECM.ExecuteNonQuery(del) Then
ClassFolderWatcher.Check_Scan_Files()
Load_Files()
End If

10
app/DD-Record-Organizer/frmSplash.Designer.vb generated
View File

@ -13,7 +13,6 @@ Partial Class frmSplash
MyBase.Dispose(disposing)
End Try
End Sub
Friend WithEvents ApplicationTitle As System.Windows.Forms.Label
Friend WithEvents Version As System.Windows.Forms.Label
Friend WithEvents Copyright As System.Windows.Forms.Label
@ -28,7 +27,6 @@ Partial Class frmSplash
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmSplash))
Me.Version = New System.Windows.Forms.Label()
Me.Copyright = New System.Windows.Forms.Label()
Me.ApplicationTitle = New System.Windows.Forms.Label()
Me.lblStatus = New System.Windows.Forms.Label()
Me.pbStatus = New System.Windows.Forms.ProgressBar()
Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel()
@ -53,12 +51,6 @@ Partial Class frmSplash
resources.ApplyResources(Me.Copyright, "Copyright")
Me.Copyright.Name = "Copyright"
'
'ApplicationTitle
'
resources.ApplyResources(Me.ApplicationTitle, "ApplicationTitle")
Me.ApplicationTitle.BackColor = System.Drawing.Color.Transparent
Me.ApplicationTitle.Name = "ApplicationTitle"
'
'lblStatus
'
resources.ApplyResources(Me.lblStatus, "lblStatus")
@ -96,7 +88,6 @@ Partial Class frmSplash
'
'PictureBox2
'
Me.PictureBox2.Image = Global.DD_Record_Organizer.My.Resources.Resources.DD_Icons_ADDI
resources.ApplyResources(Me.PictureBox2, "PictureBox2")
Me.PictureBox2.Name = "PictureBox2"
Me.PictureBox2.TabStop = False
@ -108,7 +99,6 @@ Partial Class frmSplash
Me.ControlBox = False
Me.Controls.Add(Me.lblpersonilization)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.ApplicationTitle)
Me.Controls.Add(Me.PictureBox1)
Me.Controls.Add(Me.TableLayoutPanel1)
Me.Controls.Add(Me.lblStatus)

14281
app/DD-Record-Organizer/frmSplash.resx
View File

File diff suppressed because it is too large Load Diff

12
app/DD-Record-Organizer/frmSplash.vb
View File

@ -28,12 +28,12 @@ Public NotInheritable Class frmSplash
' Projekteigenschaften (im Menü "Projekt") anpassen.
'Anwendungstitel
If My.Application.Info.Title <> "" Then
ApplicationTitle.Text = My.Application.Info.Title
Else
'Wenn der Anwendungstitel fehlt, Anwendungsnamen ohne Erweiterung verwenden
ApplicationTitle.Text = System.IO.Path.GetFileNameWithoutExtension(My.Application.Info.AssemblyName)
End If
'If My.Application.Info.Title <> "" Then
' ApplicationTitle.Text = My.Application.Info.Title
'Else
' 'Wenn der Anwendungstitel fehlt, Anwendungsnamen ohne Erweiterung verwenden
' ApplicationTitle.Text = System.IO.Path.GetFileNameWithoutExtension(My.Application.Info.AssemblyName)
'End If
'Verwenden Sie zum Formatieren der Versionsinformationen den Text, der zur Entwurfszeit in der Versionskontrolle festgelegt wurde, als
' Formatierungszeichenfolge. Dies ermöglicht ggf. eine effektive Lokalisierung.

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

@ -36,7 +36,7 @@
For Each row As DataRow In DD_ECMAdmin.TBPMO_LOG_ESSENTIALS.Rows
If row.Item("Selection") = True Then
Dim del = String.Format("DELETE FROM TBPMO_LOG_ESSENTIALS WHERE GUID = {0}", row.Item("GUID"))
ClassDatabase.Execute_non_Query(del)
MYDB_ECM.ExecuteNonQuery(del)
End If
Next
Load_Essentials()

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

@ -368,7 +368,7 @@
pbBackground.ImageLocation = Nothing
pbBackground.Image = Nothing
Dim sql As String = String.Format("UPDATE TBPMO_STRUCTURE_NODES_CONFIGURATION SET NODE_IMAGE IS NULL WHERE GUID = {0}", Me.GUIDTextBox.Text)
If ClassDatabase.Execute_non_Query(sql, False) = True Then
If MYDB_ECM.ExecuteNonQuery(SQL) = True Then
setimageNull = False
End If
Catch ex As Exception
@ -386,7 +386,7 @@
pbBackground.ImageLocation = Nothing
pbBackground.Image = Nothing
Dim sql = "SELECT NODE_IMAGE FROM TBPMO_STRUCTURE_NODES_CONFIGURATION WHERE GUID = " & GUIDTextBox.Text
Dim img = ClassDatabase.Execute_Scalar(sql)
Dim img = MYDB_ECM.GetScalarValue(SQL)
' Hintergrundbild unwandeln und anzeigen
If Not IsDBNull(img) Then
Dim bimage() As Byte = img

20
app/DD-Record-Organizer/frmTask_Editor.vb
View File

@ -6,7 +6,7 @@ Public Class frmTask_Editor
Try
Dim upd = String.Format("UPDATE TBPMO_WORKFLOW_TASK SET COMMENT = '{0}', DUE_DATE = '{1}', STATE_ID = {2}, ACTIVE = {3}, CHANGED_WHO = '{4}', TASK_DATE = '{5}' " & _
"WHERE GUID = {6}", COMMENTTextBox.Text, DUE_DATEDateTimePicker.Value, STATE_IDComboBox.SelectedValue, 1, USER_USERNAME, DateTimePicker1.Value, Me.GUIDTextBox.Text)
If ClassDatabase.Execute_non_Query(upd, True) Then
If MYDB_ECM.ExecuteNonQuery(upd) Then
Me.Close()
Else
MsgBox("Update not successfull. Please check logfile.", MsgBoxStyle.Exclamation)
@ -60,7 +60,7 @@ Public Class frmTask_Editor
Sub Load_Following()
Try
Dim sql = "select WF_TASK_ID, dbo.FNPMO_GETOBJECTCAPTION('{0}', 'TASK_TITLE' + CONVERT(VARCHAR(5), WF_ID), 1) AS [Workflow-Title] from VWPMO_WF_ACTIVE where WF_TASK_ID <> " & Me.GUIDTextBox.Text & " AND RECORD_ID = " & CURRENT_RECORD_ID
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
Dim DT As DataTable = MYDB_ECM.GetDatatable(sql)
Dim msg As String = " nachfolgender Task"
If USER_LANGUAGE <> "de-DE" Then
msg = " following task:"
@ -101,7 +101,7 @@ Public Class frmTask_Editor
Try
Dim Sql = "SELECT T.GUID as [User-ID], T.NAME + ', ' + T.PRENAME AS [User] 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' ORDER BY USERNAME"
Dim DT As DataTable = ClassDatabase.Return_Datatable(Sql)
Dim DT As DataTable = MYDB_ECM.GetDatatable(sql)
If DT Is Nothing = False Then
Me.ListBoxUser.Visible = True
Me.ListBoxUser.DataSource = DT
@ -119,7 +119,7 @@ WHERE T2.SHORT_NAME = 'ADDI' ORDER BY USERNAME"
Try
'Dim sql = "SELECT * FROM VWPMO_WF_USER WHERE LOWER(USERNAME) = '" & USER_USERNAME & "' AND WF_TASK_ID = " & Me.GUIDTextBox.Text
Dim sql = "SELECT * FROM VWPMO_WF_USER WHERE WF_TASK_ID = " & Me.GUIDTextBox.Text
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
Dim DT As DataTable = MYDB_ECM.GetDatatable(sql)
Dim count As Integer = 0
If DT Is Nothing = False Then
ListViewExclusiveUser.Items.Clear()
@ -174,7 +174,7 @@ WHERE T2.SHORT_NAME = 'ADDI' ORDER BY USERNAME"
Try
If e.Data.GetData(DataFormats.Text) Is Nothing = False Then
Dim sql = "Insert INTO TBPMO_WORKFLOW_TASK_USER (WF_TASK_ID,[USER_ID]) VALUES (" & Me.GUIDTextBox.Text & ", " & e.Data.GetData(DataFormats.Text) & ")"
If ClassDatabase.Execute_non_Query(sql, False) = True Then
If MYDB_ECM.ExecuteNonQuery(SQL) = True Then
Load_TASK_USER()
End If
End If
@ -187,7 +187,7 @@ WHERE T2.SHORT_NAME = 'ADDI' ORDER BY USERNAME"
Try
If (Me.ListViewExclusiveUser.SelectedItems.Count > 0) Then
Dim sql = "DELETE FROM TBPMO_WORKFLOW_TASK_USER WHERE GUID = " & Me.ListViewExclusiveUser.SelectedItems.Item(0).Text
ClassDatabase.Execute_non_Query(sql, False)
MYDB_ECM.ExecuteNonQuery(SQL)
Load_TASK_USER()
End If
@ -201,9 +201,9 @@ WHERE T2.SHORT_NAME = 'ADDI' ORDER BY USERNAME"
Dim result As MsgBoxResult = MsgBox("Sind Sie sicher das Sie diesen Task löschen wollen??", MsgBoxStyle.YesNo, "Bestätigung erforderlich:")
If result = MsgBoxResult.Yes Then
Dim sql = "DELETE FROM TBPMO_WORKFLOW_TASK_USER WHERE WF_TASK_ID = " & Me.GUIDTextBox.Text
If ClassDatabase.Execute_non_Query(sql) Then
If MYDB_ECM.ExecuteNonQuery(Sql) Then
sql = "DELETE FROM TBPMO_WORKFLOW_TASK WHERE GUID = " & Me.GUIDTextBox.Text
If ClassDatabase.Execute_non_Query(sql) Then
If MYDB_ECM.ExecuteNonQuery(Sql) Then
Load_Task()
Load_Following()
Load_TASK_USER()
@ -233,7 +233,7 @@ WHERE T2.SHORT_NAME = 'ADDI' ORDER BY USERNAME"
Dim result As MsgBoxResult = MsgBox("Sind Sie sicher das Sie diesen nachfolgenden Task löschen wollen??", MsgBoxStyle.YesNo, "Bestätigung erforderlich:")
If result = MsgBoxResult.Yes Then
Dim sql = "DELETE FROM TBPMO_WORKFLOW_TASK WHERE GUID = " & ID
If ClassDatabase.Execute_non_Query(sql) = True Then
If MYDB_ECM.ExecuteNonQuery(Sql) = True Then
Load_Task()
Load_Following()
Load_TASK_USER()
@ -255,7 +255,7 @@ WHERE T2.SHORT_NAME = 'ADDI' ORDER BY USERNAME"
Try
If ListBoxUser.SelectedIndex <> -1 And ListBoxUser.SelectedValue > 0 Then
Dim sql = "Insert INTO TBPMO_WORKFLOW_TASK_USER (WF_TASK_ID,[USER_ID]) VALUES (" & Me.GUIDTextBox.Text & ", " & ListBoxUser.SelectedValue & ")"
If ClassDatabase.Execute_non_Query(sql, False) = True Then
If MYDB_ECM.ExecuteNonQuery(SQL) = True Then
Load_TASK_USER()
End If
End If

56
app/DD-Record-Organizer/frmTask_Management.vb
View File

@ -79,7 +79,7 @@
Try
Dim DT_SQL = String.Format("SELECT ID, Title,[dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), FormViewID), {1}) AS 'CAPTION' FROM VWPMO_GUI_ENTITY WHERE FORM_TYPE_ID = 1 AND PARENT_ID = 0", USER_LANGUAGE, CURRENT_SCREEN_ID)
Dim DT As DataTable = ClassDatabase.Return_Datatable(DT_SQL)
Dim DT As DataTable = MYDB_ECM.GetDatatable(DT_SQL)
If DT.Rows.Count > 0 Then
TreeViewEntities.Nodes.Clear()
For Each Row As DataRow In DT.Rows
@ -90,7 +90,7 @@
'Jetzt die Ebene1Knoten einhängen
DT_SQL = String.Format("SELECT ID, Title,[dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), FormViewID), {1}) AS 'CAPTION' FROM VWPMO_GUI_ENTITY WHERE FORM_TYPE_ID in (2,5) AND PARENT_ID = {2} ORDER BY LEVEL", USER_LANGUAGE, CURRENT_SCREEN_ID, Row.Item("ID"))
'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
@ -99,7 +99,7 @@
DT_SQL = String.Format("SELECT ID, Title,[dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), FormViewID), {1}) AS 'CAPTION' FROM VWPMO_GUI_ENTITY WHERE FORM_TYPE_ID in (3,5) AND PARENT_ID = {2} ORDER BY LEVEL", USER_LANGUAGE, CURRENT_SCREEN_ID, row1.Item("ID"))
' 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
@ -114,7 +114,7 @@
Next
DT_SQL = String.Format("SELECT ID, Title,[dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), FormViewID), {1}) AS 'CAPTION' FROM VWPMO_GUI_ENTITY WHERE FORM_TYPE_ID = 4 AND PARENT_ID = 0 ORDER BY CAPTION", USER_LANGUAGE, CURRENT_SCREEN_ID)
'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)
If DT3.Rows.Count > 0 Then
Dim Node As TreeNode
Node = TreeViewEntities.Nodes.Add("INDEPENDENT ENTITIES")
@ -288,22 +288,11 @@
If DataGridView1.Item(0, i).Value Is Nothing = False Then
Dim i1 = DataGridView1.Item(0, i).Value
Dim del = "DELETE FROM TBPMO_WORKFLOW_ENTITY_STATE WHERE GUID = " & i1
If ClassDatabase.Execute_non_Query(del) Then
If MYDB_ECM.ExecuteNonQuery(del) Then
Load_ENTITY_States("ENT")
End If
End If
'If ListBoxEntityWorkflow.SelectedIndex <> -1 Then
' Dim ID = ListBoxEntityWorkflow.SelectedValue
' If ClassDatabase.Execute_non_Query(del) = True Then
' Dim txt As String = "Der Datensatz wurde erfolgreich gelöscht - " & Now
' If USER_LANGUAGE <> "de-DE" Then
' txt = "The record has been deleted - " & Now
' End If
' Refresh_Workflow_Form(_ENTITYID)
' toolstriplabel(True, txt)
' End If
'End If
Catch ex As Exception
MsgBox("Error in delete entity-workflow:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
@ -334,7 +323,7 @@
sql = String.Format("SELECT GUID as ID,dbo.FNPMO_GETOBJECTCAPTION('{0}', 'FORMVIEW_TITLE' + CONVERT(VARCHAR(5),FV_ID), 1) AS Entity,dbo.FNPMO_GETOBJECTCAPTION('{0}', 'TASK_TITLE' + CONVERT(VARCHAR(5),WF_ID), 1) AS [Task/Workflow],dbo.FNPMO_GETOBJECTCAPTION('{0}', 'WF_STATE_TITLE' + CONVERT(VARCHAR(5),STATE_ID), 1) AS [State],Final FROM VWPMO_WORKFLOW_ENTITY_STATE WHERE STATE_ID = {1}", USER_LANGUAGE, GUIDTextBox.Text)
End Select
' Dim sql = String.Format("SELECT T.GUID,T1.STATE_DESC FROM TBPMO_WORKFLOW_ENTITY_STATE T, TBPMO_WORKFLOW_TASK_STATE T1 WHERE T.STATE_ID = T1.GUID AND T.WF_ID = {0} AND T.ENTITY_ID = {1}", Workflow_ID, _ENTITYID)
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
Dim DT As DataTable = MYDB_ECM.GetDatatable(sql)
DataGridView1.DataSource = DT
lblSelection.Text = txtlbl
DataGridView1.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells
@ -389,7 +378,7 @@
' Try
' If GUIDTextBox.Text <> "" And GUIDTextBox1.Text <> "" And _ENTITYID <> 0 Then
' Dim ins = String.Format("INSERT INTO TBPMO_WORKFLOW_ENTITY_STATE (WF_ID,ENTITY_ID,STATE_ID,ADDED_WHO) VALUES({0},{1},{2},'{3}')", GUIDTextBox1.Text, _ENTITYID, GUIDTextBox.Text, USER_USERNAME)
' If ClassDatabase.Execute_non_Query(ins) Then
' If MYDB_ECM.ExecuteNonQuery(ins) Then
' Dim txt As String = "Der Datensatz wurde erfolgreich hinzugefügt - " & Now
' If USER_LANGUAGE <> "de-DE" Then
' txt = "The record was added successfully - " & Now
@ -429,31 +418,6 @@
End Try
End Sub
'Private Sub btndeleteEntityState_Click(sender As Object, e As EventArgs) Handles btndeleteEntityState.Click
' Try
' 'If ListBoxEntity_State.SelectedIndex <> -1 Then
' ' Dim ID = ListBoxEntity_State.SelectedValue
' ' Dim del = "DELETE FROM TBPMO_WORKFLOW_TASK WHERE STATE_ID = " & ID
' ' If ClassDatabase.Execute_non_Query(del) = True Then
' ' del = "DELETE FROM TBPMO_WORKFLOW_ENTITY_STATE WHERE GUID = " & ID
' ' If ClassDatabase.Execute_non_Query(del) = True Then
' ' Dim txt As String = "Der Datensatz wurde erfolgreich gelöscht - " & Now
' ' If USER_LANGUAGE <> "de-DE" Then
' ' txt = "The record has been deleted - " & Now
' ' End If
' ' If Not IsNothing(ListBoxEntity_State.SelectedItem) And _ENTITYID > 0 Then
' ' Load_ENTITY_States(ListBoxEntity_State.SelectedItem)
' ' End If
' ' toolstriplabel(True, txt)
' ' End If
' ' End If
' 'End If
' Catch ex As Exception
' MsgBox("Error in delete entity-workflow:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
' End Try
'End Sub
Private Sub TBPMO_WORKFLOW_TASK_STATEBindingSource_CurrentChanged(sender As Object, e As EventArgs) Handles TBPMO_WORKFLOW_TASK_STATEBindingSource.CurrentChanged
If GUIDTextBox.Text <> "" And _ENTITYID <> 0 Then
@ -498,7 +462,7 @@
End Select
Dim ins = String.Format("INSERT INTO TBPMO_WORKFLOW_ENTITY_STATE (WF_ID,ENTITY_ID,STATE_ID,ADDED_WHO,FINAL) VALUES({0},{1},{2},'{3}',{4})", GUIDTextBox1.Text, txtEntity.Tag, txtState.Tag, USER_USERNAME, final)
If ClassDatabase.Execute_non_Query(ins, False) Then
If MYDB_ECM.ExecuteNonQuery(ins) Then
Dim txt As String = "Der Datensatz wurde erfolgreich hinzugefügt - " & Now
If USER_LANGUAGE <> "de-DE" Then
txt = "The record was added successfully - " & Now
@ -532,7 +496,7 @@
If DataGridView1.Item(0, i).Value Is Nothing = False Then
Dim i1 = DataGridView1.Item(0, i).Value
Dim sel = "SELECT COMMENT FROM TBPMO_WORKFLOW_ENTITY_STATE WHERE GUID = " & i1
Dim result = ClassDatabase.Execute_Scalar(sel)
Dim result = MYDB_ECM.GetScalarValue(sel)
txtComment.Text = result
End If
Catch ex As Exception
@ -552,7 +516,7 @@
If DataGridView1.Item(0, i).Value Is Nothing = False Then
Dim i1 = DataGridView1.Item(0, i).Value
Dim upd = "UPDATE TBPMO_WORKFLOW_ENTITY_STATE SET COMMENT = '" & txtComment.Text & "' WHERE GUID = " & i1
If ClassDatabase.Execute_non_Query(upd, False) = False Then
If MYDB_ECM.ExecuteNonQuery(upd) = False Then
MsgBox("Workflow Comment could not be updated -Check log", MsgBoxStyle.Critical)
End If
End If

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

@ -2,7 +2,7 @@
Public Sub Refresh()
Try
Dim DTACTIVE As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM VWPMO_WF_OVERVIEW_AUTHORITY WHERE RECORD_ID = " & CURRENT_RECORD_ID & " AND STATE_ID NOT IN (SELECT WORKFLOW_FINAL_STATE1 FROM TBPMO_KONFIGURATION WHERE GUID = 1)")
Dim DTACTIVE As DataTable = MYDB_ECM.GetDatatable("SELECT * FROM VWPMO_WF_OVERVIEW_AUTHORITY WHERE RECORD_ID = " & CURRENT_RECORD_ID & " AND STATE_ID NOT IN (SELECT WORKFLOW_FINAL_STATE1 FROM TBPMO_KONFIGURATION WHERE GUID = 1)")
ListViewActive.Items.Clear()
Dim anz As Integer = 0
For Each row As DataRow In DTACTIVE.Rows
@ -27,7 +27,7 @@
End Try
Try
Dim DTACTIVE As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM VWPMO_WF_OVERVIEW_AUTHORITY WHERE RECORD_ID = " & CURRENT_RECORD_ID & " AND STATE_ID = (SELECT WORKFLOW_FINAL_STATE1 FROM TBPMO_KONFIGURATION WHERE GUID = 1)")
Dim DTACTIVE As DataTable = MYDB_ECM.GetDatatable("SELECT * FROM VWPMO_WF_OVERVIEW_AUTHORITY WHERE RECORD_ID = " & CURRENT_RECORD_ID & " AND STATE_ID = (SELECT WORKFLOW_FINAL_STATE1 FROM TBPMO_KONFIGURATION WHERE GUID = 1)")
ListViewDone.Items.Clear()
Dim anz As Integer = 0
For Each row As DataRow In DTACTIVE.Rows

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