Procedure

TfrmOrders.EventRealeasedOrder1Click

Module

fOrders

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TfrmOrders

Declaration

procedure EventRealeasedOrder1Click(Sender: TObject);

Calls Hierarchy


TfrmOrders.EventRealeasedOrder1Click
 ├TfrmOrders.CanChangeOrderView
 │ └ActiveOrdering
 ├DGroupAll
 ├SelectEvtReleasedOrders
 │ ├TfrmBase508Form.Create
 │ │ ├TfrmBase508Form.UpdateAccessibilityActions
 │ │ ├UnfocusableControlEnter
 │ │ └AdjustControls
 │ │   ├TfrmBase508Form.ModifyUnfocusableControl
 │ │   └..(rec)..
 │ └SetFormPosition
 │   └TSizeHolder.GetSize
 ├LoadWriteOrders
 └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

Calls

Name Declaration Comments
TfrmOrders.CanChangeOrderView function CanChangeOrderView: Boolean; -
DGroupAll function DGroupAll: Integer; -
LoadWriteOrders procedure LoadWriteOrders(Dest: TStrings); -
TfrmOrders.RefreshOrderList procedure RefreshOrderList(FromServer: Boolean; APtEvtID: string = ''); -
SelectEvtReleasedOrders procedure SelectEvtReleasedOrders(var OrderView: TOrderView); -


Source

2751  procedure TfrmOrders.EventRealeasedOrder1Click(Sender: TObject);
2752  var
2753    AnOrderView: TOrderView;
2754  begin
2755    inherited;
2756    if not CanChangeOrderView then Exit;
2757    AnOrderView := TOrderView.Create;
2758    AnOrderView.Filter    := STS_ACTIVE;
2759    AnOrderView.DGroup    := DGroupAll;
2760    AnOrderView.ViewName  := 'All Services, Active';
2761    AnOrderView.InvChrono := True;
2762    AnOrderView.ByService := True;
2763    AnOrderView.CtxtTime  := 0;
2764    AnOrderView.TextView  := 0;
2765    AnOrderView.EventDelay.EventType := 'C';
2766    AnOrderView.EventDelay.Specialty := 0;
2767    AnOrderView.EventDelay.Effective := 0;
2768    AnOrderView.EventDelay.EventIFN  := 0;
2769    AnOrderView.EventDelay.EventName := 'All Services, Active';
2770    SelectEvtReleasedOrders(AnOrderView);
2771    with AnOrderView do if Changed then
2772    begin
2773      mnuActRel.Visible   := False;
2774      popOrderRel.Visible := False;
2775      FCompress      := True;
2776      lstSheets.ItemIndex := -1;
2777      lblWrite.Caption := 'Write Orders';
2778      lstWrite.Clear;
2779      LoadWriteOrders(lstWrite.Items);
2780      if AnOrderView.EventDelay.PtEventIFN > 0 then
2781        RefreshOrderList(FROM_SERVER,IntToStr(AnOrderView.EventDelay.PtEventIFN));
2782      lblOrders.Caption := AnOrderView.ViewName;
2783      if ByService then
2784      begin
2785        if InvChrono then FDfltSort := OVS_CATINV  else FDfltSort := OVS_CATFWD;
2786      end else
2787      begin
2788        if InvChrono then FDfltSort := OVS_INVERSE else FDfltSort := OVS_FORWARD;
2789      end;
2790    end;
2791    if FFromDCRelease then
2792      FFromDCRelease := False;
2793  end;