Ver Fonte

PIP-0027: fix error message bug in EPASA parsing

Herman Schoenfeld há 4 anos atrás
pai
commit
eefbf336c3
1 ficheiros alterados com 1 adições e 1 exclusões
  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;