anchor.diff:        if list.Count > 0 then
           for i := list.Count - 1 downto 0 do begin
             Op := node.Operations.OperationsHashTree.GetOperation( PtrInt( list[i] ) );
  -          If TPCOperation.OperationToOperationResume( 0, Op, acc, OPR ) then begin
  +          If TPCOperation.OperationToOperationResume( 0, Op, false, acc, OPR ) then begin
               OPR.NOpInsideBlock := i;
               OPR.Block := Node.Operations.OperationBlock.block; ;
               OPR.Balance := Node.Operations.SafeBoxTransaction.Account( acc {Op.SignerAccount} ).balance;
  
positive.code:   if Not Assigned(Node) then exit;
    for i := Node.Operations.Count - 1 downto 0 do begin
      Op := Node.Operations.OperationsHashTree.GetOperation(i);
      If TPCOperation.OperationToOperationResume(0,Op,Op.SignerAccount,OPR) then begin
        OPR.NOpInsideBlock := i;
        OPR.Block := Node.Bank.BlocksCount;
        OPR.Balance := Node.Operations.SafeBoxTransaction.Account(Op.SignerAccount).balance;
  
negative.code: implementation
  
  uses
    math, UCoreUtils, UWallet, UUserInterface, UTime;
  
  { TAccountsDataSourceBase }
  
  function TAccountsDataSourceBase.GetColumns : TDataColumns;
  begin
  