Bug Speichern Inherit Value und ReadOnly Columns
This commit is contained in:
Developer01
@@ -446,7 +446,7 @@ Public Class frmMain
|
||||
BarButtonItemFileLink.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
|
||||
SOURCE_INIT = Init_IDB()
|
||||
If SOURCE_INIT = True Then
|
||||
Dim oSQL = $"SELECT SQL_COMMAND FROM TBDD_SQL_COMMANDS WHERE TITLE = 'PM_IDB_DOC_DATA'"
|
||||
Dim oSQL = $"SELECT SQL_COMMAND FROM TBDD_SQL_COMMANDS WITH (NOLOCK) WHERE TITLE = 'PM_IDB_DOC_DATA'"
|
||||
|
||||
Dim DTIDB_DOC_DATA_SQL = DatabaseFallback.GetDatatable("TBDD_SQL_COMMANDS", New GetDatatableOptions(oSQL, DatabaseType.ECM) With {
|
||||
.FilterExpression = "TITLE = 'PM_IDB_DOC_DATA'"
|
||||
@@ -1474,9 +1474,6 @@ Public Class frmMain
|
||||
CURRENT_ProfilGUID = pProfilID
|
||||
WM_AHWF_docPath = String.Empty
|
||||
|
||||
|
||||
|
||||
' Dim th As System.Threading.Thread
|
||||
If Not Application.OpenForms().OfType(Of frmValidator).Any Then
|
||||
If TimerRefresh.Enabled Then
|
||||
TimerRefresh.Enabled = False
|
||||
@@ -1501,17 +1498,23 @@ Public Class frmMain
|
||||
MsgBox("Could not get a Profile - Check Your log!", MsgBoxStyle.Exclamation, ADDITIONAL_TITLE)
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
oExpression = $"PROFILE_ID = {CURRENT_ProfilGUID} "
|
||||
DT_FILTERED_PROFILE_SEARCHES_DOC = Nothing
|
||||
DT_FILTERED_PROFILE_SEARCHES_DOC = BASEDATA_DT_PROFILES_SEARCHES_DOC.Copy
|
||||
DT_FILTERED_PROFILE_SEARCHES_DOC.Clear()
|
||||
oExpression = $"PROFILE_ID = {CURRENT_ProfilGUID}"
|
||||
BASEDATA_DT_PROFILES_SEARCHES_DOC.Select(oExpression, "TAB_INDEX").CopyToDataTable(DT_FILTERED_PROFILE_SEARCHES_DOC, LoadOption.PreserveChanges)
|
||||
Dim rows = BASEDATA_DT_PROFILES_SEARCHES_DOC.Select(oExpression, "TAB_INDEX")
|
||||
If rows.Length > 0 Then
|
||||
DT_FILTERED_PROFILE_SEARCHES_DOC = rows.CopyToDataTable()
|
||||
Else
|
||||
DT_FILTERED_PROFILE_SEARCHES_DOC = BASEDATA_DT_PROFILES_SEARCHES_DOC.Clone()
|
||||
End If
|
||||
|
||||
BASEDATA_DT_PROFILE_SEARCHES_SQL = Nothing
|
||||
BASEDATA_DT_PROFILE_SEARCHES_SQL = BASEDATA_DT_PROFILES_SEARCHES_SQL.Copy
|
||||
BASEDATA_DT_PROFILE_SEARCHES_SQL.Clear()
|
||||
BASEDATA_DT_PROFILES_SEARCHES_SQL.Select(oExpression, "TAB_INDEX").CopyToDataTable(BASEDATA_DT_PROFILE_SEARCHES_SQL, LoadOption.PreserveChanges)
|
||||
rows = BASEDATA_DT_PROFILES_SEARCHES_SQL.Select(oExpression, "TAB_INDEX")
|
||||
If rows.Length > 0 Then
|
||||
BASEDATA_DT_PROFILE_SEARCHES_SQL = rows.CopyToDataTable()
|
||||
Else
|
||||
BASEDATA_DT_PROFILE_SEARCHES_SQL = BASEDATA_DT_PROFILES_SEARCHES_SQL.Clone()
|
||||
End If
|
||||
|
||||
|
||||
Try
|
||||
Dim oEnvironment = GetEnvironment()
|
||||
@@ -1564,9 +1567,6 @@ Public Class frmMain
|
||||
MsgBox("Unexpected error in Load_Profil_from_Grid: " & ex.Message & vbNewLine & ADDITIONAL_TITLE & " will try to reload the overview - Please try again!", MsgBoxStyle.Information, ADDITIONAL_TITLE)
|
||||
Dim task = Decide_Load(False, True)
|
||||
End Try
|
||||
'Me.Visible = True
|
||||
'Decide_Load()
|
||||
|
||||
End Sub
|
||||
|
||||
'Public Sub Task_A()
|
||||
@@ -1574,6 +1574,7 @@ Public Class frmMain
|
||||
' Application.Run(frmA)
|
||||
'End Sub
|
||||
Private Sub Item_Scope(startedFrom As String)
|
||||
Dim showLoadingPanel As Boolean = False
|
||||
Try
|
||||
|
||||
LOGGER.Info("Starting Profile Loading")
|
||||
@@ -1585,6 +1586,11 @@ Public Class frmMain
|
||||
bsiMessage.ItemAppearance.Normal.ForeColor = Color.Black
|
||||
Exit Sub
|
||||
End If
|
||||
' ========== LOADING PANEL AKTIVIEREN (FRÜH) ==========
|
||||
GridViewWorkflows.ShowLoadingPanel()
|
||||
showLoadingPanel = True
|
||||
Me.UseWaitCursor = True
|
||||
|
||||
Dim hitInfo As GridHitInfo = GridViewWorkflows.CalcHitInfo(GridCursorLocation)
|
||||
bsiMessage.Caption = ""
|
||||
bsiMessage.ItemAppearance.Normal.BackColor = Color.Transparent
|
||||
@@ -1838,7 +1844,14 @@ Public Class frmMain
|
||||
bsiMessage.Caption = "Warning in Item_Scope: " & ex.Message
|
||||
bsiMessage.ItemAppearance.Normal.BackColor = Color.Red
|
||||
bsiMessage.ItemAppearance.Normal.ForeColor = Color.Black
|
||||
|
||||
Finally
|
||||
' ========== LOADING PANEL DEAKTIVIEREN ==========
|
||||
If showLoadingPanel Then
|
||||
GridViewWorkflows.HideLoadingPanel()
|
||||
End If
|
||||
Me.UseWaitCursor = False
|
||||
bsiMessage.Caption = ""
|
||||
bsiMessage.ItemAppearance.Normal.BackColor = Color.Transparent
|
||||
End Try
|
||||
End Sub
|
||||
Private Async Sub ValidatorClosed(sender As Object, e As FormClosedEventArgs)
|
||||
@@ -2395,7 +2408,7 @@ Public Class frmMain
|
||||
End If
|
||||
End Sub
|
||||
Sub LoadCURRENT_DT_PROFILES()
|
||||
Dim oSQL = $"select * from TBPM_PROFILE WITH (NOLOCK)where ACTIVE = 1"
|
||||
Dim oSQL = $"select * from TBPM_PROFILE WITH (NOLOCK) where ACTIVE = 1"
|
||||
CURRENT_DT_PROFILES = DatabaseFallback.GetDatatable("TBPM_PROFILE", New GetDatatableOptions(oSQL, DatabaseType.ECM))
|
||||
oSQL = $"select * from TBDD_GUI_LANGUAGE_PHRASE WITH (NOLOCK) where LANGUAGE = '{USER_LANGUAGE}' AND MODULE = 'PM' AND TITLE LIKE 'PROFILE_%'"
|
||||
CURRENT_DT_PROFILE_LANGUAGE = DatabaseFallback.GetDatatable("TBPMPROFILE_LANGUAGE_TERMS", New GetDatatableOptions(oSQL, DatabaseType.ECM) With {
|
||||
@@ -2427,7 +2440,7 @@ Public Class frmMain
|
||||
LOGGER.Debug($"VWPM_PROFILE_ACTIVE-SELECT used from DD-SQL-Config..")
|
||||
Else
|
||||
oSQL = $"SELECT [dbo].[FNDD_LANGUAGE_PHRASE] ('PROFILE_TITLE' + CONVERT(VARCHAR(4),T.GUID),'{USER_LANGUAGE}','PM') as GROUP_TEXT_LANG, T.*
|
||||
FROM VWPM_PROFILE_ACTIVE T WITH (NOLOCk) WHERE T.GUID IN (SELECT PROFILE_ID FROM [dbo].[FNPM_GET_ACTIVE_PROFILES_USER] ({USER_ID}))"
|
||||
FROM VWPM_PROFILE_ACTIVE T WITH (NOLOCK) WHERE T.GUID IN (SELECT PROFILE_ID FROM [dbo].[FNPM_GET_ACTIVE_PROFILES_USER] ({USER_ID}))"
|
||||
|
||||
End If
|
||||
|
||||
@@ -2512,7 +2525,6 @@ FROM VWPM_PROFILE_ACTIVE T WITH (NOLOCk) WHERE T.GUID IN (SELECT PROFILE_ID FROM
|
||||
|
||||
Me.Text = ADDITIONAL_TITLE
|
||||
CurrNavBarGroup = NavBarControl1.Groups(1)
|
||||
|
||||
FormShown = True
|
||||
Timer_Inactivity_Reset_Disable("Decide_Load")
|
||||
LOGGER.Debug("FormShown..Now Decide_Load...")
|
||||
@@ -3138,7 +3150,7 @@ FROM VWPM_PROFILE_ACTIVE T WITH (NOLOCk) WHERE T.GUID IN (SELECT PROFILE_ID FROM
|
||||
|
||||
If SOURCE_INIT = True Then
|
||||
CURRENT_ProfilGUID = oProfileId
|
||||
Dim oSQL = $"select * from TBPM_PROFILE_FINAL_INDEXING where PROFIL_ID = {CURRENT_ProfilGUID} ORDER BY [SEQUENCE]"
|
||||
Dim oSQL = $"select * from TBPM_PROFILE_FINAL_INDEXING WITH (NOLOCK) where PROFIL_ID = {CURRENT_ProfilGUID} ORDER BY [SEQUENCE]"
|
||||
|
||||
'CURRENT_DT_FINAL_INDEXING = DataASorDB.GetDatatable("DD_ECM", oSQL, "TBPM_PROFILE_FINAL_INDEXING", $"PROFIL_ID = {CURRENT_ProfilGUID}", "SEQUENCE")
|
||||
CURRENT_DT_FINAL_INDEXING = DatabaseFallback.GetDatatable("TBPM_PROFILE_FINAL_INDEXING", New GetDatatableOptions(oSQL, DatabaseType.ECM) With {
|
||||
@@ -3327,7 +3339,6 @@ FROM VWPM_PROFILE_ACTIVE T WITH (NOLOCk) WHERE T.GUID IN (SELECT PROFILE_ID FROM
|
||||
|
||||
Try
|
||||
Dim oEnvironment = GetEnvironment()
|
||||
|
||||
_FormValidator = New frmValidator(oEnvironment)
|
||||
AddHandler _FormValidator.FormClosed, AddressOf ValidatorClosed
|
||||
_FormValidator.Show()
|
||||
|
||||
Reference in New Issue
Block a user