Преглед на файлове

PIP-0027: fix error message bug in EPASA parsing

Herman Schoenfeld преди 4 години
родител
ревизия
eefbf336c3
променени са 1 файла, в които са добавени 1 реда и са изтрити 1 реда
  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;