MS1808

app/DD-Record-Organiser/ClassHelper.vb

@@ -233,5 +233,24 @@ Public Class ClassHelper
         End Try
 
     End Function
+    Public Shared Function InsertEssential_Log(REFERENCE_KEY As Integer, REFERENCE_STRING As String, COMMENT As String)
+        Try
+            Dim insert = String.Format("INSERT INTO TBPMO_LOG_ESSENTIALS (REFERENCE_KEY,REFERENCE_STRING,COMMENT,ADDED_WHO) VALUES ({0},'{1}','{2}','{3}')", REFERENCE_KEY, REFERENCE_STRING, COMMENT, Environment.UserName)
+            Return ClassDatabase.Execute_non_Query(insert)
+        Catch ex As Exception
+            ClassLogger.Add("Unexpected Error in InsertEssential_Log: " & ex.Message, True)
+            Return False
+        End Try
+    End Function
+    Public Shared Function DeleteRecord(ByVal SELECTED_RECORD_ID)
+        Try
+            Dim DeleteRecordSQL = String.Format("EXEC [dbo].[PRPMO_DELETE_RECORD] {0} {1}", SELECTED_RECORD_ID, Environment.UserName)
+            Return ClassDatabase.Execute_non_Query_withConn(DeleteRecordSQL, 1)
+        Catch ex As Exception
+            ClassLogger.Add("Unexpected Error in DeleteRecord: " & ex.Message, True)
+            Return False
+        End Try
+       
+    End Function
 
 End Class