project BLF > class Persistence (Progress) > method ReleaseQBuffer


Parameters


icBufferNameinputcharacter
iiQueryIDinputinteger


Internal usage


BLF
method Progress.CheckExistence
method Progress.GetCountOfQueryResult
method Progress.ReadQueryBackward


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.