hello, i am beginer of progress, when i tried to make a dynamic query i got error in my query due to the use of can-find keyword inside the so how i ensure that
the existance of related field isin other table or not ? if there is one to many relationship is there. the code is like that.
def var xtest as handle no-undo.
def var v-query-test as char no-undo.
create query xtest.
xtest:set-buffers(buffer xsrequest:handle,buffer xsrcomment:handle).
v-query-test = "for each xsrequest no-lock where xsrequest.xpren = 1
AND ( xsrequest.xpmon = 1)
and ( xsrequest.xprvn = 2 or xsrequest.xprvn = 4)
and ( xsrequest.xsrtn = 1 or xsrequest.xsrtn = 2)
and ( xsrequest.xstac = '1000' or xsrequest.xstac = '2000' or xsrequest.xstac = '8000')
and ( xsrequest.xsrpn = 1 or xsrequest.xsrpn = 4)
and ( xsrequest.xsrecassign = 'kacharya' or xsrequest.xsrecassign = 'PSTAdmin')
and ( xsrequest.xsreccreator = 'PSTAdmin')
AND ( xsrequest.xsrettitle CONTAINS 'svn'
OR xsrequest.xsrem CONTAINS 'svn'
OR CAN-FIND(FIRST xsrcomment where xsrequest.xsretid = xsrcomment.xsretid AND xsrcomment.xsrctcomment MATCHES 'svn')
)" .
message v-query-test VIEW-AS ALERT-BOX.
xtest:query-prepare(v-query-test).
xtest:query-open().
repeat while not xtest:query-off-end:
xtest:get-next().
DISP xsrequest.xsretid .
end.
xtest:query-close().
delete object xtest.