Codeunit 4470 Record Link Impl.

// ------------------------------------------------------------------------------------------------
// Copyright (c) Microsoft Corporation. All rights reserved.
// Licensed under the MIT License. See License.txt in the project root for license information.
// ------------------------------------------------------------------------------------------------

namespace System.Utilities;

using System;
using System.Environment.Configuration;

codeunit 4470 "Record Link Impl."
{
    Access = Internal;
    InherentEntitlements = X;
    InherentPermissions = X;
    SingleInstance = true;
    Permissions = tabledata "Record Link" = rimd;

    var
        RecordLinkManagement: Codeunit "Record Link Management";
        RemoveLinkConfirmQst: Label 'Do you want to remove links with no record reference?';
        RemovingMsg: Label 'Removing Record Links without record reference.\';
        RemovingStatusMsg: Label '@1@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@';
        ResultMsg: Label '%1 orphaned links were removed.', Comment = '%1 = number of orphaned record links found.';

    procedure CopyLinks(FromRecordVariant: Variant; ToRecordVariant: Variant)
    var
        RecordRefTo: RecordRef;
    begin
        RecordRefTo.GetTable(ToRecordVariant);
        RecordRefTo.CopyLinks(FromRecordVariant);
        RecordLinkManagement.OnAfterCopyLinks(FromRecordVariant, ToRecordVariant);
    end;

    procedure WriteNote(var RecordLink: Record "Record Link"; Note: Text)
    var
        BinWriter: DotNet BinaryWriter;
        Output: OutStream;
    begin
        RecordLink.Note.CreateOutStream(Output, TextEncoding::UTF8);
        BinWriter := BinWriter.BinaryWriter(Output);
        BinWriter.Write(Note);
    end;

    procedure ReadNote(RecordLink: Record "Record Link") Note: Text
    var
        BinReader: DotNet BinaryReader;
        Data: InStream;
    begin
        RecordLink.Note.CreateInStream(Data, TextEncoding::UTF8);
        BinReader := BinReader.BinaryReader(Data);
        // Peek if stream is empty
        if BinReader.BaseStream().Position() = BinReader.BaseStream().Length() then
            exit;
        Note := BinReader.ReadString();
    end;

    procedure RemoveLinks(RecVariant: Variant)
    var
        RecRef: RecordRef;
        NotARecordErr: Label 'Internal server error. Please contact your system administrator.';
    begin
        if not RecVariant.IsRecord() then
            Error(NotARecordErr);

        RecRef.GetTable(RecVariant);
        if RecRef.FindSet() then
            repeat
                if RecRef.HasLinks() then
                    RecRef.DeleteLinks();
            until RecRef.Next() = 0;
    end;

    procedure RemoveOrphanedLinks()
    var
        ConfirmManagement: Codeunit "Confirm Management";
        NoOfRemovedLinks: Integer;
    begin
        if ConfirmManagement.GetResponseOrDefault(RemoveLinkConfirmQst, true) then begin
            NoOfRemovedLinks := RemoveOrphanedLink();
            if GuiAllowed() then
                Message(ResultMsg, NoOfRemovedLinks);
        end;
    end;

    local procedure RemoveOrphanedLink() NoOfRemovedLinks: Integer
    var
        RecordLink: Record "Record Link";
        RecordRef: RecordRef;
        PrevRecID: RecordId;
        WindowDialog: Dialog;
        i: Integer;
        Total: Integer;
        TimeLocked: Time;
        InTransaction: Boolean;
        RecordExists: Boolean;
    begin
        if GuiAllowed() then
            WindowDialog.Open(RemovingMsg + RemovingStatusMsg);
        TimeLocked := Time();
        RecordLink.SetFilter(Company, '%1|%2', '', CompanyName());
        RecordLink.SetCurrentKey("Record ID");
        Total := RecordLink.Count();
        if Total = 0 then
            exit;
        InTransaction := false;
        if RecordLink.Find('-') then
            repeat
                i := i + 1;
                if GuiAllowed() and ((i mod 1000) = 0) then
                    WindowDialog.Update(1, Round(i / Total * 10000, 1));
                if Format(RecordLink."Record ID") <> Format(PrevRecID) then begin  // Direct comparison doesn't work.
                    PrevRecID := RecordLink."Record ID";
                    RecordExists := RecordRef.Get(RecordLink."Record ID");
                end;
                if not RecordExists then begin
                    RecordLink.Delete();
                    NoOfRemovedLinks += 1;
                    if not InTransaction then
                        TimeLocked := Time();
                    InTransaction := true;
                end;
                if InTransaction and (Time() > (TimeLocked + 1000)) then begin
                    Commit();
                    TimeLocked := Time();
                    InTransaction := false;
                end;
            until RecordLink.Next() = 0;
        if GuiAllowed() then
            WindowDialog.Close();
    end;
}