project QadFinancials > class BPaymentSelection > method GetPaySelDataProName

function returns character

Description

Returns the ProDataSet name - used to determine which dataset to build on export


Parameters


iiPaySelIDinputinteger
oiReturnStatusoutputinteger


Internal usage


QadFinancials
method BPaymentSelection.BuildProDataSet


program code (program3/bpaymentselection.p)

/* default is to return the APBankPayment - unless configured in the Header Payment Attributes */
assign vcDataSetName = {&APBANKPAYMENT}.
/* which format may be defined as a header field &*/
<Q-9 run PaySelPayCodeByPaySelID (all) (Read) (NoCache)
   (input iiPaySelID, (PaySelID)
    input 'ExportExtended':U, (PayFormatGroupCode)
    output dataset tqPaySelPayCodeByPaySelID) in BPaymentSelection>

find first tqPaySelPayCodeByPaySelID where tqPaySelPayCodeByPaySelID.tcPayFormatGroupCode = "ExportExtended":U no-error.
if available tqPaySelPayCodeByPaySelID 
then do:
    if tqPaySelPayCodeByPaySelID.tcPaySelPayCodeValue = 'true':U
    then assign vcDataSetName = {&APBANKPAYMENTSTAGE}.   
end. /* if available */
return vcDataSetName.