Procedure

TfrmOrders.ActivateDeactiveRenew

Module

fOrders

Last Modified

7/15/2014 3:26:42 PM

Visibility

Private

Owner

TfrmOrders

Declaration

procedure ActivateDeactiveRenew;

Calls Hierarchy


TfrmOrders.ActivateDeactiveRenew
 └TfrmActivateDeactive.fActivateDeactive
   ├TfrmActivateDeactive.GetOriginalOrders
   └TfrmActivateDeactive.PromptForm
     ├TfrmBase508Form.Create
     │ ├TfrmBase508Form.UpdateAccessibilityActions
     │ ├UnfocusableControlEnter
     │ └AdjustControls
     │   ├TfrmBase508Form.ModifyUnfocusableControl
     │   └..(rec)..
     └TfrmActivateDeactive.BuildForm

Called-By Hierarchy


TfrmOrders.ActivateDeactiveRenew
      TfrmOrders.mnuActDCClick┘ 

Calls

Name Declaration Comments
TfrmActivateDeactive.fActivateDeactive procedure fActivateDeactive(OrderID: TStringList); overload; -

Called-By

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


Source

3408  procedure TfrmOrders.ActivateDeactiveRenew;
3409  var
3410    i: Integer;
3411    AnOrder: TOrder;
3412    tmpArr: TStringList;
3413  begin
3414      tmpArr := TStringList.Create;
3415      with lstOrders do for i := 0 to Items.Count - 1 do if Selected[i] then
3416      begin
3417        AnOrder := TOrder(Items.Objects[i]);
3418        if AnOrder.Status = 5 then tmpArr.Add(AnOrder.ID);
3419      end;
3420      if tmpArr <> nil then frmActivateDeactive.fActivateDeactive(tmpArr);
3421  end;