Software Venture Consulting

FileMaker Pro downloads & Resources
FileMaker Custom Functions
FileMaker Web Viewer Examples
FileMaker Pro & Lasso Consulting
Training
FileMaker Books
FileMaker Articles
FileMaker Error Reference

Free Web Tools
Free FileMaker Tools

Personal Pages
Videos
Adventures
Links

Shopping Cart
Shopping Cart

Search:

Free Newsletter
Signup


Contact


Privacy Policy



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

 

 FileMaker Pro Custom Functions

List  |  Show Random  |  Upload  |  Add This to Your Site

Modulo10recursive ( SeedNumber )

Rate this function:  

RatingRatingRatingRatingRating
  Average rating: 4.3  (37 votes)
  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.

Click here to copy To Clip Manager if you have myFMbutler's Clip Manager installed

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:

5 most recent comments | Show all 7 comments

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

Make a comment about this Custom Function (please try to keep it brief & to the point). Anyone can post:

Your Name:
City/Location:
Comment:
characters left. If you paste in more than 1500 characters, it will be truncated. Discuss the function - advertisements and other useless posts will be deleted.
Answer 7 + 1 =
Search for Custom Functions:

Custom Functions Widget
Download the Custom Function Dashboard Widget for OS X
Keep all the latest Custom Functions right at your fingertips!

Newest Custom Functions:

1. decFromHex ( hexValue )
  (Mon, Oct 16, 12:34pm)
2. MonthYearList ( startmonth ; startyear ; numbermonth ; short )
  (Mon, Oct 16, 3:38am)
3. ErrorDescription ( errorNumber )
  (Wed, Sep 27, 2:51am)
4. decodeEntities (text)
  (Wed, Sep 27, 1:22am)
5. HexidecimalToNumber ( HexidecimalValue ; counter )
  (Mon, Sep 25, 12:39pm)
6. FixedFieldConverter ( Fieldname ; f1 ; f2 ; f3 ; f4 ; f5 ; f6 ; f7 ; f8 ; f9 ; f10 ; f11 ; f12 ; f13 ; f14 ; f15 ; f16 ; f17 ; f18 ; f1
  (Fri, Sep 15, 12:34pm)
7. ShannonEntropy ( text )
  (Thu, Sep 07, 5:59am)
8. LetterCount ( text ; summary )
  (Thu, Sep 07, 5:53am)

RSS Feed of Custom Functions