AppStd/TaskFlow
8
1
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

CONFIG.UserConfigPath

Browse Source
This commit is contained in:
SchreiberM
2020-12-22 14:33:43 +01:00
parent e326a7b660
commit 650ebd8848
8 changed files with 341 additions and 171 deletions
Download Patch File Download Diff File Expand all files Collapse all files

59
app/DD_PM_WINDREAM/frmValidator.vb
View File

@@ -11,6 +11,8 @@ Imports DevExpress.XtraGrid
Imports System.Reflection
Imports DigitalData.Controls.ChatControl
Imports DevExpress.XtraEditors.Repository
Imports DigitalData.Modules.EDMI.API
Imports DigitalData.Modules.EDMI.API.EDMIServiceReference
Public Class frmValidator
Dim strFileList()
@@ -788,14 +790,38 @@ Public Class frmValidator
Try
pnldesigner.Controls.Clear()
Dim oSQL = $"SELECT [dbo].[FNPM_LANGUAGE_CONTROL_TEXT] (NAME,'{USER_LANGUAGE}',CTRL_TYPE,CTRL_TEXT) CTRL_CAPTION_LANG, * FROM TBPM_PROFILE_CONTROLS WHERE CONTROL_ACTIVE = 1 AND PROFIL_ID = {CURRENT_ProfilGUID} ORDER BY Y_LOC, X_LOC"
DTCONTROLS = ClassDatabase.Return_Datatable(oSQL, "Create_Controls1")
If EDMIAppServerActive = True Then
Dim oTableResult As TableResult = _Client.GetDatatableByName("TBPM_PROFILE_CONTROLS_LANGUAGE", $"LANGUAGE = '{USER_LANGUAGE}' AND PROFIL_ID = {CURRENT_ProfilGUID}", "Y_LOC, X_LOC")
DTCONTROLS = oTableResult.Table
Else
DTCONTROLS = ClassDatabase.Return_Datatable(oSQL, "Create_Controls1")
End If
oSQL = $"SELECT T1.GUID As CONTROL_ID, T1.PROFIL_ID, T.CONNECTION_ID, T.SQL_COMMAND, T.SPALTENNAME,T.FORMATTYPE,T.FORMATSTRING from TBPM_CONTROL_TABLE T, TBPM_PROFILE_CONTROLS T1 WHERE CONTROL_ACTIVE = 1 AND T.CONTROL_ID = T1.GUID AND T1.PROFIL_ID = {CURRENT_ProfilGUID} AND LEN(T.SQL_COMMAND) > 0 AND T.LOAD_AFT_LOAD_CONTROL = 0 ORDER BY T.SEQUENCE"
DTGRID_COLUMNS_WITH_SQL = ClassDatabase.Return_Datatable(oSQL, "Create_Controls2")
If EDMIAppServerActive = True Then
Dim oTableResult As TableResult = _Client.GetDatatableByName("DTGRID_COLUMNS_WITH_SQL", $"PROFIL_ID = {CURRENT_ProfilGUID}", "SEQUENCE")
DTGRID_COLUMNS_WITH_SQL = oTableResult.Table
Else
DTGRID_COLUMNS_WITH_SQL = ClassDatabase.Return_Datatable(oSQL, "Create_Controls2")
End If
oSQL = $"SELECT T.* from TBPM_CONTROL_TABLE T, TBPM_PROFILE_CONTROLS T1 WHERE T1.CONTROL_ACTIVE = 1 AND T.CONTROL_ID = T1.GUID AND T1.PROFIL_ID = {CURRENT_ProfilGUID} ORDER BY T.SEQUENCE"
DTGRID_COLUMNS = ClassDatabase.Return_Datatable(oSQL, "Create_Controls3")
If EDMIAppServerActive = True Then
Dim oTableResult As TableResult = _Client.GetDatatableByName("TBPM_CONTROL_TABLE", $"PROFIL_ID = {CURRENT_ProfilGUID}", "SEQUENCE")
DTGRID_COLUMNS = oTableResult.Table
Else
DTGRID_COLUMNS = ClassDatabase.Return_Datatable(oSQL, "Create_Controls3")
End If
oSQL = $"SELECT T1.GUID As CONTROL_ID, T1.PROFIL_ID, T.CONNECTION_ID, T.SQL_COMMAND, T.SPALTENNAME,T.FORMATTYPE,T.FORMATSTRING from TBPM_CONTROL_TABLE T, TBPM_PROFILE_CONTROLS T1 WHERE T1.CONTROL_ACTIVE = 1 AND T.CONTROL_ID = T1.GUID AND T1.PROFIL_ID = {CURRENT_ProfilGUID} AND LEN(T.SQL_COMMAND) > 0 AND T.LOAD_AFT_LOAD_CONTROL = 1 ORDER BY T.SEQUENCE"
DTGRID_SQL_DEFINITION = ClassDatabase.Return_Datatable(oSQL, "Create_Controls4")
If EDMIAppServerActive = True Then
Dim oTableResult As TableResult = _Client.GetDatatableByName("DTGRID_SQL_DEFINITION", $"PROFIL_ID = {CURRENT_ProfilGUID}", "SEQUENCE")
DTGRID_SQL_DEFINITION = oTableResult.Table
Else
DTGRID_SQL_DEFINITION = ClassDatabase.Return_Datatable(oSQL, "Create_Controls4")
End If
Dim oCount As Integer = 0
@@ -1213,7 +1239,16 @@ Public Class frmValidator
Try
Dim CONTROL_ID = DirectCast(box.Tag, ClassControlCreator.ControlMetadata).Guid
Dim sql = String.Format("select NAME,CONNECTION_ID,SQL_UEBERPRUEFUNG FROM TBPM_PROFILE_CONTROLS WHERE CONTROL_ACTIVE = 1 AND PROFIL_ID = {0} AND SQL_UEBERPRUEFUNG LIKE '%{1}%'", CURRENT_ProfilGUID, box.Name)
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql, "OnTextBoxKeyUp")
Dim DT As DataTable
If EDMIAppServerActive = True Then
Dim oTableResult As TableResult = _Client.GetDatatableByName("TBPM_PROFILE_CONTROLS_SQL_UEP", $"AND PROFIL_ID = {CURRENT_ProfilGUID} AND SQL_UEBERPRUEFUNG LIKE '%{box.Name}%'")
DTCONTROLS = oTableResult.Table
Else
DT = ClassDatabase.Return_Datatable(sql, "OnTextBoxKeyUp")
End If
If Not IsNothing(DT) And DT.Rows.Count > 0 Then
For Each ROW As DataRow In DT.Rows
Try
@@ -3840,7 +3875,13 @@ Public Class frmValidator
If includeFI = True Then
Try
Dim oSQL = $"SELECT * FROM TBPM_PROFILE_FINAL_INDEXING WHERE PROFIL_ID = {CURRENT_ProfilGUID}"
Dim oDTFinalIndexing = ClassDatabase.Return_Datatable(oSQL, "Finish_WFStep")
Dim oDTFinalIndexing As DataTable
If EDMIAppServerActive = True Then
Dim oTableResult As TableResult = _Client.GetDatatableByName("TBPM_PROFILE_FINAL_INDEXING", $"PROFIL_ID = {CURRENT_ProfilGUID}")
oDTFinalIndexing = oTableResult.Table
Else
oDTFinalIndexing = ClassDatabase.Return_Datatable(oSQL, "Finish_WFStep")
End If
If oDTFinalIndexing?.Rows.Count > 0 Then
'Jetzt finale Indexe setzen
@@ -4077,8 +4118,8 @@ Public Class frmValidator
End If
End If
End If
Dim value = CURRENT_DT_PROFILE.Rows(0).Item("ANNOTATE_ALL_WORK_HISTORY_ENTRIES")
If CBool(value) = True Then
Dim oAnnotateAllWHEs = CURRENT_DT_PROFILE.Rows(0).Item("ANNOTATE_ALL_WORK_HISTORY_ENTRIES")
If CBool(oAnnotateAllWHEs) = True Then
oFIsql = String.Format("SELECT * FROM TBPM_FILES_WORK_HISTORY WHERE DOC_ID = {1} ORDER BY GUID", CURRENT_ProfilGUID, CURRENT_DOC_ID)
Dim DT_ENTRIES As DataTable = ClassDatabase.Return_Datatable(oFIsql, "Finish_WFStep3")
If Not IsNothing(DT_ENTRIES) Then
@@ -5459,7 +5500,7 @@ Public Class frmValidator
End Sub
Private Function GetXML_OverviewLayoutName(pProfilID As Integer, pControlID As Integer)
Dim Filename As String = String.Format($"DevExpressValidatorGridControl_{pProfilID}-{pControlID}.xml")
Return System.IO.Path.Combine(Application.UserAppDataPath(), Filename)
Return System.IO.Path.Combine(CONFIG.UserConfigPath, Filename)
End Function
Private Function Conversation_init()
Try