Browse Source

PIP-0027: fix error message bug in EPASA parsing

Herman Schoenfeld 4 years ago
parent
commit
eefbf336c3
1 changed files with 1 additions and 1 deletions
  1. 1 1
      src/core/UNode.pas

+ 1 - 1
src/core/UNode.pas

@@ -927,7 +927,7 @@ begin
     AResolvedAccount := CT_AccountNo_NUL;
     AResolvedKey := CT_Account_NUL.accountInfo.accountKey;
     ARequiresPurchase := False;
-    AErrorMessage := Format('Account number %d does not exist in safebox',[AResolvedAccount]);
+    AErrorMessage := Format('Account number %d does not exist in safebox',[AEPasa.Account.Value]);
     Exit(False);
   end;
   Result := true;