project QadFinancials > class BBankEntry > method GetDefaultCCProjDivForDeduction
Description
it is only used in the customer payment for deduction account.
Parameters
iiId | input | integer | |
icCode | input | character | |
icInvoiceOrigin | input | character | |
ocCostCentreCode | output | character | |
ocProjectCode | output | character | |
ocDivisionCode | output | character | |
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
QadFinancials
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.