MS01.08.2016

This commit is contained in:
SchreiberM
2016-08-02 10:33:46 +02:00
parent bd3652b891
commit 76c1d9d66b
9 changed files with 3157 additions and 2310 deletions

View File

@@ -132,7 +132,8 @@ Public Class ClassHelper
Else
File_SYSOPEN(RESULT_DOC_PATH, DocID)
End If
Else
If LogErrorsOnly = False Then ClassLogger.Add(" >> RESULT_DOC_PATH IS NOTHING")
End If
Catch ex As Exception
MsgBox("Unexpected Error in File_open:" & vbNewLine & ex.Message & vbNewLine & RESULT_DOC_PATH & vbNewLine & "DocID: " & DocID, MsgBoxStyle.Critical)
@@ -143,6 +144,13 @@ Public Class ClassHelper
Try
If RESULT_DOC_PATH <> Nothing Then
If System.IO.File.Exists(RESULT_DOC_PATH) = True Then
Process.Start(RESULT_DOC_PATH)
Else
MsgBox("File Does Not Exist!", MsgBoxStyle.Exclamation)
End If
End If
Catch ex As Exception
MsgBox("Unexpected Error in File_SYSOPEN:" & vbNewLine & ex.Message & vbNewLine & RESULT_DOC_PATH & vbNewLine & "DocID: " & DocID, MsgBoxStyle.Critical)