MBS FileMaker Plugin Example Databases

Multi Column Output

All examples are included with download of MBS FileMaker Plugin.

Multi Column Output.fmp12

Overview
Tables1
Relationships0
Layouts1
Scripts4
Value Lists0
Custom Functions0
Custom Menus24
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
Multi Column Output
3 fields defined, 1 record
Multi Column Output

Fields

Table Name: Multi Column Output - 3 Fields
Field NameTypeOptionsCommentsOn LayoutsIn RelationshipsIn ScriptsIn Value Lists
TextNormal, TextAuto-Enter:
  • Allow editing
Validation:
  • Only during data entry
Storage:
  • Repetitions: 1
  • Indexing: None
  • Automatically create indexes as needed
  • Index Language: German
      OutputNormal, BinaryAuto-Enter:
      • Allow editing
      Validation:
      • Only during data entry
      Storage:
      • Repetitions: 1
          ColumnCountNormal, NumberAuto-Enter:
          • Allow editing
          Validation:
          • Only during data entry
          Storage:
          • Repetitions: 1
          • Indexing: None
          • Automatically create indexes as needed
          • Index Language: German

              Layout Objects: Multi Column Output

              Regular Fields

              Field Name: Multi Column Output::Text
              Field PropertiesCoordinatesField FormatField BehaviorQuick Find
              • Top: 52 pt
              • Left: 138 pt
              • Bottom: 494 pt
              • Right: 487 pt
              • Anchoring: Left, Top and Bottom
              Field Format:
              • Edit Box
              Field Behavior:
              • Allow field to be entered: In Find mode, In Browse mode
              • Touch keyboard type: Default for Data Type
              • Go to next field using: Tab key
              Yes

              Field Name: Multi Column Output::Output
              Field PropertiesCoordinatesField FormatField BehaviorQuick Find
              • Top: 52 pt
              • Left: 497 pt
              • Bottom: 523 pt
              • Right: 1019 pt
              • Anchoring: Left and Right, Top and Bottom
              Field Format:
              • Edit Box
              Field Behavior:
              • Allow field to be entered: In Find mode, In Browse mode
              • Touch keyboard type: Default for Data Type
              • Go to next field using: Tab key
              No

              Field Name: Multi Column Output::ColumnCount
              Field PropertiesCoordinatesField FormatField BehaviorQuick Find
              • Top: 502 pt
              • Left: 140 pt
              • Bottom: 523 pt
              • Right: 219 pt
              • Anchoring: Left, Bottom
              Field Format:
              • Edit Box
              Field Behavior:
              • Allow field to be entered: In Find mode, In Browse mode
              • Touch keyboard type: Default for Data Type
              • Go to next field using: Tab key
              Yes

              Buttons

              Button PropertiesCoordinatesScript/Script Step
                Type:
              • Text: Create PDF
              • Top: 502 pt
              • Left: 329 pt
              • Bottom: 524 pt
              • Right: 487 pt
              • Anchoring: Left, Bottom
              Perform Script [ “Create” ]

              Scripts:


              Script Hierarchy

              Create
              Create StyledText
              Clear
              InitDynaPDF

              Next Script: [Create StyledText]
              Script NameCreate
              Run script with full access privilegesOff
              Include In MenuYes
              Layouts that use this script
              Scripts that use this script
                Script Definition
                Script Steps
                • #This script takes text with DynaPDF formatting commands from FileMaker and outputs it
                • If [ MBS("DynaPDF.IsInitialized") ≠ 1 ]
                • Perform Script [ “InitDynaPDF” ]
                • End If
                • Set Variable [ $ColumnCount; Value:GetAsNumber ( Multi Column Output::ColumnCount ) ]
                • If [ $ColumnCount > 10 or $ColumnCount < 1 ]
                • Show Custom Dialog [ Title: "Column count wrong?"; Message: $ColumnCount; Default Button: “OK”, Commit: “Yes” ]
                • Exit Script [ ]
                • End If
                • Set Variable [ $pdf; Value:MBS("DynaPDF.New") ]
                • #Add page
                • Set Variable [ $r; Value:MBS("DynaPDF.AppendPage"; $pdf) ]
                • Set Variable [ $r; Value:MBS("DynaPDF.SetPageCoords"; $pdf; "BottomUp") ]
                • Set Variable [ $r; Value:MBS("DynaPDF.SetFont"; $pdf; "Helvetica"; 0; 12) ]
                • #Write some text
                • Set Variable [ $pw; Value:MBS("DynaPDF.GetPageWidth"; $pdf) ]
                • Set Variable [ $ph; Value:MBS("DynaPDF.GetPageHeight"; $pdf) ]
                • Set Variable [ $r; Value:MBS("DynaPDF.SetFillColor"; $pdf; 0; 0; 0) ]
                • #calculate the column
                • Set Variable [ $StartPosX; Value:50 ]
                • Set Variable [ $PosY; Value:$ph-50 ]
                • Set Variable [ $PosX; Value:$StartPosX ]
                • Set Variable [ $Distance; Value:10 ]
                • Set Variable [ $CurrentColumn; Value:0 ]
                • Set Variable [ $ColumnWidth; Value:($pw - 100 - $Distance * ($ColumnCount - 1)) / $ColumnCount ]
                • Set Variable [ $ColumnHeight; Value:$ph - 100 ]
                • #coordinates in bottom-up coordinate system!
                • Set Variable [ $r; Value:MBS("DynaPDF.SetTextRect"; $pdf; $PosX; $PosY; $ColumnWidth; $ColumnHeight) ]
                • Set Variable [ $r; Value:MBS("DynaPDF.SetPageBreakExpression"; $pdf; "Let ( [ $CurrentColumn = $CurrentColumn + 1; t = If ( $CurrentColumn < $ColumnCount ; Let ( [ $PosX = $StartPosX + $CurrentColumn * ($ColumnWidth + $Distance) ]; 0) ; Let ( [ $PosX = $StartPosX; $CurrentColumn = 0; a = MBS( \"DynaPDF.EndPage\"; $pdf); a = MBS( \"DynaPDF.AppendPage\"; $pdf)]; 0) ); a = MBS( \"DynaPDF.SetTextRect\"; $pdf; $PosX; $PosY; $ColumnWidth; $ColumnHeight ) ]; 0 )") ]
                • Set Variable [ $r; Value:MBS("DynaPDF.WriteFText"; $pdf; "Justify"; Multi Column Output::Text) ]
                • #End page
                • Set Variable [ $r; Value:MBS("DynaPDF.EndPage"; $pdf) ]
                • #Render one page as Picture
                • Set Variable [ $PDFData; Value:MBS("DynaPDF.Save"; $pdf; "hello.pdf") ]
                • Set Field [ Multi Column Output::Output; $PDFData ]
                • Set Variable [ $r; Value:MBS("DynaPDF.Release";$pdf) ]
                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: [Create]Next Script: [Clear]
                      Script NameCreate StyledText
                      Run script with full access privilegesOff
                      Include In MenuYes
                      Layouts that use this script
                        Scripts that use this script
                          Script Definition
                          Script Steps
                          • #This script takes Styled Text from FileMaker, converts it and outputs it
                          • If [ MBS("DynaPDF.IsInitialized") ≠ 1 ]
                          • Perform Script [ “InitDynaPDF” ]
                          • End If
                          • Set Variable [ $ColumnCount; Value:GetAsNumber ( Multi Column Output::ColumnCount ) ]
                          • If [ $ColumnCount > 10 or $ColumnCount < 1 ]
                          • Show Custom Dialog [ Title: "Column count wrong?"; Message: $ColumnCount; Default Button: “OK”, Commit: “Yes” ]
                          • Exit Script [ ]
                          • End If
                          • Set Variable [ $pdf; Value:MBS("DynaPDF.New") ]
                          • #Add page
                          • Set Variable [ $r; Value:MBS("DynaPDF.AppendPage"; $pdf) ]
                          • Set Variable [ $r; Value:MBS("DynaPDF.SetPageCoords"; $pdf; "BottomUp") ]
                          • Set Variable [ $r; Value:MBS("DynaPDF.SetFont"; $pdf; "Helvetica"; 0; 12) ]
                          • #Write some text
                          • Set Variable [ $pw; Value:MBS("DynaPDF.GetPageWidth"; $pdf) ]
                          • Set Variable [ $ph; Value:MBS("DynaPDF.GetPageHeight"; $pdf) ]
                          • Set Variable [ $r; Value:MBS("DynaPDF.SetFillColor"; $pdf; 0; 0; 0) ]
                          • #calculate the column
                          • Set Variable [ $StartPosX; Value:50 ]
                          • Set Variable [ $PosY; Value:$ph-50 ]
                          • Set Variable [ $PosX; Value:$StartPosX ]
                          • Set Variable [ $Distance; Value:10 ]
                          • Set Variable [ $CurrentColumn; Value:0 ]
                          • Set Variable [ $ColumnWidth; Value:($pw - 100 - $Distance * ($ColumnCount - 1)) / $ColumnCount ]
                          • Set Variable [ $ColumnHeight; Value:$ph - 100 ]
                          • #coordinates in bottom-up coordinate system!
                          • Set Variable [ $r; Value:MBS("DynaPDF.SetTextRect"; $pdf; $PosX; $PosY; $ColumnWidth; $ColumnHeight) ]
                          • Set Variable [ $r; Value:MBS("DynaPDF.SetPageBreakExpression"; $pdf; "Let ( [ $CurrentColumn = $CurrentColumn + 1; t = If ( $CurrentColumn < $ColumnCount ; Let ( [ $PosX = $StartPosX + $CurrentColumn * ($ColumnWidth + $Distance) ]; 0) ; Let ( [ $PosX = $StartPosX; $CurrentColumn = 0; a = MBS( \"DynaPDF.EndPage\"; $pdf); a = MBS( \"DynaPDF.AppendPage\"; $pdf)]; 0) ); a = MBS( \"DynaPDF.SetTextRect\"; $pdf; $PosX; $PosY; $ColumnWidth; $ColumnHeight ) ]; 0 )") ]
                          • Set Variable [ $r; Value:MBS("DynaPDF.WriteStyledText"; $pdf; "Justify"; Multi Column Output::Text) ]
                          • #End page
                          • Set Variable [ $r; Value:MBS("DynaPDF.EndPage"; $pdf) ]
                          • #Render one page as Picture
                          • Set Variable [ $PDFData; Value:MBS("DynaPDF.Save"; $pdf; "hello.pdf") ]
                          • Set Field [ Multi Column Output::Output; $PDFData ]
                          • Set Variable [ $r; Value:MBS("DynaPDF.Release";$pdf) ]
                          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: [Create StyledText]Next Script: [InitDynaPDF]
                                Script NameClear
                                Run script with full access privilegesOff
                                Include In MenuYes
                                Layouts that use this script
                                  Scripts that use this script
                                    Script Definition
                                    Script Steps
                                    • Set Field [ Multi Column Output::Output; "" ]
                                    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: [Clear]
                                            Script NameInitDynaPDF
                                            Run script with full access privilegesOff
                                            Include In MenuNo
                                            Layouts that use this script
                                              Scripts that use this script
                                              Script Definition
                                              Script Steps
                                              • #initialized Dyna PDF
                                              • #Locate DynaPDF library
                                              • #you can have libraries in container and export at runtime to folder of your choice.
                                              • #Or install library somewhere and pass path.
                                              • #If library is in same folder as plugin, you can only pass only file name.
                                              • If [ MBS("IsServer") ]
                                              • #Put the path you use for your server here:
                                              • If [ Get(SystemPlatform) = -2 ]
                                              • #Server on Windows
                                              • Set Variable [ $path; Value:"C:\Programs\FileMaker Server\dynapdf64.dll" ]
                                              • Else If [ MBS("IsLinux") ]
                                              • #Server on Linux for FileMaker Cloud
                                              • Set Variable [ $path; Value:"/opt/FileMaker/FileMaker Server/dynapdf.linux.so" ]
                                              • Else
                                              • #Server on Mac
                                              • Set Variable [ $path; Value: "/Library/FileMaker Server/dynapdf.dylib" ]
                                              • End If
                                              • Else
                                              • #For desktop and our examples 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 ; "dynapdf.dll" ) ]
                                              • #plugin will look for dynapdf.dll and if not found also for dynapdf64.dll (64-bit) and dynapdf32.dll (32-bit).
                                              • Else
                                              • Set Variable [ $path; Value:Substitute ( $databasePath ; $databaseName ; "dynapdf.dylib" ) ]
                                              • #Mac dylib is usually 32 and 64 bit together.
                                              • End If
                                              • End If
                                              • #You can test for free.
                                              • #If you like to get a dynapdf license, please follow links on our pricing page:
                                              • #https://www.monkeybreadsoftware.de/filemaker/pricing.shtml
                                              • Set Variable [ $LicenseKey; Value:// put your own license key here: "" ]
                                              • Set Variable [ $r; Value:MBS( "DynaPDF.Initialize"; $path; $LicenseKey) ]
                                              • If [ $r ≠ "OK" ]
                                              • Show Custom Dialog [ Title: "Error"; Message: $r; Default Button: “OK”, Commit: “No”; Button 2: “Cancel”, Commit: “No” ]
                                              • Halt Script
                                              • End If
                                              • Set Variable [ $r; Value:MBS( "Plugin.SetPreviewSize"; 1200 ) ]
                                              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: Multi Column Output

                                                            Used functions:




                                                            Links
                                                            MBS Xojo PDF Plugins

                                                            Start Chat