Index: vhUnitTest/AXimpl/Dynamics/SalesOrderOut/Converter/OrderHoofdingConverteerder/Test.cls.xml
===================================================================
diff -u -r50264 -r50281
--- vhUnitTest/AXimpl/Dynamics/SalesOrderOut/Converter/OrderHoofdingConverteerder/Test.cls.xml	(.../Test.cls.xml)	(revision 50264)
+++ vhUnitTest/AXimpl/Dynamics/SalesOrderOut/Converter/OrderHoofdingConverteerder/Test.cls.xml	(.../Test.cls.xml)	(revision 50281)
@@ -9,7 +9,9 @@
 	Set DocumentReferenties = ##class(DOM.VKP.DocumentReferenties).%New()
 	Set DocumentReferenties.KlantOrderNummer = "KlantOrderNummer"
 	Set Order = ##class(vhTest.Utils.DOM.VKP.Order).VoegtoeDocumentReferenties(Order,DocumentReferenties)
-	Set Order = ##class(vhTest.Utils.DOM.VKP.Order).VoegtoeLeveradres(Order,##class(vhTest.Utils.DOM.VKP.LeverAdres).Belgisch())
+	#dim Leveradres as DOM.VKP.LeverAdres = ##class(vhTest.Utils.DOM.VKP.LeverAdres).Belgisch()
+	Do Leveradres.ZetAxLeveradresId("AXLeveradresId")
+	Set Order = ##class(vhTest.Utils.DOM.VKP.Order).VoegtoeLeveradres(Order,Leveradres)
 	Set Order = ##class(vhTest.Utils.DOM.VKP.Order).VoegtoeTekst(Order,##class(DOM.VKP.enu.TekstAfdrukDocumentType).Faktuur(),"")
 	Set Order = ##class(vhTest.Utils.DOM.VKP.Order).VoegtoeTekst(Order,##class(DOM.VKP.enu.TekstAfdrukDocumentType).LeverBon(),"")
 	Set Order = ##class(vhTest.Utils.DOM.VKP.Order).VoegtoeTekst(Order,##class(DOM.VKP.enu.TekstAfdrukDocumentType).Toelevering(),"")
@@ -41,7 +43,7 @@
 	Do $$$AssertEquals(OrderHeader.DlvAddrZipCode,"9100")
 	Do $$$AssertEquals(OrderHeader.DlvAddrStreet1,"Ankerstraat 91")
 	
-	
+	Do $$$AssertEquals(OrderHeader.LocationId,"AXLeveradresId")
 	Do ..DataExporteerder.ExporteerDataTransferObject(OrderHeader,"Result.xml")
 	Do $$$AssertCorrectGemaakteBestanden(..GeefBestandLocatie())
 ]]></Implementation>
@@ -68,74 +70,6 @@
 	Do $$$AssertEquals(OrderHeader.ProdBody,"ToeleveringTekst")
 ]]></Implementation>
 </Method>
