Procedure

TfrmOrdersTS.cmdOKClick

Module

fOrdersTS

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TfrmOrdersTS

Declaration

procedure cmdOKClick(Sender: TObject);

Calls Hierarchy


TfrmOrdersTS.cmdOKClick
 └TfraEvntDelayList.CheckMatch
   ├isMatchedEvent
   └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


                          TfrmOrdersTS.cmdOKClick
TfrmOrdersTS.fraEvntDelayListmlstEventsDblClick┤ 
                       TfrmOrdersTS.FormKeyDown┘ 

Calls

Name Declaration Comments
TfraEvntDelayList.CheckMatch procedure CheckMatch; -

Called-By

Name Declaration Comments
TfrmOrdersTS.FormKeyDown procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); -
TfrmOrdersTS.fraEvntDelayListmlstEventsDblClick procedure fraEvntDelayListmlstEventsDblClick(Sender: TObject); -


Source

172   procedure TfrmOrdersTS.cmdOKClick(Sender: TObject);   
173   var
174     tempStr: String;
175   begin
176     inherited;
177     if grpChoice.Tag = 0 then
178     begin
179       InfoBox('A release event has not been selected.', 'No Selection Made', MB_OK);
180       Exit;
181     end;
182     if( not (fraEvntDelayList.mlstEvents.ItemIndex >= 0) ) and (radDelayed.Checked) then
183     begin
184       InfoBox('A release event must be selected.', 'No Selection Made', MB_OK);
185       Exit;
186     end;
187     
188     tempStr := fraEvntDelayList.mlstEvents.Items.ValueFromIndex[fraEvntDelayList.mlstEvents.ItemIndex];
189   
190     if(fraEvntDelayList.mlstEvents.ItemIndex >= 0) and (Length(Piece(tempStr,'^',2))<1)then
191     begin
192       InfoBox('Invalid release event selected.', 'No Selection Made', MB_OK);
193       Exit;
194     end;
195   
196     if (fraEvntDelayList.mlstEvents.ItemIndex >= 0) and F1stClick then
197     begin
198       fraEvntDelayList.CheckMatch;
199       if fraEvntDelayList.MatchedCancel then
200       begin
201         OKPressed := False;
202         Close;
203         Exit;
204       end;
205     end;
206     OKPressed := True;
207     FResult   := True;
208     Close;
209   end;