Just what I was looking for. Thanks for the code.
The path name wasn't working for me, so I made a minor addition to use the Finder and the project name:
Code:
tell application "Finder"
get path to desktop folder from user domain
set theResultsFile to (result as string)
end tell
tell application "OmniPlan"
set CurrentCashFlowDates to {}
set CurrentCashFlowValues to {}
set theResultsFile to the theResultsFile & (title of front document) & "-CashFlow.csv"
....