project QadFinancials > class BPosting > method GetBaseAndStatCurrecyByCompanyID

Description

Get base currency and statutory currency by company_id.


Parameters


iiCompanyIDinputinteger
ocBaseCurrencyCodeoutputcharacterBase Currency Code.
ocStatutoryCurrencyCodeoutputcharacterStatutory Currency Code.
oiReturnStatusoutputintegerReturn 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.