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
Deleting all empty orders
siimsand
Member Posts: 28
Hello!
In the table Sales Header (36) there are orders. Double-clicking on them opens the Sales Order (42) page for this order. There are fasttabs General, Lines, etc... I've created a button for deleting all orders that have 'empty' Lines. I have this code with a user prompt for Yes/No:
UserPrompt := CONFIRM(Text001, FALSE);
IF UserPrompt = TRUE THEN BEGIN
IF SalesHeader.FINDSET() THEN BEGIN
REPEAT
// TODO - if page 'Lines' empty, then...
UNTIL SalesHeader.NEXT = 0;
END;
END;
Any directions or ideas on how to code this?
In the table Sales Header (36) there are orders. Double-clicking on them opens the Sales Order (42) page for this order. There are fasttabs General, Lines, etc... I've created a button for deleting all orders that have 'empty' Lines. I have this code with a user prompt for Yes/No:
UserPrompt := CONFIRM(Text001, FALSE);
IF UserPrompt = TRUE THEN BEGIN
IF SalesHeader.FINDSET() THEN BEGIN
REPEAT
// TODO - if page 'Lines' empty, then...
UNTIL SalesHeader.NEXT = 0;
END;
END;
Any directions or ideas on how to code this?
0
Best Answer
-
Optionssiimsand
Member Posts: 28
That depends on your definition of "empty". Do you want to delete all Sales Headers without sales lines?
//TODO Salesline.setrange("Document Type",SalesHeader."Document Type"); Salesline.setrange("Document No.",SalesHeader."No."); if SalesLine.isempty then SalesHeader.Delete;
Yes, they are to be deleted entirely. Thank you for your answer!0
Answers
//TODO Salesline.setrange("Document Type",SalesHeader."Document Type"); Salesline.setrange("Document No.",SalesHeader."No."); if SalesLine.isempty then SalesHeader.Delete;Yes, they are to be deleted entirely. Thank you for your answer!