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

Function deselects active Edit Field and Window

Parameters:
wn	Window Number
true or false	Specifies if AfterEditField trigger should be executed or not

global
function Boolean SHDClassPrint(Integer wn,Boolean previewf)
BEGIN
  Boolean res;
  record SHVc SHr;
  Integer normalmode;
  
  normalmode = 0;//Rs_normal
  DeselectWindow(wn,false);
  GetWindowRecord(wn,SHr);
  if (WindowState(wn)==normalmode) then begin 
    switch (SHr.OKFlag) begin
      case 0:
        if (PrintDocument(SHr,"Sh2Form",previewf)) then begin end;
      case 1:
        if (PrintDocument(SHr,"Sh1Form",previewf)) then begin end;
    end;  
  end;
  res = true;
  SHDClassPrint = res;
  RETURN;
END;

Related topics: