AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

jj für MS 25.01.17

Browse Source
This commit is contained in:
SchreiberM
2017-01-25 10:41:50 +01:00
parent 9d485d82f0
commit 64ef01a393
13 changed files with 1299 additions and 986 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
app/DD-Record-Organiser/ClassHelper.vb
View File

@@ -1,6 +1,6 @@
Imports System.IO
Imports System.Globalization
Imports DD_LIB_Standards
Public Class ClassHelper
Public Shared Function Convert_Date(input As String, format As String)
Try
@@ -137,8 +137,8 @@ Public Class ClassHelper
OPEN_DOCVIEW(RESULT_DOC_PATH, DocID)
End Select
End If
Else
MSGBOX_Handler("ERROR", "", "Sorry, but the docpath for doc-id: " & DocID & " is nothing!")
If LogErrorsOnly = False Then ClassLogger.Add(" >> RESULT_DOC_PATH IS NOTHING")
End If
Catch ex As Exception
@@ -178,14 +178,15 @@ Public Class ClassHelper
Private Shared Sub File_SYSOPEN(RESULT_DOC_PATH As Object, DocID As String)
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 '" & RESULT_DOC_PATH & "' not existing or accessible!", MsgBoxStyle.Exclamation)
If clsWD_GET.WDFile_exists(RESULT_DOC_PATH, True) = False Then
MSGBOX_Handler("ERROR", "", "File '" & RESULT_DOC_PATH & "' not existing!")
Else
MSGBOX_Handler("ERROR", "", "File '" & RESULT_DOC_PATH & "' is existing but You are not provided with reading rights! Please inform Your admin!")
End If
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)