project QadFinancials > class BDebtorReport > method CrossCompanyValues


Parameters


iiEntryNumberinputinteger
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


QadFinancials
method BDebtorReport.DebtorAccountState
method BDebtorReport.DebtorAgeingAnalysisBackwards
method BDebtorReport.DebtorAgeingAnalysisCurrent
method BDebtorReport.DebtorAgingHistAcroDomain
method BDebtorReport.DebtorBillingAAB
method BDebtorReport.DebtorReminders
method BDebtorReport.DebtorRemindersOverview


program code (program1/bdebtorreport.p)

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

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