project QadFinancials > class BDDocument > method AdditionalUpdatesGetDebtorInfo

Parameters

Internal usage

program code (program5/bddocument.p)

find tDebtorInfoDDoc where
     tDebtorInfoDDoc.tcDebtorCode = tDDocument.tcDebtorCode
     no-error.

if not available tDebtorInfoDDoc
then do:
    if not blStart4
    then do:
        <Q-1 run DebtorForDivision
           (Start) in BDebtor >
        assign blStart4 = true.
    end.

    <Q-2 run DebtorForDivision (all) (Append) (NoCache)
       (input tDDocument.Company_ID, (CompanyId)
        input tDDocument.tcDebtorCode, (DebtorCode)
        output dataset tqDebtorForDivision) in BDebtor >

    find first tqDebtorForDivision where
               tqDebtorForDivision.tcDebtorCode = tDDocument.tcDebtorCode
               no-error.

    create tDebtorInfoDDoc.
    assign
           tDebtorInfoDDoc.tcDebtorCode   = tDDocument.tcDebtorCode
           tDebtorInfoDDoc.tcDivisionCode = if available tqDebtorForDivision
                                                                                then tqDebtorForDivision.tcDivisionCode
                                                                                else "":U.
end.