Function

AuthorizedToVerify

Module

uOrders

Last Modified

7/15/2014 3:26:42 PM

Scope

Interfaced

Declaration

function AuthorizedToVerify: Boolean;

Called-By Hierarchy


              AuthorizedToVerify
  TfrmOrders.mnuActVerifyClick┤ 
TfrmOrders.mnuActChartRevClick┘ 

Called-By

Name Declaration Comments
TfrmOrders.mnuActChartRevClick procedure mnuActChartRevClick(Sender: TObject); -
TfrmOrders.mnuActVerifyClick procedure mnuActVerifyClick(Sender: TObject); -


Source

313   function AuthorizedToVerify: Boolean;
314   begin
315     Result := True;
316     if not User.EnableVerify then Result := False;
317     if User.OrderRole = OR_BADKEYS then
318     begin
319       InfoBox(TX_BADKEYS, TC_BADKEYS, MB_OK);
320       Result := False;
321     end;
322   end;