project QadFinancials > class BBudget > method GetFRWCompanyByFRWChartID
Description
This method will return a DataSet, includes Company_ID and Company name.
Parameters
icFRWChartCode | input | character | |
tFRWCompanyByFRWChartID | output | temp-table | |
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
unused
program code (program5/bbudget.p)
/* ================================================= */
/* Reset the output temp-table */
/* ================================================= */
empty temp-table tFRWCompanyByFRWChartID.
if icFRWChartCode <> ? and icFRWChartCode <>"":U
then do:
<Q-94 run FRWChartByCode (all) (Read) (NoCache)
(input icFRWChartCode, (FRWChartCode)
output dataset tqFRWChartByCode) in BFRWChart>
find first tqFRWChartByCode no-lock no-error.
if available tqFRWChartByCode
then assign viFRWChart_ID = tqFRWChartByCode.tiFRWChart_ID.
else return.
<Q-33 run FRWCompanyByFRWChartID (all) (Read) (NoCache)
(input ?, (CompanyId)
input viFRWChart_ID, (FRWChart_ID)
output dataset tqFRWCompanyByFRWChartID) in BFRWChart>
if can-find (first tqFRWCompanyByFRWChartID)
then do:
for each tqFRWCompanyByFRWChartID:
create tFRWCompanyByFRWChartID.
buffer-copy tqFRWCompanyByFRWChartID to tFRWCompanyByFRWChartID.
end. /* for each */
end. /* if available tqFRWCompanyByFRWChartID */
end. /* if iiFRWChart_ID */