project QadFinancials > class BBankNumber > method CalculatePayFormatCodeDesc
Parameters
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
QadFinancials
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*/