project BLF > class Persistence (Progress) > method ReleaseQBuffer

Parameters

Internal usage

program code (program1/progress.p)

find tQbuffers where
     tQbuffers.tcTable     = icBufferName and
     tQbuffers.tiIsInUseBy = iiQueryID    no-error.
if available tQbuffers
then do:
    viBufferID = ?.
    viBufferID = tQbuffers.thBuffer:unique-id no-error.
    if viBufferID <> tQbuffers.tiBufferID
    then delete tQbuffers.
end.
if available tQbuffers
then do:
    tQbuffers.thBuffer:buffer-release().
    tQbuffers.tiIsInUseBy = 0.
end.