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

Switches Hansa server to a certain compnay

Parameters:
compnr	company number
type	in most of the cases "false"

procedure ExportTheBlock(string blockname,Integer compnr)
begin  
  integer curcomp;

  curcomp = CurrentCompany;
  if (SetCompany(compnr,false)) then begin
    BlockExport(blockname);  
    ResetCompany(curcomp);
  end else begin
    ResetCompany(curcomp);
  end;
  return;
end;

Related topics: