Parameters
iiEntryNumber | input | integer | |
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
QadFinancials
program code (program1/bclosingpostingsreport.p)
/* Assign company ID based on code */
if vcCPCompanyCodeFilter = ?
then do:
assign viCPCurrentCompany_ID = viCompanyId.
find first tqCompanyPrim
where tqCompanyPrim.tiCompany_ID = viCompanyId no-error.
if available tqCompanyPrim
then assign vcCPCurrentCompany = tqCompanyPrim.tcCompanyCode.
end.
else do:
assign vcCPCurrentCompany = entry(iiEntryNumber,vcCPCompanyCodeFilter,",":U).
find first tqCompanyPrim
where tqCompanyPrim.tcCompanyCode = vcCPCurrentCompany no-error.
if available tqCompanyPrim
then assign viCPCurrentCompany_ID = tqCompanyPrim.tiCompany_ID.
end.