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

Sets defaults values from selection window

Parameters:
RepSpec	record to which defaults values are assigned
WindowName	window name from which default values are assigned

global
procedure AcceptStatusVIDsm()
BEGIN
  record VIVc VIr;
  record RcVc RepSpec;
  Integer wn;

  wn = CurWindow;
  GetWindowRecord(wn,VIr);
  ReportDefaults(RepSpec,"AcceptanceRClass");
  RepSpec.repname = "AcceptanceRn";
  RepSpec.f1 = VIr.SerNr;
  RepSpec.AccStr = "";
  RepSpec.sStartDate = VIr.TransDate;
  RepSpec.sEndDate = VIr.TransDate;
  RepSpec.AccStr = "VIVc";
  RepSpec.Media = mtScreen;
  RunReport(RepSpec,0);
  RETURN;
END;

Related topics: