DocumentViewer Aufruf über Pfad (txtDateien)

This commit is contained in:
Developer01 2025-08-22 08:46:26 +02:00
parent 468f6e8ff0
commit daf1c16b30

View File

@ -2914,7 +2914,16 @@ Public Class frmValidator
' Load Document in Document Viewer ' Load Document in Document Viewer
Dim oFileName = $"{CURRENT_DOC_ID}.{Current_Document.Extension}" Dim oFileName = $"{CURRENT_DOC_ID}.{Current_Document.Extension}"
If Not IsNothing(DocumentViewer1) Then 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? DocumentViewer1.RightOnlyView(USER_RIGHT_VIEW_ONLY) 'war auskommentiert.....WARUM?
End If End If