Index: vhTest/Mock/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/dto/OfferteGenerator.cls.xml
===================================================================
diff -u -r42486 -r51564
--- vhTest/Mock/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/dto/OfferteGenerator.cls.xml	(.../OfferteGenerator.cls.xml)	(revision 42486)
+++ vhTest/Mock/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/dto/OfferteGenerator.cls.xml	(.../OfferteGenerator.cls.xml)	(revision 51564)
@@ -14,6 +14,13 @@
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefOfferteDto",Offerte)
 ]]></Implementation>
 </Method>
+
+<Method name="GeefProductLangTekst">
+<FormalSpec>mdLangTekst:%String</FormalSpec>
+<ReturnType>DOM.PM.impl.ProductLangtekst</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefProductLangTekst",mdLangTekst)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/dto/OfferteGenerator/Test.cls.xml
===================================================================
diff -u -r45862 -r51564
--- vhUnitTest/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/dto/OfferteGenerator/Test.cls.xml	(.../Test.cls.xml)	(revision 45862)
+++ vhUnitTest/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/dto/OfferteGenerator/Test.cls.xml	(.../Test.cls.xml)	(revision 51564)
@@ -101,6 +101,97 @@
 	Do $$$AssertEquals(OfferteDto.VHKlantTotaalPrijs.Content, 100)
 ]]></Implementation>
 </Method>
