project QadFinancials > class BPaymentSelection > method GetDebitCreditAmount


Parameters


icOriginalInvoiceAmountSigninputcharacter
icOriginalInvoiceDebitCreditAbbrinputcharacter
bdConvertedAmountinput-outputdecimal
icDebitCreditAbbrinputcharacter
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


unused


program code (program3/bpaymentselection.p)

/* convert payment selection line amount to the correct value from t_sproposedlinetostore */

if (icDebitCreditAbbr = icOriginalInvoiceDebitCreditAbbr and
    icOriginalInvoiceAmountSign = "-":U) or
   (icDebitCreditAbbr <> icOriginalInvoiceDebitCreditAbbr and
    icOriginalInvoiceAmountSign = "":U)
then assign bdConvertedAmount = - bdConvertedAmount.