project QadFinancials > class BPosting > 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
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.