With the same code and only changing the text it produces different results
procedure FillNote()
var
Customer: Record Customer;
RecordLink: Record "Record Link";
outStr: OutStream;
MyInStream: InStream;
begin
Customer.GET('00000006');
Clear(RecordLink);
RecordLink.Init();
RecordLink."Record ID" := Customer.RecordId();
RecordLink.Type := RecordLink.Type::Note;
RecordLink."Link ID" := 0;
RecordLink.Created := CurrentDateTime;
RecordLink."User ID" := USERID;
RecordLink.Company := CompanyName;
RecordLink.Note.CreateOutStream(outStr, TextEncoding::UTF8);
outStr.WRITETEXT('1111111111111 2222222222222 33333333333333 444444444444 555555');
if RecordLink.Insert(true) then
Message('Si')
else
Message('No');
end;
RESULT:
the text is truncated
procedure FillNote()
var
Customer: Record Customer;
RecordLink: Record "Record Link";
outStr: OutStream;
MyInStream: InStream;
begin
Customer.GET('00000006');
Clear(RecordLink);
RecordLink.Init();
RecordLink."Record ID" := Customer.RecordId();
RecordLink.Type := RecordLink.Type::Note;
RecordLink."Link ID" := 0;
RecordLink.Created := CurrentDateTime;
RecordLink."User ID" := USERID;
RecordLink.Company := CompanyName;
RecordLink.Note.CreateOutStream(outStr, TextEncoding::UTF8);
outStr.WRITETEXT('AAA BBB CCC DDD EEE FFF');
if RecordLink.Insert(true) then
Message('Si')
else
Message('No');
end;
RESULT:
the text is invalid
changed to TextEncoding::Windows I have the same result, what could it be?
