ISBT128_Checksum ( ISBT128 Value )

Calculates ISBT 128 check character

Be the first to rate this function Log in to vote

- Show more from this author

Sample input:

ISBT128_Checksum ( "ABCDE27000069" )

Sample output:

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

SetzeVar(
	[
		s = Großbuchstaben( Trimme( ISBT128 Value ) );
		len = Länge( s );
		result = Solange(
			[ i = 1; sum = 0 ];
			i ≤ len;
			[
				ch = ZeichenMitte( s; i; 1 );
				value = Falls(
					ch ≥ "0" UND ch ≤ "9";
					Code( ch ) - 48;
					ch ≥ "A" UND ch ≤ "Z";
					Code( ch ) - 55;
					ch = "*";
					36;
					0
				);
				sum = Mod(( sum + value ) * 2; 37 );
				i = i + 1
			];
			sum
		);
		checkValue = Mod( 38 - result; 37 );
		checkCharacters = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ*"
	];
	ZeichenMitte( checkCharacters;
		checkValue + 1; 1 )
)

Calculates the ISBT 128 check character according to the Technical Specification Paper ICCBBA ST-001 published by ICCBBA.

Comments

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

ISBT128_Checksum ( ISBT128 Value )

Comments

Support this website.

Support this website.