Table 5509 Attachment Entity Buffer, source in 29

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

using Microsoft.Finance.GeneralLedger.Ledger;
using Microsoft.Foundation.Attachment;
using System.Utilities;

table 5509 "Attachment Entity Buffer"
{
    Caption = 'Attachment Entity Buffer';
    ReplicateData = false;
    TableType = Temporary;
    DataClassification = CustomerContent;

    fields
    {
        field(3; "Created Date-Time"; DateTime)
        {
            Caption = 'Created Date-Time';
            DataClassification = SystemMetadata;
        }
        field(5; "File Name"; Text[250])
        {
            Caption = 'File Name';
            DataClassification = SystemMetadata;
        }
        field(6; Type; Enum "Document Attachment File Type")
        {
            Caption = 'Type';
            DataClassification = SystemMetadata;
        }
        field(8; Content; BLOB)
        {
            Caption = 'Content';
            DataClassification = SystemMetadata;
            SubType = Bitmap;
        }
        field(12; "Document Type"; Enum "Attachment Entity Buffer Document Type")
        {
            Caption = 'Document Type';
            DataClassification = SystemMetadata;
        }
        field(13; "Attachment Type"; Enum "Attachment Entity Buffer Type")
        {
            Caption = 'Attachment Type';
            DataClassification = SystemMetadata;
        }
        field(8000; Id; Guid)
        {
            Caption = 'Id';
            DataClassification = SystemMetadata;
        }
        field(8001; "Document Id"; Guid)
        {
            Caption = 'Document Id';
            DataClassification = SystemMetadata;
        }
        field(8002; "Byte Size"; Integer)
        {
            Caption = 'Byte Size';
            DataClassification = SystemMetadata;
        }
        field(8003; "G/L Entry No."; Integer)
        {
            Caption = 'G/L Entry No.';
            DataClassification = SystemMetadata;
            TableRelation = "G/L Entry";
        }
        field(11; "Document Flow Purchase"; Boolean)
        {
            Caption = 'Flow to Purch. Trx';
            DataClassification = SystemMetadata;
        }
        field(8012; "Document Flow Sales"; Boolean)
        {
            Caption = 'Flow to Sales Trx';
            DataClassification = SystemMetadata;
        }
        field(8014; "Line No."; Integer)
        {
            Caption = 'Line No.';
            DataClassification = SystemMetadata;
        }
    }

    keys
    {
        key(Key1; Id)
        {
            Clustered = true;
        }
    }

    fieldgroups
    {
    }

    trigger OnRename()
    begin
        if xRec.Id <> Id then
            Error(CannotChangeIDErr);
    end;

    var
        CannotChangeIDErr: Label 'The id cannot be changed.', Locked = true;

    procedure SetBinaryContent(BinaryContent: Text)
    var
        OutStream: OutStream;
    begin
        Content.CreateOutStream(OutStream);
        OutStream.Write(BinaryContent, StrLen(BinaryContent));
    end;

    procedure SetTextContent(TextContent: Text)
    var
        OutStream: OutStream;
    begin
        Content.CreateOutStream(OutStream, GetContentTextEncoding());
        OutStream.Write(TextContent, StrLen(TextContent));
    end;

    [Scope('OnPrem')]
    procedure SetTextContentToBLOB(var TempBlob: Codeunit "Temp Blob"; TextContent: Text)
    var
        OutStream: OutStream;
    begin
        TempBlob.CreateOutStream(OutStream, GetContentTextEncoding());
        OutStream.Write(TextContent, StrLen(TextContent));
    end;

    local procedure GetContentTextEncoding(): TextEncoding
    begin
        exit(TEXTENCODING::UTF8);
    end;
}