Index: vhUnitTest/APPS/Halux/Afmelden/ProductieAfmeldenService/TestWisselToeleveringEnBevestigAfmelden.cls.xml
===================================================================
diff -u -r33034 -r33907
--- vhUnitTest/APPS/Halux/Afmelden/ProductieAfmeldenService/TestWisselToeleveringEnBevestigAfmelden.cls.xml	(.../TestWisselToeleveringEnBevestigAfmelden.cls.xml)	(revision 33034)
+++ vhUnitTest/APPS/Halux/Afmelden/ProductieAfmeldenService/TestWisselToeleveringEnBevestigAfmelden.cls.xml	(.../TestWisselToeleveringEnBevestigAfmelden.cls.xml)	(revision 33907)
@@ -31,25 +31,25 @@
 	Do ..Sessie.Save()	
 	Do ##class(TECH.Context.RuntimeContext).Instance().ZetSessieID(..Sessie.GeefSessieSleutel())
 	
-	Set ^KO2("F",1000,123362) = ""
-	Set ^KO1(123362,"F") = "1000\"
+	Set ^KO2("F",1000,999999) = ""
+	Set ^KO1(999999,"F") = "1000\"
 	
-	Set ^KOD(1000,"F",123362,0)=103
-	Set ^KOD(1000,"F",123362,1)="\10.03.11\TEST\\\1000\EX;1`EX;3`EX;5\1111#2042#62160,53165\\cw@vanhoecke.be\\\\\\\\EUR\\\60\2\\DIV#62160,53165#123362\\\\\\\\\\\\\\\\\\\\\62160,53165"
-	Set ^KOD(1000,"F",123362,2)="\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
-	Set ^KOD(1000,"F",123362,3)="1\TESTKLANT VAN HOECKE nv\\FIRMA\Europark noord 9\9100\Sint-Niklaas\1019\N\\\\\\\\\\.\\\\test cw\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
-	Set ^KOD(1000,"F",123362,4)=3
-	Set ^KOD(1000,"F",123362,101)="703100 \614305\1\\\97.14\0#\8\97.14\97.14\703100 \L\\\100\97.14\KF0\\\\E1\EUR\\1\62171\\999990\101\\\\\\\\\\\\\\\\\\1\\"
-	Set ^KOD(1000,"F",123362,102)="703100 \620939\1\\\78.75\0#\8\78.75\78.75\703100 \L\\\200\78.75\KF0\\\\E1\EUR\\1\62171\\999990\102\\\\\\\\\\\\\\\\\\1\\MC;5894.136619718309859"
+	Set ^KOD(1000,"F",999999,0)=103
+	Set ^KOD(1000,"F",999999,1)="\10.03.11\TEST\\\1000\EX;1`EX;3`EX;5\1111#2042#62160,53165\\cw@vanhoecke.be\\\\\\\\EUR\\\60\2\\DIV#62160,53165#999999\\\\\\\\\\\\\\\\\\\\\62160,53165"
+	Set ^KOD(1000,"F",999999,2)="\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
+	Set ^KOD(1000,"F",999999,3)="1\TESTKLANT VAN HOECKE nv\\FIRMA\Europark noord 9\9100\Sint-Niklaas\1019\N\\\\\\\\\\.\\\\test cw\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
+	Set ^KOD(1000,"F",999999,4)=3
+	Set ^KOD(1000,"F",999999,101)="703100 \614305\1\\\97.14\0#\8\97.14\97.14\703100 \L\\\100\97.14\KF0\\\\E1\EUR\\1\62171\\999990\101\\\\\\\\\\\\\\\\\\1\\"
+	Set ^KOD(1000,"F",999999,102)="703100 \620939\1\\\78.75\0#\8\78.75\78.75\703100 \L\\\200\78.75\KF0\\\\E1\EUR\\1\62171\\999990\102\\\\\\\\\\\\\\\\\\1\\MC;5894.136619718309859"
 
  	Set ^KTO2(6332,999990)=""
  	Set ^KTO1(999990)="6332\"
  	
 	Set ^KTO(6332,999990,0)=103                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   
-	Set ^KTO(6332,999990,1)="\10.03.11\KOMM. TESTKLANT VAN HOECK\\\6332\123362\1000\\\\\\\\\\EUR\62168,43200\\\2\\\\"
+	Set ^KTO(6332,999990,1)="\10.03.11\KOMM. TESTKLANT VAN HOECK\\\6332\999999\1000\\\\\\\\\\EUR\62168,43200\\\2\\\\"
 	Set ^KTO(6332,999990,4)=3
-	Set ^KTO(6332,999990,101)="\614305\1\\\46.16\#\\46.16\46.16\\L\1\\100\46.16\KTRPL\\\\E\EUR\\\11/11\\123362\101\\\\\\\\"
-	Set ^KTO(6332,999990,102)="\620939\1\\\37.42\#\\37.42\37.42\\L\2\\200\37.42\KTRPL\\\\E\EUR\\\11/11\\123362\102\\\\\\\\"
+	Set ^KTO(6332,999990,101)="\614305\1\\\46.16\#\\46.16\46.16\\L\1\\100\46.16\KTRPL\\\\E\EUR\\\11/11\\999999\101\\\\\\\\"
+	Set ^KTO(6332,999990,102)="\620939\1\\\37.42\#\\37.42\37.42\\L\2\\200\37.42\KTRPL\\\\E\EUR\\\11/11\\999999\102\\\\\\\\"
 	
 	Set ^HADPR("F","999990;100","K") = "33\62038,59594\\\\\\\\\\"
 	Set ^HADPR("F","999990;100","F") = "33\62094,58737\A\\\\\\\\\"
@@ -59,44 +59,44 @@
 	Set ^TO("IU","999990","100") = "101"
 	Set ^TO("IU","999990","200") = "102"
 	
-	Set ^KO2("F",1000,123403) = ""
-	Set ^KO1(123403,"F") = "1000\"
+	Set ^KO2("F",1000,999998) = ""
+	Set ^KO1(999998,"F") = "1000\"
 	
-	Set ^KOD(1000,"F",123403,0)=103
-	Set ^KOD(1000,"F",123403,1)="\10.03.11\TEST\\\1000\EX;1`EX;3`EX;5\1111#2042#62160,53165\\cw@vanhoecke.be\\\\\\\\EUR\\\60\2\\DIV#62160,53165#123403\\\\\\\\\\\\\\\\\\\\\62160,53165"
-	Set ^KOD(1000,"F",123403,2)="\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
-	Set ^KOD(1000,"F",123403,3)="1\TESTKLANT VAN HOECKE nv\\FIRMA\Europark noord 9\9100\Sint-Niklaas\1019\N\\\\\\\\\\.\\\\test cw\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
-	Set ^KOD(1000,"F",123403,4)=3
-	Set ^KOD(1000,"F",123403,101)="703100 \614306\1\\\97.14\0#\8\97.14\97.14\703100 \L\\\100\97.14\KF0\\\\E1\EUR\\1\62171\\298105\101\\\\\\\\\\\\\\\\\\1\\"
-	Set ^KOD(1000,"F",123403,102)="703100 \620938\1\\\78.75\0#\8\78.75\78.75\703100 \L\\\200\78.75\KF0\\\\E1\EUR\\1\62171\\298105\102\\\\\\\\\\\\\\\\\\1\\MC;5894.136619718309859"
+	Set ^KOD(1000,"F",999998,0)=103
+	Set ^KOD(1000,"F",999998,1)="\10.03.11\TEST\\\1000\EX;1`EX;3`EX;5\1111#2042#62160,53165\\cw@vanhoecke.be\\\\\\\\EUR\\\60\2\\DIV#62160,53165#999998\\\\\\\\\\\\\\\\\\\\\62160,53165"
+	Set ^KOD(1000,"F",999998,2)="\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
+	Set ^KOD(1000,"F",999998,3)="1\TESTKLANT VAN HOECKE nv\\FIRMA\Europark noord 9\9100\Sint-Niklaas\1019\N\\\\\\\\\\.\\\\test cw\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
+	Set ^KOD(1000,"F",999998,4)=3
+	Set ^KOD(1000,"F",999998,101)="703100 \614306\1\\\97.14\0#\8\97.14\97.14\703100 \L\\\100\97.14\KF0\\\\E1\EUR\\1\62171\\999991\101\\\\\\\\\\\\\\\\\\1\\"
+	Set ^KOD(1000,"F",999998,102)="703100 \620938\1\\\78.75\0#\8\78.75\78.75\703100 \L\\\200\78.75\KF0\\\\E1\EUR\\1\62171\\999991\102\\\\\\\\\\\\\\\\\\1\\MC;5894.136619718309859"
  	
