Function

ExecuteUnflagOrder

Module

fOrderUnflag

Last Modified

7/15/2014 3:26:42 PM

Scope

Interfaced

Declaration

function ExecuteUnflagOrder(AnOrder: TOrder): Boolean;

Calls Hierarchy


ExecuteUnflagOrder
 ├TfrmBase508Form.Create
 │ ├TfrmBase508Form.UpdateAccessibilityActions
 │ ├UnfocusableControlEnter
 │ └AdjustControls
 │   ├TfrmBase508Form.ModifyUnfocusableControl
 │   └..(rec)..
 ├LoadFlagReason
 └UnflagOrder
   └SetOrderFromResults
     └SetOrderFields
       ├TOrder.Clear
       ├SeqOfDGroup
       │ └LoadDGroupMap
       └TopNameOfDGroup
         └LoadDGroupMap

Called-By Hierarchy


            ExecuteUnflagOrder
TfrmOrders.mnuActUnflagClick┘ 

Calls

Name Declaration Comments
TfrmBase508Form.Create constructor Create(AOwner: TComponent); override; -
LoadFlagReason procedure LoadFlagReason(Dest: TStrings; const ID: string); -
UnflagOrder procedure UnflagOrder(AnOrder: TOrder; const AComment: string); -

Called-By

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


Source

30    function ExecuteUnflagOrder(AnOrder: TOrder): Boolean;
31    var
32      frmUnflagOrder: TfrmUnflagOrder;
33    begin
34      Result := False;
35      frmUnflagOrder := TfrmUnflagOrder.Create(Application);
36      try
37        ResizeFormToFont(TForm(frmUnflagOrder));
38        with frmUnflagOrder do
39        begin
40          memOrder.SetTextBuf(PChar(AnOrder.Text));
41          LoadFlagReason(memReason.Lines, AnOrder.ID);
42          ShowModal;
43          if OKPressed then
44          begin
45            UnflagOrder(AnOrder, txtComment.Text);
46            Result := True;
47          end;
48        end;
49      finally
50        frmUnflagOrder.Release;
51      end;
52    end;