icTransactionObjectType | input | character | |
idOpenBalInvoiceAmount | input | decimal | |
ocOriginalInvoiceAmountSign | output | character | |
ocOriginalInvAmntDebitCreditAbbr | output | character | |
ocOpenBalInvAmntDebitCreditAbbr | output | character | |
ocPaymentAmntDebitCreditAbbr | output | character | |
ocDiscountAmntDebitCreditAbbr | output | character | |
oiReturnStatus | output | integer | Return status of the method. |
if idOpenBalInvoiceAmount = ? then assign idOpenBalInvoiceAmount = 0. case icTransactionObjectType: when {&PAYMENTSELECTIONTYPE-INVOICE} or when {&PAYMENTSELECTIONTYPE-CREDITNOTECORR} or when {&PAYMENTSELECTIONTYPE-DEBTORCREDITNOTE} or when {&PAYMENTSELECTIONTYPE-PREPAYMENT} then assign ocOriginalInvAmntDebitCreditAbbr = if icTransactionObjectType = {&PAYMENTSELECTIONTYPE-PREPAYMENT} and idOpenBalInvoiceAmount < 0 then vcDebitTR else vcCreditTR ocOriginalInvoiceAmountSign = if icTransactionObjectType = {&PAYMENTSELECTIONTYPE-PREPAYMENT} and idOpenBalInvoiceAmount < 0 then "":U else "-":U ocPaymentAmntDebitCreditAbbr = if icTransactionObjectType = {&PAYMENTSELECTIONTYPE-PREPAYMENT} and idOpenBalInvoiceAmount < 0 then vcCreditTR else vcDebitTR. when {&PAYMENTSELECTIONTYPE-CREDITNOTE} or when {&PAYMENTSELECTIONTYPE-INVOICECORR} or when {&PAYMENTSELECTIONTYPE-DEBTORCNCORR} or when {&PAYMENTSELECTIONTYPE-PREPAYMENTINV} then assign ocOriginalInvAmntDebitCreditAbbr = if icTransactionObjectType = {&PAYMENTSELECTIONTYPE-PREPAYMENTINV} and idOpenBalInvoiceAmount < 0 then vcCreditTR else vcDebitTR ocOriginalInvoiceAmountSign = if icTransactionObjectType = {&PAYMENTSELECTIONTYPE-PREPAYMENTINV} and idOpenBalInvoiceAmount < 0 then "-":U else "":U ocPaymentAmntDebitCreditAbbr = if icTransactionObjectType = {&PAYMENTSELECTIONTYPE-PREPAYMENTINV} and idOpenBalInvoiceAmount < 0 then vcDebitTR else vcCreditTR. when {&PAYMENTSELECTIONTYPE-ADJUSTMENT} then assign ocOriginalInvAmntDebitCreditAbbr = if idOpenBalInvoiceAmount < 0 then vcCreditTR else vcDebitTR ocOriginalInvoiceAmountSign = if idOpenBalInvoiceAmount < 0 then "-":U else "":U ocPaymentAmntDebitCreditAbbr = if ocOriginalInvAmntDebitCreditAbbr = vcDebitTR then vcCreditTR else vcDebitTR . otherwise assign ocOriginalInvAmntDebitCreditAbbr = vcDebitTR ocOriginalInvoiceAmountSign = "":U ocPaymentAmntDebitCreditAbbr = vcCreditTR. end case. assign ocOpenBalInvAmntDebitCreditAbbr = ocOriginalInvAmntDebitCreditAbbr ocDiscountAmntDebitCreditAbbr = ocOriginalInvAmntDebitCreditAbbr.