How to create recordlink or notify by C/AL-Code

Roger · **Posted:** Fri Jan 08, 2010 1:00 pm

If you want to create a notify message which is shown on the start page of a role center you can
use the following example.

It is importent to set the lenght of the text in a CHAR variable in front of the text.

Define the following variables in the locals of the function:
OutStream DataType OutStream
Text DataType Text 250
NewID DataType Integer
LenChar DataType Char

Code: Select all

Text := 'Dies ist ein weiterer wertvoller Hinweis';
LenChar := STRLEN(Text);

Text := FORMAT(LenChar) + Text;

Cont.GET('1000');
NewID := Cont.ADDLINK('dynamicsnav://dell-rotsch:7046/myCharity/myCharity/runpage?page=5050&mode=Edit',
                      'Über eigene Funktion erstellt');

RecordLink.GET(NewID);

RecordLink.CALCFIELDS(Note);
RecordLink.Note.CREATEOUTSTREAM(OutStream);
OutStream.WRITE(Text);

RecordLink.Type := RecordLink.Type::Note;
RecordLink.Notify := TRUE;
RecordLink."To User ID" := USERID;

RecordLink.MODIFY;

Mark Brummel · **Posted:** Fri Jan 08, 2010 1:29 pm

Thanks Roger!
:thumbsup:

arnim · **Posted:** Sun Nov 07, 2010 6:14 pm

Hello Roger,

do you have any idea how to post more the 250 digits in a note? Because a char can have as max value 250.

Thanks in advance

arnim

JohnCon · **Posted:** Sun Nov 14, 2010 6:03 pm

arnim wrote:

Hello Roger,

do you have any idea how to post more the 250 digits in a note? Because a char can have as max value 250.

Thanks in advance

arnim

Has anyone figured out how to import notes that are greater than 250 characters?
Thanks...

Roger · **Posted:** Mon Nov 15, 2010 9:07 am

arnim wrote:

do you have any idea how to post more the 250 digits in a note? Because a char can have as max value 250.

I've used the following code for creating notes

Code: Select all

RecordLink.CALCFIELDS(Note);
RecordLink.Note.CREATEOUTSTREAM(OStream);
OStream.WRITE(FORMAT(LenChar) + _Note);
RecordLink.Type := RecordLink.Type::Note;
RecordLink.Notify := _Notify;
RecordLink."To User ID" := _UserID;

RecordLink.MODIFY;

The variabale _Note is a text variable which have a length of 1024.
I mean, you should be able to add more of such variable using the +
I've not tested it

JohnCon · **Posted:** Mon Nov 15, 2010 4:30 pm

Roger wrote:

arnim wrote:

do you have any idea how to post more the 250 digits in a note? Because a char can have as max value 250.

The variabale _Note is a text variable which have a length of 1024.
I mean, you should be able to add more of such variable using the +
I've not tested it

You get an error when assign LenChar to the length of the text string when LenChar is a char type variable.
Is there another way to assign the length?

northerner · **Joined:** Sat Oct 17, 2009 11:37 am **Posts:** 50

If your text is longer than 255 characters, you need to include a second Char. The formula is in this code...

TextToWriteAsNote Text 1024
NoteLength Integer
Char1 Char
Char2 Char

Code: Select all

NoteLength := STRLEN(TextToWriteAsNote);
IF NoteLength <= 255 THEN BEGIN
  Char1 := NoteLength;
  Char2 := 1;
END ELSE BEGIN
  Char1 := 128 + (NoteLength - 256) MOD 128;
  Char2 := 2 + (NoteLength - 256) DIV 128;
END;
TextToWriteAsNote := FORMAT(Char1) + FORMAT(Char2) + TextToWriteAsNote;

mibuso.com

How to create recordlink or notify by C/AL-Code

Who is online