MBS FileMaker Plugin Example Databases

Create Text as PDFA

All examples are included with download of MBS FileMaker Plugin.

Create Text as PDFA.fmp12

Overview
Tables1
Relationships0
Layouts1
Scripts4
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
Create Text
6 fields defined, 1 record
Create Text

Fields

Table Name: Create Text - 6 Fields
Field NameTypeOptionsCommentsOn LayoutsIn RelationshipsIn ScriptsIn Value Lists
PDFNormal, BinaryAuto-Enter:
  • Allow editing
Validation:
  • Only during data entry
Storage:
  • Repetitions: 1
      DynaPDFLicenseKeyNormal, TextAuto-Enter:
      • Allow editing
      Validation:
      • Only during data entry
      Storage:
      • Global
      • Repetitions: 1
      • Index Language: German
          CheckConformanceResultNormal, TextAuto-Enter:
          • Allow editing
          Validation:
          • Only during data entry
          Storage:
          • Repetitions: 1
          • Indexing: None
          • Automatically create indexes as needed
          • Index Language: German
              Gray ICC ProfileNormal, BinaryAuto-Enter:
              • Allow editing
              Validation:
              • Only during data entry
              Storage:
              • Global
              • Repetitions: 1
                  RGB ICC ProfileNormal, BinaryAuto-Enter:
                  • Allow editing
                  Validation:
                  • Only during data entry
                  Storage:
                  • Global
                  • Repetitions: 1
                      CMYK ICC ProfileNormal, BinaryAuto-Enter:
                      • Allow editing
                      Validation:
                      • Only during data entry
                      Storage:
                      • Global
                      • Repetitions: 1

                          Layout Objects: Create Text

                          Regular Fields

                          Field Name: Create Text::PDF
                          Field PropertiesCoordinatesField FormatField BehaviorQuick Find
                          • Top: 25 pt
                          • Left: 452 pt
                          • Bottom: 714 pt
                          • Right: 1112 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: Create Text::DynaPDFLicenseKey
                          Field PropertiesCoordinatesField FormatField BehaviorQuick Find
                          • Top: 245 pt
                          • Left: 174 pt
                          • Bottom: 264 pt
                          • Right: 427 pt
                          • Anchoring: Left, Top
                          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: Create Text::CheckConformanceResult
                          Field PropertiesCoordinatesField FormatField BehaviorQuick Find
                          • Top: 177 pt
                          • Left: 174 pt
                          • Bottom: 196 pt
                          • Right: 427 pt
                          • Anchoring: Left, Top
                          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: Create Text::Gray ICC Profile
                          Field PropertiesCoordinatesField FormatField BehaviorQuick Find
                          • Top: 331 pt
                          • Left: 174 pt
                          • Bottom: 456 pt
                          • Right: 427 pt
                          • Anchoring: Left, Top
                          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: Create Text::RGB ICC Profile
                          Field PropertiesCoordinatesField FormatField BehaviorQuick Find
                          • Top: 460 pt
                          • Left: 174 pt
                          • Bottom: 585 pt
                          • Right: 427 pt
                          • Anchoring: Left, Top
                          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: Create Text::CMYK ICC Profile
                          Field PropertiesCoordinatesField FormatField BehaviorQuick Find
                          • Top: 589 pt
                          • Left: 174 pt
                          • Bottom: 714 pt
                          • Right: 427 pt
                          • Anchoring: Left, Top
                          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

                          Buttons

                          Button PropertiesCoordinatesScript/Script Step
                            Type:
                          • Text: Create PDF
                          • Top: 37 pt
                          • Left: 174 pt
                          • Bottom: 73 pt
                          • Right: 325 pt
                          • Anchoring: Left, Top
                          Perform Script [ “Run” ]

                          Scripts:


                          Button PropertiesCoordinatesScript/Script Step
                            Type:
                          • Text: Create PDF/A
                          • Top: 85 pt
                          • Left: 174 pt
                          • Bottom: 121 pt
                          • Right: 325 pt
                          • Anchoring: Left, Top
                          Perform Script [ “Run with PDF/A” ]

                          Scripts:


                          Script Hierarchy

                          InitDynaPDF
                          Run with PDF/A
                          Run
                          Clear

                          Next Script: [Run with PDF/A]
                          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
                            • #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: [Run]
                                          Script NameRun with PDF/A
                                          Run script with full access privilegesOff
                                          Include In MenuYes
                                          Layouts that use this script
                                          Scripts that use this script
                                            Script Definition
                                            Script Steps
                                            • Set Variable [ $r; Value:MBS("Trace") ]
                                            • #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") ]
                                            • #For PDF/A
                                            • Set Variable [ $r; Value:MBS("DynaPDF.SetLanguage"; $pdf; "en-US") ]
                                            • Set Variable [ $r; Value:MBS("DynaPDF.CreateStructureTree"; $pdf) ]
                                            • # Set replacements for missing ICC profiles
                                            • Set Variable [ $r; Value:MBS("DynaPDF.SetReplaceICCProfileData"; $pdf; "rgb"; Create Text::RGB ICC Profile) ]
                                            • Set Variable [ $r; Value:MBS("DynaPDF.SetReplaceICCProfileData"; $pdf; "gray"; Create Text::Gray ICC Profile) ]
                                            • Set Variable [ $r; Value:MBS("DynaPDF.SetReplaceICCProfileData"; $pdf; "cmyk"; Create Text::CMYK ICC Profile) ]
                                            • #Add page
                                            • Set Variable [ $r; Value:MBS("DynaPDF.AppendPage"; $pdf) ]
                                            • Set Variable [ $r; Value:MBS("DynaPDF.SetFont"; $pdf; "Helvetica"; 0; 12) ]
                                            • #Write some text
                                            • Set Variable [ $x; Value:MBS("DynaPDF.GetPageHeight"; $pdf)-100 ]
                                            • Set Variable [ $r; Value:MBS("DynaPDF.SetFillColor"; $pdf; 0; 0; 0) ]
                                            • Set Variable [ $r; Value:MBS("DynaPDF.WriteText"; $pdf; 100; $x; "Some black text") ]
                                            • #Write some text
                                            • Set Variable [ $x; Value:$x - 30 ]
                                            • Set Variable [ $r; Value:MBS("DynaPDF.SetFillColor"; $pdf; 1; 0; 0) ]
                                            • Set Variable [ $r; Value:MBS("DynaPDF.WriteText"; $pdf; 100; $x; "Some red text") ]
                                            • #Write some text
                                            • Set Variable [ $x; Value:$x - 30 ]
                                            • Set Variable [ $r; Value:MBS("DynaPDF.SetFillColor"; $pdf; 0; 0; 1) ]
                                            • Set Variable [ $r; Value:MBS("DynaPDF.WriteText"; $pdf; 100; $x; "You see invisible text above?") ]
                                            • #Write some formatted text
                                            • Set Variable [ $text; Value:"\FC[16711680]\ul#\LK[false, true, false, https://www.dynaforms.com]Link to DynaForms\EK#\ul#\FC[0]¶" & "Left aligned text, this is left aligned text, this is left aligned text...\ju#\FC[255]This is justified text, this is justified text, this is justified text, this is justified text, this is justified text, this is justified text, this is justified text, this is justified text...\re#\FC[165536]This is right aligned text, this is right aligned text, this is right aligned text...\le#\FC[233512]Back to left aligned text, we go back to left aligned text..." ]
                                            • Set Variable [ $r; Value:MBS("DynaPDF.SetTextRect"; $pdf; 200; 200; 150; -1) ]
                                            • Set Variable [ $r; Value:MBS("DynaPDF.WriteFText"; $pdf; "left"; $text) ]
                                            • Set Variable [ $height; Value:200 - MBS("DynaPDF.GetLastTextPosY"; $pdf) ]
                                            • Set Variable [ $r; Value:MBS("DynaPDF.Rectangle"; $pdf; 200; 200-$height; 150; $height; "Stroke") ]
                                            • #Write some continued text
                                            • Set Variable [ $r; Value:MBS("DynaPDF.SetFillColor"; $pdf; 0; 0; 0) ]
                                            • Set Variable [ $r; Value:MBS("DynaPDF.BeginContinueText"; $pdf; 50; $x-30) ]
                                            • Set Variable [ $r; Value:MBS("DynaPDF.AddContinueText"; $pdf; "Hello World") ]
                                            • Set Variable [ $r; Value:MBS("DynaPDF.ChangeFontStyle"; $pdf; 4) ]
                                            • Set Variable [ $r; Value:MBS("DynaPDF.AddContinueText"; $pdf; "Underlined Text") ]
                                            • Set Variable [ $r; Value:MBS("DynaPDF.ChangeFontStyle"; $pdf; 0) ]
                                            • Set Variable [ $r; Value:MBS("DynaPDF.AddContinueText"; $pdf; "Normal Text") ]
                                            • Set Variable [ $r; Value:MBS("DynaPDF.ChangeFontStyle"; $pdf; 8) ]
                                            • Set Variable [ $r; Value:MBS("DynaPDF.AddContinueText"; $pdf; "Strikout Text") ]
                                            • #Write some text
                                            • Set Variable [ $r; Value:MBS("DynaPDF.ChangeFontStyle"; $pdf; 0) ]
                                            • Set Variable [ $r; Value:MBS("DynaPDF.SetFillColor"; $pdf; 0; 0; 1) ]
                                            • Set Variable [ $r; Value:MBS("DynaPDF.WriteText"; $pdf; 100; 0; "In PDF the coordinate system is bottom up, so zero is on the bottom.") ]
                                            • #End page
                                            • Set Variable [ $r; Value:MBS("DynaPDF.EndPage"; $pdf) ]
                                            • #Set title
                                            • Set Variable [ $r; Value:MBS("DynaPDF.SetDocInfo"; $pdf; "Title"; "Test PDF") ]
                                            • #For PDF/A
                                            • #Check if this PDF conforms to PDF/A-1b 2005
                                            • Set Variable [ $c; Value:MBS("DynaPDF.CheckConformance"; $pdf; "PDFA 1b 2005") ]
                                            • Set Field [ Create Text::CheckConformanceResult; $c ]
                                            • If [ $c = 1 ]
                                            • # A RGB ICC profile must be added to the document
                                            • Set Variable [ $r; Value:MBS("DynaPDF.AddOutputIntentEx"; $pdf; Create Text::RGB ICC Profile) ]
                                            • Else If [ $c = 2 ]
                                            • # A CMYK ICC profile must be added to the document
                                            • Set Variable [ $r; Value:MBS("DynaPDF.AddOutputIntentEx"; $pdf; Create Text::CMYK ICC Profile) ]
                                            • Else If [ $c = 3 ]
                                            • # A Gray, RGB, or CMYK ICC profile must be added to the document
                                            • Set Variable [ $r; Value:MBS("DynaPDF.AddOutputIntentEx"; $pdf; Create Text::RGB ICC Profile) ]
                                            • End If
                                            • Set Variable [ $r; Value:MBS("DynaPDF.SetPDFVersion"; $pdf; "PDF/A-1b 2005") ]
                                            • #Save as PDF
                                            • Set Variable [ $r; Value:MBS( "Plugin.SetPreviewSize"; 1200 ) // more then the usual small previews we make ]
                                            • Set Variable [ $PDFData; Value:MBS("DynaPDF.Save"; $pdf; "hello.pdf") ]
                                            • Set Variable [ $r; Value:MBS("DynaPDF.Release"; $pdf) ]
                                            • #Put in Container
                                            • Set Field [ Create Text::PDF; $PDFData ]
                                            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 with PDF/A]Next Script: [Clear]
                                                  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
                                                    • Set Variable [ $r; Value:MBS("Trace") ]
                                                    • #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") ]
                                                    • #Add page
                                                    • Set Variable [ $r; Value:MBS("DynaPDF.AppendPage"; $pdf) ]
                                                    • Set Variable [ $r; Value:MBS("DynaPDF.SetFont"; $pdf; "Helvetica"; 0; 12) ]
                                                    • #Write some text
                                                    • Set Variable [ $x; Value:MBS("DynaPDF.GetPageHeight"; $pdf)-100 ]
                                                    • Set Variable [ $r; Value:MBS("DynaPDF.SetFillColor"; $pdf; 0; 0; 0) ]
                                                    • Set Variable [ $r; Value:MBS("DynaPDF.WriteText"; $pdf; 100; $x; "Some black text") ]
                                                    • #Write some text
                                                    • Set Variable [ $x; Value:$x - 30 ]
                                                    • Set Variable [ $r; Value:MBS("DynaPDF.SetFillColor"; $pdf; 1; 0; 0) ]
                                                    • Set Variable [ $r; Value:MBS("DynaPDF.WriteText"; $pdf; 100; $x; "Some red text") ]
                                                    • #Write some invisible text
                                                    • Set Variable [ $x; Value:$x - 30 ]
                                                    • Set Variable [ $r; Value:MBS("DynaPDF.SaveGraphicState"; $pdf) ]
                                                    • Set Variable [ $r; Value:MBS("DynaPDF.SetAlpha"; $pdf; 0; 0) ]
                                                    • Set Variable [ $r; Value:MBS("DynaPDF.WriteText"; $pdf; 100; $x; "Invisible text") ]
                                                    • Set Variable [ $r; Value:MBS("DynaPDF.SetAlpha"; $pdf; 1; 1) ]
                                                    • Set Variable [ $r; Value:MBS("DynaPDF.RestoreGraphicState"; $pdf) ]
                                                    • #Write some text
                                                    • Set Variable [ $x; Value:$x - 30 ]
                                                    • Set Variable [ $r; Value:MBS("DynaPDF.SetFillColor"; $pdf; 0; 0; 1) ]
                                                    • Set Variable [ $r; Value:MBS("DynaPDF.WriteText"; $pdf; 100; $x; "You see invisible text above?") ]
                                                    • #Write some formatted text
                                                    • Set Variable [ $text; Value:"\FC[16711680]\ul#\LK[false, true, false, https://www.dynaforms.com]Link to DynaForms\EK#\ul#\FC[0]¶" & "Left aligned text, this is left aligned text, this is left aligned text...\ju#\FC[255]This is justified text, this is justified text, this is justified text, this is justified text, this is justified text, this is justified text, this is justified text, this is justified text...\re#\FC[165536]This is right aligned text, this is right aligned text, this is right aligned text...\le#\FC[233512]Back to left aligned text, we go back to left aligned text..." ]
                                                    • Set Variable [ $r; Value:MBS("DynaPDF.SetTextRect"; $pdf; 200; 200; 150; -1) ]
                                                    • Set Variable [ $r; Value:MBS("DynaPDF.WriteFText"; $pdf; "left"; $text) ]
                                                    • Set Variable [ $height; Value:200 - MBS("DynaPDF.GetLastTextPosY"; $pdf) ]
                                                    • Set Variable [ $r; Value:MBS("DynaPDF.Rectangle"; $pdf; 200; 200-$height; 150; $height; "Stroke") ]
                                                    • #Write some continued text
                                                    • Set Variable [ $r; Value:MBS("DynaPDF.SetFillColor"; $pdf; 0; 0; 0) ]
                                                    • Set Variable [ $r; Value:MBS("DynaPDF.BeginContinueText"; $pdf; 50; $x-30) ]
                                                    • Set Variable [ $r; Value:MBS("DynaPDF.AddContinueText"; $pdf; "Hello World") ]
                                                    • Set Variable [ $r; Value:MBS("DynaPDF.ChangeFontStyle"; $pdf; 4) ]
                                                    • Set Variable [ $r; Value:MBS("DynaPDF.AddContinueText"; $pdf; "Underlined Text") ]
                                                    • Set Variable [ $r; Value:MBS("DynaPDF.ChangeFontStyle"; $pdf; 0) ]
                                                    • Set Variable [ $r; Value:MBS("DynaPDF.AddContinueText"; $pdf; "Normal Text") ]
                                                    • Set Variable [ $r; Value:MBS("DynaPDF.ChangeFontStyle"; $pdf; 8) ]
                                                    • Set Variable [ $r; Value:MBS("DynaPDF.AddContinueText"; $pdf; "Strikout Text") ]
                                                    • #Write some text
                                                    • Set Variable [ $r; Value:MBS("DynaPDF.ChangeFontStyle"; $pdf; 0) ]
                                                    • Set Variable [ $r; Value:MBS("DynaPDF.SetFillColor"; $pdf; 0; 0; 1) ]
                                                    • Set Variable [ $r; Value:MBS("DynaPDF.WriteText"; $pdf; 100; 0; "In PDF the coordinate system is bottom up, so zero is on the bottom.") ]
                                                    • #End page
                                                    • Set Variable [ $r; Value:MBS("DynaPDF.EndPage"; $pdf) ]
                                                    • #Set title
                                                    • Set Variable [ $r; Value:MBS("DynaPDF.SetDocInfo"; $pdf; "Title"; "Test PDF") ]
                                                    • #Render one page as Picture
                                                    • Set Variable [ $PDFData; Value:MBS("DynaPDF.Save"; $pdf; "hello.pdf") ]
                                                    • Set Variable [ $r; Value:MBS("DynaPDF.Release"; $pdf) ]
                                                    • #Put in Container
                                                    • Set Field [ Create Text::PDF; $PDFData ]
                                                    • #clear other field
                                                    • Set Field [ Create Text::CheckConformanceResult; "" ]
                                                    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]
                                                          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 [ Create Text::PDF; "" ]
                                                              • Set Field [ Create Text::DynaPDFLicenseKey; "" ]
                                                              • Set Field [ Create Text::CheckConformanceResult; "" ]
                                                              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: Create Text as PDFA

                                                                      Used functions:




                                                                      Links
                                                                      MBS FileMaker Plugins

                                                                      Start Chat