Browse Source

Update UGridUtils.pas

PascalCoin 3 years ago
parent
commit
112703957c
1 changed files with 3 additions and 3 deletions
  1. 3 3
      src/gui-classic/UGridUtils.pas

+ 3 - 3
src/gui-classic/UGridUtils.pas

@@ -298,7 +298,7 @@ Var
   LApplyfilter : Boolean;
   LAccount : TAccount;
   LNode : TNode;
-  LAccountsList : TList<Integer>;
+  LAccountsList : TList<Int64>;
 begin
   LApplyfilter := ((FAccountsGridFilter.MinBalance>0) Or ((FAccountsGridFilter.MaxBalance>=0) And (FAccountsGridFilter.MaxBalance<CT_MaxWalletAmount)));
   FBalance := 0;
@@ -321,9 +321,9 @@ begin
             LAccountsNumbersList := FAccountsGridFilter.OrderedAccountsKeyList.AccountKeyList[i];
             if Assigned(LAccountsNumbersList) then begin
 
-              LAccountsList := TList<Integer>.Create;
+              LAccountsList := TList<Int64>.Create;
               Try
-                LAccountsNumbersList.FillList(j_min,500,LAccountsList);
+                LAccountsNumbersList.FillList(j_min,50000,LAccountsList);
                 for j := 0 to LAccountsList.Count - 1 do begin
                   LAccount := LNode.Bank.SafeBox.Account(LAccountsList[j]);