project QadFinancials > class BPaymentSelection > method GetPaySelLineCountByCode


Parameters


icPaySelCodeinputcharacter
oiPaySelLineCountoutputinteger
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


QadFinancials
method BPaymentSelection.ApiGetPaySelLineCount


program code (program1/bpaymentselection.p)

 /* ====================================================================================== *
 * Method       :     Get PaySel Line Count                                               *
 * Description  :                                                                         *
 * -------------------------------------------------------------------------------------- *
 * Parameters   :     icPaySelCode                                                        *
 *                    oiPaySelLineCount                                                   *
 * ====================================================================================== */
 
MAIN_BLOCK:
do on error undo, throw:
    /* Default output parameters */
    oiPaySelLineCount = 0.
    /* Pre-validation block */
    if icPaySelCode = ? or icPaySelCode= '':U then
        return.

    /* Execution block */
    <Q-44 run GetPaySelLineByCode (all) (Read) (NoCache)
       (input viCompanyId, (CompanyId)
        input icPaySelCode, (PaySelCode)
        output dataset tqGetPaySelLineByCode) in BPaymentSelection>

    for each tqGetPaySelLineByCode:
        assign oiPaySelLineCount = oiPaySelLineCount + 1.
    end. 
   
end. /* MAIN_BLOCK */