23. November 2016 12:33
23. November 2016 17:17
23. November 2016 17:34
23. November 2016 17:36
16. Januar 2017 14:03
26. Januar 2017 16:57
26. Januar 2017 17:17
27. Januar 2017 09:59
5. März 2021 18:05
Text2Note(str : Text[1024]) TXT : Text[1024]
s := str;
SystemUTF8Encoder := SystemUTF8Encoder.UTF8Encoding;
SystemByteArray := SystemUTF8Encoder.GetBytes(s);
x := SystemByteArray.Length DIV 128;
IF x > 1 THEN
y := SystemByteArray.Length - 128 * (x - 1)
ELSE
y := SystemByteArray.Length;
c1 := y;
z[1] := c1;
TXT := z;
IF x > 0 THEN BEGIN
c2 := x;
z[1] := c2;
TXT += z;
END;
FOR i := 0 TO SystemByteArray.Length - 1 DO BEGIN
c1 := SystemByteArray.GetValue(i);
z[1] := c1;
TXT +=z;
END;
7. April 2022 10:50
IF Cust.GET(IssuedReminderHeader."Customer No.") THEN
RecordLinkManagement.CopyLinks(Cust, IssuedReminderHeader);