project BLF > include bFcQueryExist.i

Description

Query existance call in business components code.

include parameters

&BUFFERS
&CLASS-TYPE
&QUERY-NAME
&SELECT

Internal usage

unused

include code

&IF "{&CLASS-TYPE}" = "T"
&THEN
run StartPersistenceInPool (input {&TARGETPROCEDURE}, output vhFcComponent, output viFcQueryReturn).
if viFcQueryReturn < 0
then do:
    oiReturnStatus = viFcQueryReturn.
    return ?.
end.
run CheckExistence in vhFcComponent
&ELSE
if vhFcPersistence = ?
then do:
run StartPersistenceInPool (input {&TARGETPROCEDURE}, output vhFcPersistence, output viFcQueryReturn).
if viFcQueryReturn < 0
then do:
    oiReturnStatus = viFcQueryReturn.
    return ?.
end.
end.
run CheckExistence in vhFcPersistence
&ENDIF
   (input "{&QUERY-NAME}",
    input {&SELECT},
    input "{&BUFFERS}",
    output vlFcQueryRecordsAvailable,
    output viFcQueryReturn).
assign vlFcQueryRecordsAvailable = not vlFcQueryRecordsAvailable.