Index: vhPowerTools/DOM/PM/Product/TAX/LosseComponent/KorttekstAanpasser.cls.xml
===================================================================
diff -u -r38615 -r40079
--- vhPowerTools/DOM/PM/Product/TAX/LosseComponent/KorttekstAanpasser.cls.xml	(.../KorttekstAanpasser.cls.xml)	(revision 38615)
+++ vhPowerTools/DOM/PM/Product/TAX/LosseComponent/KorttekstAanpasser.cls.xml	(.../KorttekstAanpasser.cls.xml)	(revision 40079)
@@ -34,10 +34,6 @@
 
 <Method name="VoerUit">
 <Implementation><![CDATA[
-	
-	s fn = "e:\lijst.txt"
-	o fn:"wns"
-	u fn
 	set KlassificatieIds = ##class(%ListOfDataTypes).%New()
 	do KlassificatieIds.Insert("1628")
 	do KlassificatieIds.Insert("1629")
@@ -47,8 +43,6 @@
 	while KlassificatieIdIterator.HasNext() {
 		do ..WijzigKlassificatie(KlassificatieIdIterator.Next())	
 	}
-	
-	c fn
 ]]></Implementation>
 </Method>
 
@@ -69,13 +63,12 @@
 <FormalSpec>Product:DOM.PM.MaatwerkProduct</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	W !,Product.GeefID()
-	#dim Korttekst As %String = "a" ;..KorttekstBepaler.BepaalKorttekst(Product.GeefDossierNr(),Product.GeefIngegevenKenmerken(),Product.GeefHalffabItemsBoom())
+	#dim Korttekst As %String = ..KorttekstBepaler.BepaalKorttekst(Product.GeefDossierNr(),Product.GeefIngegevenKenmerken(),Product.GeefHalffabItemsBoom())
 	if $$$Not(Korttekst = Product.GeefKorttekst()) {
-		;do DELIND^PRODUKT2(Product.GeefID())
-		;do Set^PRODUKT(Product.GeefID(),$$$KortTekst,Korttekst)
-		;do BLDIND^PRODUKT2(Product.GeefID())
-		;write Product.GeefID(),*13
+		do DELIND^PRODUKT2(Product.GeefID())
+		do Set^PRODUKT(Product.GeefID(),$$$KortTekst,Korttekst)
+		do BLDIND^PRODUKT2(Product.GeefID())
+		write Product.GeefID(),*13
 	}
 ]]></Implementation>
 </Method>