method GetHeaderPayCodeEnabled

Description

Returns true if the specified payment format has "header" level attributes.

Parameters

icPayFormatTypeCode	input	character
olHeaderPayCodeEnabled	output	logical
tDPaySelPayCodeRefDDoc	output	temp-table
oiReturnStatus	output	integer	Return status of the method.

Internal usage

unused

program code (program1/bddocument.p)

<Q-1 run PayFormatGroupByTypeSeq (all) (Read) (NoCache)
   (input ?, (PayFormatGroupSequence)
    input true, (PayFormatGroupIsActive)
    input icPayFormatTypeCode, (PayFormatTypeCode)
    output dataset tqPayFormatGroupByTypeSeq) in BPaymentFormat >

if can-find (first tqPayFormatGroupByTypeSeq where
                   tqPayFormatGroupByTypeSeq.tcPayFormatGroupLevel = {&PAYFORMATGROUPLEVEL-HEADER})
then olHeaderPayCodeEnabled = true.
else olHeaderPayCodeEnabled = false.

if olHeaderPayCodeEnabled
then do:
    <M-2 run CreateHeaderPayCode
       (input  icPayFormatTypeCode (icPayFormatTypeCode), 
        output tDPaySelPayCodeRefDDoc (tDPaySelPayCodeRefDDoc), 
        output viFcReturnSuper (oiReturnStatus)) in BDDocument>
end.