I'm having troubles with Filemaker 10 and applescript. When we use Filemaker 7 all was good, but now with 10 can't figure out why applescript wont read db table and gather information to proceed with task.
I highlighted in red below the part of script I cant get to work.
Here's the code below from Applescript
[color:red]
property dataText : ""
property hexList : ""
property noRecordList : {}
property masterList : ""
property ScanNBRList : {}
property containerList : ""
property tempContainer : ""
tell application "Finder"
set theDate to (current date)
set theMonth to month of theDate as number
set theDay to day of theDate as number
set theYear to year of theDate as number
set shortDate to (theMonth as string) & "/" & (theDay as string) & "/" & (theYear as string)
set destinationParent to "xxx:xxxx:xxxx:xxxx:xxxx:xxxx:"
set workingFolder to choose folder with prompt "Select your image folder."
display dialog "Enter the Catalog Number" default answer ""
set catNumber to text returned in result
set folderList to list folder workingFolder
set AppleScript's text item delimiters to ""
set oldDelim to AppleScript's text item delimiters
repeat with x in folderList
set AppleScript's text item delimiters to "."
set x to x as string
set theBeg to text item 1 of x
set AppleScript's text item delimiters to oldDelim
if length of theBeg ≥ 8 then
set scanNBR to characters 1 thru 8 of theBeg as string
set testString to characters 3 thru 8 of scanNBR as string
try
set testString to testString as number
if ScanNBRList does not contain scanNBR then
set ScanNBRList to ScanNBRList & scanNBR
end if
end try
end if
set AppleScript's text item delimiters to oldDelim
end repeat
end tell
tell application "FileMaker Pro"
activate
if (exists database "NewItemMaster") = false then getURL "FMP7://xxx.xxx.xx.xxx/NewItemMaster.fp7"
if (exists window "CatItemImages") = false then getURL "FMP7://xxx.xxx.xx.xxx/CatItemImages.fp7"
[color:red]tell window "CatItemImages"
try
delete every request
end try
try
create new request
end try
repeat with z in ScanNBRList
set z to z as string
set field "SCAN_NBR" of request 1 to z as string
tell document 1 to find
try
set HexDir to cellValue of cell "HexDir" of current record as string
copy z to the end of containerList
copy HexDir to the end of containerList
copy containerList to the end of hexList
on error
copy z to the end of noRecordList
display dialog (z as text) & "This Image Did Not Work. Please Check Number."
end try
end repeat
end tell
end tell
--make a list of image file aliases and the corresponding hex directory
tell application "Finder"
set workingFolder to workingFolder as text
repeat with thisItem in folderList
set thisItem to thisItem as string
repeat with thatItem in hexList
set scanName to item 1 of thatItem as string
if thisItem begins with scanName then
set hexLocation to item 2 of thatItem as string
set imageFile to workingFolder & thisItem as alias
copy imageFile to the beginning of tempContainer
set imageDestination to destinationParent & hexLocation as alias
copy imageDestination to the end of tempContainer
copy tempContainer to the end of masterList
set textRecord to shortDate & "," & thisItem & "," & hexLocation & "," & catNumber as string
if dataText is "" then
set dataText to dataText & textRecord
else
set dataText to dataText & return & textRecord
end if
end if
end repeat
end repeat
activate
display dialog "I'm about to begin copying images to the backup. It might not look like I'm doing much, but I am. Don't touch anything until I tell you to, unless you want to die!" buttons {"OK"} giving up after 5
repeat with elAsso in masterList
set copyMe to item 1 of elAsso
set toHere to item 2 of elAsso
duplicate copyMe to toHere with replacing
set label index of copyMe to 6
end repeat
set theDesktop to desktop as alias
if exists file ((theDesktop as text) & "dataimport") then
delete file ((theDesktop as text) & "dataimport")
set textFile to (make new file at theDesktop with properties {name:"dataimport"})
else
set textFile to (make new file at theDesktop with properties {name:"dataimport"})
end if
end tell
tell application "TextEdit"
open {textFile as alias}
set text of document 1 to dataText
save document 1
close document 1
quit
end tell
set noUpload to ""
--FTP portion of script using Fetch
tell application "Fetch"
activate
make new transfer window at beginning with properties {hostname:"xxx.xxx.xx.xxx", username:"xxxxxx", password:"xxxxx", initial folder:"/xxx/xxx/xxx/xxx/xxx/xxx/xxx/", authentication:SFTP, encrypt:true}
repeat with eachItem in masterList
try
set imageFile to item 1 of eachItem
set destString to item 2 of eachItem as string
set oldDelim to AppleScript's text item delimiters
set AppleScript's text item delimiters to ":"
set remoteHexDir to text item -2 of destString
set AppleScript's text item delimiters to oldDelim
set destinationPath to dirString & remoteHexDir
put into remote folder destinationPath item imageFile format Automatic without uniquename
on error
if noUpload is "" then
set noUpload to noUpload & (imageFile as string)
else
set noUpload to noUpload & return & (imageFile as string)
end if
end try
end repeat
end tell
tell application "Fetch"
activate
make new transfer window at beginning with properties {hostname:"xxx.xxx.xxx.xx", username:"xxxxx", password:"xxxxx", initial folder:"/xxx/xxx/xxx/xxx/xxx/xxx/xxx/", authentication:SFTP, encrypt:true}
repeat with eachItem in masterList
try
set imageFile to item 1 of eachItem
set destString to item 2 of eachItem as string
set oldDelim to AppleScript's text item delimiters
set AppleScript's text item delimiters to ":"
set remoteHexDir to text item -2 of destString
set AppleScript's text item delimiters to oldDelim
set destinationPath to dirString & remoteHexDir
put into remote folder destinationPath item imageFile format Automatic without uniquename
on error
if noUpload is "" then
set noUpload to noUpload & (imageFile as string)
else
set noUpload to noUpload & return & (imageFile as string)
end if
end try
end repeat
end tell
tell application "Finder"
activate
display dialog "Image Discombobulator has finished. Enjoy your day!" giving up after 3
end tell
[color:red]
Any help getting this script working would be great!
Thank you,
Anthony
