Concatenate multiple comments

Veselin

Hello.
I need from table 5414 Prod. Order Comment Line take all comments for one production order and store all comments in table 5405 Production Order as one field.
One production order can have multiple comments. Can you give me advice?

TallyHo

Try something like this:

CommentLine.SETRANGE("Document Type","Document Type");
CommentLine.SETRANGE("No.","document No.");
IF CommentLine.FINDSET THEN
REPEAT
IF STRLEN(TheField) + STRLEN(CommentLine.Comment) > maxstrlen(TheField) THEN BEGIN
SalesCommentLine.Comment := COPYSTR(CommentLine.Comment,1,((STRLEN(TheField) + STRLEN(CommentLine.Comment)) - maxstrlen(TheField)));
StopLoop := TRUE;
END;
IF TheField = '' THEN
TheField := CommentLine.Comment
ELSE
TheField += CommentLine.Comment;
UNTIL (CommentLine.NEXT <= 0) OR StopLoop;

bostjan.les@gmail.com

You have to do some programing. Write some code, that filters all T5414 record for one PO and adds all the comment to PO.

TallyHo

Try something like this:

CommentLine.SETRANGE("Document Type","Document Type");
CommentLine.SETRANGE("No.","document No.");
IF CommentLine.FINDSET THEN
REPEAT
IF STRLEN(TheField) + STRLEN(CommentLine.Comment) > maxstrlen(TheField) THEN BEGIN
SalesCommentLine.Comment := COPYSTR(CommentLine.Comment,1,((STRLEN(TheField) + STRLEN(CommentLine.Comment)) - maxstrlen(TheField)));
StopLoop := TRUE;
END;
IF TheField = '' THEN
TheField := CommentLine.Comment
ELSE
TheField += CommentLine.Comment;
UNTIL (CommentLine.NEXT <= 0) OR StopLoop;