Monkeybread Software - MBS FileMaker Plugin: Add Page Links

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

MBS FileMaker Plugin Example Databases

Add Page Links

All examples are included with download of MBS FileMaker Plugin.

Add Page Links.fmp12

Overview
Tables	1
Relationships	0
Layouts	1
Scripts	3
Value Lists	0
Custom Functions	0
Custom Menus	24

File Options
Default custom menu set	[Standard FileMaker Menus]
When opening file
Minimum allowed version	12.0
Login using	Account Name; Account= Admin
Allow user to save password	Off
Require iOS passcode	Off
Switch to layout	Off
Hide all toolbars	Off
Script triggers
OnFirstWindowOpen	Off
OnLastWindowClose	Off
OnWindowOpen	Off
OnWindowClose	Off
OnFileAVPlayerChange	Off
Thumbnail Settings
Generate Thumbnails	On; Temporary

Tables

Table Name	Statistics	Occurrences in Relationship Graph
Add Page Links	14 fields defined, 1 record	Add Page Links

Fields

Table Name: Add Page Links - 14 Fields
Field Name	Type	Options	Comments	On Layouts	In Relationships	In Scripts	In Value Lists
PrimaryKey	Normal, Text	Auto-Enter: Context table: Add Page Links Calculation: Get( UUID ) Validation: Only during data entry Not empty Unique Strict validation Storage: Repetitions: 1 Indexing: Minimal Automatically create indexes as needed Index Language: Unicode Raw	Unique identifier of each record in this table
CreationTimestamp	Normal, Timestamp	Auto-Enter: Creation timestamp Validation: Only during data entry Strict data type: 4 digit year Not empty Strict validation Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German	Date and time each record was created
CreatedBy	Normal, Text	Auto-Enter: Creation account name Validation: Only during data entry Not empty Strict validation Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German	Account name of the user who created each record
ModificationTimestamp	Normal, Timestamp	Auto-Enter: Modification timestamp Validation: Only during data entry Strict data type: 4 digit year Not empty Strict validation Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German	Date and time each record was last modified
ModifiedBy	Normal, Text	Auto-Enter: Modification account name Validation: Only during data entry Not empty Strict validation Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German	Account name of the user who last modified each record
Input PDF	Normal, Binary	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1		Add Page Links		Merge
Output PDF	Normal, Binary	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1		Add Page Links		Merge Clear
First Index Page	Normal, Number	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		Add Page Links		Merge
Last Index Page	Normal, Number	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		Add Page Links		Merge
Height of Row	Normal, Number	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		Add Page Links		Merge
Distance Left	Normal, Number	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		Add Page Links		Merge
Distance Top	Normal, Number	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		Add Page Links		Merge
Width	Normal, Number	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		Add Page Links		Merge
Numbers found	Normal, Number	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		Add Page Links		Merge Clear

Layout Objects: Add Page Links

Regular Fields

Field Name: Add Page Links::Input PDF

Layout Name:

Add Page Links

Top: 62 pt
Left: 138 pt
Bottom: 187 pt
Right: 622 pt

Anchoring: Left and Right, 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

Field Name: Add Page Links::Output PDF

Layout Name:

Add Page Links

Top: 448 pt
Left: 138 pt
Bottom: 824 pt
Right: 622 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

Field Name: Add Page Links::First Index Page

Layout Name:

Add Page Links

Top: 197 pt
Left: 138 pt
Bottom: 228 pt
Right: 217 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: Add Page Links::Last Index Page

Layout Name:

Add Page Links

Top: 232 pt
Left: 138 pt
Bottom: 263 pt
Right: 217 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: Add Page Links::Height of Row

Layout Name:

Add Page Links

Top: 372 pt
Left: 138 pt
Bottom: 403 pt
Right: 217 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: Add Page Links::Distance Left

Layout Name:

Add Page Links

Top: 267 pt
Left: 138 pt
Bottom: 298 pt
Right: 217 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: Add Page Links::Distance Top

Layout Name:

Add Page Links

Top: 302 pt
Left: 138 pt
Bottom: 333 pt
Right: 217 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: Add Page Links::Width

Layout Name:

Add Page Links

Top: 337 pt
Left: 138 pt
Bottom: 368 pt
Right: 217 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: Add Page Links::Numbers found

Layout Name:

Add Page Links

Top: 407 pt
Left: 138 pt
Bottom: 438 pt
Right: 217 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

Type:

Text: Do it!

Layout Name:

Add Page Links

Top: 398 pt
Left: 443 pt
Bottom: 438 pt
Right: 593 pt

Anchoring: Left, Top

Perform Script [ “Merge” ]

Scripts:

Merge

Script Name	InitDynaPDF
Run script with full access privileges	Off
Siri Shortcut Visible	Off
Include In Menu	Yes
Layouts that use this script
Scripts that use this script	Merge
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]

Next Script: [Clear]

