Index: Prod/Product.cls.xml
===================================================================
diff -u -r5569 -r5571
--- Prod/Product.cls.xml	(.../Product.cls.xml)	(revision 5569)
+++ Prod/Product.cls.xml	(.../Product.cls.xml)	(revision 5571)
@@ -683,7 +683,7 @@
 <ReturnType>%Library.String</ReturnType>
 <Implementation><![CDATA[
  //Bijv. MAB9->M.AB.9 of BQBC1->B.QBC.1 of MAHBC2->M.AH.BC.2
-
+ 
  Set vGroep=""
  Set vDossierNr=""
  Set vCtrlNr=""
@@ -698,18 +698,17 @@
  ;Controlecijfer ophalen
  //New Loop,tmpChar,CtrlNr
  Set CtrlNr=""
+ 
+  ; ControleNr standaard manier. 
+ For Loop=$L(Dossier):-1:1 Set tmpChar=$E(Dossier,Loop) Quit:('$IsValidNum(tmpChar))  Do
+ . Set CtrlNr=tmpChar_CtrlNr
+
+ ; ControleNr TandemBoxen
  If $E(Dossier,1) = "T"
  {
 	 Set CtrlNr = $E(Dossier,$L(Dossier))
- }Else{
-	 Set Loop=$L(Dossier)
-	 Set tmpChar=$E(Dossier,Loop)
-	 While Loop >= 1  && '$IsValidNum(tmpChar) {
-		 Set CtrlNr=tmpChar_CtrlNr
-	 	 Set Loop = Loop - 1 
-	 	 Set tmpChar=$E(Dossier,Loop)
-	 }
  }
+ 
  Quit:(CtrlNr="") ""
 
  Write "Controlecijfer: "_CtrlNr,!