Index: Prod/Product.cls.xml
===================================================================
diff -u -r59939 -r60664
--- Prod/Product.cls.xml	(.../Product.cls.xml)	(revision 59939)
+++ Prod/Product.cls.xml	(.../Product.cls.xml)	(revision 60664)
@@ -943,17 +943,20 @@
  ;Controlecijfer ophalen
  //New Loop,tmpChar,CtrlNr
  Set CtrlNr=""
- For Loop=$L(Dossier):-1:1 Set tmpChar=$E(Dossier,Loop) Quit:('$IsValidNum(tmpChar))  Do
- . Set CtrlNr=tmpChar_CtrlNr
-
+ //For Loop=$L(Dossier):-1:1 Set tmpChar=$E(Dossier,Loop) Quit:('$IsValidNum(tmpChar))  Do
+ //. Set CtrlNr=tmpChar_CtrlNr
+ 
+ Set CtrlNr = $Extract(Dossier,$Length(Dossier),$Length(Dossier)+1)
+ 
  Quit:(CtrlNr="") ""
 
  Write "Controlecijfer: "_CtrlNr,!
 
  ;Controlecijfer van dossier strippen
  //New Rest
- Set Rest=$ZSTRIP(Dossier,">N")
+ //Set Rest=$ZSTRIP(Dossier,">N")
 
+ Set Rest = $Extract(Dossier,1,$Length(Dossier)-1)
  Quit:(Rest="") ""
 
  ;Controledigit checken