The code allows you to look at multiple fields and examine the content from an
options list and from the selection, removes the data from the list and
replaces the original string.
FIELD fvreqdate := fvreqdate;
FIELD fvreqtype := fvreqtype;
FIELD fvreqhour := fvreqhour;
FIELD fvreqicon := fvreqicon;
FIELD delrequest := delrequest;
date :="";
type :="";
flex :="";
icon :="";
catchdel :="";
setdate:="";
settype:="";
setflex:="";
seticon:="";
remdate :="";
remtype :="";
remflex :="";
remicon :="";
udlist :="";
deldate :="";
newlist :="";
@If(fvreqdate!="";
@Do(
@Set("udlist";@Text(fvreqdate)+" "+fvreqtype+" "+fvreqhour+"
"+fvreqicon);
@Set("deldate";@Prompt([OKCANCELLIST];"DELETE DATE";"Please select the date you
wish to delete";"- Select a date -";"- Select a date -":udlist));
@If(deldate="- Select a date -";@Prompt([OK];"SELECTION ERROR";"You did not
select a date to delete")&@Return("");@Do(
@Set("udlist";"");
@Set("remdate";@Left(deldate;10));
@Set("remtype";@Middle(deldate;" ";" "));
@Set("remflex";@MiddleBack(deldate;" ";" "));
@Set("remicon";@RightBack(deldate;" "));
@Set("date";@Text(fvreqdate));
@Set("type";fvreqtype);
@Set("flex";fvreqhour);
@Set("icon";@Text(fvreqicon));
@Set("catchdel";@Text(delrequest));
@SetField("fvreqdate";"");
@SetField("fvreqtype";"");
@SetField("fvreqhour";"");
@SetField("fvreqicon";"");
@SetField("delrequest";"");
@Set("setdate";@ReplaceSubstring(@Implode(date);remdate;""));
@Set("settype";@ReplaceSubstring(@Implode(type);remtype;""));
@Set("setflex";@ReplaceSubstring(@Implode(flex);remflex;""));
@Set("seticon";@ReplaceSubstring(@Implode(icon);remicon;""));
@SetField("fvreqdate";@Explode(@Text(setdate)));
@SetField("fvreqtype";@Explode(settype));
@SetField("fvreqhour";@Explode(setflex));
@SetField("fvreqicon";@Explode(seticon));
@If(status="Approved";
@SetField("delrequest"; @Text(@Right(remdate;8))+"
"+@Text(catchdel));@SetField("delrequest";""));
@Command([ViewRefreshFields]))))
;@Prompt([OK];"NO DATES";"There are no dates to delete")&@Return(""))
This was first published in November 2000