project QadFinancials > class BCreditorReport > method CrossCompanyValues


Parameters


iiEntryNumberinputinteger
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


QadFinancials
method BCreditorReport.CInvoiceRegister
method BCreditorReport.CreditorAgeingABackwards
method BCreditorReport.CreditorAgeingAnalysisCurrent


program code (program1/bcreditorreport.p)

if vcCRCompanyFilter = ?
then assign viCRCurrentCompany_ID = viCompanyId.
else do:
    find first tqCompanyByDomainActive where
               tqCompanyByDomainActive.tcCompanyCode = entry(iiEntryNumber, vcCRCompanyFilter)
               no-error.

    assign viCRCurrentCompany_ID = if available tqCompanyByDomainActive
                                   then tqCompanyByDomainActive.tiCompany_ID
                                   else viCompanyId.
end.