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
Modifying field value which is in setrange
law
Member Posts: 19
I wrote the following code:
After modifying the first record, the until condition is true, so this code doesn't iterate through the range (MODIFY do a refresh?).
Is there a solution other than declaring an other record type variable, GET the wanted record and modify through this variable?
rTable.SETCURRENTKEY(Ready);
rTable.SETRANGE(Ready,FALSE);
IF rTable.FIND('-') THEN
REPEAT
IF {condition} THEN BEGIN
rTable.Ready:=TRUE;
rTable.MODIFY;
END;
UNTIL rTable.NEXT=0;
After modifying the first record, the until condition is true, so this code doesn't iterate through the range (MODIFY do a refresh?).
Is there a solution other than declaring an other record type variable, GET the wanted record and modify through this variable?
0
Comments
You could also try using the MODIFYALL function but in order to so this you would have to make your condition into a filter. This would save you having to loop through the table.
Another solution is to use the MARK function and then filter on MARKEDONLY
rTable.SETCURRENTKEY(Ready);
rTable.SETRANGE(Ready,FALSE);
IF rTable.FIND('-') THEN
REPEAT
rTable.MARK := {condition}
UNTIL rTable.NEXT=0
rTable.SETCURRENTKEY(Some other key);
rTable.SETRANGE(Ready);
rTable.MARKEDONLY(TRUE);
IF rTable.FIND('-') THEN
REPEAT
rTable.Ready:=TRUE;
rTable.MODIFY;
UNTIL rTable.NEXT = 0;
Try this:
rTable.SETCURRENTKEY(Ready); rTable.SETRANGE(Ready,FALSE); IF rTable.FIND('-') THEN REPEAT IF {condition} THEN BEGIN rTable2.GET(rTable.KeyField); rTable2.Ready:=TRUE; rTable2.MODIFY; END; UNTIL rTable.NEXT=0;The hint is to use 2 record variables.
One to cycle through and to check your condition and another to modify.
rTable.SETCURRENTKEY(Ready); rTable.SETRANGE(Ready,FALSE); IF rTable.FIND('-') THEN REPEAT IF {condition} THEN BEGIN rTable.Ready:=TRUE; rTable.MODIFY; rTable.Ready := FALSE; // reset for NEXT's sake... END; UNTIL rTable.NEXT=0;