method CreateHeaderPayCode

Description

Create "header" level payment attributes

Parameters

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

Internal usage

QadFinancials

method BDDocument.GetHeaderPayCodeEnabled

program code (program1/bddocument.p)

empty temp-table tDPaySelPayCodeRefDDoc.

find first tDPaySelRefDDoc no-error.
if not available tDPaySelRefDDoc
then return.

assign viSequence = -1.

<Q-1 run PayFormatCodeByDefault (all) (Read) (NoCache)
   (input icPayFormatTypeCode, (PayFormatTypeCode)
    input ?, (PayFormatGroupSequence)
    input true, (PayFormatGroupIsActive)
    input true, (PayFormatCodeIsActive)
    input true, (PayFormatCodeIsDefault)
    output dataset tqPayFormatCodeByDefault) in BPaymentFormat >

for each tqPayFormatCodeByDefault where
         tqPayFormatCodeByDefault.tcPayFormatGroupLevel = {&PAYFORMATGROUPLEVEL-HEADER}:

    create tDPaySelPayCodeRefDDoc.
    assign tDPaySelPayCodeRefDDoc.PayFormatGroup_ID           = tqPayFormatCodeByDefault.tiPayFormatGroup_ID
           tDPaySelPayCodeRefDDoc.PayFormatCode_ID            = tqPayFormatCodeByDefault.tiPayFormatCode_ID
           tDPaySelPayCodeRefDDoc.tcPayFormatGroupCode        = tqPayFormatCodeByDefault.tcPayFormatGroupCode
           tDPaySelPayCodeRefDDoc.tcPayFormatGroupDescription = tqPayFormatCodeByDefault.tcPayFormatGroupDescription
           tDPaySelPayCodeRefDDoc.tcPayFormatCode             = tqPayFormatCodeByDefault.tcPayFormatCode    
           tDPaySelPayCodeRefDDoc.tcPayFormatCodeDescription  = tqPayFormatCodeByDefault.tcPayFormatCodeDescription
           tDPaySelPayCodeRefDDoc.tcPayFormatGroupDataType    = tqPayFormatCodeByDefault.tcPayFormatGroupDataType   
           tDPaySelPayCodeRefDDoc.tcPayFormatGroupInputOption = tqPayFormatCodeByDefault.tcPayFormatGroupInputOption
           tDPaySelPayCodeRefDDoc.tlPayFormatGroupIsMandatory = tqPayFormatCodeByDefault.tlPayFormatGroupIsMandatory
           tDPaySelPayCodeRefDDoc.tc_ParentRowid              = tDPaySelRefDDoc.tc_Rowid
           tDPaySelPayCodeRefDDoc.tc_Rowid                    = string(viSequence)
           tDPaySelPayCodeRefDDoc.tc_status                   = 'N':U
           viSequence                                         = viSequence - 1.
end.