FileMaker Pro Custom Functions

/* AppleScript_Choose_from_List ( myList ; window_title ; message ; allow_multiple ; allow_empty ; default_items ; OK_button_name ; result_field ) version 9 --------------------------------------------- Thomas Siebert, 16.09.2011 info@t-seabird.de www.t-seabird.de --------------------------------------------- creates a dialog with a chooser list myList = a list you want to choose from: "Germany¶USA¶India¶France¶Spain¶Japan¶China". window_title = Name of the message window message = a message to the user. allow_multiple = 1 to activate choosing of multiple items of the list via the command key. allow_empty = allowing to choose not a single item from the list. default_items = pre-choose the default item(s) OK_button_name = giving the OK-button another name result_field = the FileMaker field to return the result ( table::field ) using the current record. Die CF wird über den Scriptschritt "AppleScript ausführen" mit der Option "Berechnetes Script" genutzt. "AppleScript ausführen" steht auch direkt in den Tastenkommandos zur Verfügung. Use the ScriptStep "Perform AppleScript" using the option "Calculated AppleScript" You also shall use "Perform AppleScript" directly from a button. FROM THE APPLESCRIPT PROPERTIES LIST: choose from list v : Choose one or more items from a list choose from list list of text or number : a list of items to display [with title - text] : the dialog window title [with prompt - text] : the prompt to be displayed in the dialog box [default items - list of text or number] : a list of items to initially select (an empty list if no selection) [OK button name - text] : the name of the OK button [cancel button name - text] : the name of the Cancel button [multiple selections allowed - boolean] : Allow multiple items to be selected? [empty selection allowed - boolean] : Can the user make no selection and then choose OK? → list of number or text : the list of selected items */ Let ([ myList = Substitute ( myList ; ¶ ; "\", \"" ) ; MultiChoose = Case ( allow_multiple = 1 ; True ; False ) ; allow_empty = Case ( allow_empty = 1 ; True ; False ) ; window_title = Case ( not IsEmpty ( window_title ) ; window_title ; "" ) ; OK_button_name = Case ( not IsEmpty ( OK_button_name ) ; OK_button_name ; "OK" ) ; result_field = Substitute ( GetFieldName ( result_field ) ; "::" ; ¶ ) ; Cell_Result = Substitute ( RightValues ( result_field ; 1 ) ; ¶ ; "" ) ; Table_Result = Substitute ( LeftValues ( result_field ; 1 ) ; ¶ ; "" ) ]; "set FMP_DB to \"" & Get ( FileName ) & "\" ¶set FMP_ID_CurrentRec to the ID of current record of database FMP_DB ¶ ¶set myList to {\"" & myList & "\"} ¶set AppleScript's text item delimiters to return ¶set myResult to (choose from list myList multiple selections allowed " & MultiChoose & " empty selection allowed " & allow_empty & " with title \"" & window_title & "\" with prompt \"" & message & "\" default items \"" & default_items & "\" OK button name \"" & OK_button_name & "\") as string ¶ ¶if myResult is not \"false\" then ¶ save record id FMP_ID_CurrentRec of table \"" & Table_Result & "\" of database FMP_DB ¶ set cell \"" & Cell_Result & "\" of record id FMP_ID_CurrentRec of table \"" & Table_Result & "\" of database FMP_DB to myResult ¶end if" )
 Then copy & paste into FileMaker Advanced's Edit Custom Function window.