- 	Set ^KTO2(6332,298105)=""
- 	Set ^KTO1(298105)="6332\"
+ 	Set ^KTO2(6332,999991)=""
+ 	Set ^KTO1(999991)="6332\"
  	
-	Set ^KTO(6332,298105,0)=103                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       
-	Set ^KTO(6332,298105,1)="\10.03.11\KOMM. TESTKLANT VAN HOECK\\\6332\123403\1000\\\\\\\\\\EUR\62168,43200\\\2\\\\"
-	Set ^KTO(6332,298105,4)=3
-	Set ^KTO(6332,298105,101)="\614306\1\\\46.16\#\\46.16\46.16\\L\1\\100\46.16\KTRPL\\\\E\EUR\\\11/11\\123403\101\\\\\\\\"
-	Set ^KTO(6332,298105,102)="\620938\1\\\37.42\#\\37.42\37.42\\L\2\\200\37.42\KTRPL\\\\E\EUR\\\11/11\\123403\102\\\\\\\\"
+	Set ^KTO(6332,999991,0)=103                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       
+	Set ^KTO(6332,999991,1)="\10.03.11\KOMM. TESTKLANT VAN HOECK\\\6332\999998\1000\\\\\\\\\\EUR\62168,43200\\\2\\\\"
+	Set ^KTO(6332,999991,4)=3
+	Set ^KTO(6332,999991,101)="\614306\1\\\46.16\#\\46.16\46.16\\L\1\\100\46.16\KTRPL\\\\E\EUR\\\11/11\\999998\101\\\\\\\\"
+	Set ^KTO(6332,999991,102)="\620938\1\\\37.42\#\\37.42\37.42\\L\2\\200\37.42\KTRPL\\\\E\EUR\\\11/11\\999998\102\\\\\\\\"
 	
-	Set ^HADPR("F","298105;100","K") = "33\62038,59594\\\\\\\\\\"
-	Set ^HADPR("F","298105;100","F") = "33\62094,58737\A\\\\\\\\\"
+	Set ^HADPR("F","999991;100","K") = "33\62038,59594\\\\\\\\\\"
+	Set ^HADPR("F","999991;100","F") = "33\62094,58737\A\\\\\\\\\"
 	
-	Set ^TO("IP","614306","298105","100") = "101"
-	Set ^TO("IP","620938","298105","200") = "102"
-	Set ^TO("IU","298105","100") = "101"
-	Set ^TO("IU","298105","200") = "102"
+	Set ^TO("IP","614306","999991","100") = "101"
+	Set ^TO("IP","620938","999991","200") = "102"
+	Set ^TO("IU","999991","100") = "101"
+	Set ^TO("IU","999991","200") = "102"
 	
-	Set ^ORD("IU",123362,100) = "101"
-	Set ^ORD("IU",123362,200) = "102"	
-	Set ^ORD("IU",123403,100) = "101"	
-	Set ^ORD("IU",123403,200) = "102"	
+	Set ^ORD("IU",999999,100) = "101"
+	Set ^ORD("IU",999999,200) = "102"	
+	Set ^ORD("IU",999998,100) = "101"	
+	Set ^ORD("IU",999998,200) = "102"	
 	
-	Do ##class(vhUnitTest.EventHelper).RaiseOrderGemaaktEvents(123362)
+	Do ##class(vhUnitTest.EventHelper).RaiseOrderGemaaktEvents(999999)
 	Do ##class(vhUnitTest.EventHelper).RaiseToeleveringGemaaktEvents(999990)
 	
