Description
This method is used to get Company information by entry number, invoked by M1099MiscReport.
Parameters
| iiEntryNumber | input | integer | Entry Number. |
| oiReturnStatus | output | integer | Return status of the method. |
Internal usage
unused
program code (program1/bbox1099report.p)
/* Assign company ID based on code */
if vcBoxEntityFilter = ?
then do:
assign viBoxCurrentCompany_ID = viBoxCompanyId.
find first tqCompanyPrim
where tqCompanyPrim.tiCompany_ID = viBoxCompanyId no-error.
if available tqCompanyPrim
then assign vcBoxCurrentCompany = tqCompanyPrim.tcCompanyCode.
end.
else do:
assign vcBoxCurrentCompany = entry(iiEntryNumber,vcBoxEntityFilter,",":U).
find first tqCompanyPrim
where tqCompanyPrim.tcCompanyCode = vcBoxCurrentCompany no-error.
if available tqCompanyPrim
then assign viBoxCurrentCompany_ID = tqCompanyPrim.tiCompany_ID.
end.