project QadFinancials > class BCompany > method CompanyHasPostingOnOfficialLayer
Parameters
olPosted | output | logical | |
iiCompanyId | input | integer | Company ID |
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
unused
program code (program1/bcompany.p)
assign
olPosted = false.
assign
vhFcComponent = ?.
<Q-3 assign vlFcQueryRecordsAvailable = PostingByLayerTypeCode (NoCache)
(input iiCompanyId, (CompanyId)
input {&LAYERTYPECODE-OFFICIAL}, (LayerTypeCode)) in BPosting >
if vlfcqueryrecordsavailable
then do:
assign olPosted = true.
end.
else do:
/* if the company is the source entity of another company */
assign
vhFcComponent = ?.
<Q-5 assign vlFcQueryRecordsAvailable = CompanyPropertyBySharingId (NoCache)
(input ?, (CompanyId)
input iiCompanyId, (SharingCompanyId)) in BCompanyProperty >
if vlfcqueryrecordsavailable then
olPosted = true.
end.