-	Do ##class(vhUnitTest.EventHelper).RaiseOrderGemaaktEvents(123403)
-	Do ##class(vhUnitTest.EventHelper).RaiseToeleveringGemaaktEvents(298105)
+	Do ##class(vhUnitTest.EventHelper).RaiseOrderGemaaktEvents(999998)
+	Do ##class(vhUnitTest.EventHelper).RaiseToeleveringGemaaktEvents(999991)
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -117,26 +117,26 @@
 <Implementation><![CDATA[
 	kill ^aRecProdRecsToSend
 	
-	Do ##class(vhUnitTest.EventHelper).RaiseToeleveringVerwijderdEvents(298105)
+	Do ##class(vhUnitTest.EventHelper).RaiseToeleveringVerwijderdEvents(999991)
 	Do ##class(vhUnitTest.EventHelper).RaiseToeleveringVerwijderdEvents(999990)
 	
-	Do ##class(vhUnitTest.EventHelper).RaiseOrderVerwijderdEvents(123362)
-	Do ##class(vhUnitTest.EventHelper).RaiseOrderVerwijderdEvents(123403)
+	Do ##class(vhUnitTest.EventHelper).RaiseOrderVerwijderdEvents(999999)
+	Do ##class(vhUnitTest.EventHelper).RaiseOrderVerwijderdEvents(999998)
 	
-	Kill ^KOD(1000,"F",123362)
-	Kill ^KO2("F",1000,123362)
-	Kill ^KO1(123362,"F")
+	Kill ^KOD(1000,"F",999999)
+	Kill ^KO2("F",1000,999999)
+	Kill ^KO1(999999,"F")
 	
 	Do ##class(vhUnitTest.DataHelper).VerwijderToelevering(999990)
 	
 	Kill ^TO("IP","614305")
 	Kill ^TO("IP","620939")
 		
-	Kill ^KOD(1000,"F",123403)
-	Kill ^KO2("F",1000,123403)
-	Kill ^KO1(123403,"F")
+	Kill ^KOD(1000,"F",999998)
+	Kill ^KO2("F",1000,999998)
+	Kill ^KO1(999998,"F")
 	
-	Do ##class(vhUnitTest.DataHelper).VerwijderToelevering(298105)
+	Do ##class(vhUnitTest.DataHelper).VerwijderToelevering(999991)
 	
 	Kill ^TO("IP","614306")
 	Kill ^TO("IP","620938")
@@ -186,8 +186,8 @@
 		Set ProductAfmeldenResultaat = ProductieAfmeldenService.MeldProductAf(614306,1,GegevenBevestigingen)
 		Do ProductieAfmeldenService.BevestigAfmeldenProductGroepEnStuurDoor(ProductAfmeldenResultaat.ProductGroepID)
 		
-		Do $$$AssertEquals(ProductAfmeldenResultaat.AantalProductenNogAfTeMeldenVoorToelevering,1,"Aantal nog af te melden producten voor toelevering 298105 is verminderd met 1")	
-		Do $$$AssertEquals(ProductAfmeldenResultaat.HaluxToeleveringData.ID,298105)
+		Do $$$AssertEquals(ProductAfmeldenResultaat.AantalProductenNogAfTeMeldenVoorToelevering,1,"Aantal nog af te melden producten voor toelevering 999991 is verminderd met 1")	
+		Do $$$AssertEquals(ProductAfmeldenResultaat.HaluxToeleveringData.ID,999991)
 		Do $$$AssertEquals(ProductAfmeldenResultaat.HaluxToeleveringData.OrderData.KlantData.Naam,"TESTKLANT VAN HOECKE nv")	
 		Do $$$AssertEquals(ProductAfmeldenResultaat.AfgemeldProductInfoLijst.Count(),1)
 		Do $$$AssertEquals(ProductAfmeldenResultaat.AfgemeldProductInfoLijst.GetAt(1).ProductData.ID,"614306")
@@ -196,7 +196,7 @@
 	}
 	Do $$$AssertTrue(IsExceptieGeraised,"Exceptie BevestigingNodig is geraised.")
 	
-	Do $$$AssertEquals(..GeefAantalProductenNogAfTeMeldenVoorToelevering(298105),1,"Nog 1 product af te melden voor toelevering 298105")
+	Do $$$AssertEquals(..GeefAantalProductenNogAfTeMeldenVoorToelevering(999991),1,"Nog 1 product af te melden voor toelevering 999991")
 	Do $$$AssertEquals(..GeefAantalProductenNogAfTeMeldenVoorToelevering(999990),1,"Nog 1 product af te melden voor toelevering 999990")
 ]]></Implementation>
 </Method>