Bug in class function TAccountComp.EqualOperationBlocks in UAccounts.pas #252
Description
class function TAccountComp.EqualOperationBlocks(const opBlock1, opBlock2: TOperationBlock): Boolean;
begin
Result := (opBlock1.block = opBlock1.block)
This code is comparing block 1 vs block 1.
Should this not be block1 vs block2 ??????