Index: vhUnitTest/APPS/Halux/PPS/ALUFrees/OplossingBerekenaar/Test.cls.xml
===================================================================
diff -u -r56851 -r65426
--- vhUnitTest/APPS/Halux/PPS/ALUFrees/OplossingBerekenaar/Test.cls.xml	(.../Test.cls.xml)	(revision 56851)
+++ vhUnitTest/APPS/Halux/PPS/ALUFrees/OplossingBerekenaar/Test.cls.xml	(.../Test.cls.xml)	(revision 65426)
@@ -1,8 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="vhUnitTest.APPS.Halux.PPS.ALUFrees.OplossingBerekenaar.Test">
-<Description>
-Do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","APPS.Halux.PPS.ALUFrees.TestOplossingBerekenaar")</Description>
 <Super>vhUnitTest.TestCase</Super>
 
 <Property name="Sessie">
@@ -109,7 +107,7 @@
 	do ..Toelevering.ZetDueOutTime("2011-03-18 12:00:00")
 	do ..Toelevering.ZetOrderID("1000")
 	
-	Do ..MaakOrder(1000,..#ToeleveringID)
+	Do ..MaakOrder(1000,..#ToeleveringID, KaderdeurProductID)
 		
 	do ..Toelevering.Save()
 	
@@ -125,7 +123,8 @@
 </Method>
 
 <Method name="MaakOrder">
-<FormalSpec>OrderID:%String="",ToeleveringID:%String=""</FormalSpec>
+<FormalSpec>OrderID:%String="",ToeleveringID:%String="",KaderdeurProductID:%String</FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
 	/// Order opzetten
 	#dim KLNr As %String = 6332
@@ -135,8 +134,7 @@
  	Set ^KOD(KLNr,"F",OrderID,2)="\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
 	Set ^KOD(KLNr,"F",OrderID,3)="1\KELLER\KEUKENFABRIEK\B.V.\ETTENSEWEG 74\NL-4706-PB\ROOSENDAAL\1147\N\\\\\\\\\\.\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
 	Set ^KOD(KLNr,"F",OrderID,4)="213"
-	Set ^KOD(KLNr,"F",OrderID,101)="703100 \418689\2\\\19.51\40#1\0\39.02\39.02\703100 \L\\\100\39.02\KF0\\\\E1\EUR\\\62402\\"_ToeleveringID_"\101\\\\\\\1.0.0\1\SBMKWU120\62398,31454\\62402\\\\\45 48901 4 UKEL 120         L\0\\RCLD;11316"
-	Set ^KOD(KLNr,"F",OrderID,102)="703100 \418754\1\\\25.04\40#1\0\25.04\25.04\703100 \L\\\110\25.04\KF0\\\\E1\EUR\\\62402\\"_ToeleveringID_"\102\\\\\\\2.0.0\1\SBMLBW120\62398,31454\\62402\\\\\45 48901 4 UKEL 120         L\0\\RCLD;5658"
+	Set ^KOD(KLNr,"F",OrderID,101)="703100 \"_KaderdeurProductID_"\2\\\19.51\40#1\0\39.02\39.02\703100 \L\\\100\39.02\KF0\\\\E1\EUR\\\62402\\"_ToeleveringID_"\101\\\\\\\1.0.0\1\SBMKWU120\62398,31454\\62402\\\\\45 48901 4 UKEL 120         L\0\\RCLD;11316"
 	
 	Set ^KO1(OrderID,"F") = "1239\Leveringsnummer"
 	Set ^KO1(OrderID,"F","Leveringsnummer") = ""