method GetPaySelCodeByID

Parameters

iiPaySelID	input	integer
ocPaySelCode	output	character
oiReturnStatus	output	integer	Return status of the method.

Internal usage

QadFinancials

method BPaymentSelection.ApiGetPaySelLineCount

program code (program1/bpaymentselection.p)

ocPaySelCode= "".

<Q-80 run PaySelPrim (all) (Read) (NoCache)
   (input viCompanyId, (CompanyId)
    input iiPaySelID, (PaySel_ID)
    input ?, (PaySelCode)
    output dataset tqPaySelPrim) in BPaymentSelection>


find first tqPaySelPrim no-error.

if not available(tqPaySelPrim) then
do:
    <M-92 run SetMessage
       (input  #T-48'Invalid selection Code Entered':255(786893276)T-48# (icMessage), 
        input  '' (icArguments), 
        input  '' (icFieldName), 
        input  string(iiPaySelID) (icFieldValue), 
        input  'E':U (icType), 
        input  2 (iiSeverity), 
        input  '' (icRowid), 
        input  'qadfin-210627':U (icFcMsgNumber), 
        input  '' (icFcExplanation), 
        input  '' (icFcIdentification), 
        input  '' (icFcContext), 
        output viFcReturnSuper (oiReturnStatus)) in BPaymentSelection>

    assign oiReturnStatus = -1.
end.
else
    ocPaySelCode = tqPaySelPrim.tcPaySelCode.