Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/PlaatsBestelling/Test.cls.xml
===================================================================
diff -u -r36264 -r36310
--- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/PlaatsBestelling/Test.cls.xml	(.../Test.cls.xml)	(revision 36264)
+++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/PlaatsBestelling/Test.cls.xml	(.../Test.cls.xml)	(revision 36310)
@@ -12,8 +12,12 @@
 <Implementation><![CDATA[
 	do ##class(vhTest.Fake.TECH.DateTime.DateTimeAPI).Activeer()
 	
-	#dim Aanvraag As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag = ..GeefAanvraag()	
+	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
+	Do ..VoegLadeTypeToe("TBX", Orderlijnen)
 	
+	#dim Aanvraag As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag = ..GeefAanvraag()
+	Set Aanvraag.Order.Lijnen = Orderlijnen
+	
 	#dim StandaardKlant As DOM.VKP.VanHoeckeKlant = ##class(vhTest.Utils.DOM.VKP.VanHoeckeKlant).StandaardKlant()
 	Do StandaardKlant.IndienMethodCall("GeefTaal").DanReturn("N")
 	Do StandaardKlant.IndienMethodCall("GeefEmail").DanReturn("someone@example.com")
@@ -40,7 +44,11 @@
 
 <Method name="Test: Hoofding invullen - ongeldige leverdatum">
 <Implementation><![CDATA[
-	#dim Aanvraag As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag = ..GeefAanvraag()	
+	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
+	Do ..VoegLadeTypeToe("TBX", Orderlijnen)
+	
+	#dim Aanvraag As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag = ..GeefAanvraag()
+	Set Aanvraag.Order.Lijnen = Orderlijnen
 	set Aanvraag.Order.GevraagdeLeverdatum = "2011.42.42"
 	
 	#dim StandaardKlant As DOM.VKP.VanHoeckeKlant = ##class(vhTest.Utils.DOM.VKP.VanHoeckeKlant).StandaardKlant()
@@ -57,8 +65,14 @@
 <FormalSpec><![CDATA[LadeType:%String,&OrderLijnen:%ListOfDataTypes]]></FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	Set Product = ##class(EXT.Unishop.PurchaseOrder001.CreateOrder.LadeEigenschappenTBX).%New()
+	Set Product = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
 	Set Product.LadeType = LadeType
+	Set Product.CorpusWandDikte = 16
+	Set Product.RugHoogte = "K"
+	Set Product.GreepEnMeenemer = "Handle"
+	Set Product.ZijkantHoogte = "N"
+	Set Product.ZijwandVerhogingType = "NoGallery"
+	Set Product.LadeKleur = "MG"
 	Set Orderlijn = ##class(EXT.Unishop.PurchaseOrder001.CreateOrder.OrderLijn).%New()
 	Set Orderlijn.Product = Product
 	Do OrderLijnen.Insert(Orderlijn)
Index: APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller.cls.xml
===================================================================
diff -u -r36264 -r36310
--- APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller.cls.xml	(.../TandemboxBesteller.cls.xml)	(revision 36264)
+++ APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller.cls.xml	(.../TandemboxBesteller.cls.xml)	(revision 36310)
@@ -63,13 +63,14 @@
 	Set Resultaat = ##class(APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat).%New()
 	Try {
 		Set ..Aanvraag = Aanvraag
-		
-		Do ..ZetHoofding()
 		Do ..ProductlijnToevoeger.VoegToeLijnen(Aanvraag.Order, ..WebOrder)
-		Do ..NietmeeleverenToevoeger.VoegToeNietmeeleveren(Aanvraag.Order, ..WebOrder)
-		Set Resultaat.OfferteID = ..WebOrder.mID
+		If ..WebOrder.Lijnen.Count(){
+			Do ..ZetHoofding()
+			Do ..NietmeeleverenToevoeger.VoegToeNietmeeleveren(Aanvraag.Order, ..WebOrder)
+			Set Resultaat.OfferteID = ..WebOrder.mID
+		}
 	} Catch {
-		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()		
 	 	Set Resultaat = ##class(APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat).%New()
 	 	Set Resultaat.Exceptie = Exception
 	}