Parameters
| iiBankNumberId | input | integer | |
| iiCompanyId | input | integer | |
| oiReturnStatus | output | integer | Return status of the method. |
Internal usage
unused
program code (program1/bpayconf.p)
if iiBankNumberId = 0 or iiBankNumberId = ?
then return.
/* Clear the instance */
<M-51 run ClearData (output viFcReturnSuper (oiReturnStatus)) in BPayConf>
if viFcReturnSuper <> 0
then do:
assign oiReturnStatus = viFcReturnSuper.
return.
end.
<Q-19 run PAYConfByBankNumberID (all) (Read) (NoCache)
(input iiCompanyId, (CompanyId)
input iiBankNumberId, (BankNumberId)
output dataset tqPayConfByBankNumberID) in BPayConf>
find first tqPayConfByBankNumberID no-error.
if available tqPayConfByBankNumberID then
do:
<M-77 run DataLoad
(input '':U (icRowids),
input string(tqPayConfByBankNumberID.tiPayConf_ID) (icPkeys),
input '':U (icObjectIds),
input '':U (icFreeform),
input false (ilKeepPrevious),
output viFcReturnSuper (oiReturnStatus)) in BPayConf>
if viFcReturnSuper <> 0
then do:
assign oiReturnStatus = viFcReturnSuper.
return.
end.
end.