Canceling changes - RUNMODAL(Form)

Gumleguf
Member Posts: 38
I call a list of records from a specific criteria into a Form. For all records displayed I set a specific field to TRUE using MODIFYALL. Works fine.
Catch is, that if the user decides to close the Form without changes using either the Cancel button or ESC, I must revert the field earlier set to TRUE to FALSE again. How do I do this? Please find codesamples below:
LocLin.MODIFYALL("FIELD SET TO TRUE", TRUE, FALSE);
Locaft.SETCURRENTKEY("FIELD SET TO TRUE");
Locaft.SETRANGE("FIELD SET TO TRUE",TRUE);
IF Locaft.FIND('+') THEN
REPEAT
LocDelaft."FIELD SET TO TRUE" := FALSE;
LocDelaft.MODIFY(FALSE);
UNTIL LocDelaft.NEXT = 0;
COMMIT;
LocSelect := STRMENU('Cust,Other Cust',1);
LocSfakForm.SætStartParametre(Nummer,TRUE,LocSel);
LocSfakForm.RUNMODAL;
Hope it makes sense. I'm a completet newb, so please bear with me.
Catch is, that if the user decides to close the Form without changes using either the Cancel button or ESC, I must revert the field earlier set to TRUE to FALSE again. How do I do this? Please find codesamples below:
LocLin.MODIFYALL("FIELD SET TO TRUE", TRUE, FALSE);
Locaft.SETCURRENTKEY("FIELD SET TO TRUE");
Locaft.SETRANGE("FIELD SET TO TRUE",TRUE);
IF Locaft.FIND('+') THEN
REPEAT
LocDelaft."FIELD SET TO TRUE" := FALSE;
LocDelaft.MODIFY(FALSE);
UNTIL LocDelaft.NEXT = 0;
COMMIT;
LocSelect := STRMENU('Cust,Other Cust',1);
LocSfakForm.SætStartParametre(Nummer,TRUE,LocSel);
LocSfakForm.RUNMODAL;
Hope it makes sense. I'm a completet newb, so please bear with me.
0
Answers
-
Gumleguf wrote:IF Locaft.FIND('+') THEN
REPEAT
LocDelaft."FIELD SET TO TRUE" := FALSE;
LocDelaft.MODIFY
Try-
IF Locaft.FIND('-') THENThanks,
Ritesh K Singh0
Categories
- All Categories
- 73 General
- 73 Announcements
- 66.6K Microsoft Dynamics NAV
- 18.7K NAV Three Tier
- 38.4K NAV/Navision Classic Client
- 3.6K Navision Attain
- 2.4K Navision Financials
- 116 Navision DOS
- 851 Navision e-Commerce
- 1K NAV Tips & Tricks
- 772 NAV Dutch speaking only
- 617 NAV Courses, Exams & Certification
- 2K Microsoft Dynamics-Other
- 1.5K Dynamics AX
- 320 Dynamics CRM
- 111 Dynamics GP
- 10 Dynamics SL
- 1.5K Other
- 990 SQL General
- 383 SQL Performance
- 34 SQL Tips & Tricks
- 35 Design Patterns (General & Best Practices)
- 1 Architectural Patterns
- 10 Design Patterns
- 5 Implementation Patterns
- 53 3rd Party Products, Services & Events
- 1.6K General
- 1.1K General Chat
- 1.6K Website
- 83 Testing
- 1.2K Download section
- 23 How Tos section
- 252 Feedback
- 12 NAV TechDays 2013 Sessions
- 13 NAV TechDays 2012 Sessions