SETRANGE Function (FieldRef)
Sets a simple filter on a field, such as a single range or a single value.
Syntax
FieldRef.SETRANGE([FromValue] [, ToValue])
Parameters
FieldRef
Type: FieldRef
The FieldRef that refers to the field that you want to place a filter on.
FromValue
Type: any
The lower limit of the range. The data type of FromValue must match the data type of the field referred to by FieldRef.
ToValue
Type: any
The upper limit of the range. If you omit this parameter, the FromValue you specified is used. The data type of ToValue must match the data type of the field referred to by FieldRef.
Remarks
The SETRANGE function provides a quick way to set a simple filter on a field.
If you call this function by using a field that already has a filter, that filter is removed before the new filter is set.
If you omit all of the optional parameters, all filters set for that field are removed.
The SETRANGE function fails if no field is selected.
This function is like the SETRANGE Function (Record) function.
Example
The following example opens the Customer table as a RecordRef object, creates a reference to the first (No.) field, and stores the reference in the MyFieldRef variable. The SETRANGE function sets a filter that selects all records from 10000 to 40000 in the No. field. The FIND Function (RecordRef) searches and selects the first record in the filter and counts the number of records that are found. The number of records is stored in the Count variable. The process is repeated by looping through all the records in the filter until no more records are found. The number of records that are found in the range is stored in the Count variable and displayed in a message box. This example requires that you create the following variables in the C/AL Globals windows.
| Variable name | DataType |
|---|---|
| CustomerRecref | RecordRef |
| MyFieldRef | FieldRef |
| Count | Integer |
| Text constant | ENU value |
|---|---|
| Text000 | %1 records were retrieved. |
CustomerRecref.OPEN(DATABASE::Customer);
MyFieldRef := CustomerRecref.FIELD(1);
MyFieldRef.SETRANGE('10000' , '40000');
Count := 0;
IF CustomerRecref.FIND('-') THEN
REPEAT
Count := Count + 1;
UNTIL CustomerRecref.NEXT = 0;
MESSAGE(Text000 , Count);