Index: DOM/PM/impl/TAORLangtekstCreator.cls.xml
===================================================================
diff -u -r62134 -r62174
--- DOM/PM/impl/TAORLangtekstCreator.cls.xml	(.../TAORLangtekstCreator.cls.xml)	(revision 62134)
+++ DOM/PM/impl/TAORLangtekstCreator.cls.xml	(.../TAORLangtekstCreator.cls.xml)	(revision 62174)
@@ -229,6 +229,7 @@
 <Private>1</Private>
 <ReturnType>TECH.String</ReturnType>
 <Implementation><![CDATA[
+	Do ##class(Tools.Wlip).%New(252).ObjToXML(..HalffabItemsBoomOnHerwerkt)
 	#dim IsGeleiderTechnologieTiponBlumotion As %Boolean = (..IngegevenKenmerken.GeleiderTechnologie = ..Enum.GeleiderTechnologie.TIPONBLUMOTION)
 	#dim BevatRolTiponBlumotionSetEenhedenEnMeenemers As %Boolean = (..HalffabItemsBoomOnHerwerkt.BevatRol(..Enum.Rol.TiponBlumotionSetEenhedenEnMeenemers))
 	#dim GeleiderTekst As TECH.String = ""
Index: DOM/PM/impl/DataM/DataMTAORLadeCreator.cls.xml
===================================================================
diff -u -r62130 -r62174
--- DOM/PM/impl/DataM/DataMTAORLadeCreator.cls.xml	(.../DataMTAORLadeCreator.cls.xml)	(revision 62130)
+++ DOM/PM/impl/DataM/DataMTAORLadeCreator.cls.xml	(.../DataMTAORLadeCreator.cls.xml)	(revision 62174)
@@ -33,6 +33,7 @@
 <ReturnType>DOM.PM.ProductLangtekst</ReturnType>
 <Implementation><![CDATA[
 	#dim LangtekstCreator As DOM.PM.impl.TAORLangtekstCreator = ##class(DOM.PM.impl.TAORLangtekstCreator).%New()
+	Do ##class(Tools.Wlip).%New(252).ObjToXML(..HalffabItemsBoomOnHerwerkt)
 	quit LangtekstCreator.GeefLangtekst(..ProductSpecificatie.GeefIngegevenKenmerken(), ..HalffabItemsBoom, Taal, ..KortTekst, ..HalffabItemsBoomOnHerwerkt)
 ]]></Implementation>
 </Method>
Index: DOM/PM/impl/LangtekstCreator.cls.xml
===================================================================
diff -u -r62134 -r62174
--- DOM/PM/impl/LangtekstCreator.cls.xml	(.../LangtekstCreator.cls.xml)	(revision 62134)
+++ DOM/PM/impl/LangtekstCreator.cls.xml	(.../LangtekstCreator.cls.xml)	(revision 62174)
@@ -77,15 +77,6 @@
 	set ..KortTekst = Korttekst
 	Set ..HalffabItemsBoomOnHerwerkt = HalffabItemsBoomOnHerwerkt
 	
-	/*
-	If ($IsObject(HalffabItemsBoomOnHerwerkt)) {
-		Set ..HalffabItemsBoomOnHerwerkt = HalffabItemsBoomOnHerwerkt
-	} Else {
-		Do ..InitieerHalffabItemsBoomOnherwerkt()
-	}
-	*/
-	
-	
 	do ..BepaalHoofding()
 	
 	Set ..LangtekstDetail = ##class(%ListOfDataTypes).%New()
@@ -98,18 +89,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="InitieerHalffabItemsBoomOnherwerkt">
-<Private>1</Private>
-<Implementation><![CDATA[
-	#dim BerekeningSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(1,##class(DOM.VKP.enu.Klant).Halux(),##class(DOM.common.VanHoeckePersonality).Instance())
-	Do BerekeningSpecificatie.ZetBerekeningWijze(##class(DOM.PM.Maatwerk.Calc.Common.enu.BerekeningWijze).ProductieAansturing())
-	#dim HalffabContext As DOM.PM.Maatwerk.Calc.HF.HalffabContext = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabContext).%New(..IngegevenKenmerken.GeefFamilie(), ..IngegevenKenmerken.GeefVariant(), BerekeningSpecificatie)
-	#dim HalffabSpec As DOM.PM.Maatwerk.Calc.HF.HalffabSpec = HalffabContext.GeefHalffabSpec()
-	Do HalffabSpec.BerekenHalffabBerekeningDetails(HalffabContext, ..IngegevenKenmerken)
-	set ..HalffabItemsBoomOnHerwerkt = HalffabContext.HalffabItemsBoom
-]]></Implementation>
-</Method>
-
 <Method name="VoegToeLangtekstParagraaf">
 <FormalSpec>LangtekstDetail:TECH.String</FormalSpec>
 <Implementation><![CDATA[	Do:(LangtekstDetail'="") ..LangtekstDetail.Insert(LangtekstDetail)
Index: vhUnitTest/APPS/Halux/PPS/TBXPers/TestWerkpost.cls.xml
===================================================================
diff -u -r36696 -r62174
--- vhUnitTest/APPS/Halux/PPS/TBXPers/TestWerkpost.cls.xml	(.../TestWerkpost.cls.xml)	(revision 36696)
+++ vhUnitTest/APPS/Halux/PPS/TBXPers/TestWerkpost.cls.xml	(.../TestWerkpost.cls.xml)	(revision 62174)
@@ -115,12 +115,12 @@
 <Method name="TestBeschadiging">
 <Implementation><![CDATA[
 	quit:$$$Not($$$AssertTrue(..IsOptiboxServerAlive()))
-	
+
 	#dim BatchID As %String = ..Batch.%Id()	
 	#dim BatchSpecialsID As %String = ..BatchSpecials.%Id()
 	#dim BatchesResultSet As TECH.ResultSet = ##class(TECH.Context).Instance().GeefQueryAPI().GetResultSet(##class(TECH.ClassQuery).%New("BL.PPS.TBX.WPPers", "BatchIDList"))
 	#dim OpdrachtCount As %Integer = 0
-	
+
 	While (BatchesResultSet.Next()) {
 		#dim BatchIDVanPerslijst As %String = $Piece(BatchesResultSet.Data("BatchID"), "||")
 		
@@ -133,9 +133,11 @@
 				#dim ProductNummer As %String = Queue.Product.%Id()	
 				
 				If (ProductNummer = $Parameter(..MaakSequentie, "TBX1")) {			
+				
 					Do ..Werkpost.RegistreerBeschadiging(UniekeID, "Zaag", "B+R", ##class(APPS.Halux.PPS.TBXZaag.enu.VerantwBeschadiging).Productie(), "unittest", ##class(APPS.Halux.PPS.TBXZaag.enu.Output2Lijn).Direct()) ; met rework
 				}
 			}
+				
 			
 			Set OpdrachtenResultSet = "" ; Close van de crazy query.
 		}
Index: vhTest/Mock/WSimpl/Vhisie4/Winkelkar/WinkelkarExport/Sender.cls.xml
===================================================================
diff -u -r42436 -r62174
--- vhTest/Mock/WSimpl/Vhisie4/Winkelkar/WinkelkarExport/Sender.cls.xml	(.../Sender.cls.xml)	(revision 42436)
+++ vhTest/Mock/WSimpl/Vhisie4/Winkelkar/WinkelkarExport/Sender.cls.xml	(.../Sender.cls.xml)	(revision 62174)
@@ -8,6 +8,13 @@
 <Super>WSimpl.Vhisie4.Winkelkar.WinkelkarExport.Sender,Tools.Mock.MockClassBase</Super>
 <Inheritance>right</Inheritance>
 
+<Method name="%OnNew">
+<FormalSpec>FtpApi:TECH.Ftp.FtpAPI="",DateTimeApi:TECH.DateTime.DateTimeAPI="",FormatApi:TECH.Format.FormatAPI="",IntractoInformeerder:WSimpl.Vhisie4.Winkelkar.WinkelkarExport.IntractoInformeerder="",KlantIdConverter:AXimpl.Utils.KlantIdConverter=""</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="Send">
 <FormalSpec>Winkelkar:WS.Vhisie4.WinkelkarExport.dto.Winkelkar</FormalSpec>
 <ReturnType>WS.Vhisie4.WinkelkarExport.SendResponse</ReturnType>