method CheckIsDomainWithWHT

Parameters

iiCompanyID	input	integer
olIsDomainWithWHT	output	logical
oiReturnStatus	output	integer	Return status of the method.

Internal usage

QadFinancials

method BPosting.ValidateComponentPost
method BJournalEntry.CheckTaxTypeWithWHT

program code (program1/bposting.p)

assign oiReturnStatus = -98.

<Q-8 run CompanyByDomain (all) (Read) (NoCache)
   (input iiCompanyID, (CompanyId)
    input ?, (DomainId)
    input yes, (Active)
    output dataset tqCompanyByDomain) in BCompany>
    find first tqCompanyByDomain where 
                   tqCompanyByDomain.tiCompany_ID = iiCompanyID 
                        no-error.
if available tqCompanyByDomain 
then do:
   assign viCurrDomainId = tqCompanyByDomain.tiDomain_ID.
end.

<Q-31 run DomainPropertyByDomain (all) (Read) (NoCache)
   (input viCurrDomainId, (DomainID)
    output dataset tqDomainPropertyByDomain) in BDomainProperty>
find first tqDomainPropertyByDomain where 
                       tqDomainPropertyByDomain.tiDomain_ID = tqCompanyByDomain.tiDomain_ID 
                       no-error.
if available tqDomainPropertyByDomain
then assign olIsDomainWithWHT = tqDomainPropertyByDomain.tlDomainPropertyIsWHT.

assign oiReturnStatus = 0.