project QadFinancials > class BDebtor > method ApiLoadDebtorCalcBillScheduleCode

Parameters

Internal usage

program code (program3/bdebtor.p)

define variable oiReturnStatus as integer no-undo.

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

<Q-75 run BillSchedulePrim (all) (Read) (Cache)
   (input iiBillScheduleID, (BillScheduleID)
    input ?, (BillScheduleCode)
    output dataset tqBillSchedulePrim) in BBillSchedule>

find first tqBillSchedulePrim where
           tqBillSchedulePrim.tiBillSchedule_ID = iiBillScheduleID
           no-error.

return if available tqBillSchedulePrim
       then tqBillSchedulePrim.tcBillScheduleCode
       else "":U.