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
- 264 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
Return multiple text lines into report
aredmond@thompsonpump.com
Member Posts: 16
I am trying to use the "FIND" command to retrieve multiple comment lines, but I can only seem to get the first record:
CLEAR(Comment_Line);
Comment_Line.SETFILTER("No.", "Service Shipment Header"."Order No.");
Comment_Line.SETRANGE(Type,2);
IF Comment_Line.FIND('-') THEN BEGIN
Fault_1 := Comment_Line.Comment;
REPEAT
UNTIL Comment_Line.NEXT = 0;
END;
Is this the wrong use of the command, or am I misssing something?
As always, thank you for at least reading this.
Krakmup
CLEAR(Comment_Line);
Comment_Line.SETFILTER("No.", "Service Shipment Header"."Order No.");
Comment_Line.SETRANGE(Type,2);
IF Comment_Line.FIND('-') THEN BEGIN
Fault_1 := Comment_Line.Comment;
REPEAT
UNTIL Comment_Line.NEXT = 0;
END;
Is this the wrong use of the command, or am I misssing something?
As always, thank you for at least reading this.
Krakmup
0
Answers
Try FINDSET instead to guarantee based on your version of NAV that it's working. But i'd guess your filters are bad.
Try settings the filters directly on the NAV table as well if you are confused.
Comment_Line.SETFILTER("No.", "Service Shipment Header"."Order No.");
Comment_Line.SETRANGE(Type,Comment_Line.Type::"2");
IF Comment_Line.FIND('-') THEN BEGIN
REPEAT
IF Fault_1 = '' THEN
Fault_1 := Comment_Line.Comment
ELSE
Fault_1 += Fault_1 + ' ' + Comment_Line.Comment;
UNTIL Comment_Line.NEXT = 0;
END;
I think (of course we are all just guessing) that what is needed is:
WITH Comment_Line DO BEGIN RESET; SETRANGE("No.", "Service Shipment Header"."Order No."); SETRANGE(Type,Type::"2"); IF FINDSET THEN BEGIN i := 1; REPEAT Fault[i] := Comment i += 1; UNTIL (NEXT = 0) or (i >= ARRAYLEN(Fault)); END;