SSCCChecksum ( SSCCnr )

Creates a checksum for SSCC number

Average rating: 4.6 (32 votes) Log in to vote

Andy Knasinski - Show more from this author
nrg software, llc.
http://www.nrgsoft.com

Sample input:

SSCCChecksum ( 0008155380999900001 )

Sample output:

00081553809999000011

Function definition: (Copy & paste into FileMaker's Edit Custom Function window)

/*

SSCCChecksum ( SSCCnr  )

This function will return the SSCC number and checksum for a given SSCC number
NRG Software, LLC.

*/
Let (
[
xPool = Filter ( SSCCnr ; "0123456789" ) ;
xTotal = xPool  ;
xOdd = 3 * ( Middle ( xTotal ; 1 ; 1 ) + Middle ( xTotal ; 3 ; 1 ) + Middle ( xTotal ; 5 ; 1 ) + Middle ( xTotal ; 7 ; 1 ) + Middle ( xTotal ; 9 ; 1 ) + Middle ( xTotal ; 11 ; 1 ) + Middle ( xTotal ; 13 ; 1 ) + Middle ( xTotal ; 15 ; 1 ) + Middle ( xTotal ; 17 ; 1 ) + Middle ( xTotal ; 19 ; 1 ) ) ;
xEven = Middle ( xTotal ; 2 ; 1 ) + Middle ( xTotal ; 4 ; 1 ) + Middle ( xTotal ; 6 ; 1 ) + Middle ( xTotal ; 8 ; 1 ) + Middle ( xTotal ; 10 ; 1 ) + Middle ( xTotal ; 12 ; 1 ) + Middle ( xTotal ; 14 ; 1 ) + Middle ( xTotal ; 16 ; 1 ) + Middle ( xTotal ; 18 ; 1 )   ;
xDigit = 10 - Mod ( xEven + xOdd ; 10 )
];

xPool & xDigit

)

This script is used to compute a checksum for a given SSCC number. You can also produce a nice text representation using this calc. Works great with Brian Dunning's Code128 solution.

"(" &
Left ( $$sscc ; 2 ) &
") " &
Middle ( $$sscc ; 3; 1 ) &
" " &
Middle ( $$sscc ; 4 ; 7 ) &
" " &
Middle ( $$sscc ; 11 ; 9 ) &
" " &
Right ( $$sscc ; 1 )

Comments

		H. Lithman, Sweden Mar 15, 2011
Hey Andy! Thanks for a this useful function. I made a little correction, because when the value of checksum gets 10, it should be 0. not 10. Right? Case ( xDigit = 10 ; xPool & "0" ; xPool & xDigit )

Note: these functions are not guaranteed or supported by BrianDunning.com. Please contact the individual developer with any questions or problems.

SSCCChecksum ( SSCCnr )

Comments

Support this website.

Support this website.