project QadFinancials > class BExchangeRate > method ValCurrency

validation procedure

Description

Only active currencies 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 FROMCURRENCYINEXCHANGERATE
validation on relation TOCURRENCYINEXCHANGERATE


program code (program4/bexchangerate.p)

if not ilActive
    then do:
        assign vcMessage      = #T-2'You can only use active currencies.':150(1868)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-162':U (icFcMsgNumber),
                     input  '' (icFcExplanation),
                     input  '' (icFcIdentification),
                     input  '' (icFcContext),
                     output viFcReturnSuper (oiReturnStatus)) in BExchangeRate>
    end.