Index: zTryout/CSC/Try.cls.xml
===================================================================
diff -u -r822 -r946
--- zTryout/CSC/Try.cls.xml	(.../Try.cls.xml)	(revision 822)
+++ zTryout/CSC/Try.cls.xml	(.../Try.cls.xml)	(revision 946)
@@ -1,11 +1,11 @@
 <?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-02-08 08:24:32">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-09 07:51:10">
 <Class name="zTryout.CSC.Try">
 <ClassType>persistent</ClassType>
 <IncludeCode>%VHMacro</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%Persistent</Super>
-<TimeChanged>62130,30323.040147</TimeChanged>
+<TimeChanged>62131,28320.485504</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="Try">
@@ -31,6 +31,30 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Try2">
+<Description>
+Do ##class(zTryout.CSC.Try).Try2()</Description>
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Set Klant = $Order(^KOD(""),-1)
+	While (Klant '= "")
+	{
+		w "Klant: "_Klant,!
+		Set OrderNr = $Order(^KOD(Klant,"F",""),-1)
+		While (OrderNr '= "")
+		{
+			Set OrderAPI = ##class(DOM.DomeinContext).Instance().GeefOrderAPI()
+			Set Order = OrderAPI.GeefOrder(OrderNr)
+			Set BevatLangGoed = ##class(APPS.OV.impl.FlowObjectInhoudService).OrderBevatLangGoed(Order)
+			w "     Order:"_OrderNr_", Bevat Langgoed: "_BevatLangGoed,!
+			b:(BevatLangGoed)
+			Set OrderNr = $Order(^KOD(Klant,"F",OrderNr),-1)
+		}
+		Set Klant = $Order(^KOD(Klant),-1)
+	}
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DataLocation>^zTryout.CSC.TryD</DataLocation>
@@ -47,5 +71,5 @@
 </Data>
 </Storage>
 </Class>
-<Checksum value="2043765519"/>
+<Checksum value="3789512981"/>
 </Export>