MARK Function (Record)
Marks a record. You can also use this function to determine whether a record is marked.
Syntax
[IsMarked :=] Record.MARK([SetMarked])
Parameters
Record
Type: Record
The input record.
SetMarked
Type: Boolean
If this parameter is true, the function will mark the record. (Previously marked records remain marked.)
If this parameter is false, the function will remove any mark.
Property Value/Return Value
Type: Boolean
true if the record is marked; otherwise, false.
The mark is effective until the application stops running.
Example 1
This example shows how to use the MARK function. Assume that at first no records are marked.
This example requires that you create the following text constant in the C/AL Globals window.
| Text constant | ENU value |
|---|---|
| Text000 | Customer.No.: %1, Marked?: %2 |
This example also requires that you create the following variables.
| Variable name | DataType | Subtype |
|---|---|---|
| Customer | Record | Customer |
| Marked | Boolean | Not applicable |
Customer.SETCURRENTKEY("No.");
Customer."No." := 'NEW 3500';
Customer.FIND('=');
Customer.MARK(TRUE); // Mark a record.
Customer.FIND('-'); // Find first record.
REPEAT // Go through records
Marked := Customer.MARK; // Test if marked.
MESSAGE(Text000, Customer."No.", Marked);
UNTIL Customer.NEXT = 0;
The message windows could show the following:
Customer No.: AAA 1050, Marked?: No
Customer No.: DEL 3500, Marked?: No
Customer No.: NEW 3500, Marked?: Yes
Customer No.: PEA 2500, Marked?: No
Customer No.: SOP 7500, Marked?: No
Example 2
This example shows how to use the MARK function together with the MARKEDONLY function. Assume that at first no records are marked.
This example requires that you create the following text constants in the C/AL Globals window.
| Text constant | ENU value |
|---|---|
| Text001 | Number of records before MARKEDONLY: %1\ |
| Text002 | Number of records after MARKEDONLY: %2 |
This example also requires that you create the following variables.
| Variable name | DataType | Subtype |
|---|---|---|
| Customer | Record | Customer |
| No1 | Integer | Not applicable |
| No2 | Integer | Not applicable |
SETCURRENTKEY(Customer."No.");
Customer."No." := 'NEW 3500';
FIND(Customer, '=');
MARK(Customer, TRUE); //Mark a record.
No1 := COUNT(Customer);
MARKEDONLY(Customer, TRUE);
No2 := COUNT(Customer);
MESSAGE(Text001 + Text002, No1, No2);
The message windows could show the following:
Number of records before MARKEDONLY: 5
Number of records after MARKEDONLY: 1