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

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

forward prototypes
global function integer f_mtrlstorage_change_dwselect (datawindow arg_dw, string arg_newselect, string arg_storage_ter, ref string arg_msg)
end prototypes

global function integer f_mtrlstorage_change_dwselect (datawindow arg_dw, string arg_newselect, string arg_storage_ter, ref string arg_msg);arg_newselect =lower(trim(arg_newselect))


IF TRIM(arg_newselect)<>'' THEN
	if Pos(arg_newselect," where ") <> 0 then
		if Pos(arg_newselect," order by ") <> 0 then
  	 		arg_newselect = Replace(arg_newselect,Pos(arg_newselect," order by "),10,"  and ("+arg_storage_ter+') order by ')
			
		else
			arg_newselect=arg_newselect+" AND ("+arg_storage_ter+')'
		end if	
	else
		if Pos(arg_newselect," order ") <> 0 then
			arg_newselect =Replace(arg_newselect,Pos(arg_newselect," order by "),10,"  WHERE ("+arg_storage_ter+') order by ' )
		else
			arg_newselect=arg_newselect+" WHERE ("+arg_storage_ter+')'
		end if
	end if
END IF

arg_dw.Modify("datawindow.table.select = ~"" + arg_newselect+ "~"")

return 1
end function