anchor.diff:    if not Assigned(Node) then
       exit;
     blockOps := GC.AddObject(TPCOperationsComp.Create(nil)) as TPCOperationsComp;
  -  for block := FEnd downto FStart do
  +  for block := FEndBlock downto FStartBlock do
     begin  /// iterate blocks correctly
       opr := CT_TOperationResume_NUL;
       if (Node.Bank.Storage.LoadBlockChainBlock(blockOps, block)) then begin
  
positive.code:   end;
  end;
  
  procedure TAccountsOperationsDataSource.FetchAll(const AContainer: TList<TOperationResume>);
  var
    block, i, keyIndex: integer;
    OPR: TOperationResume;
    accountBlockOps: TOperationsResumeList;
    node: TNode;
    list: Classes.TList;
    Op: TPCOperation;
    acc: cardinal;
    GC: TDisposables;
  begin
    if FAccounts.Count = 0 then
      exit;
    node := TNode.Node;
    if not Assigned(Node) then
      exit;
    TNode.Node.Bank.SafeBox.StartThreadSafe;
    try
      accountBlockOps := GC.AddObject(TOperationsResumeList.Create) as TOperationsResumeList;
      list := GC.AddObject(Classes.TList.Create) as Classes.TList;
      for acc in FAccounts do begin
        // Load pending operations first
        list.Clear;
        accountBlockOps.Clear;
        Node.Operations.OperationsHashTree.GetOperationsAffectingAccount(acc, list);
        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, False, acc, OPR) then begin
              OPR.NOpInsideBlock := i;
              OPR.Block := Node.Operations.OperationBlock.block;
              OPR.Balance := Node.Operations.SafeBoxTransaction.Account(acc {Op.SignerAccount}).balance;
              AContainer.Add(OPR);
            end;
          end;
  
        // Load block ops
        Node.GetStoredOperationsFromAccount(accountBlockOps, acc, MaxInt, 0, MaxInt);
        for i := 0 to accountBlockOps.Count - 1 do
          AContainer.Add(accountBlockOps[i]);
      end;
    finally
      TNode.Node.Bank.SafeBox.EndThreadSave;
    end;
  end;
  
  
negative.code: end;
  
  { TOperationsDataSourceBase }
  
  function TOperationsDataSourceBase.GetColumns: TDataColumns;
  begin
  