• 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 report window name.

Parameters:
module_code	Module code.
report_nr	Report number.

global
procedure WebRepMenu()
begin
  string 60 mailboxcode;
  string 60 mailboxname;
  record CYBlock CYr;
  Integer i,m;
  string 60 repname;
  string 60 modcode;
  string 255 linkarg;
  Integer rwt;

  if (LoggedInTest()) then begin
    modcode = WebGetArg("module");
    m = GetNumOfReports(modcode);
    BlockLoad(CYr);
  FindUserMailboxName(CurrentUser,mailboxcode,mailboxname);
  WebStartPage;
  WebSetMainTitle;
  WebStartBody("");
  WebStartHeader;
  WebOutHeader("Reports for " & CYr.CompName);
  WebStartHeaderEnd;
  
  WebStartTable;
  rwt = 0;
  for (i=1;i<=m;i=i+1) begin
    repname = GetReportDesc(modcode,i);
    linkarg = "report="&GetReportCode(modcode,i)&"&rcw="&GetReportWindow(modcode,i);
    WebMenuItem(repname,"WebRepsel.hal",linkarg,"",rwt);
  end;
  WebEndTable;
  
  WebEndPage(true);
  end;
  return;  
end;

Related topics: