project QadFinancials > class BCInvoice > method MethodIsCalledFromBankEntry

Internal usage

program code (program7/bcinvoice.p)

assign vii                 = 2
       vlCallerIsBankEntry = false.

do while true:
    assign vcProgramName = program-name(vii).
    if vcProgramName = ?
    then leave.

    if vcProgramName matches "*BBankEntry.*":U
    then do:
        assign vlCallerIsBankEntry = true.
        leave.
    end.

    assign vii = vii + 1.
end.

return vlCallerIsBankEntry.