Index: Prod/Product.cls.xml
===================================================================
diff -u -r60664 -r60666
--- Prod/Product.cls.xml	(.../Product.cls.xml)	(revision 60664)
+++ Prod/Product.cls.xml	(.../Product.cls.xml)	(revision 60666)
@@ -942,10 +942,6 @@
 
  ;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
- 
  Set CtrlNr = $Extract(Dossier,$Length(Dossier),$Length(Dossier)+1)
  
  Quit:(CtrlNr="") ""
@@ -954,8 +950,6 @@
 
  ;Controlecijfer van dossier strippen
  //New Rest
- //Set Rest=$ZSTRIP(Dossier,">N")
-
  Set Rest = $Extract(Dossier,1,$Length(Dossier)-1)
  Quit:(Rest="") ""