project QadFinancials > class BBankNumber > method CalculatePayFormatCodeDesc


Parameters


oiReturnStatusoutputintegerReturn status of the method.


Internal usage


QadFinancials
method BBankNumber.Calculate
method BBankNumber.ValidateComponent


program code (program1/bbanknumber.p)

for each t_sBankNumberPayCode where 
    t_sBankNumberPayCode.tc_Status <> "":U and
    t_sBankNumberPayCode.tc_Status <> "D":U:
           
    <Q-49 run PayFormatCodebyGroupID (all) (Read) (NoCache)
       (input ?, (PayFormatCodeID)
        input t_sBankNumberPayCode.tcPayFormatCode, (PayFormatCode)
        input t_sBankNumberPayCode.PayFormatGroup_ID, (PayFormatGroupID)
        output dataset tqPayFormatCodebyGroupID) in BPaymentFormat>  
   
    find first tqPayFormatCodebyGroupID 
        where tqPayFormatCodebyGroupID.tcPayFormatCode     = t_sBankNumberPayCode.tcPayFormatCode
          and tqPayFormatCodebyGroupID.tiPayFormatGroup_ID = t_sBankNumberPayCode.PayFormatGroup_ID no-error.
    
    if available tqPayFormatCodebyGroupID then
        assign t_sBankNumberPayCode.PayFormatCode_ID           = tqPayFormatCodebyGroupID.tiPayFormatCode_ID
               t_sBankNumberPayCode.tcPayFormatCode            = tqPayFormatCodebyGroupID.tcPayFormatCode
               t_sBankNumberPayCode.PayFormatGroup_ID          = tqPayFormatCodebyGroupID.tiPayFormatGroup_ID
               t_sBankNumberPayCode.tcPayFormatCodeDescription = tqPayFormatCodebyGroupID.tcPayFormatCodeDescription. 
end. /* for each t_sBankNumbeRPayCode*/