• 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:

Returns the virtual Vc name for a register that has been defined virtually within RegisterDefinitionVc register

Parameters:
RegDefr	The root for specified record.

procedure DoSmartAppEn(record SmartAppVc SAr,record RcVc RepSpec)
begin
  record RepGenVc RGr;
  record WindowDefinitionVc WDr;
  record RegisterDefinitionVc RDr;
  string 255 vcname;
  
  ExportString("SmartAppVc");
  NewLine;
  ExportRecord(SAr);
  NewLine;
  NewLine;
  NewLine;
  
  ExportString("repgen2");
  NewLine;
  while (LoopKey("Code:" & SAr.UUID,RGr,0,true)) begin
    ExportRecord(RGr);
    NewLine;
  end;
  NewLine;
  NewLine;
  
  ExportString("WindowDefinitionVc");
  NewLine;
  while (LoopKey("MainKey:" & SAr.UUID,WDr,0,true)) begin
    ExportRecord(WDr);
    NewLine;
    vcname = WDr.Register;
  end;
  NewLine;
  NewLine;
  
  ExportString("RegisterDefinitionVc");
  NewLine;
  while (LoopKey("MainKey:" & SAr.UUID,RDr,0,true)) begin
    ExportRecord(RDr);
    NewLine;
  end;
  NewLine;
  NewLine;
  
  if (RepSpec.flags[0]==1) then begin
    RecordNew(RDr);
    ResetLoop(RDr);
    
    while (LoopKey("MainKey:" & SAr.UUID,RDr,0,true)) begin
      vcname = RegDefVcName(RDr);
      RegisterExport(vcname);
    end;
    
  end;
end;

Related topics: