MBS FileMaker Plugin Example Databases

Picture to PDF

All examples are included with download of MBS FileMaker Plugin.

Picture to PDF.fmp12

Overview
Tables1
Relationships0
Layouts1
Scripts5
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
Merge PDFs
3 fields defined, 1 record
Merge PDFs

Fields

Table Name: Merge PDFs - 3 Fields
Field NameTypeOptionsCommentsOn LayoutsIn RelationshipsIn ScriptsIn Value Lists
DynaPDF LicenseKeyNormal, TextAuto-Enter:
  • Allow editing
Validation:
  • Only during data entry
Storage:
  • Global
  • Repetitions: 1
  • Index Language: German
        FinalPDFNormal, BinaryAuto-Enter:
        • Allow editing
        Validation:
        • Only during data entry
        Storage:
        • Global
        • Repetitions: 1
            InputImageNormal, BinaryAuto-Enter:
            • Allow editing
            Validation:
            • Only during data entry
            Storage:
            • Repetitions: 1

                Layout Objects: Merge PDFs

                Regular Fields

                Field Name: Merge PDFs::DynaPDF LicenseKey
                Field PropertiesCoordinatesField FormatField BehaviorQuick Find
                • Top: 6 pt
                • Left: 132 pt
                • Bottom: 20 pt
                • Right: 385 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: Merge PDFs::FinalPDF
                Field PropertiesCoordinatesField FormatField BehaviorQuick Find
                • Top: 24 pt
                • Left: 132 pt
                • Bottom: 263 pt
                • Right: 385 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: Merge PDFs::InputImage
                Field PropertiesCoordinatesField FormatField BehaviorQuick Find
                • Top: 270 pt
                • Left: 132 pt
                • Bottom: 527 pt
                • Right: 385 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: Export file...
                  Additional Properties:
                • Change to hand cursor over button
                • Rectangular
                • Top: 186 pt
                • Left: 396 pt
                • Bottom: 211 pt
                • Right: 529 pt
                • Anchoring: Left, Top
                Export Field Contents [ Merge PDFs::FinalPDF; Create directories:No ]

                Fields:


                Button PropertiesCoordinatesScript/Script Step
                  Type:
                • Text: Import file...
                  Additional Properties:
                • Change to hand cursor over button
                • Rectangular
                • Top: 270 pt
                • Left: 396 pt
                • Bottom: 295 pt
                • Right: 529 pt
                • Anchoring: Left, Top
                Insert File [ Merge PDFs::InputImage ]

                Fields:


                Button PropertiesCoordinatesScript/Script Step
                  Type:
                • Text: Merge Original Images
                  Additional Properties:
                • Change to hand cursor over button
                • Rectangular
                • Top: 60 pt
                • Left: 396 pt
                • Bottom: 85 pt
                • Right: 619 pt
                • Anchoring: Left, Top
                Perform Script [ “Run”; Parameter: 1 ]

                Scripts:


                Button PropertiesCoordinatesScript/Script Step
                  Type:
                • Text: Merge Original Images with Border
                  Additional Properties:
                • Change to hand cursor over button
                • Rectangular
                • Top: 90 pt
                • Left: 396 pt
                • Bottom: 115 pt
                • Right: 619 pt
                • Anchoring: Left, Top
                Perform Script [ “Run”; Parameter: 2 ]

                Scripts:


                Button PropertiesCoordinatesScript/Script Step
                  Type:
                • Text: Merge Images with JPEG Compression
                  Additional Properties:
                • Change to hand cursor over button
                • Rectangular
                • Top: 120 pt
                • Left: 396 pt
                • Bottom: 145 pt
                • Right: 619 pt
                • Anchoring: Left, Top
                Perform Script [ “Run”; Parameter: 3 ]

                Scripts:


                Script Hierarchy

                InitDynaPDF
                Run
                AddPictureOriginalBorder
                AddPictureOriginal
                AddPictureJPEG

                Next Script: [Run]
                Script NameInitDynaPDF
                Run script with full access privilegesOff
                Include In MenuYes
                Layouts that use this script
                  Scripts that use this script
                  Script Definition
                  Script Steps
                  • #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 key here or leave empty for demo. ]
                  • 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
                  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: [InitDynaPDF]Next Script: [AddPictureOriginalBorder]
                                Script NameRun
                                Run script with full access privilegesOff
                                Include In MenuYes
                                Layouts that use this script
                                Scripts that use this script
                                  Script Definition
                                  Script Steps
                                  • #Initialize DynaPDF if needed
                                  • If [ MBS("DynaPDF.IsInitialized") ≠ 1 ]
                                  • Perform Script [ “InitDynaPDF” ]
                                  • End If
                                  • #Clear current PDF document
                                  • Set Variable [ $pdf; Value:MBS("DynaPDF.New") ]
                                  • #Load PDF from container
                                  • Go to Record/Request/Page [ First ]
                                  • Set Variable [ $destPage; Value:1 ]
                                  • Loop
                                  • If [ Get(ScriptParameter) = 1 ]
                                  • Perform Script [ “AddPictureOriginal”; Parameter: $pdf ]
                                  • Else If [ Get(ScriptParameter) = 2 ]
                                  • Perform Script [ “AddPictureOriginalBorder”; Parameter: $pdf ]
                                  • Else If [ Get(ScriptParameter) = 3 ]
                                  • Perform Script [ “AddPictureJPEG”; Parameter: $pdf ]
                                  • End If
                                  • Go to Record/Request/Page [ Next; Exit after last ]
                                  • End Loop
                                  • Set Field [ Merge PDFs::FinalPDF; MBS("DynaPDF.Save"; $pdf; "Merged.pdf") ]
                                  • 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: [Run]Next Script: [AddPictureOriginal]
                                        Script NameAddPictureOriginalBorder
                                        Run script with full access privilegesOff
                                        Include In MenuNo
                                        Layouts that use this script
                                          Scripts that use this script
                                          Script Definition
                                          Script Steps
                                          • Set Variable [ $pdf; Value:Get(ScriptParameter) ]
                                          • Set Variable [ $r; Value:MBS("DynaPDF.AppendPage"; $pdf) ]
                                          • Set Variable [ $r; Value:MBS("DynaPDF.ReadImageResolution"; $pdf; Merge PDFs::InputImage) ]
                                          • Set Variable [ $resX; Value:GetAsNumber (LeftValues ( $r ; 1 )) ]
                                          • Set Variable [ $resY; Value:GetAsNumber (MiddleValues ( $r ; 2; 1 )) ]
                                          • If [ $resX <= 0 ]
                                          • Set Variable [ $resX; Value:72 ]
                                          • End If
                                          • If [ $resY <= 0 ]
                                          • Set Variable [ $resY; Value:72 ]
                                          • End If
                                          • Set Variable [ $r; Value:MBS("DynaPDF.ReadImageFormat"; $pdf; Merge PDFs::InputImage) ]
                                          • Set Variable [ $ImageWidth; Value:GetAsNumber (LeftValues ( $r ; 1 )) ]
                                          • Set Variable [ $imageHeight; Value:GetAsNumber (MiddleValues ( $r ; 2; 1 )) ]
                                          • Set Variable [ $BitsPerPixel; Value:GetAsNumber (MiddleValues ( $r ;3; 1 )) ]
                                          • #no recompression!
                                          • Set Variable [ $r; Value:MBS("DynaPDF.SetSaveNewImageFormat"; $pdf; 0) ]
                                          • Set Variable [ $x; Value:50 ]
                                          • Set Variable [ $y; Value:50 ]
                                          • Set Variable [ $w; Value:$ImageWidth * 72 / $ResX ]
                                          • Set Variable [ $h; Value:$ImageHeight * 72 / $ResY ]
                                          • Set Variable [ $r; Value:MBS("DynaPDF.SetPageHeight"; $pdf; $h + 2*$y) ]
                                          • Set Variable [ $r; Value:MBS("DynaPDF.SetPageWidth"; $pdf; $w + 2*$x) ]
                                          • Set Variable [ $r; Value:MBS("DynaPDF.InsertImage"; $pdf; Merge PDFs::InputImage; $x; $y; $w; $h) ]
                                          • Set Variable [ $r; Value:MBS("DynaPDF.EndPage"; $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: [AddPictureOriginalBorder]Next Script: [AddPictureJPEG]
                                                  Script NameAddPictureOriginal
                                                  Run script with full access privilegesOff
                                                  Include In MenuNo
                                                  Layouts that use this script
                                                    Scripts that use this script
                                                    Script Definition
                                                    Script Steps
                                                    • Set Variable [ $pdf; Value:Get(ScriptParameter) ]
                                                    • Set Variable [ $r; Value:MBS("DynaPDF.AppendPage"; $pdf) ]
                                                    • Set Variable [ $r; Value:MBS("DynaPDF.ReadImageResolution"; $pdf; Merge PDFs::InputImage) ]
                                                    • Set Variable [ $resX; Value:GetAsNumber (LeftValues ( $r ; 1 )) ]
                                                    • Set Variable [ $resY; Value:GetAsNumber (MiddleValues ( $r ; 2; 1 )) ]
                                                    • If [ $resX <= 0 ]
                                                    • Set Variable [ $resX; Value:72 ]
                                                    • End If
                                                    • If [ $resY <= 0 ]
                                                    • Set Variable [ $resY; Value:72 ]
                                                    • End If
                                                    • Set Variable [ $r; Value:MBS("DynaPDF.ReadImageFormat"; $pdf; Merge PDFs::InputImage) ]
                                                    • Set Variable [ $ImageWidth; Value:GetAsNumber (LeftValues ( $r ; 1 )) ]
                                                    • Set Variable [ $imageHeight; Value:GetAsNumber (MiddleValues ( $r ; 2; 1 )) ]
                                                    • Set Variable [ $BitsPerPixel; Value:GetAsNumber (MiddleValues ( $r ;3; 1 )) ]
                                                    • #no recompression!
                                                    • Set Variable [ $r; Value:MBS("DynaPDF.SetSaveNewImageFormat"; $pdf; 0) ]
                                                    • Set Variable [ $x; Value:0 ]
                                                    • Set Variable [ $y; Value:0 ]
                                                    • Set Variable [ $w; Value:$ImageWidth * 72 / $ResX ]
                                                    • Set Variable [ $h; Value:$ImageHeight * 72 / $ResY ]
                                                    • Set Variable [ $r; Value:MBS("DynaPDF.SetPageHeight"; $pdf; $h) ]
                                                    • Set Variable [ $r; Value:MBS("DynaPDF.SetPageWidth"; $pdf; $w) ]
                                                    • Set Variable [ $r; Value:MBS("DynaPDF.InsertImage"; $pdf; Merge PDFs::InputImage; $x; $y; $w; $h) ]
                                                    • Set Variable [ $r; Value:MBS("DynaPDF.EndPage"; $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: [AddPictureOriginal]
                                                            Script NameAddPictureJPEG
                                                            Run script with full access privilegesOff
                                                            Include In MenuNo
                                                            Layouts that use this script
                                                              Scripts that use this script
                                                              Script Definition
                                                              Script Steps
                                                              • Set Variable [ $pdf; Value:Get(ScriptParameter) ]
                                                              • Set Variable [ $r; Value:MBS("DynaPDF.AppendPage"; $pdf) ]
                                                              • Set Variable [ $r; Value:MBS("DynaPDF.ReadImageResolution"; $pdf; Merge PDFs::InputImage) ]
                                                              • Set Variable [ $resX; Value:GetAsNumber (LeftValues ( $r ; 1 )) ]
                                                              • Set Variable [ $resY; Value:GetAsNumber (MiddleValues ( $r ; 2; 1 )) ]
                                                              • If [ $resX <= 0 ]
                                                              • Set Variable [ $resX; Value:72 ]
                                                              • End If
                                                              • If [ $resY <= 0 ]
                                                              • Set Variable [ $resY; Value:72 ]
                                                              • End If
                                                              • Set Variable [ $r; Value:MBS("DynaPDF.ReadImageFormat"; $pdf; Merge PDFs::InputImage) ]
                                                              • Set Variable [ $ImageWidth; Value:GetAsNumber (LeftValues ( $r ; 1 )) ]
                                                              • Set Variable [ $imageHeight; Value:GetAsNumber (MiddleValues ( $r ; 2; 1 )) ]
                                                              • Set Variable [ $BitsPerPixel; Value:GetAsNumber (MiddleValues ( $r ;3; 1 )) ]
                                                              • #Recompress as JPEG with 75% Quality and maximum 150 DPI
                                                              • Set Variable [ $r; Value:MBS("DynaPDF.SetSaveNewImageFormat"; $pdf; 1) ]
                                                              • Set Variable [ $r; Value:MBS("DynaPDF.SetJPEGQuality"; $pdf; 75) ]
                                                              • Set Variable [ $r; Value:MBS("DynaPDF.SetCompressionFilter"; $pdf; "JPEG") ]
                                                              • Set Variable [ $r; Value:MBS("DynaPDF.SetResolution"; $pdf; 150) ]
                                                              • #Place image
                                                              • Set Variable [ $x; Value:0 ]
                                                              • Set Variable [ $y; Value:0 ]
                                                              • Set Variable [ $w; Value:$ImageWidth * 72 / $ResX ]
                                                              • Set Variable [ $h; Value:$ImageHeight * 72 / $ResY ]
                                                              • Set Variable [ $r; Value:MBS("DynaPDF.SetPageHeight"; $pdf; $h) ]
                                                              • Set Variable [ $r; Value:MBS("DynaPDF.SetPageWidth"; $pdf; $w) ]
                                                              • Set Variable [ $r; Value:MBS("DynaPDF.InsertImage"; $pdf; Merge PDFs::InputImage; $x; $y; $w; $h) ]
                                                              • Set Variable [ $r; Value:MBS("DynaPDF.EndPage"; $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

                                                                      Download example: Picture to PDF

                                                                      Used functions:




                                                                      Links
                                                                      MBS FileMaker Plugins