Procedure

TfrmOrders.mnuViewExpiringClick

Module

fOrders

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TfrmOrders

Declaration

procedure mnuViewExpiringClick(Sender: TObject);

Calls Hierarchy


TfrmOrders.mnuViewExpiringClick
 ├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

892   procedure TfrmOrders.mnuViewExpiringClick(Sender: TObject);
893   begin
894     inherited;
895     SetOrderView(STS_EXPIRING, DGroupAll, 'Expiring Orders - ALL SERVICES', False);
896   end;