Index: vhUnitTest/APPS/OrderUitvoering/HaluxReservatie/TestVerwachteInvoerBijTransfers.cls.xml
===================================================================
diff -u -r32980 -r32981
--- vhUnitTest/APPS/OrderUitvoering/HaluxReservatie/TestVerwachteInvoerBijTransfers.cls.xml	(.../TestVerwachteInvoerBijTransfers.cls.xml)	(revision 32980)
+++ vhUnitTest/APPS/OrderUitvoering/HaluxReservatie/TestVerwachteInvoerBijTransfers.cls.xml	(.../TestVerwachteInvoerBijTransfers.cls.xml)	(revision 32981)
@@ -105,8 +105,7 @@
 <Implementation><![CDATA[
 	#dim OrderLijnCode As %String = 151
 	#dim ProductID As %String = 616815
-	#dim KlantNr As %String = "7587"
-	#dim KlantID As DOM.VKP.VanHoeckeKlantID = "K||"_KlantNr
+	#dim KlantID As DOM.VKP.VanHoeckeKlantID = "K||" _ ..#KlantNummerHalux
 	
 	/*   Lijn aanmaken   */
 	#dim VerwachteInvoer As DOM.ProdRes.VerwachteInvoer = ..VerwachteInvoerAPI.GeefInvoerViaTransactieRef(..#OrderID, OrderLijnCode, ##class(DOM.common.enu.Bedrijf).Halux())
@@ -116,8 +115,8 @@
 	Do $$$AssertEquals(VerwachteInvoer.GeefReservatie().GeefAantal(),16,"Het aantal")
 	
 	/*  Lijn wijzigen  */
-	Set $Piece(^KOD(KlantNr, "F", ..#OrderID, 101), "\", 3) = 15 // Aantal van 16 naar 15 zetten
-	Set $Piece(^KOD(KlantNr, "F", ..#OrderID, 101), "\", 25) = 62351 // Leverdag van 62350 naar 62351 verhogen
+	Set $Piece(^KOD(..#KlantNummerHalux, "F", ..#OrderID, 101), "\", 3) = 15 // Aantal van 16 naar 15 zetten
+	Set $Piece(^KOD(..#KlantNummerHalux, "F", ..#OrderID, 101), "\", 25) = 62351 // Leverdag van 62350 naar 62351 verhogen
 	
 	#dim ProductOrderLijnWijzigEventData As DOM.VKP.event.ProductOrderLijnWijzigEventData
 	#dim ProductOrderLijnGewijzigdEvent As DOM.VKP.event.ProductOrderLijnGewijzigd
@@ -137,7 +136,7 @@
 	Set VerwachteInvoer = ""
 
 	// Product wijzigen
-	Set $Piece(^KOD(KlantNr, "F", ..#OrderID, 101), "\", 2) = 570175 // Product wijzigen van 616815 naar 570175
+	Set $Piece(^KOD(..#KlantNummerHalux, "F", ..#OrderID, 101), "\", 2) = 570175 // Product wijzigen van 616815 naar 570175
 	
 	Set WijzigingTypes = ##class(DOM.VKP.impl.ProductOrderLijnWijzigingTypes).%New()
 	Do WijzigingTypes.Insert(##class(DOM.VKP.enu.ProductOrderLijnWijzigingType).Product())
@@ -150,15 +149,15 @@
 	Do $$$AssertEquals(VerwachteInvoer.GeefReservatie().GeefProductID(),570175,"De leverdatum")
 	Set VerwachteInvoer = ""
 	
-	Set $Piece(^KOD(KlantNr, "F", ..#OrderID, 101), "\", 2) = 616815 // terug het product op 616815 plaatsen
-	Set $Piece(^KOD(KlantNr, "F", ..#OrderID, 101), "\", 3) = 16 // terug het aantal op 16 plaatsen
-	Set $Piece(^KOD(KlantNr, "F", ..#OrderID, 101), "\", 25) = 62350 // terug de leverdag op 62350 plaatsen
+	Set $Piece(^KOD(..#KlantNummerHalux, "F", ..#OrderID, 101), "\", 2) = 616815 // terug het product op 616815 plaatsen
+	Set $Piece(^KOD(..#KlantNummerHalux, "F", ..#OrderID, 101), "\", 3) = 16 // terug het aantal op 16 plaatsen
+	Set $Piece(^KOD(..#KlantNummerHalux, "F", ..#OrderID, 101), "\", 25) = 62350 // terug de leverdag op 62350 plaatsen
 	
 	#dim ProductOrderLijnEventData As DOM.VKP.event.ProductOrderLijnEventData
 	
 	/*  Lijn verwijderen  */
 	Set ProductOrderLijnEventData = ##class(DOM.VKP.event.ProductOrderLijnEventData).%New(..#OrderID, OrderLijnCode, KlantID, ProductID)
-	#dim ProductOrderLijnAnnulatieEvent As DOM.VKP.event.ProductOrderLijnAnnulatie = ##class(DOM.VKP.event.ProductOrderLijnAnnulatie).%New(EventData)
+	#dim ProductOrderLijnAnnulatieEvent As DOM.VKP.event.ProductOrderLijnAnnulatie = ##class(DOM.VKP.event.ProductOrderLijnAnnulatie).%New(ProductOrderLijnEventData)
 	Do ##class(APPS.OrderUitvoering.impl.HaluxReservatieService).BijProductOrderLijnAnnulatie(ProductOrderLijnAnnulatieEvent)
 	
 	Set VerwachteInvoer = ..VerwachteInvoerAPI.ZoekInvoerViaTransactieRef(..#OrderID, OrderLijnCode, ##class(DOM.common.enu.Bedrijf).Halux())
@@ -167,12 +166,13 @@
 	
 	/*   Lijn aanmaken   */
 	Set ProductOrderLijnEventData = ##class(DOM.VKP.event.ProductOrderLijnEventData).%New(..#OrderID, OrderLijnCode, KlantID, ProductID)
-	#dim ProductOrderLijnGemaaktEvent As DOM.VKP.event.ProductOrderLijnGemaakt = ##class(DOM.VKP.event.ProductOrderLijnGemaakt).%New(EventData)
+	#dim ProductOrderLijnGemaaktEvent As DOM.VKP.event.ProductOrderLijnGemaakt = ##class(DOM.VKP.event.ProductOrderLijnGemaakt).%New(ProductOrderLijnEventData)
 	Do ##class(APPS.OrderUitvoering.impl.HaluxReservatieService).BijProductOrderLijnGemaakt(ProductOrderLijnGemaaktEvent)	
 	
 	/*  Lijn verwijderen  */
 	#dim BonID As %String = 9999888
-	Set ^KU1(BonID,"F") = KlantNr_"\"
+	Set ^KU1(BonID, "F") = ..#KlantNummerHalux _ "\"
+	
 	#dim EventData As DOM.VKP.event.ProductLijnOpBonEventData = ##class(DOM.VKP.event.ProductLijnOpBonEventData).%New(..#OrderID, OrderLijnCode, BonID)
 	#dim ProductLijnOpBonEvent As DOM.VKP.event.ProductLijnOpBonEvent = ##class(DOM.VKP.event.ProductLijnOpBonEvent).%New(EventData)
 	Do ##class(APPS.OrderUitvoering.impl.HaluxReservatieService).BijProductLijnOpBonEvent(ProductLijnOpBonEvent)
@@ -188,7 +188,7 @@
 <FormalSpec>KlantNummer:%Integer,OrderID:%Integer</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	Set ^KOD(KlantNummer, "F", OrderID, 1) = "\16.09.11\16.09.11 TRANSFERTORDER\\\7587\TH\58#1031#62350,27731\\\\\\\\\\EUR\\\00\1\\DIV#62350,27731#" _ OrderID _ "\T\\\\\\\\\\\\\\\\\\\\62350,27731"
+	Set ^KOD(KlantNummer, "F", OrderID, 1) = "\16.09.11\16.09.11 TRANSFERTORDER\\\" _ KlantNummer _ "\TH\58#1031#62350,27731\\\\\\\\\\EUR\\\00\1\\DIV#62350,27731#" _ OrderID _ "\T\\\\\\\\\\\\\\\\\\\\62350,27731"
 	Set ^KOD(KlantNummer, "F", OrderID, 2) = ""
 	Set ^KOD(KlantNummer, "F", OrderID, 3) = ""
 	Set ^KOD(KlantNummer, "F", OrderID, 4) = "10"