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