From daf1c16b304907ee99e21f6fe72b9567c6248569 Mon Sep 17 00:00:00 2001 From: Developer01 Date: Fri, 22 Aug 2025 08:46:26 +0200 Subject: [PATCH] =?UTF-8?q?DocumentViewer=20Aufruf=20=C3=BCber=20Pfad=20(t?= =?UTF-8?q?xtDateien)?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- app/TaskFlow/frmValidator.vb | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/app/TaskFlow/frmValidator.vb b/app/TaskFlow/frmValidator.vb index cd5db57..1df8faf 100644 --- a/app/TaskFlow/frmValidator.vb +++ b/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