Shopping Cart

Search:

Signup

Contact

FileMaker is a registered trademark of FileMaker, Inc. in the U.S. and other countries.

# FileMaker Pro Custom Functions

Modulo10recursive ( SeedNumber )

Rate this function:

Discuss this Custom Function

Daniel Wilhelm, Datasol Wilhelm
http://www.datasol.ch

Calculates the Checksum for Swiss ESR/BESR

Sample Input:
 010000559800
Sample Output:
 8

Then copy & paste into FileMaker Advanced's Edit Custom Function window.

## Description:

Returns the Modulo10recursive checksum of a number as used for the swiss ESR / BESR

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

This is my Custom Function and I want to edit it

## Discuss:

The variables are German Language words, but the structure is Filemaker. I believe 'nächstezeile' is equivalent to 'row' (as in an array)

Tim Griffith, St. Louis, MO, USA
March 09, 2013 2:24pm

Hi Tim

Yes, you are right.

Zeile X = Row X
nächstezeile = nextrow
rest = what is left over for the next calculation

Greetings

Dani

Daniel Wilhelm, Obfelden, Schweiz
March 10, 2013 4:44am

Same thing without \$-variables. Needs two more parameters, though.
Sample Modulo10 ("30115642" ; 1 ; 0 ) = 8
/*
Name der Funktion:
Modulo10
Parameter:
Ziffern - die Ziffernfolge, zu der die Püfziffer ermittelt werden soll
Start1 - beim Aufruf 1 eingeben (Position der aktuell untersuchten Ziffer)
Start0 - bei Start 0 eingeben (Uebertragungswert für den aktuellen Durchlauf)

Abwandlung der CF Modulo10Rekursiv von Datasol Wilhelm vom 15. Mai 2007 (herzlichen Dank)
hier ohne \$-Variablen, weil Armin Eggingers CrossCheck die immer anmeckert.
*/

Let ( [

ziffern = Filter ( Ziffern ; "1234567890" ) ;
pos = Start1 ;
ueber = Start0 ;

menge = Length ( ziffern ) ;

z0 = "09468271350" ; // erste Zahl für Reihe 0, 10. Zahl für Reihe 9, letzte Zahl ist Prüfziffer
z1 = "94682713509" ;
z2 = "46827135098" ;
z3 = "68271350947" ;
z4 = "82713509466" ;
z5 = "27135094685" ;
z6 = "71350946824" ;
z7 = "13509468273" ;
z8 = "35094682712" ;
z9 = "50946827131" ;

reihe = Case (
ueber = 0 ; z0 ;
ueber = 1 ; z1 ;
ueber = 2 ; z2 ;
ueber = 3 ; z3 ;
ueber = 4 ; z4 ;
ueber = 5 ; z5 ;
ueber = 6 ; z6 ;
ueber = 7 ; z7 ;
ueber = 8 ; z8 ;
ueber = 9 ; z9 ;
"" ) ;

spalte = If ( pos ≤ menge ; Middle ( ziffern; pos ; 1 ) ; 10 ) ; // bis zur letzten Position die entsprechende Spalte nehmen, danach die Prüfziffer, die steckt in der 11.

Christoph L. Kaufmann, Zollikofen, Switzerland
April 25, 2013 3:07am

Modulo10 continued (sorry, had Java Script disabled, message got truncated):

// bis zur letzten Position die entsprechende Spalte nehmen, danach die Prüfziffer, die steckt in der 11. Spalte (wir nehmen die 10, wir unten mit "spalte+1" rechnen).

uebertrag = Middle ( reihe ; spalte + 1 ; 1 )

] ;

If ( pos ≤ menge ; // bis zur letzten Position

Modulo10 ( ziffern ; pos + 1 ; uebertrag ) ; // mit der ermittelten Uebertragungsziffer weiterfahren

// sonst haben wir die Prüfziffer erhalten

uebertrag
)
)

Christoph L. Kaufmann, Zollikofen, Switzerland
April 25, 2013 3:14am

Hallo Christoph

Ich habe versucht das ganze in eine eigene Funktion zu wandeln mit FM15 bin aber an zwei Dingen gescheitert.

1. ziffern = Filter ( Ziffern ; "1234567890" ) ; -> kommt die Rückmeldung falscher Parameter, muss ich Ziffern in "Ziffern" setzen damit es stimmt?
2. Modulo10 ( ziffern ; pos + 1 ; uebertrag ) -> Kommt immer beim Semikolon dass es zuviele Parameter geben soll.

Kannst du mir hier bitte weiterhelfen, wäre mega cool.

Wolfgang, Bern
July 13, 2016 10:37pm