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
Scripts2
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: 24 pt
                            • Left: 138 pt
                            • Bottom: 758 pt
                            • Right: 877 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: Create Text::DynaPDFLicenseKey
                            Field PropertiesCoordinatesField FormatField BehaviorQuick Find
                            • Top: 762 pt
                            • Left: 138 pt
                            • Bottom: 776 pt
                            • Right: 391 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: Create Text::CheckConformanceResult
                            Field PropertiesCoordinatesField FormatField BehaviorQuick Find
                            • Top: 780 pt
                            • Left: 138 pt
                            • Bottom: 794 pt
                            • Right: 391 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
                            Yes

                            Field Name: Create Text::Gray ICC Profile
                            Field PropertiesCoordinatesField FormatField BehaviorQuick Find
                            • Top: 798 pt
                            • Left: 138 pt
                            • Bottom: 923 pt
                            • Right: 391 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: Create Text::RGB ICC Profile
                            Field PropertiesCoordinatesField FormatField BehaviorQuick Find
                            • Top: 924 pt
                            • Left: 138 pt
                            • Bottom: 1049 pt
                            • Right: 391 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: Create Text::CMYK ICC Profile
                            Field PropertiesCoordinatesField FormatField BehaviorQuick Find
                            • Top: 1050 pt
                            • Left: 138 pt
                            • Bottom: 1175 pt
                            • Right: 391 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: Run Script
                              Additional Properties:
                            • Change to hand cursor over button
                            • Rectangular
                            • Top: 36 pt
                            • Left: 12 pt
                            • Bottom: 61 pt
                            • Right: 115 pt
                            • Anchoring: Left, Top
                            Perform Script [ “Run” ]

                            Scripts:


                            Script Hierarchy

                            InitDynaPDF
                            Run

                            Next Script: [Run]
                            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
                              • 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" ) ]
                              • Else
                              • Set Variable [ $path; Value:Substitute ( $databasePath ; $databaseName ; "dynapdf.dylib" ) ]
                              • End If
                              • #Initialize DynaPDF
                              • Set Variable [ $r; Value:MBS( "DynaPDF.Initialize"; $path) ]
                              • If [ $r ≠ "OK" ]
                              • Show Custom Dialog [ Title: "DynaPDF failed to initialize"; Message: $r; Default Button: “OK”, Commit: “No”; Button 2: “Abbrechen”, Commit: “No” ]
                              • Else
                              • Set Variable [ $$DynaPDFInited; Value:1 ]
                              • 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]
                                            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") ]
                                              • #For PDF/A
                                              • Set Variable [ $r; Value:MBS("DynaPDF.SetLanguage"; $pdf; "en-US") ]
                                              • Set Variable [ $r; Value:MBS("DynaPDF.CreateStructureTree"; $pdf) ]
                                              • # Write RGB profiles to disk
                                              • Set Variable [ $folder; Value:MBS( "Folders.UserDesktop" ) ]
                                              • Set Variable [ $pathGray; Value:MBS( "Path.AddPathComponent"; $folder; "Generic Gray Profile.icc" ) ]
                                              • Set Variable [ $pathRGB; Value:MBS( "Path.AddPathComponent"; $folder; "Generic RGB Profile.icc" ) ]
                                              • Set Variable [ $pathCMYK; Value:MBS( "Path.AddPathComponent"; $folder; "Generic CMYK Profile.icc" ) ]
                                              • Set Variable [ $r; Value:MBS( "Files.WriteFile"; Create Text::Gray ICC Profile; $pathGray ) ]
                                              • Set Variable [ $r; Value:MBS( "Files.WriteFile"; Create Text::RGB ICC Profile; $pathRGB ) ]
                                              • Set Variable [ $r; Value:MBS( "Files.WriteFile"; Create Text::CMYK ICC Profile; $pathCMYK ) ]
                                              • # Set replacement ICC profiles
                                              • Set Variable [ $r; Value:MBS("DynaPDF.SetReplaceICCProfile"; $pdf; "rgb"; $pathRGB) ]
                                              • Set Variable [ $r; Value:MBS("DynaPDF.SetReplaceICCProfile"; $pdf; "gray"; $pathGray) ]
                                              • Set Variable [ $r; Value:MBS("DynaPDF.SetReplaceICCProfile"; $pdf; "cmyk"; $pathCMYK) ]
                                              • #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:"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") ]
                                              • #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 ]
                                              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 Xojo Plugins