Procedure

SelectEvtReleasedOrders

Module

fOrdersEvntRelease

Last Modified

7/15/2014 3:26:42 PM

Scope

Interfaced

Declaration

procedure SelectEvtReleasedOrders(var OrderView: TOrderView);

Calls Hierarchy


SelectEvtReleasedOrders
 ├TfrmBase508Form.Create
 │ ├TfrmBase508Form.UpdateAccessibilityActions
 │ ├UnfocusableControlEnter
 │ └AdjustControls
 │   ├TfrmBase508Form.ModifyUnfocusableControl
 │   └..(rec)..
 └SetFormPosition
   └TSizeHolder.GetSize

Called-By Hierarchy


               SelectEvtReleasedOrders
TfrmOrders.EventRealeasedOrder1Click┘ 

Calls

Name Declaration Comments
TfrmBase508Form.Create constructor Create(AOwner: TComponent); override; -
SetFormPosition procedure SetFormPosition(AForm: TForm); -

Called-By

Name Declaration Comments
TfrmOrders.EventRealeasedOrder1Click procedure EventRealeasedOrder1Click(Sender: TObject); -


Source

73    procedure SelectEvtReleasedOrders(var OrderView: TOrderView);
74    const
75      FROM_SERVER = TRUE;
76    var
77      frmOrdersEvntRelease: TfrmOrdersEvntRelease;
78    begin
79      frmOrdersEvntRelease := TfrmOrdersEvntRelease.Create(Application);
80      SetFormPosition(frmOrdersEvntRelease);
81      try
82        with frmOrdersEvntRelease do
83        begin
84          FDGroup    := OrderView.DGroup;
85          ShowModal;
86          if FOkPressed then
87          begin
88            frmOrders.FromDCRelease := True;
89            OrderView.Changed   := FOkPressed;
90            OrderView.DGroup    := FDGroup;
91            OrderView.CtxtTime  := 0;
92            OrderView.TextView  := 0;
93            OrderView.ViewName  := FViewName;
94            OrderView.EventDelay.PtEventIFN := StrToIntDef(FPtEvt,0);
95            if FEvent.PtEventIFN > 0 then OrderView.EventDelay := FEvent
96            else
97            begin
98              OrderView.EventDelay.EventType := 'C';
99              OrderView.EventDelay.Specialty := 0;
100             OrderView.EventDelay.Effective := 0;
101             OrderView.EventDelay.PtEventIFN := 0;
102           end;
103         end else
104           OrderView.Changed := False;
105       end;
106     finally
107       frmOrdersEvntRelease.FEvtList.Clear;
108       frmOrdersEvntRelease.Release;
109       frmOrdersEvntRelease.FOkPressed := False;
110     end;
111   end;