Procedure

TfrmChgEvent.FilterOutEmptyPtEvt

Module

fOrdersCV

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public

Owner

TfrmChgEvent

Declaration

procedure FilterOutEmptyPtEvt;

Calls Hierarchy


TfrmChgEvent.FilterOutEmptyPtEvt
 ├LoadOrderSheetsED
 ├DeleteEmptyEvt
 │ ├PtEvtEmpty
 │ ├GetEventName
 │ └DeletePtEvent
 └TfrmOrders.ChangesUpdate
   ├TheParentPtEvt
   └TChanges.Remove
     ├UnlockOrder
     └UnlockDocument

Called-By Hierarchy


 TfrmChgEvent.FilterOutEmptyPtEvt
               ExecuteChangeEvt┤ 
TfrmOrders.mnuActChgEvntClick┘ │ 
         TfrmChgEvent.Highlight┘ 
          ExecuteChangeEvt...┘   

Calls

Name Declaration Comments
TfrmOrders.ChangesUpdate procedure ChangesUpdate(APtEvtID: string); -
DeleteEmptyEvt function DeleteEmptyEvt(APtEvntID: string; var APtEvntName: string; Ask: boolean = True): boolean; -
LoadOrderSheetsED procedure LoadOrderSheetsED(Dest: TStrings); -

Called-By

Name Declaration Comments
ExecuteChangeEvt function ExecuteChangeEvt(SelectedList: TList; var DoesDestEvtOccur: boolean; var DestPtEvtID: integer; var DestPtEvtName: string): boolean; -
TfrmChgEvent.Highlight procedure Highlight(APtEvtID: string); -


Source

426   procedure TfrmChgEvent.FilterOutEmptyPtEvt;
427   var
428     TmpStr: string;
429     hhh: integer;
430     AaPtEvtList: TStringList;
431   begin
432     AaPtEvtList := TStringList.Create;
433     LoadOrderSheetsED(AaPtEvtList);
434     for hhh := 0 to AaPtEvtList.Count - 1 do
435     begin
436       if StrToIntDef(Piece(AaPtEvtList[hhh],'^',1),0)>0 then
437       begin
438         if DeleteEmptyEvt(Piece(AaPtEvtList[hhh],'^',1),TmpStr, False) then
439           frmOrders.ChangesUpdate(Piece(AaPtEvtList[hhh],'^',1));
440       end;
441     end;
442   end;