Howdy, Stranger!
Categories
- All Categories
- 73 General
- 73 Announcements
- 66.5K Microsoft Dynamics NAV
- 18.5K NAV Three Tier
- 38.4K NAV/Navision Classic Client
- 3.6K Navision Attain
- 2.4K Navision Financials
- 115 Navision DOS
- 854 Navision e-Commerce
- 1K NAV Tips & Tricks
- 772 NAV Dutch speaking only
- 615 NAV Courses, Exams & Certification
- 2K Microsoft Dynamics-Other
- 1.5K Dynamics AX
- 262 Dynamics CRM
- 109 Dynamics GP
- 10 Dynamics SL
- 1.5K Other
- 992 SQL General
- 385 SQL Performance
- 33 SQL Tips & Tricks
- 34 Design Patterns (General & Best Practices)
- Architectural Patterns
- 10 Design Patterns
- 5 Implementation Patterns
- 53 3rd Party Products, Services & Events
- 1.7K General
- 1.1K General Chat
- 1.6K Website
- 79 Testing
- 1.2K Download section
- 23 How Tos section
- 259 Feedback
- 12 NAV TechDays 2013 Sessions
- 13 NAV TechDays 2012 Sessions
Options
Concatenate multiple comments
Veselin
Member Posts: 19
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?
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?
0
Best Answer
-
Options
TallyHo
Member Posts: 383
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;
6
Answers
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;