Parameters
| iiDInvoiceID | input | integer | |
| ocDeductionStatus | output | character | |
| bcDInvoiceType | input-output | character | |
| oiReturnStatus | output | integer | Return status of the method. |
Internal usage
QadFinancials
program code (program1/bdebtorreport.p)
assign oiReturnStatus = 0
ocDeductionStatus = "":U.
<Q-48 run DInvoiceDedStatusByDInvoiceID (all) (Read) (NoCache)
(input ?, (CompanyId)
input iiDInvoiceID, (DInvoiceID)
output dataset tqDInvoiceDedStatusByDInvoiceID) in BDInvoice>
for each tqDInvoiceDedStatusByDInvoiceID:
case tqDInvoiceDedStatusByDInvoiceID.tcDInvoiceDeductionStatus:
when {&INVOICEDEDUCTSTATUS-PENDING}
then do:
assign ocDeductionStatus = {&INVOICEDEDUCTSTATUS-PENDING-TR}.
leave.
end.
when {&INVOICEDEDUCTSTATUS-REJECTED}
then do:
assign ocDeductionStatus = {&INVOICEDEDUCTSTATUS-REJECTED-TR}
bcDInvoiceType = {&INVOICETYPE-INVOICE}.
leave.
end.
when {&INVOICEDEDUCTSTATUS-APPROVEDCREDIT}
then do:
assign ocDeductionStatus = {&INVOICEDEDUCTSTATUS-APPROVEDCREDIT-TR}.
end.
otherwise
if ocDeductionStatus <> {&INVOICEDEDUCTSTATUS-APPROVEDCREDIT-TR}
then do:
assign ocDeductionStatus = "Written-Off/Credited".
end.
end case.
end.