local procedure WriteNote()

    var

        Customer_: Record 18;

        RecRef_: RecordRef;

        RecordLink_: Record 2000000068;

        RecLink_: Codeunit 447;

    begin

        if Customer_.Get(10000) then;

        RecRef_.GetTable(Customer_);

        RecordLink_.Init();

        RecordLink_."Link ID" := 0;

        RecordLink_."Record ID" := RecRef_.RecordId;

        RecordLink_.URL1 := GetUrl(ClientType::Current, CompanyName, ObjectType::Page, Page::"Customer Card");

        RecordLink_.Type := RecordLink_.Type::Note;

        RecordLink_.Created := CurrentDateTime;

        RecordLink_."User ID" := UserId;

        RecordLink_.Company := CompanyName;

        RecordLink_.Notify := false;

        RecLink_.WriteNote(RecordLink_, 'testing3');

        RecordLink_.Insert();

    end;