Index: vhTest/Fake/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller.cls.xml
===================================================================
diff -u -r36264 -r39060
--- vhTest/Fake/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller.cls.xml	(.../TandemboxBesteller.cls.xml)	(revision 36264)
+++ vhTest/Fake/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller.cls.xml	(.../TandemboxBesteller.cls.xml)	(revision 39060)
@@ -32,6 +32,11 @@
 <Implementation><![CDATA[	Quit ""
 ]]></Implementation>
 </Method>
+
+<Method name="ZetLeveradresInOpmerking1">
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller.cls.xml
===================================================================
diff -u -r38503 -r39060
--- APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller.cls.xml	(.../TandemboxBesteller.cls.xml)	(revision 38503)
+++ APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller.cls.xml	(.../TandemboxBesteller.cls.xml)	(revision 39060)
@@ -108,11 +108,11 @@
 <Implementation><![CDATA[
 	Set ..WebOrder.BonType = "OFF"
 	Set ..WebOrder.WebDomain = $$$TBoxWebDomeinVHEPN
-	Set ..WebOrder.Opmerking1 = ""
 	Set ..WebOrder.ShowInHist = 80
 	Set ..WebOrder.LeverTijd = ..Aanvraag.Order.GevraagdeLeverdatum
 	Set ..WebOrder.IngaveTijdStip = ..Aanvraag.Order.IngaveTijdStip
 	Set ..WebOrder.Commissie = ..Aanvraag.Order.CommissieReferentie
+	Do ..ZetLeveradresInOpmerking1()
 		
 	Do ..ZetGevraagdeLeverdatum()
 	
@@ -124,6 +124,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetLeveradresInOpmerking1">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Quit:$$$Not($IsObject(..Aanvraag.Order.Aankoper))
+	#dim Adres As %String
+	#dim LandOmschrijving As %String
+	Set LandOmschrijving = ##class(DOM.common.Locatie.impl.LandRepository).%New().GeefViaLandCodeIso3(..Aanvraag.Order.Aankoper.LeveringLandISO3).GeefNaam()
+	Set Adres = ..Aanvraag.Order.Aankoper.LeveringNaam _ $$$CRLF _ ..Aanvraag.Order.Aankoper.LeveringStraatNrBus _ $$$CRLF _ ..Aanvraag.Order.Aankoper.LeveringPostcode _ " " _ ..Aanvraag.Order.Aankoper.LeveringWoonplaats _ $$$CRLF _ LandOmschrijving
+	Set ..WebOrder.Opmerking1 = $$$IfLength(..WebOrder.Opmerking1,"",$$$CRLF)_Adres
+]]></Implementation>
+</Method>
+
 <Method name="ZetGevraagdeLeverdatum">
 <Private>1</Private>
 <Implementation><![CDATA[
Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/MaakOfferte/Test.cls.xml
===================================================================
diff -u -r38184 -r39060
--- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/MaakOfferte/Test.cls.xml	(.../Test.cls.xml)	(revision 38184)
+++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/MaakOfferte/Test.cls.xml	(.../Test.cls.xml)	(revision 39060)
@@ -83,6 +83,58 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Hoofding invullen - leveradres ingevuld">
+<Implementation><![CDATA[
+	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
+	Do ..VoegLadeToe(Orderlijnen)
+	
+	#dim Aanvraag As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag = ..GeefAanvraag()
+	Set Aanvraag.Order.Lijnen = Orderlijnen
+	
+	Set Aankoper = ##class(APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aankoper).%New()
+	Set Aankoper.LeveringNaam = "Naam"
+	Set Aankoper.LeveringStraatNrBus = "Straat 1"
+	Set Aankoper.LeveringPostcode = "1234"
+	Set Aankoper.LeveringWoonplaats = "Woonplaats"
+	Set Aankoper.LeveringLandISO3 = "BEL"
+	Set Aanvraag.Order.Aankoper = Aankoper
+	
+	#dim StandaardKlant As DOM.VKP.VanHoeckeKlant = ##class(vhTest.Utils.DOM.VKP.VanHoeckeKlant).StandaardKlant()
+	Set VerkoopAPI = ##class(vhTest.Mock.DOM.VKP.VerkoopAPI).%New()
+	Do VerkoopAPI.IndienMethodCall("GeefKlant",..#KlantID).DanReturn(StandaardKlant)
+	
+	Set TandemboxBesteller = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller).%New(VerkoopAPI)
+	#dim Resultaat As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat = TandemboxBesteller.MaakOfferte(Aanvraag)
+	Do $$$AssertEquals(TandemboxBesteller.GeefWebOrder().Opmerking1,"Naam"_$$$CRLF_"Straat 1"_$$$CRLF_"1234 Woonplaats"_$$$CRLF_"BELGIE")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Hoofding invullen - leveradres leeg">
+<Implementation><![CDATA[
+	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
+	Do ..VoegLadeToe(Orderlijnen)
+	
+	#dim Aanvraag As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag = ..GeefAanvraag()
+	Set Aanvraag.Order.Lijnen = Orderlijnen
+	
+	Set Aankoper = ##class(APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aankoper).%New()
+	Set Aankoper.LeveringNaam = ""
+	Set Aankoper.LeveringStraatNrBus = ""
+	Set Aankoper.LeveringPostcode = ""
+	Set Aankoper.LeveringWoonplaats = ""
+	Set Aankoper.LeveringLandISO3 = ""
+	Set Aanvraag.Order.Aankoper = Aankoper
+	
+	#dim StandaardKlant As DOM.VKP.VanHoeckeKlant = ##class(vhTest.Utils.DOM.VKP.VanHoeckeKlant).StandaardKlant()
+	Set VerkoopAPI = ##class(vhTest.Mock.DOM.VKP.VerkoopAPI).%New()
+	Do VerkoopAPI.IndienMethodCall("GeefKlant",..#KlantID).DanReturn(StandaardKlant)
+	
+	Set TandemboxBesteller = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller).%New(VerkoopAPI)
+	#dim Resultaat As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat = TandemboxBesteller.MaakOfferte(Aanvraag)
+	Do $$$AssertEquals(TandemboxBesteller.GeefWebOrder().Opmerking1,"")
+]]></Implementation>
+</Method>
+
 <Method name="VoegLadeToe">
 <FormalSpec><![CDATA[&OrderLijnen:%ListOfDataTypes]]></FormalSpec>
 <Private>1</Private>
Index: APPS/EDI/Bestel/impl/BestelService.cls.xml
===================================================================
diff -u -r39051 -r39060
--- APPS/EDI/Bestel/impl/BestelService.cls.xml	(.../BestelService.cls.xml)	(revision 39051)
+++ APPS/EDI/Bestel/impl/BestelService.cls.xml	(.../BestelService.cls.xml)	(revision 39060)
@@ -57,7 +57,6 @@
 	If $$$Not($IsObject(ResultaatTBX.Exceptie) || $IsObject(ResultaatUNI.Exceptie)){
 		If $$$HasLength(ResultaatTBX.OfferteIDTBX) {
 			Set Resultaat.OfferteID = ResultaatTBX.OfferteIDTBX
-			//Do ..VerwerkLeveradres(Aanvraag, ResultaatTBX.OfferteIDTBX)
 			Set ResultaatTBXBestel = ..TandemboxBesteller.BestelOfferte(ResultaatTBX.OfferteIDTBX)
 		}
 		If $$$HasLength(ResultaatUNI.OfferteID) {