+
+<Method name="Test: GeefOfferteDto voor TBX">
+<Implementation><![CDATA[
+	#dim RandomWinkelkarId As %String = "123"
+	#dim KlantPersonalityId As %String = "12"
+	#dim KlantIdBijKlantPersonality As %String = "12345"
+	#dim OrderReferentie As %String = "OrderReferentie"
+	#dim LeverDatum As %String = "LeverDatum"
+	#dim BestelOpmerking As %String = "BestelOpmerking"
+	#dim BestelDatum As %Date = $$INTDATE^vhLib.DataTypes("13.08.2016")
+	#dim Url As %String = "Url"
+	#dim KlantNaam As %String = "KlantNaam"
+	#dim KlantCode As %String = "KlantCode"
+	#dim EdiNummer As %String = "EdiNummer"
+
+	#dim LeverancierPersonality As DOM.common.Personality = ##class(DOM.common.VanHoeckePersonality).Instance()
+	Do ##class(TECH.Context.RuntimeContext).Instance().ZetPersonalityID(KlantPersonalityId)
+	
+	#dim KlantPersonalityStub As vhTest.Mock.DOM.common.Personality = ##class(vhTest.Mock.DOM.common.Personality).%New()
+	Do KlantPersonalityStub.IndienMethodCall("GeefTaal").DanReturn(##class(DOM.enu.Taal).Frans())
+	Do KlantPersonalityStub.IndienMethodCall("GeefID").DanReturn(KlantPersonalityId)
+	
+	#dim DocumentReferenties As DOM.VKP.DocumentReferenties = ##class(DOM.VKP.DocumentReferenties).%New()
+	Set DocumentReferenties.OrderReferentie = OrderReferentie
+	
+	#dim OfferteStub As vhTest.Mock.APPS.VKP.Offerte = ##class(vhTest.Mock.APPS.VKP.Offerte).%New()
+	Do OfferteStub.IndienMethodCall("GeefWinkelkarID").DanReturn(RandomWinkelkarId)
+	Do OfferteStub.IndienMethodCall("GeefEDINummerVoorEindklant").DanReturn(EdiNummer)
+	Do OfferteStub.IndienMethodCall("GeefKlantID").DanReturn(KlantIdBijKlantPersonality)
+	Do OfferteStub.IndienMethodCall("GeefPersonality").DanReturn(KlantPersonalityStub.GeefID())
+	Do OfferteStub.IndienMethodCall("GeefDocumentReferenties").DanReturn(DocumentReferenties)
+	Do OfferteStub.IndienMethodCall("GeefWensLeverDatum").DanReturn(LeverDatum)
+	Do OfferteStub.IndienMethodCall("GeefBestelOpmerking").DanReturn(BestelOpmerking)
+	Do OfferteStub.IndienMethodCall("GeefBestelDatum").DanReturn(BestelDatum)
+
+	#dim Winkelkar As DOM.EC.Winkelkar.Winkelkar = ##class(DOM.EC.Winkelkar.Winkelkar).%New($$$DummyInteger)
+	Do Winkelkar.ZetPersonalityID(KlantPersonalityId)
+	
+	#dim IngegevenKenmerkenAPIStub As vhTest.Mock.DOM.PM.IngegevenKenmerkenAPI = ##class(vhTest.Mock.DOM.PM.IngegevenKenmerkenAPI).%New()
+	Do IngegevenKenmerkenAPIStub.IndienMethodCall("GeefIngegevenKenmerken", $$$ElkeWaarde).DanReturn(##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).StandaardLade())
+
+	#dim MaatwerkLijnen As %ListOfObjects = ##class(%ListOfObjects).%New()
+	Do MaatwerkLijnen.Insert(##class(DOM.EC.Winkelkar.MaatwerkLijn).%New(,IngegevenKenmerkenAPIStub))
+	Do MaatwerkLijnen.Insert(##class(DOM.EC.Winkelkar.MaatwerkLijn).%New(,IngegevenKenmerkenAPIStub))	
+	
+	#dim KlantData As DOM.common.dto.KlantData = ##class(DOM.common.dto.KlantData).%New()
+	Set KlantData.Naam = KlantNaam
+	Set KlantData.Code = KlantCode
+	
+	#dim KlantDataBepalerStub As vhTest.Mock.DOM.VKP.KlantDataBepaler = ##class(vhTest.Mock.DOM.VKP.KlantDataBepaler).%New()
+	Do KlantDataBepalerStub.IndienMethodCall("GeefKlantData", KlantPersonalityId, KlantIdBijKlantPersonality).DanReturn(KlantData)
+	
+	#dim DomCommonAPIStub As vhTest.Mock.DOM.common.CommonAPI = ##class(vhTest.Mock.DOM.common.CommonAPI).MockInstance()
+	Do DomCommonAPIStub.IndienMethodCall("GeefPersonality", KlantPersonalityId).DanReturn(KlantPersonalityStub)
+	Do DomCommonAPIStub.IndienMethodCall("GeefPersonality", 1).DanReturn(LeverancierPersonality)
+	
+	#dim WinkelkarServiceStub As vhTest.Mock.APPS.EC.Winkelkar.WinkelkarService = ##class(vhTest.Mock.APPS.EC.Winkelkar.WinkelkarService).%New()
+	Do WinkelkarServiceStub.IndienMethodCall("GeefMaatwerkLijnen", RandomWinkelkarId).DanReturn(MaatwerkLijnen)
+	
+	#dim WinkelkarRepositoryStub As vhTest.Mock.DOM.EC.Winkelkar.impl.WinkelkarRepository = ##class(vhTest.Mock.DOM.EC.Winkelkar.impl.WinkelkarRepository).%New()
+	Do WinkelkarRepositoryStub.IndienMethodCall("GeefViaID", RandomWinkelkarId).DanReturn(Winkelkar)
+	
+	#dim UrlBepalerStub As vhTest.Mock.APPS.EC.Webshop.impl.OfferteUrlBepaler = ##class(vhTest.Mock.APPS.EC.Webshop.impl.OfferteUrlBepaler).%New()
+	Do UrlBepalerStub.IndienMethodCall("GeefURL", OfferteStub, $$$ElkeWaarde).DanReturn(Url)
+	
+	#dim TotaalEnPrijsBerekendResultaat As APPS.EC.Winkelkar.impl.TotaalEnPrijsBerekendResultaat = ##class(APPS.EC.Winkelkar.impl.TotaalEnPrijsBerekendResultaat).%New()
+	Do TotaalEnPrijsBerekendResultaat.ZetVHKlantTotaalPrijs(100)
+	Do TotaalEnPrijsBerekendResultaat.ZetEindklantTotaalPrijs(200)
+	Do TotaalEnPrijsBerekendResultaat.ZetTotaalAantalProducten(10)
+	
+	#dim TotaalEnPrijsBerekenaarStub As vhTest.Mock.APPS.EC.Winkelkar.TotaalEnPrijsBerekenaar = ##class(vhTest.Mock.APPS.EC.Winkelkar.TotaalEnPrijsBerekenaar).%New()
+	Do TotaalEnPrijsBerekenaarStub.IndienMethodCall("Bereken", Winkelkar).DanReturn(TotaalEnPrijsBerekendResultaat)
+	
+	#dim OfferteGenerator As APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.dto.OfferteGenerator = ##class(APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.dto.OfferteGenerator).%New(WinkelkarServiceStub, WinkelkarRepositoryStub, UrlBepalerStub, TotaalEnPrijsBerekenaarStub, KlantDataBepalerStub)
+	#dim OfferteDto As APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.dto.Offerte = OfferteGenerator.GeefOfferteDto(OfferteStub)
+
+	Do $$$AssertEquals(OfferteDto.EDINummer, EdiNummer)
+	Do $$$AssertEquals(OfferteDto.KlantKorting, 0)
+	Do $$$AssertEquals(OfferteDto.KlantNaam, KlantNaam)
+	Do $$$AssertEquals(OfferteDto.KlantNummer, KlantCode)
+	Do $$$AssertEquals(OfferteDto.KlantOrderReferentie, OrderReferentie)
+	Do $$$AssertEquals(OfferteDto.LeverDatum, LeverDatum)
+	Do $$$AssertEquals(OfferteDto.Opmerking1, BestelOpmerking)
+	Do $$$AssertEquals(OfferteDto.SubmitTS, "2016-08-13 00:00:00")
+	Do $$$AssertEquals(OfferteDto.TotaalAantalProducten, 10)
+	Do $$$AssertEquals(OfferteDto.URLPrintPage, Url)
+	Do $$$AssertEquals(OfferteDto.EindklantTotaalPrijs.Content, 200)
+	Do $$$AssertEquals(OfferteDto.Lijnen.Count(), MaatwerkLijnen.Count())
+	Do $$$AssertEquals(OfferteDto.VHKlantTotaalPrijs.Content, 100)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhTest/Fake/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/dto/OfferteGenerator.cls.xml
===================================================================
diff -u -r36214 -r51564
--- vhTest/Fake/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/dto/OfferteGenerator.cls.xml	(.../OfferteGenerator.cls.xml)	(revision 36214)
+++ vhTest/Fake/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/dto/OfferteGenerator.cls.xml	(.../OfferteGenerator.cls.xml)	(revision 51564)
@@ -13,6 +13,13 @@
 <Implementation><![CDATA[	Quit ""
 ]]></Implementation>
 </Method>
+
+<Method name="GeefProductLangTekst">
+<FormalSpec>mdLangTekst:%String</FormalSpec>
+<ReturnType>DOM.PM.impl.ProductLangtekst</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/dto/OfferteGenerator.cls.xml
===================================================================
diff -u -r51468 -r51564
--- APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/dto/OfferteGenerator.cls.xml	(.../OfferteGenerator.cls.xml)	(revision 51468)
+++ APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/dto/OfferteGenerator.cls.xml	(.../OfferteGenerator.cls.xml)	(revision 51564)
@@ -287,11 +287,6 @@
 	Set OfferteLijn.VHKlantEenheidPrijs = ..GeefPrijsObject(MaatwerkLijn.GeefEenheidPrijsNettoExclBTW(), ..TotaalEnPrijsBerekendResultaat.GeefMuntVoorAankoopPrijs())
 	Set OfferteLijn.ProductType = ..GeefProductType(MaatwerkLijn)
 	Set OfferteLijn.ProductKleurOmschrijving = ..GeefProductKleurOmschrijving(MaatwerkLijn)
-	Do ##class(Tools.Wlip).%New(127).String("MaatwerkLijn")
-	Do ##class(Tools.Wlip).%New(127).ObjToXML(MaatwerkLijn)
-	Do ##class(Tools.Wlip).%New(127).String("MaatwerkLijn.GeefIngegevenKenmerken")
-	Do ##class(Tools.Wlip).%New(127).String("MaatwerkLijn.GeefIngegevenKenmerken classname "_MaatwerkLijn.GeefIngegevenKenmerken().%ClassName(1))
-	Do ##class(Tools.Wlip).%New(127).ObjToXML(MaatwerkLijn.GeefIngegevenKenmerken())
 	If ..IsVersie002Compliant() {
 		If $$$Not(MaatwerkLijn.GeefIngegevenKenmerken().GeefVariant() = ##class(DOM.PM.enu.LadeVariant).TBXAntaro()) {
 			Set OfferteLijn.LadeCode = MaatwerkLijn.GeefIngegevenKenmerken().GeefLadeCode()
@@ -302,18 +297,13 @@
 			Set OfferteLijn.ProductOmschrijvingEN = ..GeefProductOmschrijving(MaatwerkLijn,##class(DOM.enu.Taal).Engels())
 			Set OfferteLijn.ProductOmschrijvingDE = ..GeefProductOmschrijving(MaatwerkLijn,##class(DOM.enu.Taal).Duits())
 		} Else {
-			/*Do ##class(Tools.Wlip).%New(127).String("ELSE")
-			//Set OfferteLijn.LadeCode = M/Z of iets dergelijks
-			Do ##class(Tools.Wlip).%New(127).String(OfferteLijn.LadeCode)
-			Set OfferteLijn.DesignCode = ..GeefDesignCode(MaatwerkLijn)
-			Do ##class(Tools.Wlip).%New(127).String(OfferteLijn.DesignCode)
+			Set OfferteLijn.LadeCode = MaatwerkLijn.GeefIngegevenKenmerken().LegacyKenmerken.ItemLT
+			Set OfferteLijn.DesignCode = ##class(DOM.PM.enu.LadeVariant).TBXAntaro()
 			Set OfferteLijn.DesignCodeOmschrijving = ..GeefDesignCodeOmschrijving(OfferteLijn.DesignCode)
-			Do ##class(Tools.Wlip).%New(127).String(OfferteLijn.DesignCodeOmschrijving)
 			Set OfferteLijn.ProductOmschrijvingNL = ..GeefProductOmschrijving(MaatwerkLijn,##class(DOM.enu.Taal).Nederlands())
 			Set OfferteLijn.ProductOmschrijvingFR = ..GeefProductOmschrijving(MaatwerkLijn,##class(DOM.enu.Taal).Frans())
 			Set OfferteLijn.ProductOmschrijvingEN = ..GeefProductOmschrijving(MaatwerkLijn,##class(DOM.enu.Taal).Engels())
 			Set OfferteLijn.ProductOmschrijvingDE = ..GeefProductOmschrijving(MaatwerkLijn,##class(DOM.enu.Taal).Duits())
-			Do ##class(Tools.Wlip).%New(127).String(OfferteLijn.ProductOmschrijvingNL)*/
 		}
 	}
 	Else {
@@ -363,13 +353,48 @@
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	;Quit "Hierin komt de omschrijvende tekst ("_MaatwerkLijn.GeefIngegevenKenmerken().GeefVariant()_" product.langtekst), in 't "_##class(DOM.enu.Taal).LogicalToDisplay(Taal)
+	#dim Langtekst As DOM.PM.ProductLangtekst
+	#dim LangtekstString As %String
 	
-	#dim Langtekst As DOM.PM.ProductLangtekst = ..MaatwerkLangtekstBepaler.GeefLangtekst(MaatwerkLijn.GeefIngegevenKenmerken(),Taal)
-	Quit Langtekst.GeefString()
+	If $$$Not(MaatwerkLijn.GeefIngegevenKenmerken().GeefVariant() = ##class(DOM.PM.enu.LadeVariant).TBXAntaro()) {
+		Set Langtekst = ..MaatwerkLangtekstBepaler.GeefLangtekst(MaatwerkLijn.GeefIngegevenKenmerken(),Taal)
+		Set LangtekstString = Langtekst.GeefString()
+	} Else {
+		try {
+			#dim AppsKenmerken As APPS.PM.Maatwerk.dto.TBXKenmerken = ##class(APPS.PM.Maatwerk.impl.KenmerkenConverter.DomNaarApps.Tbx).%New().Converteer(MaatwerkLijn.GeefIngegevenKenmerken())
+			#dim WebOrder = ##class(APPS.PM.Maatwerk.impl.TBX.LegacyNaarWebOrderConverter).%New().Convert(AppsKenmerken.LegacyKenmerken, MaatwerkLijn.Aantal, ..OfferteDto.KlantNummer)
+			#dim GADataProduct As Prod.GAData.Product = ##class(APPS.PM.Maatwerk.impl.TBX.WebOrderNaarGADataConverter).%New().Convert(WebOrder)
+		
+			#dim mdLangTekst As %String = ""
+	 		Set LangTekstPieces = ##class(DOM.PM.impl.LangtekstBewaarderPieces).%New()
+			Do GADataProduct.LangTekst(Taal,.mdLangTekst,)
+			
+			Set LangtekstString = ..GeefProductLangTekst(.mdLangTekst).GeefString()
+		} catch {
+			#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+			Do ##class(vhLib.Logger).%New().WarningMail("TBX Langtekstbepaling","De langtekst kon niet bepaald worden voor maatwerklijn '"_MaatwerkLijn.GeefID()_"'")
+			Set LangtekstString = "De langtekst kon niet bepaald worden"
+		}
+	}	
+	Quit LangtekstString
 ]]></Implementation>
 </Method>
 
+<Method name="GeefProductLangTekst">
+<FormalSpec>mdLangTekst:%String</FormalSpec>
+<ReturnType>DOM.PM.impl.ProductLangtekst</ReturnType>
+<Implementation><![CDATA[
+	#dim LangtekstHoofding As %String = $Get(mdLangTekst(1))
+	
+	Set LangtekstDetail = ##class(%ListOfDataTypes).%New()
+	#dim DetailLijnTeller As %Integer
+	For DetailLijnTeller=2:1:mdLangTekst {
+		Do LangtekstDetail.Insert($Get(mdLangTekst(DetailLijnTeller)))
+	}
+	Quit ##class(DOM.PM.impl.ProductLangtekst).%New(LangtekstHoofding,LangtekstDetail)
+]]></Implementation>
+</Method>
+
 <Method name="GeefActieCodes">
 <FormalSpec>MaatwerkLijn:DOM.EC.Winkelkar.MaatwerkLijn</FormalSpec>
 <Private>1</Private>