how to create memo field with al

(0) Share

Report

Posted on by ptournay

I need to create text field in my item table. I searched a lot an I found something thats looks like : https://community.dynamics.com/nav/b/smallsquareservices/posts/using-memo-blob-to-enable-huge-text.

But it's an old one and there was breaking changes since release 15.

Can someone help me ?

Thanks

Patrick

I have the same question (0)

All responses (2)

Answers (1)

Suggested answer

Chris Bulson on at

Like (0)

Report

Hello,

It looks like the same idea applies in AL (Memo for Blob data type)

docs.microsoft.com/.../blob-data-type

I can't provide any sample code, although someone from the community may be able to do that.

Was this reply helpful? Yes No
Verified answer

ptournay 35 on at

Like (0)

Report

Thanks for your help.

As it was very urgent, I tried many things and finally I found a solution which is valid in version 15 and above.

I hope it will help someone else.

Patrick

1) In the table ext : create a blob

  field(55093; Avantages; Blob)

        {

            Subtype = Memo;

            Caption = 'Avantages';

            DataClassification = ToBeClassified;

        }

2) in the table ext create 2 procedures

Those procedures will make the data exchange between the Text field on screen and the blob field in database

PROCEDURE SetAvantages(NewText: Text);

    VAR

        OutStr: OutStream;

    BEGIN

        CLEAR(Avantages);

        IF NewText = '' THEN

            EXIT;

        Avantages.CreateOutStream(OutStr);

        OutStr.WriteText(NewText);

        MODIFY;

    END;

    PROCEDURE GetAvantages(): Text;

    VAR

        InStr: InStream;

        outText: Text;

    BEGIN

        CALCFIELDS(Avantages);

        IF NOT Avantages.HASVALUE THEN

            EXIT('');

        Avantages.CreateInStream(InStr);

        InStr.ReadText(outText);

        EXIT(outText);

    END;

3) in the page ext : create a TEXT variable

at the bottom

var

        AvantagesText: Text;

4) in the page ext : create a TEXT field

field(AvantagesText; AvantagesText) <= the variable create in (3)

                {

                    Caption = 'Avantages';

                    ApplicationArea = All;

                    Editable = true;

                    MultiLine = true;

                    trigger OnValidate()

                    begin

                        SetAvantages(AvantagesText);

                    end;

                }

5) in the page ext : add a trigger for filling text variable with bob content on reading

trigger OnAfterGetRecord()

    begin

        AvantagesText := GetAvantages();

    end;

Was this reply helpful? Yes No

Join the conversation

Community site session details

how to create memo field with al

Helpful resources

Quick Links

Responsible AI policies

Neeraj Kumar – Community Spotlight

Congratulations to the November Top 10 Community Leaders!

Leaderboard > Small and medium business | Business Central, NAV, RMS

Featured topics

Product updates

Community site session details

how to create memo field with al

Helpful resources

Quick Links

Responsible AI policies

Neeraj Kumar – Community Spotlight

Congratulations to the November Top 10 Community Leaders!

Subscribe to this forum!

Select categories

Leaderboard > Small and medium business | Business Central, NAV, RMS

Featured topics

Product updates