add Inbox Form

EDMI_ClientSuite/ClassCommonCommands.vb

@@ -1,4 +1,5 @@
 Imports DigitalData.Modules.Logging
+Imports DigitalData.Modules.EDMIFileOps.EDMIServiceReference
 
 Public Class ClassCommonCommands
     Private _LogConfig As LogConfig
@@ -63,4 +64,18 @@ Public Class ClassCommonCommands
         End Try
     End Function
 
+    Public Async Function FNICM_NEW_DOC_VALUE(DocumentId As Int64, Syskey As String, LanguageKey As String, Value As String) As Task(Of ScalarResult)
+        Try
+            Dim oSQL = $"SELECT FNICM_NEW_DOC_VALUE({DocumentId}, '{Syskey}', '{LanguageKey}', '{My.Application.User.UserName}', '{Value}') FROM RDB$DATABASE;"
+            Dim oRequest = Await My.Channel.CreateDatabaseRequestAsync($"Delete Record", False)
+            Dim oResult = Await My.Channel.ReturnScalarAsync(oSQL)
+
+            Await My.Channel.CloseDatabaseRequestAsync()
+
+            Return oResult
+        Catch ex As Exception
+            _Logger.Error(ex)
+            Throw ex
+        End Try
+    End Function
 End Class