将 ibanCode 添加到 exceptionMessage

Question

我想将 iban 代码添加到我的 OpaCallException，这样我就可以具体知道哪个 iban 代码不正确。我的代码：

 FIND FIRST tt_iban_crc_aaa WHERE tt_iban_crc_aaa.iban=tt_fee_request.debtorAccount AND tt_iban_crc_aaa.crc=g-crc NO-LOCK NO-ERROR.
IF NOT AVAILABLE tt_iban_crc_aaa THEN DO:
     FIND FIRST aaa WHERE aaa.name=tt_fee_request.debtorAccount AND aaa.crc=g-crc NO-LOCK NO-ERROR.
     IF AVAILABLE aaa THEN DO:
         CREATE tt_iban_crc_aaa.
         ASSIGN
            tt_iban_crc_aaa.aaa   = aaa.aaa
            tt_iban_crc_aaa.crc = aaa.crc
            tt_iban_crc_aaa.iban = aaa.name
            .
     END.
     ELSE DO:
         UNDO, THROW NEW OpaCallException("iban.invalid", "Iban incorrect", "Provided iban is invalid").
     END.
END.

我在使用进度语法时遇到困难。我需要一些帮助或提示，谢谢！

Answer 1

看来您需要使用 SUBSTITUTE() 函数。

将 "Provided iban is invalid" 替换为 SUBSTITUTE（"Provided iban (&1) is invalid"，[iban 代码所在的任何字段]）。

Answer 2

您需要在 OpaCallException class

中添加一个属性

DEFINE PUBLIC PROPERTY IbanCode AS CHARACTER NO-UNDO 
GET.
PRIVATE SET .

然后像这样添加一个构造函数：

CONSTRUCTOR PUBLIC OpaCallException (pcIbanCode AS CHARACTER, /* add additional parameters */):

    ASSIGN THIS-OBJECT:IbanCode = pcIbanCode. 

    SUPER (SUBSTITUTE ("Error with IBAN Code: &1", pcIbanCode), 0) . 

END CONSTRUCTOR.

将 ibanCode 添加到 exceptionMessage

Add ibanCode to exceptionMessage

progress-4gl

openedge