Index: Prod/Product.cls.xml
===================================================================
diff -u -r3561 -r5563
--- Prod/Product.cls.xml	(.../Product.cls.xml)	(revision 3561)
+++ Prod/Product.cls.xml	(.../Product.cls.xml)	(revision 5563)
@@ -698,21 +698,34 @@
  ;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
-
+ If $E(Dossier,1) = "T"
+ {
+	 w "Ja",!
+	 Set CtrlNr = $E(Dossier,$L(Dossier))
+ }Else{
+	 Set Loop=$L(Dossier)
+	 While Loop >= 1  && '$IsValidNum(tmpChar) {
+		 Set tmpChar=$E(Dossier,Loop)
+		 Set CtrlNr=tmpChar_CtrlNr
+	 	 Set Loop = Loop - 1 
+	 }
+ }
  Quit:(CtrlNr="") ""
 
  Write "Controlecijfer: "_CtrlNr,!
 
  ;Controlecijfer van dossier strippen
  //New Rest
- Set Rest=$ZSTRIP(Dossier,">N")
+ If $E(Dossier,1) = "T" {
+	 Set Rest=$E(Dossier,1,($L(Dossier)-1))
+ }Else{
+ 	Set Rest=$ZSTRIP(Dossier,">N")
+ }
 
  Quit:(Rest="") ""
 
  ;Controledigit checken
- Quit:($$CHKDIGIT^HAD(Rest)'=CtrlNr) ""
+ //Quit:($$CHKDIGIT^HAD(Rest)'=CtrlNr) ""
 
  ;Groep (Tandembox,banco,...) strippen (1e char)
  //New Groep,DossierNr