Description
Get company code based on the iterator.
Parameters
iiEntryNumber | input | integer | Iterator to identify the entry in the company code list. |
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
QadFinancials
program code (program1/bapmatchingreport.p)
/* Assign company ID based on code */
if vcCompanyFilter = ?
then do:
assign viAPCurrentCompany_ID = viCompanyId.
find first tqCompanyPrim
where tqCompanyPrim.tiCompany_ID = viCompanyId no-error.
if available tqCompanyPrim
then assign vcAPCurrentCompany = tqCompanyPrim.tcCompanyCode.
end.
else do:
assign vcAPCurrentCompany = entry(iiEntryNumber,vcCompanyFilter,",":U).
find first tqCompanyPrim
where tqCompanyPrim.tcCompanyCode = vcAPCurrentCompany no-error.
if available tqCompanyPrim
then assign viAPCurrentCompany_ID = tqCompanyPrim.tiCompany_ID.
end.