project QadFinancials > class BDomain > method DefaultValuesSetStatutoryCurrency

Description

Retrieve Domain values based on DomainCode


Parameters


icDomainCodeinputcharacter
ocBaseCurrencyCodeoutputcharacter
ocStatutoryCurrencyCodeoutputcharacter
olIsStatutoryoutputlogical
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


unused


program code (program6/bdomain.p)

assign oiReturnStatus      = -98
       viLocalReturnStatus = 0.

DEFAULTBLOCK:
do:
    assign ocBaseCurrencyCode      = '':U
           olIsStatutory           = false
           ocStatutoryCurrencyCode = '':U.

    <Q-1 run DomainPropertyByDomainCodeID (all) (Read) (NoCache)
       (input icDomainCode, (DomainCode)
        input ?, (DomainID)
        output dataset tqDomainPropertyByDomainCodeID) in BDomainProperty >
    find tqDomainPropertyByDomainCodeID where
         tqDomainPropertyByDomainCodeID.tcDomainCode = icDomainCode
         no-lock no-error.
    if available tqDomainPropertyByDomainCodeID
    then assign ocBaseCurrencyCode      = tqDomainPropertyByDomainCodeID.tcCurrencyCode
                olIsStatutory           = tqDomainPropertyByDomainCodeID.tlDomainPropertyIsStatutory
                ocStatutoryCurrencyCode = tqDomainPropertyByDomainCodeID.tcStatutoryCurrencyCode.
end. /* DEFAULTBLOCK */

assign oiReturnStatus = viLocalReturnStatus.