Procedure

TfrmOrders.UseDefaultSort

Module

fOrders

Last Modified

7/15/2014 3:26:42 PM

Comments

Procedure SetEvtIFN(var AnEvtIFN: integer);

Visibility

Private

Owner

TfrmOrders

Declaration

procedure UseDefaultSort;

Called-By Hierarchy


               TfrmOrders.UseDefaultSort
               TfrmOrders.SetOrderView┘ 
       TfrmOrders.mnuViewActiveClick┤   
      TfrmOrders.mnuViewCurrentClick┤   
     TfrmOrders.mnuViewExpiringClick┤   
      TfrmOrders.mnuViewExpiredClick┤   
     TfrmOrders.mnuViewUnsignedClick┤   
   TfrmOrders.ProcessNotifications┘ │   
          TfrmOrders.DisplayPage┘   │   
        TfrmOrders.ViewAlertedOrders┘   
TfrmOrders.ProcessNotifications...┘     

Called-By

Name Declaration Comments
TfrmOrders.SetOrderView procedure SetOrderView(AFilter, ADGroup: Integer; const AViewName: string; NotifSort: Boolean); -


Source

792   procedure TfrmOrders.UseDefaultSort;
793   begin
794     with FCurrentView do
795       case FDfltSort of
796       OVS_CATINV:  begin
797                      InvChrono := True;
798                      ByService := True;
799                    end;
800       OVS_CATFWD:  begin
801                      InvChrono := False;
802                      ByService := True;
803                    end;
804       OVS_INVERSE: begin
805                      InvChrono := True;
806                      ByService := False;
807                    end;
808       OVS_FORWARD: begin
809                      InvChrono := False;
810                      ByService := False;
811                    end;
812       end;
813   end;