| icReportName | input | character | Report name equals the activity code linked to the report. This can be different from the business method name. |
| icLanguageCode | input | character | |
| tFilter | input | temp-table | |
| tqHeader | output | temp-table | |
| tqFilter | output | temp-table | |
| tqText | output | temp-table | |
| oiReturnStatus | output | integer | Return status of the method. |
BLF
QadFinancials
<ANCESTOR-CODE>
find first tqHeader no-error.
if not available tqHeader
then create tqHeader.
assign tqHeader.tcCurrLC = vcCompanyLC
tqHeader.tiDecLC = viCompanyLCDec
tqHeader.tiDecCC = viCompanyCCDec.
<Q-1 run CompanyPropertyByCompany (all) (Read) (NoCache)
(input viCompanyId, (CompanyId)
input '', (CompanyCode)
input ?, (CurrencyCode)
output dataset tqCompanyPropertyByCompany) in BCompanyProperty >
find first tqCompanyPropertyByCompany no-error.
if available tqCompanyPropertyByCompany
then do:
find first tqHeader no-error.
if not available tqHeader
then create tqHeader.
assign tqHeader.tcExtraInfo = (if tqHeader.tcExtraInfo = ""
then ""
else tqHeader.tcExtraInfo + chr(2))
+ "LocalCurrencyCode=":U
+ tqCompanyPropertyByCompany.tcCurrencyCode.
end.