Эх сурвалжийг харах

UCoreUtils: fix bug in helper

Herman Schoenfeld 7 жил өмнө
parent
commit
aca19ff057

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

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