Procedure

TfrmOrders.InitOrderSheets2

Module

fOrders

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public

Owner

TfrmOrders

Declaration

procedure InitOrderSheets2(AnItem: string = '');

Calls Hierarchy


TfrmOrders.InitOrderSheets2
 ├TfrmOrders.InitOrderSheets
 │ ├TfrmOrders.ClearOrderSheets
 │ ├LoadOrderSheetsED
 │ ├DGroupAll
 │ └EventInfo
 ├LoadOrderViewDefault
 └TfrmOrders.lstSheetsClick
   ├CloseOrdering
   ├TfrmOrders.PtEvtCompleted
   │ ├IsCompletedPtEvt
   │ ├TfrmOrders.GroupChangesUpdate
   │ │ ├TChanges.ChangeOrderGrp
   │ │ └TChanges.ReplaceODGrpName
   │ ├TfrmOrders.InitOrderSheetsForEvtDelay
   │ │ ├TfrmOrders.InitOrderSheets...
   │ │ └TfrmOrders.DfltViewForEvtDelay
   │ │   ├TfrmOrders.CanChangeOrderView
   │ │   │ └ActiveOrdering
   │ │   └LoadOrderViewDefault
   │ ├TfrmOrders.lstSheetsClick...
   │ └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
   ├DeleteEmptyEvt
   │ ├PtEvtEmpty
   │ ├GetEventName
   │ └DeletePtEvent
   ├TfrmOrders.ChangesUpdate
   │ ├TheParentPtEvt
   │ └TChanges.Remove
   │   ├UnlockOrder
   │   └UnlockDocument
   ├TfrmOrders.InitOrderSheetsForEvtDelay...
   ├..(rec)..
   ├LoadWriteOrdersED
   ├LoadWriteOrders
   ├TfrmOrders.RefreshOrderList...
   ├PtEvtEmpty
   └DeletePtEvent

Called-By Hierarchy


   TfrmOrders.InitOrderSheets2
TfrmFrame.mnuFileReviewClick┘ 

Calls

Name Declaration Comments
TfrmOrders.InitOrderSheets procedure InitOrderSheets; -
LoadOrderViewDefault procedure LoadOrderViewDefault(AView: TOrderView); -
TfrmOrders.lstSheetsClick procedure lstSheetsClick(Sender: TObject); -

Called-By

Name Declaration Comments
TfrmFrame.mnuFileReviewClick procedure mnuFileReviewClick(Sender: TObject); -


Source

3146  procedure TfrmOrders.InitOrderSheets2(AnItem: string);
3147  var
3148    i: Integer;
3149  begin
3150    InitOrderSheets;
3151    LoadOrderViewDefault(TOrderView(lstSheets.Items.Objects[0]));
3152    lstSheets.Items[0] := 'C;0^' + TOrderView(lstSheets.Items.Objects[0]).ViewName;
3153    if Length(AnItem)>0 then
3154    begin
3155        with lstSheets do for i := 0 to Items.Count - 1 do
3156        begin
3157          if AnsiCompareText(TOrderView(Items.Objects[i]).ViewName, AnItem)=0 then
3158           begin
3159             ItemIndex := i;
3160             FCurrentView := TOrderView(lstSheets.Items.Objects[i]);
3161             break;
3162           end;
3163        end;
3164    end;
3165    if lstSheets.ItemIndex < -1 then
3166      lstSheets.ItemIndex := 0;
3167    lstSheetsClick(Self);
3168  end;