project QadFinancials > class BBankPayFormat > method GetBankPayFormatIsReferenced

function returns logical

Description

Returns true if the BankPayFormat is referenced.

Parameters


iiBankPayFormatIdinputinteger
oiReturnStatusoutputinteger

Internal usage


QadFinancials
method BBankPayFormat.Calculate
method BBankPayFormat.ValidateComponent

program code (program1/bbankpayformat.p)

<Q-1 assign vlFcQueryRecordsAvailable = BankNumberByBankPayFormatID (NoCache)
   (input iiBankPayFormatId, (BankPayFormatId)) in BBankNumber >

if vlFcQueryRecordsAvailable <> false
then return true. 

<Q-2 assign vlFcQueryRecordsAvailable = PaySelByBankPayFormatID (NoCache)
   (input ?, (CompanyId)
    input iiBankPayFormatId, (BankPayFormatId)) in BPaymentSelection >

if vlFcQueryRecordsAvailable <> false
then return true. 

<Q-3 run DPaySelByBankPayFormatId (all) (Read) (NoCache)
   (input ?, (CompanyId)
    input iiBankPayFormatId, (BankPayFormatId)
    output dataset tqDPaySelByBankPayFormatId) in BDPaymentSelection >

if vlFcQueryRecordsAvailable <> false
then return true. 

return false.