Procedure

TfrmOrders.mnuViewExpiredClick

Module

fOrders

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TfrmOrders

Declaration

procedure mnuViewExpiredClick(Sender: TObject);

Calls Hierarchy


TfrmOrders.mnuViewExpiredClick
 ├TfrmOrders.SetOrderView
 │ ├TfrmOrders.CanChangeOrderView
 │ │ └ActiveOrdering
 │ ├StrToFMDateTime
 │ ├FMNow
 │ ├TfrmOrders.UseDefaultSort
 │ ├ExpiredOrdersStartDT
 │ └TfrmOrders.RefreshOrderList
 │   ├LoadOrdersAbbr
 │   │ ├ClearOrders
 │   │ ├LoadDGroupMap
 │   │ ├ExpiredOrdersStartDT
 │   │ ├FMNow
 │   │ └SeqOfDGroup
 │   │   └LoadDGroupMap
 │   ├ClearOrders
 │   ├LoadOrdersAbbr
 │   │ ├LoadDGroupMap
 │   │ ├FMNow
 │   │ └SeqOfDGroup...
 │   ├TfrmOrders.ExpandEventSection
 │   ├TfrmOrders.CompressEventSection
 │   ├SortOrders
 │   │ ├InverseByGroup
 │   │ │ └TChanges.Exist
 │   │ ├ForwardByGroup
 │   │ │ └TChanges.Exist
 │   │ ├InverseChrono
 │   │ └ForwardChrono
 │   ├TfrmOrders.AddToListBox
 │   │ └TfrmOrders.GetPlainText
 │   │   └TfrmOrders.GetOrderText
 │   │     ├LoadFlagReason
 │   │     ├TfrmOrders.GetStartStopText
 │   │     └NameOfStatus
 │   └DGroupAll
 └DGroupAll

Calls

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


Source

898   procedure TfrmOrders.mnuViewExpiredClick(Sender: TObject);
899   begin
900     inherited;
901     SetOrderView(STS_EXPIRED, DGroupAll, 'Recently Expired Orders - ALL SERVICES', False);
902   end;