| ( |
|
|
|||
| returns true if current user has specified Account in Block A/Cs in Access Group | |||
 |
|
| Parameters: | |
| Account Code | |
|
|
global
procedure TestRn(record RcVc RepSpec)
begin
string 10 acc;
string 255 tstr;
acc = RepSpec.f1; //Account
StartReportNoHeaderJob("Test");
if (UserAccBlock(acc)) then begin
tstr = "No access to account " & acc & " for current user";
end else begin
tstr = "Current user has access to this account: " & acc;
end;
StartFormat(15);
OutString(0,0,tstr,false);
EndFormat;
EndJob;
return;
end;
|
|
| Related topics: | |