소스 검색

UCoreUtils: fix bug in helper

Herman Schoenfeld 7 년 전
부모
커밋
aca19ff057
1개의 변경된 파일1개의 추가작업 그리고 1개의 파일을 삭제
  1. 1 1
      src/core.utils/UCoreUtils.pas

+ 1 - 1
src/core.utils/UCoreUtils.pas

@@ -738,7 +738,7 @@ var
   LAccs : TArray<TAccount>;
 begin
   Result := CT_BalanceSummary_Nil;
-  LAccs := Self.GetAccounts;
+  LAccs := Self.GetAccounts(IncludePending);
   for i := Low(LAccs) to High(LAccs) do begin
     Inc(Result.TotalPASA);
     Inc(Result.TotalPASC, LAccs[i].Balance);