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

MS0602

Browse Source
This commit is contained in:
SchreiberM
2017-02-07 13:46:55 +01:00
parent e772d0cd57
commit acc6e2ebb3
9 changed files with 122 additions and 66 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
app/DD-Record-Organizer/ClassFileResult.vb
View File

@@ -20,7 +20,7 @@
Return False
End If
Catch ex As Exception
ClassLogger.Add("Unexpected Error in Set_InWork: " & ex.Message, True)
ClassLogger.Add("Unexpected Error in Set_InWork: " & ex.Message)
Return False
End Try
End Function
@@ -37,7 +37,7 @@
Return False
End If
Catch ex As Exception
ClassLogger.Add("Unexpected Error in Set_Displayname: " & ex.Message, True)
ClassLogger.Add("Unexpected Error in Set_Displayname: " & ex.Message)
Return False
End Try
End Function
@@ -49,7 +49,7 @@
CURRENT_TBPMO_INDEX_MAN = DT
Return True
Catch ex As Exception
ClassLogger.Add("Unexpected Error in GET_DATATABLE_INDICES_PMO: " & ex.Message, True)
ClassLogger.Add("Unexpected Error in GET_DATATABLE_INDICES_PMO: " & ex.Message)
Return False
End Try
End Function
@@ -68,7 +68,7 @@
End If
Return True
Catch ex As Exception
ClassLogger.Add("Unexpected Error in SET_DOCID_INDICES: " & ex.Message, True)
ClassLogger.Add("Unexpected Error in SET_DOCID_INDICES: " & ex.Message)
Return False
End Try
End Function
@@ -77,7 +77,7 @@
Dim delete As String = String.Format("DELETE FROM TBPMO_DOC_INDICES WHERE DocID = {0}", DocID)
Return ClassDatabase.Execute_non_Query(delete)
Catch ex As Exception
ClassLogger.Add("Unexpected Error in Update_Doc_Indices: " & ex.Message, True)
ClassLogger.Add("Unexpected Error in Update_Doc_Indices: " & ex.Message)
Return False
End Try
End Function
@@ -94,7 +94,7 @@
Return False
End If
Catch ex As Exception
ClassLogger.Add("Unexpected Error in Delete ResultFile: " & ex.Message, True)
ClassLogger.Add(String.Format("Unexpected Error in Delete_ResultFile: ({0},{1},{2})", RESULT_DOC_ID, RECORD_ID, DELETE_FILE) & ex.Message)
MsgBox("Unexpected Error in Delete ResultFile:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Return False
End Try