Copies all the links from a particular record.

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.

 Copy Code
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;

See Also