MS Adding documents

app/DD-Record-Organizer/Classes/ClassHelper.vb

@@ -446,4 +446,14 @@ Public Class ClassHelper
             Return False
         End Try
     End Function
+    Public Shared Function Insert_USER_File(filename As String, handleType As String)
+        Try
+            Dim filename_only As String = Path.GetFileName(filename)
+            Dim ins As String = String.Format("INSERT INTO TBPMO_FILES_USER (FILENAME2WORK, USER_WORK,HANDLE_TYPE,FILENAME_ONLY) VALUES ('{0}','{1}','{2}','{3}')", filename, USER_USERNAME, handleType, filename_only)
+            Return MYDB_ECM.ExecuteNonQuery(ins)
+        Catch ex As Exception
+            MsgBox("Unexpected Error in Insert Scan-File: " & ex.Message, MsgBoxStyle.Critical)
+            Return False
+        End Try
+    End Function
 End Class