Q5/ws_objects/Oa_workremind.pbl.src/f_oa_workremind_setright.srf

$PBExportHeader$f_oa_workremind_setright.srf
global type f_oa_workremind_setright from function_object
end type

forward prototypes
global subroutine f_oa_workremind_setright (s_wrm_right arg_rightarray[], ref datawindow dw)
end prototypes

global subroutine f_oa_workremind_setright (s_wrm_right arg_rightarray[], ref datawindow dw);long cnt
string ls_cur_wrmid,arg_right=''

for cnt=1 to UpperBound(arg_rightArray)
	if arg_rightArray[cnt].selected=1 then
		arg_right+=string(arg_rightArray[cnt].wrmid)
	end if
next

if dw.rowcount()<>0 then
	for cnt=1 to dw.rowcount()
		ls_cur_wrmid=string(dw.object.wrmid[cnt])
		if pos(arg_right,ls_cur_wrmid)<>0 then
			dw.object.selected[cnt]=1
		end if
	next
end if
end subroutine