method CalculateHeaderPayAttributes

Description

This method is used to update the calculated fields of tPaySelPayCode

Parameters

oiReturnStatus

output

integer

Return status of the method.

Internal usage

QadFinancials

method BPaymentSelection.Calculate01

program code (program1/bpaymentselection.p)

for each tPaySelPayCode where 
    tPaySelPayCode.PaySel_ID = tPaySel.PaySel_ID:
    <Q-1 run PayFormatGroupPrim (all) (Read) (NoCache)
       (input tPaySelPayCode.PayFormatGroup_ID, (PayFormatGroupID)
        input '':U, (PayFormatTypeCode)
        input ?, (PayFormatGroupSequence)
        output dataset tqPayFormatGroupPrim) in BPaymentFormat >

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

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

        for each tqPayFormatCodePrim no-lock:
            assign tPaySelPayCode.tcPayFormatCode = tqPayFormatCodePrim.tcPayFormatCode
                   tPaySelPayCode.tcPayFormatCodeDescription = tqPayFormatCodePrim.tcPayFormatCodeDescription.
                   /*tPaySelPayCode.tcPayFormatCodeValue = tqPayFormatCodePrim.tcPayFormatCode.*/
        end.
    end.
    /*else if (tPaySelPayCode.PayFormatCode_ID = 0 or tPaySelPayCode.PayFormatCode_ID = ?) then do:*/
        assign tPaySelPayCode.tcPayFormatCodeValue = tPaySelPayCode.PaySelPayCodeValue.
    /*end.*/
    /*FIN-3198:
            This method is called when the information of an exsiting payment selection is to be presented on the UI. 
            1."tPaySelPayCode.PaySelPayCodeValue" keeps the value of a corresponding field when the payment selection is last saved;
            2."tPaySelPayCode.tcPayFormatCodeValue" holds the value which is to be presented on the UI and bound to a corresponding tag;
            3.So whatever the value of "tPaySelPayCode.PayFormatCode_ID" is, "tPaySelPayCode.tcPayFormatCodeValue" always has to be set to
                "tPaySelPayCode.PaySelPayCodeValue". */                                                                    
end.