• 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 true if specified action is allowed for current user in Access Groups

Parameters:
actiontype	Action type
defaultact	true - if action is allowed by default, false - not

global
function LongInt PUVcRecordInvalidateTest(var record PUVc PUr,record PUVc PU2r,LongInt long3,LongInt long4)
begin
  LongInt res; 

  res = 0;
  if (UserCanAction("PUInvalid",true)) then begin
    if ((PUr.Invalid==0) and (PUr.OKFlag!=0)) then begin
     // invalidating here
    end;
  end;  
  PUVcRecordInvalidateTest = res; 
  return;
end;

Related topics: