Index: zTryout/CSC/Try.cls.xml
===================================================================
diff -u -r734 -r822
--- zTryout/CSC/Try.cls.xml	(.../Try.cls.xml)	(revision 734)
+++ zTryout/CSC/Try.cls.xml	(.../Try.cls.xml)	(revision 822)
@@ -1,29 +1,33 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-01-27 17:01:17">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-08 08:24:32">
 <Class name="zTryout.CSC.Try">
 <ClassType>persistent</ClassType>
 <IncludeCode>%VHMacro</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%Persistent</Super>
-<TimeChanged>62109,31804.138305</TimeChanged>
+<TimeChanged>62130,30323.040147</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="Try">
 <Description>
 Do ##class(zTryout.CSC.Try).Try()</Description>
 <ClassMethod>1</ClassMethod>
 <Implementation><![CDATA[
-	Set OrderAPI = ##class(DOM.DomeinContext).Instance().GeefOrderAPI()
-	Set FactuurNr = $Order(^KFAP("F",0))
-	Set BevatLangGoed = 0
-	While ((FactuurNr '= "") && ('BevatLangGoed))
+	Set ToeleveringAPI = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI()
+	
+	Set ToelNr = $Order(^KTO(6332,""))
+	While (ToelNr '= "")
 	{
-		w FactuurNr,!
-		Set Factuur = OrderAPI.GeefProforma(FactuurNr)
-		Set BevatLangGoed = ##class(APPS.OV.impl.FlowObjectInhoudService).ProformaBevatLangGoed(Factuur)
-		Set FactuurNr = $Order(^KFAP("F",FactuurNr))
+		w !,"Toelevering: "_ToelNr
+		Set Toelevering = ToeleveringAPI.GeefToelevering(ToelNr)
+		Set ToeleveringLijnIterator = Toelevering.GeefTypeToeleveringLijnIterator(##class(DOM.LEV.enu.ToeleveringLijnType).Product())
+		While (ToeleveringLijnIterator.HasNext())
+		{
+			Set ProductToeleveringsLijn = ToeleveringLijnIterator.Next()
+			w !,"        Product: "_ProductToeleveringsLijn.GeefProduct().GeefKorttekst()
+		}
+		Set ToelNr = $Order(^KTO(6332,ToelNr))
 	}
-	w !,"Bevat Lange goederen: "_BevatLangGoed,!,"Nummer: "_FactuurNr
 ]]></Implementation>
 </Method>
 
@@ -43,5 +47,5 @@
 </Data>
 </Storage>
 </Class>
-<Checksum value="2981591336"/>
+<Checksum value="2043765519"/>
 </Export>