RecordRef.CopyLinks(Variant) Method

Version: Available or changed with runtime version 3.0.

Copies all the links from a particular record.

Syntax

 RecordRef.CopyLinks(FromRecordOrRecordRef: Variant)

Parameters

RecordRef
 Type: RecordRef
An instance of the RecordRef data type.

FromRecordOrRecordRef
 Type: Variant
Specifies the record from which you want to copy links.

Remarks

Use this method 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 page in your application.

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 Method (RecordRef) creates a FieldRef variable that is named MyFieldRef for field 1 (No.) in the Customer table. The SetRange Method (FieldRef) selects records in the range 20000 to 40000 from the Customer table and record 10000 from the Vendor table. The Find Method (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 Method (RecordRef) closes the table.

var
    MyFieldRef: FieldRef;
    CustomerRecref: RecordRef;
    VendorRecord: Record Vendor;
    Count: Integer;
    Text000: Label 'The links have been copied to %1';
begin
    CustomerRecref.Open(Database::Customer);  
    MyFieldRef := CustomerRecref.Field(1);  
    MyFieldRef.SetRange('30000' , '40000');  
    VendorRecord.SetRange("No.", '10000');  
    Count := 0;  
    ifCustomerRecref.Find('-') then  
      repeat  
        Count := Count + 1;  
        CustomerRecref.CopyLinks(VendorRecord);  
        Message(Text000, CustomerRecref.RecordId);  
      until CustomerRecref.Next = 0;  
    CustomerRecref.Close;  
end;

RecordRef Data Type
Get Started with AL
Developing Extensions