Q5/ws_objects/Ew_bsnobj.pbl.src/f_modify_selectstr.srf

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

forward prototypes
global function string f_modify_selectstr (string arg_selectstr)
end prototypes

global function string f_modify_selectstr (string arg_selectstr);String ls_ret,ls_selectstr


ls_selectstr = Lower(arg_selectstr)
IF Pos(ls_selectstr,' where ',1) > 0  THEN
	IF f_return_storageidstr() <> '' THEN
		ls_selectstr = ls_selectstr + ' and ' + f_return_storageidstr()
	END IF
ELSE
	IF f_return_storageidstr() <> '' THEN
		ls_selectstr = ls_selectstr + ' where ' + f_return_storageidstr()
	END IF
END IF

ls_ret = ls_selectstr

RETURN ls_ret

end function