• Introduction
  • What is HAL?
  • Get Started
  • Language Reference
    • Declarations, assignments and statements
    • Keywords and operations
• Tutorials
  • Change a window
    • Find the window
    • Modify the window
  • Create a report
• HAL Primitives
• HAL Procedures/Functions
• HAL Discussions

Description:

Copies one record to another.

Parameters:
toNamer	record to copy to
fromNamer	record to copy from

// Both records must have same type.
// Used othen to get the copy of the record before record updating to be able to get to the previous record status
// if it was failed to be updated.

global
updating procedure RecordActionIV_Print(var record IVVc IVp,string arg1,string repname,Integer flags29,Boolean readf)
BEGIN
  record IVVc oldIVr;
  
  if (readf) then begin
    if (ReadFirstMain(IVp,0,true)) then begin end;  
  end;
  RecordCopy(oldIVr,IVp);
  if (srlIVLPrint(IVp,arg1,repname,flags29,false)) then begin
    if (RecordUpdate(oldIVr,IVp,false)==0) then begin
    end;
  end;
  RETURN;
END;

Related topics: