project QadFinancials > class BCompany > method CompanyHasPostingOnOfficialLayer


Parameters


olPostedoutputlogical
iiCompanyIdinputintegerCompany ID
oiReturnStatusoutputintegerReturn 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.