Databases Reference
In-Depth Information
'<auto summary enabled="True" />'
;
-- Task & Connectors Opening Tags
l task xml := '<tasks>';
l connector xml := '<connectors>';
-- Loop through series data
for c1 in tasks
loop
if c1.task type ='T' -- ToDo
then
-- Task Tag
l task xml := l task xml ||
'<task id="' ||c1.id ||'" '||
'name="' ||c1.name ||'" '||
'parent="' ||c1.parent id ||'" '||
'actual start="' ||c1.start date ||'" '||
'actual end="' ||c1.end date ||'" '||
'progress="' ||c1.progress ||'" '||
'style="Gantt" />'
;
l connector xml := l connector xml ||
'<connector ' ||
'type="FinishStart" ' ||
'from="'||c1.predecessor ||'" '||
'to="' ||c1.id ||'" '||
' />'
;
if c1.milestone id is not null
then
l connector xml := l connector xml ||
'<connector ' ||
'type="FinishStart" ' ||
'from="'||c1.id ||'" '||
'to="' ||c1.milestone id||'" '||
' />'
;
end if;
elsif c1.task type = 'F' -- Feature
then -- Start / End / Progress are auto-calculated
l task xml := l task xml ||
'<task id="' ||c1.id ||'" '||
'name="' ||c1.name ||'" '||
'parent="' ||c1.parent id ||'" '||
'/>'
;
elsif c1.task type = 'M' -- Milestone
then -- A Milestone has no End date
l task xml := l task xml ||
'<task id="' ||c1.id ||'" '||
