diff --git a/src/System Application/App/VS Code Integration/src/VsCodeIntegrationImpl.Codeunit.al b/src/System Application/App/VS Code Integration/src/VsCodeIntegrationImpl.Codeunit.al index b3f4ca2e0..2e823da21 100644 --- a/src/System Application/App/VS Code Integration/src/VsCodeIntegrationImpl.Codeunit.al +++ b/src/System Application/App/VS Code Integration/src/VsCodeIntegrationImpl.Codeunit.al @@ -11,7 +11,6 @@ codeunit 8333 "VS Code Integration Impl." InherentPermissions = X; var - AllObjWithCaption: Record AllObjWithCaption; UriBuilder: Codeunit "Uri Builder"; VSCodeRequestHelper: DotNet VSCodeRequestHelper; AlExtensionUriTxt: Label 'vscode://ms-dynamics-smb.al', Locked = true; @@ -105,6 +104,8 @@ codeunit 8333 "VS Code Integration Impl." [Scope('OnPrem')] local procedure FormatObjectType(ObjectType: Option): Text + var + AllObjWithCaption: Record AllObjWithCaption; begin case ObjectType of AllObjWithCaption."Object Type"::Page: @@ -119,6 +120,7 @@ codeunit 8333 "VS Code Integration Impl." [Scope('OnPrem')] local procedure GetAppIdForObject(ObjectType: Option; ObjectId: Integer): Text var + AllObjWithCaption: Record AllObjWithCaption; NavAppInstalledApp: Record "NAV App Installed App"; EmptyGuid: Guid; begin @@ -127,7 +129,6 @@ codeunit 8333 "VS Code Integration Impl." exit(EmptyGuid); if AllObjWithCaption.ReadPermission() then begin - AllObjWithCaption.Reset(); AllObjWithCaption.SetRange("Object Type", ObjectType); AllObjWithCaption.SetRange("Object ID", ObjectId);