COPYLINKS Function (RecordRef)
Copies all the links from a particular record.
Syntax
RecordRef.COPYLINKS(FromRecord)
Parameters
FromRecord
Type: Record or RecordRef
Specifies the record from which you want to copy links.
Remarks
Use this function to copy all the links from a specified record and paste the links to the current record.
The link can be a link to a Web site, a file stored on the local or on a remote computer, or a link to a Microsoft Dynamics NAV page.
Example
The following example copies all links from a source record that is named VendorRecord to the currently open record in the Customer table. The source record is record 10000 from the Vendor table. The code opens the Customer table as a RecordRef variable that is named CustomerRecref. The FIELD Function (RecordRef) creates a FieldRef variable that is named MyFieldRef for field 1 (No.) in the Customer table. The SETRANGE Function (FieldRef) selects records in the range 20000 to 40000 from the Customer table and record 10000 from the Vendor table. The FIND Function (RecordRef) searches the Customer table for the records in the filtered range. If the record that meets the filter criteria is found, the links from the Vendor record No. 10000 are copied to the customer records in the range 30000 to 40000. The record id of the record to which the links were copied is displayed in a message box. The process is repeated until there is no more record in the range. The CLOSE Function (RecordRef) closes the table. This example requires that you create the following variables and text constants in the C/AL Globals window.
| Variable name | DataType | Subtype |
|---|---|---|
| CustomerRecref | RecordRef | Not applicable |
| MyFieldRef | FielRef | Not applicable |
| VendorRecord | Record | Vendor |
| Count | Integer | Not applicable |
| Text constant name | DataType | ENU value |
|---|---|---|
| Text000 | Text | The links have been copied to %1. |
CustomerRecref.OPEN(DATABASE::Customer);
MyFieldRef := CustomerRecref.FIELD(1);
MyFieldRef.SETRANGE('30000' , '40000');
VendorRecord.SETRANGE("No.", '10000');
Count := 0;
IF CustomerRecref.FIND('-') THEN
REPEAT
Count := Count + 1;
CustomerRecref.COPYLINKS(VendorRecord);
MESSAGE(Text000, CustomerRecref.RECORDID);
UNTIL CustomerRecref.NEXT = 0;
CustomerRecref.CLOSE;