Index: Prod/Product.cls.xml
===================================================================
diff -u -r60666 -r60676
--- Prod/Product.cls.xml	(.../Product.cls.xml)	(revision 60666)
+++ Prod/Product.cls.xml	(.../Product.cls.xml)	(revision 60676)
@@ -934,30 +934,26 @@
  Set vCtrlNr=""
 
  ;Input onthouden voor foutmeldigen
- //New OrigDossier
  Set OrigDossier=Dossier
 
  ;Eventueel reeds geplaatste (foutieve of correcte) punten weghalen
  Set Dossier=$TR(Dossier,".","")
 
- ;Controlecijfer ophalen
- //New Loop,tmpChar,CtrlNr
- Set CtrlNr = $Extract(Dossier,$Length(Dossier),$Length(Dossier)+1)
+ ;Controlecijfer ophalen (laatste karakter)
+ Set CtrlNr = $Extract(Dossier,*)
  
  Quit:(CtrlNr="") ""
 
  Write "Controlecijfer: "_CtrlNr,!
 
  ;Controlecijfer van dossier strippen
- //New Rest
- Set Rest = $Extract(Dossier,1,$Length(Dossier)-1)
+ Set Rest = $Extract(Dossier,1,*-1)
  Quit:(Rest="") ""
 
  ;Controledigit checken
  Quit:($$CHKDIGIT^HAD(Rest)'=CtrlNr) ""
 
  ;Groep (Tandembox,banco,...) strippen (1e char)
- //New Groep,DossierNr
  Set Groep=$E(Rest,1)
  Set DossierNr=$E(Rest,2,99999)