Parameters
iiBankNumberId | input | integer | |
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
unused
program code (program1/bbankpayformat.p)
if iiBankNumberId = 0 or iiBankNumberId = ?
then return.
/* Clear the instance */
<M-1 run ClearData
(output viFcReturnSuper (oiReturnStatus)) in BBankPayFormat>
if viFcReturnSuper <> 0
then do:
assign oiReturnStatus = viFcReturnSuper.
return.
end.
/* Load the BankPayFormat records for the input bank */
<Q-2 run BankPayFormatByBankID (all) (Read) (NoCache)
(input iiBankNumberId, (BankNumberId)
output dataset tqBankPayFormatByBankID) in BBankPayFormat >
for each tqBankPayFormatByBankID no-lock:
find tBankPayFormat where
tBankPayFormat.BankPayFormat_ID = tqBankPayFormatByBankID.tiBankPayFormat_ID
no-error.
if not available tBankPayFormat
then do:
if vcList = "":U
then vcList = string (tqBankPayFormatByBankID.tiBankPayFormat_ID).
else if lookup (string(tqBankPayFormatByBankID.tiBankPayFormat_ID), vcList, chr(4)) = 0
then vcList = vcList + chr(4) + string (tqBankPayFormatByBankID.tiBankPayFormat_ID).
end.
end.
if vcList <> "":U
then do:
<M-3 run DataLoad
(input '':U (icRowids),
input vcList (icPkeys),
input '':U (icObjectIds),
input '':U (icFreeform),
input true (ilKeepPrevious),
output viFcReturnSuper (oiReturnStatus)) in BBankPayFormat>
if viFcReturnSuper <> 0
then do:
assign oiReturnStatus = viFcReturnSuper.
return.
end.
end.