unit VK.Entity.MoneyTransfer;

interface

uses
  VK.Entity.Common, VK.Types, REST.JsonReflect, VK.Wrap.Interceptors;

type
  TVkMoneyTransfer = class(TVkObject)
  private
    FAmount: TVkMoneyAmount;
    FBy_Phone: Boolean;
    FComment: string;
    [JsonReflectAttribute(ctString, rtString, TVkUnixDateTimeInterceptor)]
    FDate: TDateTime;
    FFrom_Id: TVkPeerId;
    FIs_Anonymous: Boolean;
    FIs_Vkpay: Boolean;
    FStatus: Integer;
    FTo_Id: TVkPeerId;
  public
    property Amount: TVkMoneyAmount read FAmount write FAmount;
    property ByPhone: Boolean read FBy_Phone write FBy_Phone;
    property Comment: string read FComment write FComment;
    property Date: TDateTime read FDate write FDate;
    property FromId: TVkPeerId read FFrom_Id write FFrom_Id;
    property Id;
    property IsAnonymous: Boolean read FIs_Anonymous write FIs_Anonymous;
    property IsVkpay: Boolean read FIs_Vkpay write FIs_Vkpay;
    property Status: Integer read FStatus write FStatus;
    property ToId: TVkPeerId read FTo_Id write FTo_Id;
    destructor Destroy; override;
  end;

implementation

{ TVkMoneyTransfer }

destructor TVkMoneyTransfer.Destroy;
begin
  if Assigned(FAmount) then
    FAmount.Free;
  inherited;
end;

end.

