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

MS Changes 1703

Browse Source
This commit is contained in:
SchreiberM
2020-03-17 18:12:37 +01:00
parent c20867509f
commit c841381729
5 changed files with 258 additions and 104 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
app/DD_PM_WINDREAM/frmMain.vb
View File

@@ -831,7 +831,15 @@ Public Class frmMain
Dim oExpression = $"GUID = {CURRENT_ProfilGUID}"
CURRENT_DT_PROFILE.Clear()
CURRENT_DT_PROFILES.Select(oExpression).CopyToDataTable(CURRENT_DT_PROFILE, LoadOption.PreserveChanges)
If CHANGES_IN_ADMINISTRATION = True Then
CURRENT_DT_PROFILES = ClassDatabase.Return_Datatable("select * from TBPM_PROFILE where ACTIVE = 1")
Dim oSQL = $"SELECT * FROM VWPM_CONTROL_INDEX ORDER BY PROFIL_ID,Y_LOC, X_LOC"
DTVWCONTROLS_INDEX = ClassDatabase.Return_Datatable(oSQL)
CHANGES_IN_ADMINISTRATION = False
Else
CURRENT_DT_PROFILES.Select(oExpression).CopyToDataTable(CURRENT_DT_PROFILE, LoadOption.PreserveChanges)
End If
If CURRENT_DT_PROFILE.Rows.Count = 1 Then
CURRENT_ProfilName = CURRENT_DT_PROFILE.Rows(0).Item("NAME")
Else