Components All New MacOS Windows Linux iOS
Examples Mac & Win Server Client Guides Statistic FMM Blog Deprecated Old

MBS FileMaker Plugin Example Databases

Swiss QRCode

All examples are included with download of MBS FileMaker Plugin.

Swiss QRCode.fmp12

Overview
Tables1
Relationships0
Layouts1
Scripts2
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
Swiss QRCode
3 fields defined, 1 record
Swiss QRCode

Fields

Table Name: Swiss QRCode - 3 Fields
Field NameTypeOptionsCommentsOn LayoutsIn RelationshipsIn ScriptsIn Value Lists
QRCode ContentNormal, TextAuto-Enter:
  • Allow editing
Validation:
  • Only during data entry
Storage:
  • Repetitions: 1
  • Indexing: None
  • Automatically create indexes as needed
  • Index Language: German
      PDFNormal, BinaryAuto-Enter:
      • Allow editing
      Validation:
      • Only during data entry
      Storage:
      • Repetitions: 1
          InputNormal, BinaryAuto-Enter:
          • Allow editing
          Validation:
          • Only during data entry
          Storage:
          • Repetitions: 1

              Layout Objects: Swiss QRCode

              Regular Fields

              Field Name: Swiss QRCode::QRCode Content
              Field PropertiesCoordinatesField FormatField BehaviorQuick Find
              • Top: 50 pt
              • Left: 763 pt
              • Bottom: 520 pt
              • Right: 1016 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: Swiss QRCode::PDF
              Field PropertiesCoordinatesField FormatField BehaviorQuick Find
              • Top: 59 pt
              • Left: 9 pt
              • Bottom: 520 pt
              • Right: 395 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: Swiss QRCode::Input
              Field PropertiesCoordinatesField FormatField BehaviorQuick Find
              • Top: 395 pt
              • Left: 411 pt
              • Bottom: 520 pt
              • Right: 664 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 Invoice
              • Top: 144 pt
              • Left: 406 pt
              • Bottom: 190 pt
              • Right: 573 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 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\dynapdf.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 dynapdf.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. // Use e.g. "Lite", "Pro" or "Starter" to use demo mode for just that mode. ]
                • 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]
                              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") ]
                                • If [ not IsEmpty ( Swiss QRCode::Input ) ]
                                • #Load PDF from container
                                • Set Variable [ $r; Value:MBS("DynaPDF.OpenPDFFromContainer"; $pdf; Swiss QRCode::Input) ]
                                • If [ MBS("DynaPDF.HavePro"; $pdf) ]
                                • #import a page (requires Pro)
                                • Set Variable [ $r; Value:MBS("DynaPDF.ImportPDFPage"; $pdf; 1) ]
                                • Else
                                • #import whole file
                                • Set Variable [ $r; Value:MBS("DynaPDF.ImportPDFFile"; $pdf; 1) ]
                                • End If
                                • End If
                                • #Edit first page
                                • Set Variable [ $r; Value:MBS("DynaPDF.EditPage"; $pdf; 1) ]
                                • Set Variable [ $r; Value:MBS("DynaPDF.SetPageCoords"; $pdf; "topdown") ]
                                • #black
                                • Set Variable [ $r; Value:MBS("DynaPDF.SetFillColor"; $pdf; 0; 0; 0) ]
                                • #Where and what size? Make sure for PDF paper size the final printed size is right.
                                • Set Variable [ $x; Value:400 ]
                                • Set Variable [ $y; Value:600 ]
                                • Set Variable [ $w; Value:130 ]
                                • Set Variable [ $h; Value:130 ]
                                • Set Variable [ $cw; Value:$w/6,5 // should be 7mm on print ]
                                • #draw barcode
                                • Set Variable [ $text; Value:Swiss QRCode::QRCode Content ]
                                • Set Variable [ $text; Value:MBS( "Text.ReplaceNewline"; $text; 3 ) ]
                                • Set Variable [ $o; Value:MBS("Barcode.SetOptions"; 4) // ECC Level with values from 1 = low, 2 = middle, 3 = better, 4 high. ]
                                • Set Variable [ $r; Value:MBS("Barcode.DrawBarcode"; $pdf; "QRCode"; $text; $x; $y; $w; $h; "UTF-8") ]
                                • #draw a white rectangle
                                • Set Variable [ $r; Value:MBS("DynaPDF.SetFillColor"; $pdf; 1; 1; 1) ]
                                • Set Variable [ $px; Value:$x + ($w-$cw)/2 ]
                                • Set Variable [ $py; Value:$y + ($h-$cw)/2 ]
                                • Set Variable [ $r; Value:MBS("DynaPDF.Rectangle"; $pdf; $px; $py; $cw; $cw; "fill") ]
                                • #draw black cross
                                • Set Variable [ $p; Value:$cw/15 ]
                                • Set Variable [ $r; Value:MBS("DynaPDF.SetFillColor"; $pdf; 0; 0; 0) ]
                                • Set Variable [ $r; Value:MBS("DynaPDF.Rectangle"; $pdf; $px + $p; $py + $p; $p * 13; $p*2; "fill") ]
                                • Set Variable [ $r; Value:MBS("DynaPDF.Rectangle"; $pdf; $px + $p * 12; $py + $p; $p * 2; $p * 13; "fill") ]
                                • Set Variable [ $r; Value:MBS("DynaPDF.Rectangle"; $pdf; $px + $p; $py + $p; $p * 2; $p * 13; "fill") ]
                                • Set Variable [ $r; Value:MBS("DynaPDF.Rectangle"; $pdf; $px + $p; $py + $p * 12; $p * 13; $p * 2; "fill") ]
                                • Set Variable [ $r; Value:MBS("DynaPDF.Rectangle"; $pdf; $px + $p; $py + $p; $p * 5; $p * 5; "fill") ]
                                • Set Variable [ $r; Value:MBS("DynaPDF.Rectangle"; $pdf; $px + $p * 9; $py + $p; $p * 5; $p * 5; "fill") ]
                                • Set Variable [ $r; Value:MBS("DynaPDF.Rectangle"; $pdf; $px + $p; $py + $p * 9; $p * 5; $p * 5; "fill") ]
                                • Set Variable [ $r; Value:MBS("DynaPDF.Rectangle"; $pdf; $px + $p * 9; $py + $p * 9; $p * 5; $p * 5; "fill") ]
                                • Set Variable [ $r; Value:MBS("DynaPDF.EndPage"; $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 [ Swiss QRCode::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: Swiss QRCode

                                      Used functions: