Merge branch 'master' of http://dd-vmp07-com04:3000/AppStd/Monorepo

Service.EDMIService/IDB/Helpers.vb

@@ -116,7 +116,7 @@ Namespace IDB
         Public Function NewObjectIdWithTransaction(pKindType As String, pWho As String, pConnection As SqlConnection, pTransaction As SqlTransaction) As Long
             Try
                 Dim oNewObjectIdSQL = $"DECLARE @NEW_IDB_OBJ_ID BIGINT
-                            EXEC PRIDB_NEW_OBJECT '{pKindType}','{pWho}',0, @IDB_OBJ_ID = @NEW_IDB_OBJ_ID OUTPUT;
+                            EXEC PRIDB_NEW_OBJECT '{pKindType}','{pWho}',0, 0, @IDB_OBJ_ID = @NEW_IDB_OBJ_ID OUTPUT;
                             SELECT @NEW_IDB_OBJ_ID"
                 Dim oObjectId As Long = Database.GetScalarValueWithConnectionObject(oNewObjectIdSQL,
                                                                                     pConnection,