Description
if the invoice type is deduction or prepayment, get the new credit term, invoice due date, invoice discount due date.
Parameters
| icInvoiceType | input | character | Prepayment or Deduction |
| itInvoiceDate | input | date | |
| ocPaymentConditionCode | output | character | |
| otInvoiceDueDate | output | date | |
| otInvoiceDiscountDueDate | output | date | |
| oiReturnStatus | output | integer | Return status of the method. |
Internal usage
QadFinancials
program code (program1/bpaymentcondition.p)
assign oiReturnStatus = -98
ocPaymentConditionCode = '':U.
if icInvoiceType = {&INVOICETYPE-PREPAYMENT} or icInvoiceType = {&INVOICETYPE-DEDUCTION} then
do:
<M-88 run GetDeductPrepayCreditTerm
(input icInvoiceType (icInvoiceType),
output ocPaymentConditionCode (ocPaymentConditionCode),
output viFcReturnSuper (oiReturnStatus)) in BPaymentCondition>
if viFcReturnSuper < 0 then
do:
assign oiReturnStatus = viFcReturnSuper.
return.
end.
<M-7 run CalculateDueDiscountDate
(input ? (iiPaymentConditionID),
input ocPaymentConditionCode (icPaymentConditionCode),
input itInvoiceDate (itInvoiceDate),
output otInvoiceDueDate (otDueDate),
output otInvoiceDiscountDueDate (otDiscountDate),
output viFcReturnSuper (oiReturnStatus)) in BPaymentCondition>
if viFcReturnSuper < 0 then
do:
assign oiReturnStatus = viFcReturnSuper.
return.
end.
end.
assign oiReturnStatus = 0.