Class

TChanges

Module

uCore

Last Modified

7/15/2014 3:26:44 PM

Scope

Interfaced

Inherits from

TObject

Declaration


TChanges = class
private
  FCount:        Integer;
  FDocuments:    TList;
  fOrders:       TList;
  FOrderGrp:     TStringList;
  FPCE:          TList;
  FPCEGrp:       TStringList;
  FOnRemove:     TORRemoveChangesEvent;    {**RV**}
  FRefreshCoverPL: Boolean;
  FRefreshProblemList: Boolean;
private
  procedure AddUnsignedToChanges;
public
  constructor Create;
  destructor Destroy; override;
  procedure Add(ItemType: Integer; const AnID, ItemText, GroupName: string; SignState: Integer; AParentID: string = '';
                User: int64 = 0; OrderDG: String = ''; DCOrder: Boolean = False; Delay: Boolean = False; ProblemAdded: Boolean = False);
  procedure Clear;
  function CanSign: Boolean;
  function Exist(ItemType: Integer; const AnID: string): Boolean;
  function ExistForOrder(const AnID: string): Boolean;
  function Locate(ItemType: Integer; const AnID: string): TChangeItem;
  procedure Remove(ItemType: Integer; const AnID: string);
  procedure ReplaceID(ItemType: Integer; const OldID, NewID: string);
  procedure ReplaceSignState(ItemType: Integer; const AnID: string; NewState: Integer);
  procedure ReplaceText(ItemType: Integer; const AnID, NewText: string);
  procedure ReplaceODGrpName(const AnODID, NewGrp: string);
  procedure ChangeOrderGrp(const oldGrpName,newGrpName: string);
  function RequireReview: Boolean;
  property Count:      Integer     read FCount;
  property Documents:  TList       read FDocuments;
  property OnRemove: TORRemoveChangesEvent read FOnRemove write FOnRemove;        {**RV**}
  property Orders:     TList       read fOrders;
  property PCE:        TList       read FPCE;
  property OrderGrp: TStringList read FOrderGrp;
  property PCEGrp:   TStringList read FPCEGrp;
  property RefreshCoverPL: Boolean read FRefreshCoverPL write FRefreshCoverPL;
  property RefreshProblemList: Boolean read FRefreshProblemList write FRefreshProblemList;
end;

Class Hierarchy


TObject
 └TChanges

Class Fields

Name Type Scope Comments
FCount Integer Private -
FDocuments Simple (unknown) Private -
FOnRemove Private RV**
FOrderGrp TStringList Private -
FOrders Simple (unknown) Private -
FPCE Simple (unknown) Private -
FPCEGrp TStringList Private -
FRefreshCoverPL Boolean Private -
FRefreshProblemList Boolean Private -

Properties

Name Type Scope Comments
Count Integer Public -
Documents Simple (unknown) Public -
OnRemove Public RV**
OrderGrp TStringList Public -
Orders Simple (unknown) Public -
PCE Simple (unknown) Public -
PCEGrp TStringList Public -
RefreshCoverPL Boolean Public -
RefreshProblemList Boolean Public -

Constructors

Name Declaration Scope Comments
Create constructor Create; Public TChanges ---------------------------------------------------------------------------------

Destructors

Name Declaration Scope Comments
Destroy destructor Destroy; override; Public -

Methods

Name Declaration Scope Comments
Add procedure Add(ItemType: Integer; const AnID, ItemText, GroupName: string; SignState: Integer; AParentID: string = ''; User: int64 = 0; OrderDG: String = ''; DCOrder: Boolean = False; Delay: Boolean = False; ProblemAdded: Boolean = False); Public -
AddUnsignedToChanges procedure AddUnsignedToChanges; Private Retrieves unsigned orders outside this session based on OR UNSIGNED ORDERS ON EXIT
CanSign function CanSign: Boolean; Public Returns true if any items in the changes list can be signed by the user
ChangeOrderGrp procedure ChangeOrderGrp(const oldGrpName,newGrpName: string); Public -
Clear procedure Clear; Public -
Exist function Exist(ItemType: Integer; const AnID: string): Boolean; Public -
ExistForOrder function ExistForOrder(const AnID: string): Boolean; Public Returns TRUE if any item in the list of orders has matching order number (ignores action)
Locate function Locate(ItemType: Integer; const AnID: string): TChangeItem; Public -
Remove procedure Remove(ItemType: Integer; const AnID: string); Public
Remove a change item from the appropriate list of changes (depending on type)
  this doesn't check groupnames, may leave a groupname without any associated items
ReplaceID procedure ReplaceID(ItemType: Integer; const OldID, NewID: string); Public -
ReplaceODGrpName procedure ReplaceODGrpName(const AnODID, NewGrp: string); Public -
ReplaceSignState procedure ReplaceSignState(ItemType: Integer; const AnID: string; NewState: Integer); Public -
ReplaceText procedure ReplaceText(ItemType: Integer; const AnID, NewText: string); Public -
RequireReview function RequireReview: Boolean; Public Returns true if documents can be signed or if any orders exist in Changes

Referenced By (2)

Module (line) Referrer Type
fFrame (854) - Read
uCore (396) EmptySaved Read