Procedure

TfrmCopyOrders.cmdOKClick

Module

fOrdersCopy

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TfrmCopyOrders

Declaration

procedure cmdOKClick(Sender: TObject);

Calls Hierarchy


TfrmCopyOrders.cmdOKClick
 └TfrmOrders.lstSheetsClick
   ├CloseOrdering
   ├TfrmOrders.PtEvtCompleted
   │ ├IsCompletedPtEvt
   │ ├TfrmOrders.GroupChangesUpdate
   │ │ ├TChanges.ChangeOrderGrp
   │ │ └TChanges.ReplaceODGrpName
   │ ├TfrmOrders.InitOrderSheetsForEvtDelay
   │ │ ├TfrmOrders.InitOrderSheets
   │ │ │ ├TfrmOrders.ClearOrderSheets
   │ │ │ ├LoadOrderSheetsED
   │ │ │ ├DGroupAll
   │ │ │ └EventInfo
   │ │ └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


                          TfrmCopyOrders.cmdOKClick
                      TfrmCopyOrders.UMStillDelay┤ 
TfrmCopyOrders.fraEvntDelayListmlstEventsDblClick┤ 
                       TfrmCopyOrders.FormKeyDown┘ 

Calls

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

Called-By

Name Declaration Comments
TfrmCopyOrders.FormKeyDown procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); -
TfrmCopyOrders.fraEvntDelayListmlstEventsDblClick procedure fraEvntDelayListmlstEventsDblClick(Sender: TObject); -
TfrmCopyOrders.UMStillDelay procedure UMStillDelay(var message: TMessage); message UM_STILLDELAY; -


Source

243   procedure TfrmCopyOrders.cmdOKClick(Sender: TObject);
244   begin
245     inherited;
246     if (radEvtDelay.Checked) and (fraEvntDelayList.mlstEvents.ItemIndex < 0 ) then
247     begin
248       InfoBox('A release event must be selected.', 'No Selection Made', MB_OK);
249       Exit;
250     end;
251     if radRelease.Checked then
252     begin
253       ImmdCopyAct := True;
254       frmOrders.lstSheets.ItemIndex := 0;
255       frmOrders.lstSheetsClick(Self);
256     end;
257     OKPressed := True;
258     Close;
259   end;