From bf0b438798d470071210aefa474b8281c52af793 Mon Sep 17 00:00:00 2001 From: Digital Data - Marlon Schreiber Date: Tue, 15 Mar 2022 14:46:17 +0100 Subject: [PATCH] MS Param IDB_NEW_OBJECT --- Service.EDMIService/IDB/Helpers.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Service.EDMIService/IDB/Helpers.vb b/Service.EDMIService/IDB/Helpers.vb index 4b7622d4..357b310d 100644 --- a/Service.EDMIService/IDB/Helpers.vb +++ b/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,