Description
Get all information for given Report Analysis Code. This method is using to export Report Analysis Code to Excel(Report Tree Export).
Parameters
icChartCode | input | character | |
icAnalysisCodeList | input | character | |
tAnCodeforUpdate | output | temp-table | |
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
QadFinancials
program code (program1/bfrwanalysiscode.p)
<Q-36 run GetFRWAnCodeAllByCodeChart (all) (Read) (NoCache)
(input icChartCode, (ChartCode)
input icAnalysisCodeList, (FRWAnCodeList)
output dataset tqGetFRWAnCodeAllByCodeChart) in BFRWAnalysisCode>
vpAnCodeElemDetIDList = "".
define buffer bGetFRWAnCodeAll for tqGetFRWAnCodeAllByCodeChart.
for each tqGetFRWAnCodeAllByCodeChart where tqGetFRWAnCodeAllByCodeChart.tcFRWAnCodeAnalyseType = 'A'
break by tiFRWAnCode_ID by tiFRWAnCodeElem_ID by tcFRWAnCodeElemDetCode:
if first-of(tqGetFRWAnCodeAllByCodeChart.tiFRWAnCodeElem_ID) then
do:
vpAnCodeElemDetIDList = "".
for each bGetFRWAnCodeAll where bGetFRWAnCodeAll.tiFRWAnCodeElem_ID = tqGetFRWAnCodeAllByCodeChart.tiFRWAnCodeElem_ID by bGetFRWAnCodeAll.tcFRWAnCodeElemDetCode:
/*<blank> will not be translated, because in Cube Gen and Report Run it's also used the hard code string*/
if (bGetFRWAnCodeAll.tcFRWAnCodeElemDetCode = "" and bGetFRWAnCodeAll.tiFRWAnCodeElemDetValue = 0) then
bGetFRWAnCodeAll.tcFRWAnCodeElemDetCode = "<blank>".
if vpAnCodeElemDetIDList = "" then
vpAnCodeElemDetIDList = string(bGetFRWAnCodeAll.tcFRWAnCodeElemDetCode).
else
vpAnCodeElemDetIDList = vpAnCodeElemDetIDList + "," + string(bGetFRWAnCodeAll.tcFRWAnCodeElemDetCode) .
end.
tqGetFRWAnCodeAllByCodeChart.tcCodeElemIDList = vpAnCodeElemDetIDList.
end.
else
do:
if(tqGetFRWAnCodeAllByCodeChart.tcFRWAnCodeAnalyseType = "A") then
delete tqGetFRWAnCodeAllByCodeChart.
end.
end.
for each tqGetFRWAnCodeAllByCodeChart:
create tAnCodeforUpdate.
assign tAnCodeforUpdate.tcQAnCode = tqGetFRWAnCodeAllByCodeChart.tcFRWAnCodeCode
tAnCodeforUpdate.tcQAnAnalyseType = tqGetFRWAnCodeAllByCodeChart.tcFRWAnCodeAnalyseType
tAnCodeforUpdate.tcQAnCOAType = tqGetFRWAnCodeAllByCodeChart.tcFRWAnCodeElemCOAType
tAnCodeforUpdate.tcQAnDesc = tqGetFRWAnCodeAllByCodeChart.tcFRWAnCodeDescription
tAnCodeforUpdate.tcQAnAnalyseText = tqGetFRWAnCodeAllByCodeChart.tcFRWAnCodeAnalyseText
tAnCodeforUpdate.tcQAnXBRL = tqGetFRWAnCodeAllByCodeChart.tcFRWAnCodeXBRElement
tAnCodeforUpdate.tcQAntaxoName = tqGetFRWAnCodeAllByCodeChart.tcFRWAnCodeTaxoName
tAnCodeforUpdate.tcQAnELR = tqGetFRWAnCodeAllByCodeChart.tcFRWAnCodeELR
tAnCodeforUpdate.tcQAnBegins = tqGetFRWAnCodeAllByCodeChart.tcFRWAnCodeElemMask
tAnCodeforUpdate.tcQFrom = tqGetFRWAnCodeAllByCodeChart.tcFRWAnCodeElemMaskRange1
tAnCodeforUpdate.tcQTo = tqGetFRWAnCodeAllByCodeChart.tcFRWAnCodeElemMaskRange2
tAnCodeforUpdate.tcQList = tqGetFRWAnCodeAllByCodeChart.tcCodeElemIDList
tAnCodeforUpdate.tcQAnCalcElement = tqGetFRWAnCodeAllByCodeChart.tcFRWAnCodeCalcElement.
if tqGetFRWAnCodeAllByCodeChart.tcFRWAnCodeAnalyseType = {&FRWANALYSISTYPE-TEXT} then
assign tAnCodeforUpdate.tcQAnAnalyseText = if num-entries(tqGetFRWAnCodeAllByCodeChart.tcFRWAnCodeInfo, ":":U) <> 0
then trim(Entry(2, tqGetFRWAnCodeAllByCodeChart.tcFRWAnCodeInfo, ":":U))
else trim(tqGetFRWAnCodeAllByCodeChart.tcFRWAnCodeInfo).
end.
vpAnCodeElemDetIDList = "".