Index: zTryout/JWI/TextLijnen/OrderDump.cls.xml
===================================================================
diff -u
--- zTryout/JWI/TextLijnen/OrderDump.cls.xml	(revision 0)
+++ zTryout/JWI/TextLijnen/OrderDump.cls.xml	(revision 46494)
@@ -0,0 +1,52 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.JWI.TextLijnen.OrderDump">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="DumpOrderText">
+<FormalSpec>OrderId:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim OrderApi as DOM.VKP.OrderAPI = ##class(DOM.DomeinContext).Instance().GeefOrderAPI()
+	#dim Order as DOM.VKP.Order = OrderApi.GeefOrder(OrderId)
+	#dim it as TECH.Iterator = Order.GeefTypeOrderLijnIterator(##class(DOM.VKP.enu.OrderLijnType).Tekst())
+	
+	w !,"Order " _ OrderId
+	
+	w !,"Tekst gelinkt aan Order "
+	While (it.HasNext()){
+		#dim Lijn as DOM.VKP.TekstOrderlijn = it.Next()
+ 		if 'Lijn.IsGekoppeldAanProductLijn(){
+			w !,"     "_Lijn.GeefTekst()
+			w !,"    Af te drukken op : "_ Lijn.GeefAfdrukkenOp()
+
+ 		}		
+	}
+
+	#dim pit as TECH.Iterator = Order.GeefTypeOrderLijnIterator(##class(DOM.VKP.enu.OrderLijnType).Product())
+	While (pit.HasNext()){
+		#dim PLijn as DOM.VKP.ProductOrderlijn = pit.Next()
+		w !,"Product " _ PLijn.GeefProductID()
+		do ..GeefProductlijnTekstLijnen(Order,PLijn)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefProductlijnTekstLijnen">
+<FormalSpec>Order:DOM.VKP.Order,ProductLijn:DOM.VKP.ProductOrderlijn</FormalSpec>
+<Implementation><![CDATA[
+	#dim it as TECH.Iterator = Order.GeefTypeOrderLijnIterator(##class(DOM.VKP.enu.OrderLijnType).Tekst())
+	While it.HasNext(){
+		#dim TekstLijn as DOM.VKP.TekstOrderlijn = it.Next()
+		if TekstLijn.IsGekoppeldAanProductLijn(){
+			if TekstLijn.GeefGekoppeldAanProductLijn() = ProductLijn.GeefID(){
+				w !,"    Tekst is : " _ TekstLijn.GeefTekst()
+				w !,"    Af te drukken op : "_ TekstLijn.GeefAfdrukkenOp()
+			}
+		}
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>