Jump to content
Salesforce and other SMB Solutions are coming soon. ×

Generate EPC-QR-Code in FileMaker


Monkeybreadsoftware
 Share

Recommended Posts

  • Advertiser

One of our clients asked for how to create payment QR-Codes in FileMaker and we just made him a new example for this. You may prepare the data, but then you can use MBS Plugin to create the barcode and put it as picture in a container and print it on your invoice. Or you use DynaPDF to draw it as vector graphics to keep it sharp.

EPC-QR-Code.jpg

Here is the main script with the full calculation to assemble the text for the barcode:

 

# EPC-QR-Code generation

Go to Layout [ “Tabelle” ; Animation: None ]

# Sample data for QR-Code. May need adjustment to final standard

Set Variable [ $text ; Value: // Service Tag

"BCD" &  & 

// Version (001 oder 002)

Right( Tabelle::Version ; 4 ) &  & 

// Character set: 1 = UTF-8

"1" &  &

// Identification: SEPA Credit Transfer 

"SCT" &  & 

// BIC of receiver. optional for EEA

Tabelle::BIC &  & 

// Name of receiver

Left(Tabelle::Name; 70) &  & 

// IBAN of receiver

Tabelle::IBAN &  & 

// Amount. We replace comma with dot for German amounts

"EUR" & Substitute(Tabelle::Amount; ","; ".") &  & 

// Zweck, 4 letter code, optional

Left(Tabelle::Intention; 4) &  & 

// Reference 35-Character-Code, see ISO 11649 RF Creditor Reference

Left(Tabelle::Reference1; 35) &  & 

// Reference

Left(Tabelle::Reference2; 140) &  & 

// Note to user

Tabelle::Note 

# Barcode options. We use high level as we draw over barcode.

Set Variable [ $o ; Value: MBS("Barcode.SetOptions"; 4) // ECC Level with values from 1 = low, 2 = middle, 3 = better, 4 high. ] 

Set Field [ Tabelle::Code ; TextFormatRemove ( $text ) ] 

# CRLF line endings needed

Set Variable [ $text ; Value: MBS( "Text.ReplaceNewline"; $text; 3 ) ] 

# We render barcode at 4x size for better drawing later

Set Variable [ $img ; Value: MBS("Barcode.Generate";"QRCODE"; $text; 0; 0; 0; 4; 0; 1; "UTF-8") ] 

If [ MBS("IsError") = 0 ] 

# Save to field

Set Field [ Tabelle::Barcode ; MBS( "GMImage.WriteToPNGContainer"; $img; "barcode.png" ) ] 

# Clean up

Set Variable [ $r ; Value: MBS( "GMImage.Destroy"; $img) ] 

End If

 

Feel free to try the example database with next plugin pre-release and let us know if you find some issue. 

If we have changes to the script, we'll keep the example database updated for you. Please do not hesitate to contact us with your questions.

Link to comment
Share on other sites

This thread is quite old. Please start a new thread rather than reviving this one.

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share



×
×
  • Create New...

Important Information

Terms of Use