Script Name	Merge
Run script with full access privileges	Off
Siri Shortcut Visible	Off
Include In Menu	Yes
Layouts that use this script	Add Page Links
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") ] #optionally we can merge to external file If [ False ] Set Variable [ $destPath; Value:MBS("Folders.UserDesktop") & "/test.pdf" ] Set Variable [ $r; Value:MBS("DynaPDF.OpenOutputFile"; $pdf; $destPath) ] If [ MBS("IsError") ] Show Custom Dialog [ Title: "Failed to create PDF file."; Message: $r; Default Button: “OK”, Commit: “Yes” ] Exit Script [ ] End If End If #Merge files Set Variable [ $r; Value:MBS("DynaPDF.OpenPDFFromContainer"; $pdf; Add Page Links::Input PDF) ] If [ MBS("IsError") ] Show Custom Dialog [ Title: "Failed to open PDF."; Message: $r; Default Button: “OK”, Commit: “Yes” ] Exit Script [ ] End If #check if we have pages to import Set Variable [ $r; Value:MBS("DynaPDF.ImportPDFFile"; $pdf) ] If [ MBS("IsError") ] Show Custom Dialog [ Title: "Failed to import PDF."; Message: $r; Default Button: “OK”, Commit: “Yes” ] Exit Script [ ] End If #now add page numbers Set Variable [ $Found; Value:0 ] Set Variable [ $page; Value:Add Page Links::First Index Page ] Loop [ Flush: Always ] #edit page Set Variable [ $r; Value:MBS("DynaPDF.EditPage"; $pdf; $page) ] If [ MBS("IsError") = 0 ] Set Variable [ $pageHeight; Value:MBS( "DynaPDF.GetPageHeight"; $PDF ) ] Set Variable [ $pageWidth; Value:MBS( "DynaPDF.GetPageWidth"; $PDF ) ] Set Variable [ $x; Value:Add Page Links::Distance Left ] Set Variable [ $y; Value:Add Page Links::Distance Top ] Set Variable [ $rowHeight; Value:Add Page Links::Height of Row ] Loop [ Flush: Always ] #look for number Set Variable [ $text; Value:MBS( "DynaPDF.ExtractText"; $pdf; $page; ""; $x; $y; $x + Add Page Links::Width; $y + $rowHeight-5) ] Set Variable [ $text; Value:Trim($text) ] If [ Length ( $text ) > 0 ] #check for demo text to make this demo work If [ Left(GetValue($text; 1); 14) = "Text extracted" ] Set Variable [ $text; Value:Trim(GetValue($text; 2) & GetValue($text; 3)) ] End If If [ Left(GetValue($text; 2); 14) = "Text extracted" ] Set Variable [ $text; Value:Trim(GetValue($text; 1) & GetValue($text; 3)) ] End If #we found some text If [ 0 ] #Optionally, show text we found Set Variable [ $r; Value:MBS( "DynaPDF.SetFont"; $pdf; "Helvetica"; ""; 20) ] Set Variable [ $r; Value:MBS( "DynaPDF.WriteText"; $pdf; $x-100; $y; $text ) ] End If If [ 0 ] #Optionally, draw some red boxes where we read text Set Variable [ $r; Value:MBS( "DynaPDF.SetFillColor"; $pdf; Random; 0; 0) ] Set Variable [ $r; Value:MBS( "DynaPDF.SetStrokeColor"; $pdf; Random; 0; 0) ] Set Variable [ $r; Value:MBS( "DynaPDF.Rectangle"; $pdf; $x; $y; Add Page Links::Width; $rowHeight; "stroke" ) ] End If #add page link for the area we found Set Variable [ $r; Value:MBS( "DynaPDF.PageLink"; $pdf; 0; $y; $pageWidth; $rowHeight; $text ) ] Set Variable [ $Found; Value:$Found + 1 ] End If #next Set Variable [ $y; Value:$y + $rowHeight ] Exit Loop If [ $y > $pageHeight ] End Loop End If #next Set Variable [ $page; Value:$page + 1 ] Exit Loop If [ $page > Add Page Links::Last Index Page ] End Loop Set Field [ Add Page Links::Numbers found; $Found ] #to debug, you can disable compression and open PDF in text editor // Set Variable [ $r; Value:MBS("DynaPDF.SetCompressionLevel"; $pdf; 0) ] #show final PDF Set Field [ Add Page Links::Output PDF; MBS("DynaPDF.Save"; $pdf; "Merged.pdf") ] Set Variable [ $r; Value:MBS("DynaPDF.Release"; $pdf) ] Export Field Contents [ Add Page Links::Output PDF; “file:test.pdf”; Automatically open; Create folders:No ]
Fields used in this script	Add Page Links::Input PDF Add Page Links::First Index Page Add Page Links::Distance Left Add Page Links::Distance Top Add Page Links::Height of Row Add Page Links::Width Add Page Links::Last Index Page Add Page Links::Numbers found Add Page Links::Output PDF
Scripts used in this script	InitDynaPDF
Layouts used in this script
Tables used in this script	Add Page Links
Table occurrences used by this script	Add Page Links
Custom Functions used by this script
Custom menu set used by this script

Previous Script: [Merge]

Script Name	Clear
Run script with full access privileges	Off
Siri Shortcut Visible	Off
Include In Menu	Yes
Layouts that use this script
Scripts that use this script
Script Definition
Script Steps	Set Field [ Add Page Links::Output PDF; "" ] Set Field [ Add Page Links::Numbers found; "" ]
Fields used in this script	Add Page Links::Output PDF Add Page Links::Numbers found
Scripts used in this script
Layouts used in this script
Tables used in this script	Add Page Links
Table occurrences used by this script	Add Page Links
Custom Functions used by this script
Custom menu set used by this script

Download example: Add Page Links

Used functions: