project QadFinancials > class BDomain > method DefaultValuesSetStatutoryCurrency
Description
Retrieve Domain values based on DomainCode
Parameters
icDomainCode | input | character | |
ocBaseCurrencyCode | output | character | |
ocStatutoryCurrencyCode | output | character | |
olIsStatutory | output | logical | |
oiReturnStatus | output | integer | Return 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.