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

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

forward prototypes
global function s_oa_workremind_timetype f_oa_workremind_releasetime (string arg_parm)
end prototypes

global function s_oa_workremind_timetype f_oa_workremind_releasetime (string arg_parm);s_oa_workremind_timetype ins_timetype
string timeStr[]

f_oa_workremind_splitstr(arg_parm,"!",ref timeStr)
if pos(arg_parm,"rep")<>0 then
	
	ins_timetype.checktype=timeStr[1]
	ins_timetype.IntervalType=timeStr[2]
	ins_timetype.Interval=timeStr[3]
	ins_timetype.freType=timeStr[4]
	ins_timetype.fre=timeStr[5]
	ins_timetype.startDate=timeStr[6]
	
elseif pos(arg_parm,"once")<>0 then
	ins_timetype.checktype=timeStr[1]
	ins_timetype.oncedate=timeStr[2]
	ins_timetype.oncetime=timeStr[3]
end if
	
return ins_timetype
end function