[gcrump]

I'm sure I have seen this somewhere but can some one provide me with the an applescript snippet that will Identify if a certain row has children. What I am looking for is if a row is named Completed and it has items in it to use a namedstyle called "Greyed" to change is color.

Thanks in advance,

George

[DerekM]

tell front document of application "OmniOutliner Professional"
		if (exists child of first selected row) then
			display dialog "yes"
		else
			display dialog "no"
		end if
end tell

[gcrump]

Derek,

Thanks for the help. I ended up with the below. My goal was to get a number beside each Project. The last thing I would like to be able to do is automatically pull the name of each top level item. Right now I have to manually put each name in.

Any guidance there?

Script thus far........

tell front document of application "OmniOutliner Professional"
my SectionCounter("Invoicing")
my SectionCounter("Goals")
my SectionCounter("Read")
my SectionCounter("Notes")
my SectionCounter("Opportunities")
end tell

on SectionCounter(TheSection)
tell front document of application "OmniOutliner Professional"
set ThisSection to first child whose topic starts with TheSection
delete (rows of ThisSection whose topic = "" and has subtopics is false)
set SectionCount to count of children of ThisSection
if SectionCount = 0 then
set topic of ThisSection to first word of topic of ThisSection
else
set topic of ThisSection to first word of topic of ThisSection & " (" & SectionCount & ")"
end if
end tell
end SectionCounter

[gcrump]

OK Figured out how to pull the names from a column. I set the column to a popup and then can get the names from the enumeration. That snipet is here:

set enumcount to count of enumerations of column "Assigned"
set x to 0
repeat until x = enumcount
set x to x + 1
set enum_name to name of enumeration x of column "Assigned"
my rowCleanup(enum_name)
end repeat

Complete code is now:

tell application "OmniOutliner Professional"
tell front document
--- Clean up Topics of those I know of

set enumcount to count of enumerations of column "Assigned"
set x to 0
repeat until x = enumcount
set x to x + 1
set enum_name to name of enumeration x of column "Assigned"
my rowCleanup(enum_name)
end repeat

set enumcount to count of enumerations of column "Context"
set x to 0
repeat until x = enumcount
set x to x + 1
set enum_name to name of enumeration x of column "Context"
my rowCleanup(enum_name)
end repeat
repeat with theRow in every row
set theAssigned to value of cell "Assigned" of theRow
set theContext to value of cell "Context" of theRow
set theTopic to value of cell "Topic" of theRow
set theDuedate to value of cell "Due Date" of theRow
if theAssigned > "" then
set TheParent to the value of cell "Topic" of the parent of theRow
try
set theNewRow to make new row at end of rows of (first child whose topic is theAssigned) with properties {topic:theTopic}
on error
make new row at end of rows with properties {topic:theAssigned}
set theNewRow to make new row at end of rows of (first child whose topic is theAssigned) with properties {topic:theTopic}
end try
set value of cell "Project" of theNewRow to TheParent
set value of cell "Due Date" of theNewRow to theDuedate
end if
if theContext > "" then
set TheParent to the value of cell "Topic" of the parent of theRow
try
set theNewRow to make new row at end of rows of (first child whose first word of topic is theContext) with properties {topic:theTopic}
on error
make new row at end of rows with properties {topic:theContext}
set theNewRow to make new row at end of rows of (first child whose first word of topic is theContext) with properties {topic:theTopic}
end try
set value of cell "Project" of theNewRow to TheParent
set value of cell "Due Date" of theNewRow to theDuedate
end if

end repeat
beep
end tell
end tell

on rowCleanup(TheSection)
tell front document of application "OmniOutliner Professional"
set ThisSection to first child whose topic starts with TheSection
try
delete rows of ThisSection
on error
make new row at end of rows with properties {topic:TheSection}
end try
end tell
end rowCleanup