Procedure

TfrmConsults.EnableDisableOrdering

Module

fConsults

Last Modified

7/15/2014 3:26:34 PM

Visibility

Public/Published

Owner

TfrmConsults

Declaration

procedure EnableDisableOrdering;

Called-By Hierarchy


TfrmConsults.EnableDisableOrdering
        TfrmConsults.DisplayPage┘ 

Called-By

Name Declaration Comments
TfrmConsults.DisplayPage procedure DisplayPage; override; -


Source

3382  procedure TfrmConsults.EnableDisableOrdering;
3383  begin
3384    if User.NoOrdering then
3385      begin
3386        cmdNewConsult.Enabled := False;
3387        cmdNewProc.Enabled := False;
3388        mnuActNew.Enabled  := False;
3389        Exit;
3390      end;
3391  end;