DocumentViewer Aufruf über Pfad (txtDateien)

app/TaskFlow/frmMain.vb

@@ -2242,84 +2242,50 @@ Public Class frmMain
         Item_Scope("DOUBLECLICK")
     End Sub
 
-    'Private Sub GridViewWorkflows_CustomDrawGroupRow(sender As Object, e As Views.Base.RowObjectCustomDrawEventArgs) Handles GridViewWorkflows.CustomDrawGroupRow
-    '    Try
-    '        ' Added
-    '        If FormOpenClose = True And GridIsLoaded = False Then
-    '            Exit Sub
-    '        End If
-
-    '        Dim info As GridGroupRowInfo = TryCast(e.Info, GridGroupRowInfo)
-    '        Dim view As GridView = sender
-
-    '        If info.Column.FieldName = "GROUP_TEXT" Then
-    '            info.GroupText = info.GroupValueText
-
-    '            Dim oColorString As String = "LightGray"
-    '            Dim oFontColorString As String = "Black"
-    '            Dim oFoundConfig As Boolean = False
-    '            Dim oGROUP_TEXT_COL As String
-    '            If USER_LANGUAGE = "de-DE" Then
-    '                oGROUP_TEXT_COL = "GROUP_TEXT"
-    '            Else
-    '                oGROUP_TEXT_COL = "GROUP_TEXT_LANG"
-    '            End If
-
-
-    '            For Each oProfileRow As DataRow In CURR_DT_VWPM_PROFILE_ACTIVE.Rows
-    '                If oProfileRow.Item(oGROUP_TEXT_COL) = info.GroupValueText Then
-    '                    oFoundConfig = True
-    '                    oColorString = oProfileRow.Item("GROUP_COLOR")
-    '                    oFontColorString = oProfileRow.Item("GROUP_FONT_COLOR")
-    '                    ' Added
-    '                    Exit For
-    '                End If
-    '            Next
-    '            If oFoundConfig = False Then
-    '                LOGGER.Info($"CustomDrawGroupRow: Could not find a ColorConfig for ProfileGroupValueText [{info.GroupValueText}]...")
-    '                ' Added
-    '                Exit Sub
-    '            End If
-
-    '            Dim oColor As Color = ParseColorString(oColorString, Color.LightGray, "Background Color")
-    '            Dim oFontColor As Color = ParseColorString(oFontColorString, Color.Black, "Font Color")
-
-    '            info.Appearance.BackColor = oColor
-    '            info.Appearance.ForeColor = oFontColor
-    '        End If
-    '    Catch ex As Exception
-    '        LOGGER.Error(ex)
-    '    End Try
-    'End Sub
-
     Private Sub GridViewWorkflows_CustomDrawGroupRow(sender As Object, e As Views.Base.RowObjectCustomDrawEventArgs) Handles GridViewWorkflows.CustomDrawGroupRow
         Try
-
+            ' Added
             If FormOpenClose = True And GridIsLoaded = False Then
                 Exit Sub
             End If
 
-            Dim oInfo As GridGroupRowInfo = TryCast(e.Info, GridGroupRowInfo)
+            Dim info As GridGroupRowInfo = TryCast(e.Info, GridGroupRowInfo)
-            If oInfo Is Nothing OrElse oInfo.Column Is Nothing Then
+            Dim view As GridView = sender
-                Exit Sub
-            End If
 
-            Dim oView As GridView = sender
+            If info.Column.FieldName = "GROUP_TEXT" Then
-
+                info.GroupText = info.GroupValueText
-            If oInfo.Column.FieldName = "GROUP_TEXT" Then
-                oInfo.GroupText = oInfo.GroupValueText
 
                 Dim oColorString As String = "LightGray"
                 Dim oFontColorString As String = "Black"
-                Dim oChildRowHandle As Integer = oView.GetChildRowHandle(oInfo.RowHandle, 0)
+                Dim oFoundConfig As Boolean = False
+                Dim oGROUP_TEXT_COL As String
+                If USER_LANGUAGE = "de-DE" Then
+                    oGROUP_TEXT_COL = "GROUP_TEXT"
+                Else
+                    oGROUP_TEXT_COL = "GROUP_TEXT_LANG"
+                End If
 
-                oColorString = oView.GetRowCellValue(oChildRowHandle, "GROUP_COLOR")
+
+                For Each oProfileRow As DataRow In CURR_DT_VWPM_PROFILE_ACTIVE.Rows
+                    If oProfileRow.Item(oGROUP_TEXT_COL) = info.GroupValueText Then
+                        oFoundConfig = True
+                        oColorString = oProfileRow.Item("GROUP_COLOR")
+                        oFontColorString = oProfileRow.Item("GROUP_FONT_COLOR")
+                        ' Added
+                        Exit For
+                    End If
+                Next
+                If oFoundConfig = False Then
+                    LOGGER.Info($"CustomDrawGroupRow: Could not find a ColorConfig for ProfileGroupValueText [{info.GroupValueText}]...")
+                    ' Added
+                    Exit Sub
+                End If
 
                 Dim oColor As Color = ParseColorString(oColorString, Color.LightGray, "Background Color")
                 Dim oFontColor As Color = ParseColorString(oFontColorString, Color.Black, "Font Color")
 
-                oInfo.Appearance.BackColor = oColor
+                info.Appearance.BackColor = oColor
-                oInfo.Appearance.ForeColor = oFontColor
+                info.Appearance.ForeColor = oFontColor
             End If
         Catch ex As Exception
             LOGGER.Error(ex)
@@ -3296,7 +3262,7 @@ FROM VWPM_PROFILE_ACTIVE T WHERE T.GUID IN (SELECT PROFILE_ID FROM [dbo].[FNPM_G
 
                     LOGGER.Debug($"oTargetPath with NowParams: {oTargetPath}")
 
-                    Dim oResult = WINDREAM_MOD.NewFileStream(oSourcePath, oTargetPath, oWMObjecttype)
+                    Dim oResult = WINDREAM_MOD.NewFileStream(oSourcePath, oTargetPath, oWMObjecttype, True)
                     If oResult = True Then
                         WM_AHWF_docPath = oTargetPath
                         Dim oDocID = WINDREAM_MOD.NewDocumentID

app/TaskFlow/frmValidator.vb

@@ -2914,7 +2914,16 @@ Public Class frmValidator
         ' Load Document in Document Viewer
         Dim oFileName = $"{CURRENT_DOC_ID}.{Current_Document.Extension}"
         If Not IsNothing(DocumentViewer1) Then
-            DocumentViewer1.LoadFile(oFileName, New MemoryStream(Current_Document.Contents))
+            If (OPERATION_MODE_FS = ClassConstants.OpModeFS_PWM Or OPERATION_MODE_FS = ClassConstants.OpModeFS_IDBWM) Then
+                DocumentViewer1.LoadFile(Current_Document.FullPath)
+                'Erstmal auskommentiert
+                'DocumentViewer1.LoadFile(oFileName, New MemoryStream(Current_Document.Contents))
+            Else
+                'DocumentViewer1.LoadFile(oFileName, New MemoryStream(Current_Document.Contents))
+
+
+            End If
+
             DocumentViewer1.RightOnlyView(USER_RIGHT_VIEW_ONLY) 'war auskommentiert.....WARUM?
         End If