method GetBaseAndStatCurrecyByCompanyID

Description

Get base currency and statutory currency by company_id.

Parameters

iiCompanyID	input	integer
ocBaseCurrencyCode	output	character	Base Currency Code.
ocStatutoryCurrencyCode	output	character	Statutory Currency Code.
oiReturnStatus	output	integer	Return status of the method.

Internal usage

QadFinancials

method BPosting.Calculate

program code (program7/bposting.p)

assign oiReturnStatus = -98.
if iiCompanyID = ? or iiCompanyID = 0 or iiCompanyID = viCompanyId then do:
    assign ocBaseCurrencyCode = vcCompanyLC
           ocStatutoryCurrencyCode = vcCompanyCC.
end.
else do:
    /*get domain id */
    <Q-1 run CompanyByIDAllInfo (all) (Read) (NoCache)
            (input iiCompanyID, (CompanyId)
             output dataset tqCompanyByIDAllInfo) in BCompany>
     find first tqCompanyByIDAllInfo no-lock no-error.
     if not available tqCompanyByIDAllInfo then return.
     <Q-9 run DomainPropertyForCurrency (all) (Read) (NoCache)
        (input tqCompanyByIDAllInfo.tiDomain_ID, (DomainID)
         output dataset tqDomainPropertyForCurrency) in BDomainProperty>
     find first tqDomainPropertyForCurrency no-lock no-error.
     if not available tqDomainPropertyForCurrency then return.
     assign ocBaseCurrencyCode = tqDomainPropertyForCurrency.tcBaseCurrencyCode
            ocStatutoryCurrencyCode = tqDomainPropertyForCurrency.tcStatutoryCurrencyCode.
end.

assign oiReturnStatus = 0.