-
-<Method name="Test Geen AxLeveradresId indien geen IDs op adres van order">
-<Implementation><![CDATA[
-	#dim Order as DOM.VKP.Order = ##class(vhTest.Utils.DOM.VKP.Order).StandaardOrderHoofding()
-	#dim LeverAdres As DOM.VKP.LeverAdres =  ##class(vhTest.Utils.DOM.VKP.LeverAdres).Belgisch()
-	Do LeverAdres.ZetID("")  Do LeverAdres.ZetAxLeveradresId("") // Deze velden zijn standaard leeg, maar voor de duidelijkheid...
-		
-	Set OrderHoofdingConverteerder = ##class(AXimpl.Dynamics.SalesOrderOut.Converter.OrderHoofdingConverteerder).%New()
-	#dim AxLocationId As %String = OrderHoofdingConverteerder.ZoekAxLocationId(Order, LeverAdres)
-	
-	Do $$$AssertEquals(AxLocationId,"")
-]]></Implementation>
-</Method>
-
-<Method name="Test AxLeveradresId vanuit OrderAdres">
-<Implementation><![CDATA[
-	#dim Order as DOM.VKP.Order = ##class(vhTest.Utils.DOM.VKP.Order).StandaardOrderHoofding()
-	#dim LeverAdres As DOM.VKP.LeverAdres =  ##class(vhTest.Utils.DOM.VKP.LeverAdres).Belgisch()
-	Do LeverAdres.ZetID("")  Do LeverAdres.ZetAxLeveradresId("MijnOrderAdresAxId") // INGEVULD OP ORDERLEVERADRES
-		
-	Set OrderHoofdingConverteerder = ##class(AXimpl.Dynamics.SalesOrderOut.Converter.OrderHoofdingConverteerder).%New()
-	#dim AxLocationId As %String = OrderHoofdingConverteerder.ZoekAxLocationId(Order, LeverAdres)
-	
-	
-	Do $$$AssertEquals(AxLocationId,"MijnOrderAdresAxId")
-]]></Implementation>
-</Method>
-
-<Method name="Test Geen AxLeveradresId indien leeg op klantleveradres">
-<Implementation><![CDATA[
-	#dim Order as DOM.VKP.Order = ##class(vhTest.Utils.DOM.VKP.Order).StandaardOrderHoofding()
-	#dim LeverAdres As DOM.VKP.LeverAdres =  ##class(vhTest.Utils.DOM.VKP.LeverAdres).Belgisch()
-	Do LeverAdres.ZetID("1")  Do LeverAdres.ZetAxLeveradresId("")
-	
-	#dim KlantLeverAdres As vhTest.Mock.DOM.VKP.LeverAdres = ##class(vhTest.Mock.DOM.VKP.LeverAdres).%New()
-	Do KlantLeverAdres.IndienMethodCall("GeefAxLeveradresId").DanReturn("") // LEEG OP KLANTLEVERADRES
-	#dim Klant As vhTest.Mock.DOM.VKP.VanHoeckeKlant = ##class(vhTest.Mock.DOM.VKP.VanHoeckeKlant).%New()
-	Do Klant.IndienMethodCall("GeefSpecifiekAdres","1").DanReturn(KlantLeverAdres)
-	#dim VerkoopApi As vhTest.Mock.DOM.VKP.VerkoopAPI = ##class(vhTest.Mock.DOM.VKP.VerkoopAPI).MockInstance()
-	Do VerkoopApi.IndienMethodCall("GeefKlant", "K||1234").DanReturn(Klant)
-		
-	Set OrderHoofdingConverteerder = ##class(AXimpl.Dynamics.SalesOrderOut.Converter.OrderHoofdingConverteerder).%New(VerkoopApi)
-	#dim AxLocationId As %String = OrderHoofdingConverteerder.ZoekAxLocationId(Order, LeverAdres)
-	
-	Do $$$AssertEquals(AxLocationId,"")
-]]></Implementation>
-</Method>
-
-<Method name="Test AxLeveradresId indien ingevuld op klantleveradres, maar niet op orderleveradres">
-<Implementation><![CDATA[
-	#dim Order as DOM.VKP.Order = ##class(vhTest.Utils.DOM.VKP.Order).StandaardOrderHoofding()
-	#dim LeverAdres As DOM.VKP.LeverAdres =  ##class(vhTest.Utils.DOM.VKP.LeverAdres).Belgisch()
-	Do LeverAdres.ZetID("1")  
-	Do LeverAdres.ZetAxLeveradresId("")
-	
-	#dim KlantLeverAdres As vhTest.Mock.DOM.VKP.LeverAdres = ##class(vhTest.Mock.DOM.VKP.LeverAdres).%New()
-	Do KlantLeverAdres.IndienMethodCall("GeefAxLeveradresId").DanReturn("MijnOrderAdresAxId") // INGEVULD OP KLANTLEVERADRES
-	#dim Klant As vhTest.Mock.DOM.VKP.VanHoeckeKlant = ##class(vhTest.Mock.DOM.VKP.VanHoeckeKlant).%New()
-	Do Klant.IndienMethodCall("GeefSpecifiekAdres","1").DanReturn(KlantLeverAdres)
-	#dim VerkoopApi As vhTest.Mock.DOM.VKP.VerkoopAPI = ##class(vhTest.Mock.DOM.VKP.VerkoopAPI).MockInstance()
-	Do VerkoopApi.IndienMethodCall("GeefKlant", "K||1234").DanReturn(Klant)
-		
-	Set OrderHoofdingConverteerder = ##class(AXimpl.Dynamics.SalesOrderOut.Converter.OrderHoofdingConverteerder).%New(VerkoopApi)
-	#dim AxLocationId As %String = OrderHoofdingConverteerder.ZoekAxLocationId(Order, LeverAdres)
-	
-	Do $$$AssertEquals(AxLocationId,"MijnOrderAdresAxId")
-]]></Implementation>
-</Method>
 </Class>