project QadFinancials > class BBankEntry > method GetDefaultCCProjDivForDeduction

Description

it is only used in the customer payment for deduction account.


Parameters


iiIdinputinteger
icCodeinputcharacter
icInvoiceOrigininputcharacter
ocCostCentreCodeoutputcharacter
ocProjectCodeoutputcharacter
ocDivisionCodeoutputcharacter
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


QadFinancials
method BDDocument.AdditionalUpdatesPostingDeduction


program code (program3/bbankentry.p)

/* replace unknown values */
if iiId = ? then assign iiId = 0.
if icCode = ? then assign icCode = "":U.
if icInvoiceOrigin = ? then assign icInvoiceOrigin = "":U.

if icCode = "":U and iiId = 0
then return.

case icInvoiceOrigin :
    when {&INVOICEORIGIN-DEBTOR}
    then do:
        <Q-78 run DebtorByDebtor (all) (Read) (NoCache)
           (input viCompanyId, (CompanyId)
            input {&ADDRESSTYPECODESYSTEM-HEADOFFICE}, (AddressType)
            input iiId, (DebtorId)
            input if iiId = 0 then icCode else '':U, (DebtorCode)
            output dataset tqDebtorByDebtor) in BDebtor>

        find first tqDebtorByDebtor no-error.
        if available tqDebtorByDebtor
        then do:
            <M-60 run GetDefaultCCProjDivForControlGL
               (input  tqDebtorByDebtor.tiDeductionCtrlGLProfile_ID (iiControlGLProfileId), 
                input  tqDebtorByDebtor.tiDivisionProfile_ID (iiDivisionProfileId), 
                output vcGLCode (ocGLCode), 
                output ocCostCentreCode (ocCostCentreCode), 
                output ocProjectCode (ocProjectCode), 
                output ocDivisionCode (ocDivisionCode), 
                output viFcReturnSuper (oiReturnStatus)) in BBankEntry>
        end.
    end.
end case.