30. Oktober 2006 19:50
GetComments()
ItemCommentLine.RESET;
ItemCommentLine.SETRANGE("Table Name", ItemCommentLine."Table Name"::Item);
ItemCommentLine.SETRANGE("No.", ItemCommentLine."No.");
IF ItemCommentLine.FIND('-') THEN BEGIN
REPEAT
IF STRLEN(ItemComments) + STRLEN(ItemCommentLine.Comment) < MAXSTRLEN(ItemComments) THEN
ItemComments := ItemComments + ' ' + ItemCommentLine.Comment;
UNTIL ItemCommentLine.NEXT = 0;
END;
31. Oktober 2006 11:02
ItemCommentLine.SETRANGE("No.", ItemCommentLine."No.");
ItemCommentLine.SETRANGE(ItemCommentLine."No.", "No.");