project QadFinancials > class BPaymentCondition > method ApiLoadPaymentConditionCalcPayConCode

function returns character

Description

return code by ID


Parameters


iiPaymentConditionIdinputinteger


Internal usage


QadFinancials
method BPaymentCondition.ApiLoadPaymentCondition


program code (program9/bpaymentcondition.p)

define variable oiReturnStatus as integer no-undo.

if iiPaymentConditionId = ? or
   iiPaymentConditionId = 0
then return "":U.

<Q-1 run PaymentConditionByIdCode (all) (Read) (NoCache)
   (input iiPaymentConditionId, (PaymentConditionId)
    input '':U, (PaymentConditionCode)
    output dataset tqPaymentConditionByIdCode) in BPaymentCondition >

find first tqPaymentConditionByIdCode where
           tqPaymentConditionByIdCode.tiPaymentCondition_ID = iiPaymentConditionId
           no-error.

return if available tqPaymentConditionByIdCode
       then tqPaymentConditionByIdCode.tcPaymentConditionCode
       else "":U.