Added capital works blank section. Synced calling screen.

[capital-apms-progress.git] / trigger / wrtsktyp.p

TRIGGER PROCEDURE FOR WRITE OF FlowTaskType OLD BUFFER old-type.

IF old-type.FlowTaskType <> FlowTaskType.FlowTaskType THEN DO:
  FOR EACH FlowStepType WHERE FlowStepType.FlowTaskType = old-type.FlowTaskType:
    FlowStepType.FlowTaskType = FlowTaskType.FlowTaskType.
  END.
END.