Description
This method will retrieve the Open Item Cross Entity Allowed flag for the working entity
Parameters
| iiCompanyId | input | integer | Company ID |
| olCompanyPropertyIsOICrossCy | output | logical | Open Item Cross Entity Allowed flag |
| oiReturnStatus | output | integer | Return status of the method. |
Internal usage
unused
program code (program7/bopenitemadjustment.p)
/* replace unknown values */
if iiCompanyId = ? or iiCompanyId = 0
then assign iiCompanyId = viCompanyId.
<Q-94 run CompanyPropertyByIDAllInfo (all) (Read) (NoCache)
(input iiCompanyId, (CompanyId)
output dataset tqCompanyPropertyByIDAllInfo) in BCompanyProperty >
find first tqCompanyPropertyByIDAllInfo where
tqCompanyPropertyByIDAllInfo.tiCompany_ID = iiCompanyId
no-lock.
if available tqCompanyPropertyByIDAllInfo
then assign olCompanyPropertyIsOICrossCy = tqCompanyPropertyByIDAllInfo.tlCompanyPropertyIsOICrossCy.