Index: zTryout/CSC/PM/Maatwerk/HF/IntegratieTest.cls.xml
===================================================================
diff -u -r734 -r822
--- zTryout/CSC/PM/Maatwerk/HF/IntegratieTest.cls.xml	(.../IntegratieTest.cls.xml)	(revision 734)
+++ zTryout/CSC/PM/Maatwerk/HF/IntegratieTest.cls.xml	(.../IntegratieTest.cls.xml)	(revision 822)
@@ -1,16 +1,18 @@
 <?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-04 13:26:11">
 <Class name="zTryout.CSC.PM.Maatwerk.HF.IntegratieTest">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
-<TimeChanged>62118,54293.004532</TimeChanged>
+<TimeChanged>62126,48416.228961</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="MaakProductTBXIntivo">
 <Description>
 Do ##class(zTryout.CSC.PM.Maatwerk.HF.IntegratieTest).MaakProductTBXIntivo()</Description>
 <ClassMethod>1</ClassMethod>
 <Implementation><![CDATA[
+	Set Start = $ZU(188)
+	
 	Set Familie=##class(DOM.PM.enu.Familie).Lade()
 	Set Variant=##class(DOM.PM.enu.LadeVariant).TBXIntivo()
 	
@@ -37,6 +39,8 @@
 	Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
 	Set Product = ProductAPI.MaakProduct(ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom, KostItem)
 	
+	Set Stop = $ZU(188)
+	
 	write !
 	Do HalffabItems.Accept(WriterVisitor)
 	write !
@@ -49,7 +53,11 @@
 	w "-----------------------",!
 	w "PRNr: "_Product.GeefPRNr(),!
 	w "Korttekst: "_Product.GeefKorttekst(),!
-	w "DossierNr: #"_Product.GeefDossierNr(),!!
+	w "DossierNr: #"_Product.GeefDossierNr(),!
+	w "ProductSpecificatie: "_Product.GeefProductSpecificatie().%Id(),!
+	w "BerekeningsSpecificatie: "_Product.GeefBerekeningsSpecificatie().%Id(),!!
+	
+	w (($Piece(Stop,",",2)-$Piece(Start,",",2))*1000)_"ms"
 ]]></Implementation>
 </Method>
 
@@ -58,6 +66,8 @@
 Do ##class(zTryout.CSC.PM.Maatwerk.HF.IntegratieTest).MaakProductKaderdeur()</Description>
 <ClassMethod>1</ClassMethod>
 <Implementation><![CDATA[
+	Set Start = $ZU(188)
+	
 	Set Familie=##class(DOM.PM.enu.Familie).AluKader()
 	Set Variant=##class(DOM.PM.enu.AluKaderVariant).Basis()
 	
@@ -84,6 +94,8 @@
 	Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
 	Set Product = ProductAPI.MaakProduct(ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom, KostItem)
 	
+	Set Stop = $ZU(188)
+	
 	write !
 	Do HalffabItems.Accept(WriterVisitor)
 	write !
@@ -96,7 +108,11 @@
 	w "-----------------------",!
 	w "PRNr: "_Product.GeefPRNr(),!
 	w "Korttekst: "_Product.GeefKorttekst(),!
-	w "DossierNr: #"_Product.GeefDossierNr(),!!
+	w "DossierNr: #"_Product.GeefDossierNr(),!
+	w "ProductSpecificatie: "_Product.GeefProductSpecificatie().%Id(),!
+	w "BerekeningsSpecificatie: "_Product.GeefBerekeningsSpecificatie().%Id(),!!
+	
+	w (($Piece(Stop,",",2)-$Piece(Start,",",2))*1000)_"ms"
 ]]></Implementation>
 </Method>
 
@@ -203,5 +219,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="783939552"/>
+<Checksum value="436087583"/>
 </Export>
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>
Index: zTryout/CSC/Views.cls.xml
===================================================================
diff -u
--- zTryout/CSC/Views.cls.xml	(revision 0)
+++ zTryout/CSC/Views.cls.xml	(revision 822)
@@ -0,0 +1,18 @@
+<?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-01 16:01:05">
+<Class name="zTryout.CSC.Views">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<TimeChanged>62123,57707.56168</TimeChanged>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Query name="Logging">
+<Type>%SQLQuery</Type>
+<SqlQuery>	SELECT Top 300  Datum , Tijd , Groep, Niveau , Actie , JobID , Detail
+  	FROM vhLib.Logging WHERE Niveau = 'E' OR Niveau = 'W' 
+  	ORDER BY Datum DESC, Tijd DESC</SqlQuery>
+<SqlView>1</SqlView>
+</Query>
+</Class>
+<Checksum value="2723978577"/>
+</Export>
Index: zTryout/CompileTest.cls.xml
===================================================================
diff -u -r734 -r822
--- zTryout/CompileTest.cls.xml	(.../CompileTest.cls.xml)	(revision 734)
+++ zTryout/CompileTest.cls.xml	(.../CompileTest.cls.xml)	(revision 822)
@@ -1,9 +1,10 @@
 <?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-07 15:17:41">
 <Class name="zTryout.CompileTest">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
-<TimeChanged>61950,30041.946039</TimeChanged>
+<TimeChanged>62129,55109.446016</TimeChanged>
+<ClassDefinitionError>0</ClassDefinitionError>
 
 <UDLText name="T">
 <Content><![CDATA[
@@ -12,10 +13,12 @@
 ]]></Content>
 </UDLText>
 
-<Property name="Naam">
-<Type>ControllerStateNaam</Type>
-<Private>1</Private>
-</Property>
+<UDLText name="T">
+<Content><![CDATA[
+//Property Naam As ControllerStateNaam [ Private ];
+
+]]></Content>
+</UDLText>
 </Class>
-<Checksum value="420203502"/>
+<Checksum value="49298889"/>
 </Export>