method GetDefaultDerivedExchangeRateValues

Description

This method is use to get base currency and exchangerate type of current company.

Parameters

otStartDate	output	date	Start Date
ocExchangeRateType	output	character	Exchange Rate Type.
ocBaseCurrency	output	character	Base currency code.
oiReturnStatus	output	integer	Return status of the method.

Internal usage

unused

program code (program1/bexchangerate.p)

<Q-2 run CompanyPropertyForAllData (all) (Read) (NoCache)
   (input viCompanyID, (CompanyId)
    output dataset tqCompanyPropertyForAllData) in BCompanyProperty >
    for first tqCompanyPropertyForAllData:
        ocBaseCurrency = tqCompanyPropertyForAllData.tcCurrencyCode.
    end.

assign
    otStartDate = today
    ocExchangeRateType={&EXCHANGERATETYPE-ACCOUNTING}.