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
Download Patch File Download Diff File Expand all files Collapse all files

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