project QadFinancials > class BExchangeRate > method ValExchangeRateType

validation procedure

Description

only active exchange rate types are allowed


Parameters


icTargetFieldinputcharacterValue of the field to validate.
icTargetFieldNameinputcharacterName of the field to validate. Use the database field name or public data item name.
Example : 'Order.Order-Num'.
icRowidinputcharacterContents of field tc_Rowid, if the target field is a field of a component temp-table.
ilActiveinputlogicalActive flag
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


QadFinancials
validation on relation EXCHANGERATETYPEINEXCHANGERATE


program code (program4/bexchangerate.p)

if not ilActive
    then do:
        assign vcMessage      = #T-2'You can only use active exchange rate types.':150(1869)t-2#
               oiReturnStatus = -1.
        <M-1 run SetMessage (input  vcMessage (icMessage),
                     input  '':U (icArguments),
                     input  icTargetFieldName (icFieldName),
                     input  icTargetField (icFieldValue),
                     input  'E':U (icType),
                     input  3 (iiSeverity),
                     input  icRowid (icRowid),
                     input  'QADFIN-163':U (icFcMsgNumber),
                     input  '' (icFcExplanation),
                     input  '' (icFcIdentification),
                     input  '' (icFcContext),
                     output viFcReturnSuper (oiReturnStatus)) in BExchangeRate>
    end.