for I := 0 to Command.FlowControl.Flow.Tasks.Count-1 do
begin
lTask := Command.FlowControl.Flow.Tasks;//获取某一个任务
if lTask.ProcUnitID = 'SHWT' then//判断该任务属于哪个环节
begin
if lTask.State <> TTaskState.tsFinished then
begin
lTask.State := TTaskState.tsFinished;
lTask.SavetoDb;
end;