MBS FileMaker Plugin Example Databases

Converter

All examples are included with download of MBS FileMaker Plugin.

Converter.fmp12

Overview
Tables1
Relationships0
Layouts1
Scripts3
Value Lists0
Custom Functions0
Custom Menus33
File Options
Default custom menu set[Standard FileMaker Menus]
When opening file
Minimum allowed version12.0
Login usingAccount Name; Account= Admin
Allow user to save passwordOff
Require iOS passcodeOff
Switch to layoutOff
Hide all toolbarsOff
Script triggers
OnFirstWindowOpenOff
OnLastWindowCloseOff
OnWindowOpenOff
OnWindowCloseOff
OnFileAVPlayerChangeOff
Thumbnail Settings
Generate ThumbnailsOn; Temporary

 

Tables

Table Name
Statistics
Occurrences in Relationship Graph
Converter
4 fields defined, 1 record
Converter

Fields

Table Name: Converter - 4 Fields
Field NameTypeOptionsCommentsOn LayoutsIn RelationshipsIn ScriptsIn Value Lists
InputXLSNormal, BinaryAuto-Enter:
  • Allow editing
Validation:
  • Only during data entry
Storage:
  • Repetitions: 1
      InputXLSXNormal, BinaryAuto-Enter:
      • Allow editing
      Validation:
      • Only during data entry
      Storage:
      • Repetitions: 1
          OutputXLSNormal, BinaryAuto-Enter:
          • Allow editing
          Validation:
          • Only during data entry
          Storage:
          • Repetitions: 1
              OutputXLSXNormal, BinaryAuto-Enter:
              • Allow editing
              Validation:
              • Only during data entry
              Storage:
              • Repetitions: 1

                  Layout Objects: Converter

                  Regular Fields

                  Field Name: Converter::InputXLS
                  Field PropertiesCoordinatesField FormatField BehaviorQuick Find
                  • Top: 88 pt
                  • Left: 156 pt
                  • Bottom: 213 pt
                  • Right: 409 pt
                  • Anchoring: Left, Top
                  Field Format:
                  • Edit Box
                  Field Behavior:
                  • Allow field to be entered: In Find mode, In Browse mode
                  • Touch keyboard type: System Default
                  • Go to next field using: Tab key
                  No

                  Field Name: Converter::InputXLSX
                  Field PropertiesCoordinatesField FormatField BehaviorQuick Find
                  • Top: 346 pt
                  • Left: 156 pt
                  • Bottom: 471 pt
                  • Right: 409 pt
                  • Anchoring: Left, Top
                  Field Format:
                  • Edit Box
                  Field Behavior:
                  • Allow field to be entered: In Find mode, In Browse mode
                  • Touch keyboard type: System Default
                  • Go to next field using: Tab key
                  No

                  Field Name: Converter::OutputXLS
                  Field PropertiesCoordinatesField FormatField BehaviorQuick Find
                  • Top: 346 pt
                  • Left: 696 pt
                  • Bottom: 471 pt
                  • Right: 949 pt
                  • Anchoring: Left, Top
                  Field Format:
                  • Edit Box
                  Field Behavior:
                  • Allow field to be entered: In Find mode, In Browse mode
                  • Touch keyboard type: System Default
                  • Go to next field using: Tab key
                  No

                  Field Name: Converter::OutputXLSX
                  Field PropertiesCoordinatesField FormatField BehaviorQuick Find
                  • Top: 88 pt
                  • Left: 696 pt
                  • Bottom: 213 pt
                  • Right: 949 pt
                  • Anchoring: Left, Top
                  Field Format:
                  • Edit Box
                  Field Behavior:
                  • Allow field to be entered: In Find mode, In Browse mode
                  • Touch keyboard type: System Default
                  • Go to next field using: Tab key
                  No

                  Group Buttons

                  Button PropertiesCoordinatesScript/Script Step
                    Type:
                  • Text: Convert to new format
                    Additional Properties:
                  • Change to hand cursor over button
                  • Rectangular
                  • Top: 144 pt
                  • Left: 492 pt
                  • Bottom: 175 pt
                  • Right: 631 pt
                  • Anchoring: Left, Top
                  Perform Script [ “Convert from old to new”; Parameter: "BX" ]

                  Scripts:


                  Button PropertiesCoordinatesScript/Script Step
                    Type:
                  • Text: Convert to old format
                    Additional Properties:
                  • Change to hand cursor over button
                  • Rectangular
                  • Top: 402 pt
                  • Left: 492 pt
                  • Bottom: 433 pt
                  • Right: 631 pt
                  • Anchoring: Left, Top
                  Perform Script [ “Convert from new to old”; Parameter: "XB" ]

                  Scripts:


                  Button PropertiesCoordinatesScript/Script Step
                    Type:
                  • Text: Copy to input
                    Additional Properties:
                  • Change to hand cursor over button
                  • Rectangular
                  • Top: 222 pt
                  • Left: 738 pt
                  • Bottom: 253 pt
                  • Right: 877 pt
                  • Anchoring: Left, Top
                  Set Field [ Converter::InputXLSX; Converter::OutputXLSX ]

                  Fields:


                  Button PropertiesCoordinatesScript/Script Step
                    Type:
                  • Text: Copy to input
                    Additional Properties:
                  • Change to hand cursor over button
                  • Rectangular
                  • Top: 480 pt
                  • Left: 738 pt
                  • Bottom: 511 pt
                  • Right: 877 pt
                  • Anchoring: Left, Top
                  Set Field [ Converter::InputXLS; Converter::OutputXLS ]

                  Fields:


                  Button PropertiesCoordinatesScript/Script Step
                    Type:
                  • Text: Clear
                    Additional Properties:
                  • Change to hand cursor over button
                  • Rectangular
                  • Top: 222 pt
                  • Left: 906 pt
                  • Bottom: 253 pt
                  • Right: 967 pt
                  • Anchoring: Left, Top
                  Set Field [ Converter::OutputXLSX; "" ]

                  Fields:


                  Button PropertiesCoordinatesScript/Script Step
                    Type:
                  • Text: Clear
                    Additional Properties:
                  • Change to hand cursor over button
                  • Rectangular
                  • Top: 480 pt
                  • Left: 906 pt
                  • Bottom: 511 pt
                  • Right: 967 pt
                  • Anchoring: Left, Top
                  Set Field [ Converter::OutputXLS; "" ]

                  Fields:


                  Script Hierarchy

                  Convert from old to new
                  Convert from new to old
                  InitXL

                  Next Script: [Convert from new to old]
                  Script NameConvert from old to new
                  Run script with full access privilegesOff
                  Include In MenuYes
                  Layouts that use this script
                  Scripts that use this script
                    Script Definition
                    Script Steps
                    • # Find libXL and load it
                    • If [ MBS("XL.IsInitialized") ≠ 1 ]
                    • Perform Script [ “InitXL” ]
                    • End If
                    • # Load file
                    • Set Variable [ $book1; Value:MBS("XL.LoadBook"; Converter::InputXLS) ]
                    • If [ MBS("iserror") ]
                    • Show Custom Dialog [ Title: "Failed to load Excel file"; Message: $book1; Default Button: “OK”, Commit: “Yes”; Button 2: “Cancel”, Commit: “No” ]
                    • Exit Script [ ]
                    • End If
                    • # New XML book
                    • Set Variable [ $book2; Value:MBS("XL.NewBook"; 1) ]
                    • # Copy content
                    • Set Variable [ $r; Value:MBS("XL.CopyContent"; $book1; $book2) ]
                    • # Save new book
                    • Set Variable [ $data; Value:MBS( "XL.Book.Save"; $book2; "converted.xlsx" ) ]
                    • If [ MBS("iserror") ]
                    • Show Custom Dialog [ Title: "Save failed"; Message: $data; Default Button: “OK”, Commit: “Yes”; Button 2: “Cancel”, Commit: “No” ]
                    • Else
                    • Set Field [ Converter::OutputXLSX; $data ]
                    • End If
                    • # Free memory
                    • Set Variable [ $r; Value:MBS( "XL.Book.Release"; $book1 ) ]
                    • Set Variable [ $r; Value:MBS( "XL.Book.Release"; $book2 ) ]
                    Fields used in this script
                    Scripts used in this script
                    Layouts used in this script
                      Tables used in this script
                      Table occurrences used by this script
                      Custom Functions used by this script
                        Custom menu set used by this script

                          Previous Script: [Convert from old to new]Next Script: [InitXL]
                          Script NameConvert from new to old
                          Run script with full access privilegesOff
                          Include In MenuYes
                          Layouts that use this script
                          Scripts that use this script
                            Script Definition
                            Script Steps
                            • # Find libXL and load it
                            • If [ MBS("XL.IsInitialized") ≠ 1 ]
                            • Perform Script [ “InitXL” ]
                            • End If
                            • # Load file
                            • Set Variable [ $book1; Value:MBS("XL.LoadBook"; Converter::InputXLSX) ]
                            • If [ MBS("iserror") ]
                            • Show Custom Dialog [ Title: "Failed to load Excel file"; Message: $book1; Default Button: “OK”, Commit: “No”; Button 2: “Cancel”, Commit: “No” ]
                            • Exit Script [ ]
                            • End If
                            • # New XML book
                            • Set Variable [ $book2; Value:MBS("XL.NewBook"; 0) ]
                            • # Copy content
                            • Set Variable [ $r; Value:MBS("XL.CopyContent"; $book1; $book2) ]
                            • # Save new book
                            • Set Variable [ $data; Value:MBS( "XL.Book.Save"; $book2; "converted.xls" ) ]
                            • If [ MBS("iserror") ]
                            • Show Custom Dialog [ Title: "Save failed"; Message: $data; Default Button: “OK”, Commit: “No”; Button 2: “Cancel”, Commit: “No” ]
                            • Else
                            • Set Field [ Converter::OutputXLS; $data ]
                            • End If
                            • # Free memory
                            • Set Variable [ $r; Value:MBS( "XL.Book.Release"; $book1 ) ]
                            • Set Variable [ $r; Value:MBS( "XL.Book.Release"; $book2 ) ]
                            Fields used in this script
                            Scripts used in this script
                            Layouts used in this script
                              Tables used in this script
                              Table occurrences used by this script
                              Custom Functions used by this script
                                Custom menu set used by this script

                                  Previous Script: [Convert from new to old]
                                  Script NameInitXL
                                  Run script with full access privilegesOff
                                  Include In MenuYes
                                  Layouts that use this script
                                    Scripts that use this script
                                    Script Definition
                                    Script Steps
                                    • #Find libXL and load it
                                    • If [ MBS("IsServer") ]
                                    • #Put the path you use for your server here:
                                    • If [ Get(SystemPlatform) = -2 ]
                                    • Set Variable [ $path; Value:"C:\Programs\FileMaker Server\libxl.dll" ]
                                    • Else
                                    • Set Variable [ $path; Value: "/Library/FileMaker Server/libxl.dylib" ]
                                    • End If
                                    • Else
                                    • #For desktop we look in same folder as database:
                                    • Set Variable [ $databasePath; Value:Get(FilePath) ]
                                    • Set Variable [ $databasePath; Value:MBS("Path.FilemakerPathToNativePath"; $databasePath) ]
                                    • Set Variable [ $databasePath; Value:Substitute ( $databasePath ; ".fp7" ; ".fmp12") ]
                                    • Set Variable [ $databaseName; Value:Get(FileName) & ".fmp12" ]
                                    • If [ Get(SystemPlatform) = -2 ]
                                    • Set Variable [ $path; Value:Substitute ( $databasePath ; $databaseName ; "libxl.dll" ) ]
                                    • Else
                                    • Set Variable [ $path; Value:Substitute ( $databasePath ; $databaseName ; "libxl.dylib" ) ]
                                    • End If
                                    • End If
                                    • Set Variable [ $r; Value:MBS( "XL.Initialize"; $path) ]
                                    • If [ $r ≠ "OK" ]
                                    • Show Custom Dialog [ Title: "Error"; Message: $r; Default Button: “OK”, Commit: “No”; Button 2: “Cancel”, Commit: “No” ]
                                    • Halt Script
                                    • End If
                                    Fields used in this script
                                      Scripts used in this script
                                        Layouts used in this script
                                          Tables used in this script
                                            Table occurrences used by this script
                                              Custom Functions used by this script
                                                Custom menu set used by this script

                                                  Download example: Converter

                                                  Used functions:




                                                  Links
                                                  MBS Xojo blog