Index: Prod/Product.cls.xml
===================================================================
diff -u -r5563 -r5565
--- Prod/Product.cls.xml	(.../Product.cls.xml)	(revision 5563)
+++ Prod/Product.cls.xml	(.../Product.cls.xml)	(revision 5565)
@@ -700,7 +700,6 @@
  Set CtrlNr=""
  If $E(Dossier,1) = "T"
  {
-	 w "Ja",!
 	 Set CtrlNr = $E(Dossier,$L(Dossier))
  }Else{
 	 Set Loop=$L(Dossier)
@@ -725,7 +724,7 @@
  Quit:(Rest="") ""
 
  ;Controledigit checken
- //Quit:($$CHKDIGIT^HAD(Rest)'=CtrlNr) ""
+ Quit:($$CHKDIGIT^HAD(Rest)'=CtrlNr) ""
 
  ;Groep (Tandembox,banco,...) strippen (1e char)
  //New Groep,DossierNr