project QadFinancials > class BBankNumber > method CalcAllDebtorBankNumberPayFormat
query calculated fields procedure
Description
Assign a value to query calculated fields
Parameters
iiCompanyId | input | integer | |
iiBankNumberID | input | integer | |
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
QadFinancials
program code (program1/bbanknumber.p)
create query vhQuery in widget-pool "non-persistent".
vhQuery:forward-only = yes.
vhQuery:set-buffers(ih_Buffer).
vhQuery:query-prepare("for each ":U + ih_Buffer:table).
vhQuery:query-open().
vhQuery:get-first().
<Q-4 run BankNumberForPayFormatBank (Start) in BBankNumber >
do while not vhQuery:query-off-end:
<Q-3 run BankNumberForPayFormatBank (all) (Read) (NoCache)
(input ?, (CompanyId)
input {&tiParentObject_ID}, (ParentObjectID)
input {&tiBankNumber_ID}, (BankNumberID)
output dataset tqBankNumberForPayFormatBank) in BBankNumber >
find first tqBankNumberForPayFormatBank where
tqBankNumberForPayFormatBank.tiParentObject_ID = {&tiParentObject_ID} and
tqBankNumberForPayFormatBank.tiBankNumber_ID = {&tiBankNumber_ID}
no-error.
if available tqBankNumberForPayFormatBank
then assign {&tcCompanyCode} = tqBankNumberForPayFormatBank.tcCompanyCode.
else assign {&tcCompanyCode} = "":U.
vhQuery:get-next().
end.
<Q-5 run BankNumberForPayFormatBank (Stop) in BBankNumber >
vhQuery:query-close().
delete object vhQuery.