method CalculateHeaderPayAttributes

Parameters

oiReturnStatus

output

integer

Return status of the method.

Internal usage

QadFinancials

method BDPaymentSelection.Calculate

program code (program1/bdpaymentselection.p)

for each tDPaySelPayCode where 
    tDPaySelPayCode.DPaySel_ID = tDPaySel.DPaySel_ID:
    <Q-67 run PayFormatGroupPrim (all) (Read) (NoCache)
       (input tDPaySelPayCode.PayFormatGroup_ID, (PayFormatGroupID)
        input '':U, (PayFormatTypeCode)
        input ?, (PayFormatGroupSequence)
        output dataset tqPayFormatGroupPrim) in BPaymentFormat>

    for each tqPayFormatGroupPrim no-lock:
        assign tDPaySelPayCode.tcPayFormatGroupCode = tqPayFormatGroupPrim.tcPayFormatGroupCode
               tDPaySelPayCode.tcPayFormatGroupDescription = tqPayFormatGroupPrim.tcPayFormatGroupDescription
               tDPaySelPayCode.tcPayFormatGroupInputOption = tqPayFormatGroupPrim.tcPayFormatGroupInputOption
               tDPaySelPayCode.tlPayFormatGroupIsMandatory = tqPayFormatGroupPrim.tlPayFormatGroupIsMandatory
               tDPaySelPayCode.tcPayFormatGroupDataType = tqPayFormatGroupPrim.tcPayFormatGroupDataType.
               /* tDPaySelPayCode.tiPayFormatGroupSequence = tqPayFormatGroupPrim.tiPayFormatGroupSequence */
    end.

    if tDPaySelPayCode.PayFormatCode_ID <> ? and tDPaySelPayCode.PayFormatCode_ID <> 0 then do:
        <Q-74 run PayFormatCodePrim (all) (Read) (NoCache)
           (input tDPaySelPayCode.PayFormatCode_ID, (PayFormatCodeID)
            input '', (PayFormatCode)
            output dataset tqPayFormatCodePrim) in BPaymentFormat>

        for each tqPayFormatCodePrim no-lock:
            assign tDPaySelPayCode.tcPayFormatCode = tqPayFormatCodePrim.tcPayFormatCode
                   tDPaySelPayCode.tcPayFormatCodeDescription = tqPayFormatCodePrim.tcPayFormatCodeDescription.
                   /*tPaySelPayCode.tcPayFormatCodeValue = tqPayFormatCodePrim.tcPayFormatCode.*/
        end.
    end.    
    assign tDPaySelPayCode.tcPayFormatCode = tDPaySelPayCode.DPaySelPayCodeValue.
                                                                
end.