-- Sets up the JobName, CustomerName and location by asking the user

set JobName to text returned of (display dialog "Please enter Job Name:" default answer "Job_Name")
set Customer to text returned of (display dialog "Customer Name:" default answer "Customer")
set loc to choose folder "Choose Parent Folder Location"

-- Sets up the date variables

set incomingDate to (current date)
set yr to year of incomingDate as text
set mo to (month of incomingDate as number) as text
if ((length of mo) = 1) then
	set mo to "0" & mo
end if
set dy to day of incomingDate as text
if ((length of dy) = 1) then
	set dy to "0" & dy
end if

-- Sets the filename to be used concatinated with date
set newfoldername to yr & "-" & mo & dy & "-" & JobName
set customer2 to Customer & "-" & JobName

tell application "Finder"
	display dialog "Do you want me to create an OmniFocus Project?" buttons {"yes", "no"} default button 2
	if button returned of the result is "no" then
		
		--Parent Directory Structure
		
		set dir_1 to make new folder at loc with properties {name:newfoldername}
		set dir_2 to make new folder at dir_1 with properties {name:"Caps"}
		set dir_3 to make new folder at dir_1 with properties {name:"Configs"}
		set dir_4 to make new folder at dir_1 with properties {name:"Diagrams"}
		set dir_5 to make new folder at dir_1 with properties {name:"Documents"}
		set dir_6 to make new folder at dir_1 with properties {name:"Scripts"}
		
		-- Sub-Folder structure
		
		set sub_3_1 to make new folder at dir_3 with properties {name:"Backups"}
		set sub_3_2 to make new folder at dir_3 with properties {name:"Logs"}
		set sub_3_3 to make new folder at dir_3 with properties {name:"Sites"}
		set sub_3_4 to make new folder at dir_3 with properties {name:"Worksheets"}
		
		set sub_4_1 to make new folder at dir_4 with properties {name:"Logos"}
		set sub_4_2 to make new folder at dir_4 with properties {name:"Screenshots"}
		set sub_4_3 to make new folder at dir_4 with properties {name:"Network Diagrams"}
		
		
		set sub_5_1 to make new folder at dir_5 with properties {name:"Customer"}
		set sub_5_2 to make new folder at dir_5 with properties {name:"Deliverable"}
		set sub_5_3 to make new folder at dir_5 with properties {name:"License"}
		set sub_5_4 to make new folder at dir_5 with properties {name:"Certificates"}
		set sub_5_5 to make new folder at dir_5 with properties {name:"UDT"}
		set sub_5_6 to make new folder at dir_5 with properties {name:"Validation"}
		
		-- Creates sub-folders under \UDT
		
		set sub2_5_1 to make new folder at sub_5_5 with properties {name:"BoMs"}
		set sub2_5_2 to make new folder at sub_5_5 with properties {name:"Quotes"}
		set sub2_5_3 to make new folder at sub_5_5 with properties {name:"Private"}
		set sub2_5_4 to make new folder at sub_5_5 with properties {name:"SoW"}
		set sub2_5_5 to make new folder at sub_5_5 with properties {name:"Standard"}
		
	else
		
		--Parent Directory Structure
		
		set dir_1 to make new folder at loc with properties {name:newfoldername}
		set dir_2 to make new folder at dir_1 with properties {name:"Caps"}
		set dir_3 to make new folder at dir_1 with properties {name:"Configs"}
		set dir_4 to make new folder at dir_1 with properties {name:"Diagrams"}
		set dir_5 to make new folder at dir_1 with properties {name:"Documents"}
		set dir_6 to make new folder at dir_1 with properties {name:"Scripts"}
		
		-- Sub-Folder structure
		
		set sub_3_1 to make new folder at dir_3 with properties {name:"Backups"}
		set sub_3_2 to make new folder at dir_3 with properties {name:"Logs"}
		set sub_3_3 to make new folder at dir_3 with properties {name:"Sites"}
		set sub_3_4 to make new folder at dir_3 with properties {name:"Worksheets"}
		
		set sub_4_1 to make new folder at dir_4 with properties {name:"Logos"}
		set sub_4_2 to make new folder at dir_4 with properties {name:"Screenshots"}
		set sub_4_3 to make new folder at dir_4 with properties {name:"Network Diagrams"}
		
		
		set sub_5_1 to make new folder at dir_5 with properties {name:"Customer"}
		set sub_5_2 to make new folder at dir_5 with properties {name:"Deliverable"}
		set sub_5_3 to make new folder at dir_5 with properties {name:"License"}
		set sub_5_4 to make new folder at dir_5 with properties {name:"Certificates"}
		set sub_5_5 to make new folder at dir_5 with properties {name:"UDT"}
		set sub_5_6 to make new folder at dir_5 with properties {name:"Validation"}
		
		-- Creates sub-folders under \UDT
		
		set sub2_5_1 to make new folder at sub_5_5 with properties {name:"BoMs"}
		set sub2_5_2 to make new folder at sub_5_5 with properties {name:"Quotes"}
		set sub2_5_3 to make new folder at sub_5_5 with properties {name:"Private"}
		set sub2_5_4 to make new folder at sub_5_5 with properties {name:"SoW"}
		set sub2_5_5 to make new folder at sub_5_5 with properties {name:"Standard"}
		
		-- Creates the OmniFocus Project
		
		-- set thePath to choose file of type "oo3" with prompt "Please choose a OmniOutline file."
		
		
		(* Need to figure out this date issue, These are some of the tests I tried.
		
		-- set startDate to do shell script "date -j -f '%A, %B %e, %Y %l:%M:%S %p' '" & startDate & "' '+%y%m%d_%H-%M-%S'"
		-- display dialog "Start Date date:  " & startDate
		
		-- set dueDate to do shell script "date -j -f '%A, %B %e, %Y %l:%M:%S %p' '" & dueDate & "' '+%y%m%d_%H-%M-%S'"
		-- display dialog "Start Date date:  " & dueDate
		
		
		set incomingDate to startDate
		set yr to year of incomingDate as text
		set mo to (month of incomingDate as number) as text
		if ((length of mo) = 1) then
			set mo to "0" & mo
		end if
		set dy to day of incomingDate as text
		if ((length of dy) = 1) then
			set dy to "0" & dy
		end if
		
		set incomingDate to dueDate
		set yr to year of incomingDate as text
		set mo to (month of incomingDate as number) as text
		if ((length of mo) = 1) then
			set mo to "0" & mo
		end if
		set dy to day of incomingDate as text
		if ((length of dy) = 1) then
			set dy to "0" & dy
		end if
		. *)
		
		-- Need to figure this out	
		
		
		set startDate to text returned of (display dialog "What will be the start date?" default answer "")
		set dueDate to text returned of (display dialog "When is it due by?" default answer "Customer")
		
		
		
		display dialog "Start Date is:, " & "startDate"
		display dialog "Due Date is:, " & "dueDate"
		
		tell application "OmniFocus"
			tell default document
				import into it from POSIX file "/Users/mannyfernandez/Desktop/test123.oo3"
			end tell
		end tell
		
		
		
		
		tell front document of application "OmniFocus"
			set homeContext to first flattened context whose name is "UDT"
			
			set theProject to make new project with properties {name:JobName, defer date:startDate, due date:dueDate, context:homeContext, sequential:false}
			
			tell theProject
				make new task with properties {name:"Kickoff Meeting"}
				make new task with properties {name:"Closeout Meeting"}
			end tell
		end tell
	end if
	
	
	
	
	-- Set variable to be used by Evernote
	
	set custfldr to the loc as text
	set POSIXPath to (the POSIX path of custfldr)
	set filelink to "file://" & POSIXPath
	
end tell

tell application "Finder"
	set the clipboard to the POSIXPath as text
end tell

tell application id "com.evernote.Evernote"
	create note with text filelink title customer2 notebook "Inbox"
end tell