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

MS ExportFiles SelectedPath and PRPM_GETFILENAME_EXPORT

Browse Source
This commit is contained in:
SchreiberM
2021-09-21 15:17:34 +02:00
parent 49840b12f7
commit c3c7ff5b38
4 changed files with 33 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
app/DD_PM_WINDREAM/frmMain.vb
View File

@@ -719,7 +719,9 @@ Public Class frmMain
Await Load_single_Profile(True)
GridView_Docs.HideLoadingPanel()
TimerRefresh.Start()
Else
CURRENT_CLICKED_PROFILE_TITLE = Nothing
CURRENT_CLICKED_PROFILE_ID = Nothing
End If
End If
ElseIf _tag = "OVERVIEW" Then
@@ -1463,20 +1465,18 @@ Public Class frmMain
If oHitProfilID > 0 Then
CURRENT_CLICKED_PROFILE_ID = oHitProfilID
End If
End If
If Not IsNothing(CURRENT_CLICKED_PROFILE_ID) And IsNumeric(CURRENT_CLICKED_PROFILE_ID) Then
LOGGER.Debug($"Item_Scope: Not IsNothing(PROFIL_ID) And IsNumeric(PROFIL_ID)")
Dim expression As String
expression = "PROFILE_ID = " & CURRENT_CLICKED_PROFILE_ID
Dim oExpression As String
oExpression = "PROFILE_ID = " & CURRENT_CLICKED_PROFILE_ID
If hitInfo.InGroupRow Or (startedFrom = "CMGROUP" And hitInfo.InDataRow) Then
CURRENT_JUMP_DOC_GUID = 0
CURRENT_DOC_GUID = 0
CURRENT_ProfilGUID = CURRENT_CLICKED_PROFILE_ID
LOGGER.Debug($"Item_Scope: hitInfo.InGroupRow...oHitProfilID [{CURRENT_CLICKED_PROFILE_ID}]")
Load_Profil_from_Grid(CURRENT_CLICKED_PROFILE_ID)
ElseIf hitInfo.InDataRow Then
LOGGER.Debug($"Item_Scope: hitInfo.InDataRow...")
Dim oFocusedDocGUID
@@ -1515,7 +1515,7 @@ Public Class frmMain
DOC_PATH = DOC_PATH.Replace("W:\", "\\windream\objects\")
DOC_PATH = DOC_PATH.Replace("K:\", "\\windream\objects\")
'Checking if table really contains one record with profile-id and docid
expression = expression & " AND DocID = " & oFocusedDocID
oExpression = oExpression & " AND DocID = " & oFocusedDocID
'Dim TEMP_TABLE = CURR_DT_OVERVIEW
'Dim foundRows() As DataRow
'foundRows = TEMP_TABLE.Select(expression)