Index: WSimpl/PM/Maatwerk/VertaaldeLangtekstenBepaler.cls.xml
===================================================================
diff -u
--- WSimpl/PM/Maatwerk/VertaaldeLangtekstenBepaler.cls.xml	(revision 0)
+++ WSimpl/PM/Maatwerk/VertaaldeLangtekstenBepaler.cls.xml	(revision 66023)
@@ -0,0 +1,47 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSimpl.PM.Maatwerk.VertaaldeLangtekstenBepaler">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="MaatwerkLangtekstBepaler">
+<Type>DOM.PM.impl.MaatwerkLangtekstBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>WinkelkarService:APPS.EC.Winkelkar.WinkelkarService="",WinkelkarRepository:DOM.EC.Winkelkar.impl.WinkelkarRepository="",UrlBepaler:APPS.EC.Webshop.impl.OfferteUrlBepaler="",TotaalEnPrijsBerekenaar:APPS.EC.Winkelkar.impl.TotaalEnPrijsBerekenaar="",KlantDataBepaler:DOM.VKP.KlantDataBepaler="",PersonalityService:DOM.common.PersonalityService="",ProductAPI:DOM.PM.ProductAPI="",ProductService:WSimpl.PM.Perfion.Vertaling.ProductService=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..MaatwerkLangtekstBepaler = ##class(DOM.PM.impl.MaatwerkLangtekstBepaler).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefMaatwerkLangtekstViaPRNr">
+<FormalSpec>PRNr:%String</FormalSpec>
+<ReturnType>WSimpl.PM.Maatwerk.VertaaldeLangteksten</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[
+	Set Langteksten = ##class(WSimpl.PM.Maatwerk.VertaaldeLangteksten).%New()
+	#Dim TaalIterator As TECH.ListIterator = ##class(DOM.enu.Taal).ValueListIterator()
+	While TaalIterator.HasNext()
+	{
+		#dim Taal as DOM.enu.Taal = TaalIterator.Next()
+		#dim LangtekstObject as DOM.PM.ProductLangtekst = ..MaatwerkLangtekstBepaler.GeefLangtekstViaPRNr(PRNr,Taal)
+		
+		Set ProductOmschrijving = ##class(APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.dto.Omschrijving).%New()
+		Set ProductOmschrijving.Taal = ##class(DOM.common.TaalcodeConverter).TaalNaarISO639x1(Taal)
+		Set ProductOmschrijving.LangTekst = LangtekstObject.GeefString()
+		
+		Do Langteksten.OmschrijvingList.Insert(ProductOmschrijving)
+	}
+	Quit Langteksten
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/PM/impl/MaatwerkLangtekstBepaler.cls.xml
===================================================================
diff -u -r65546 -r66023
--- DOM/PM/impl/MaatwerkLangtekstBepaler.cls.xml	(.../MaatwerkLangtekstBepaler.cls.xml)	(revision 65546)
+++ DOM/PM/impl/MaatwerkLangtekstBepaler.cls.xml	(.../MaatwerkLangtekstBepaler.cls.xml)	(revision 66023)
@@ -54,6 +54,28 @@
 	Quit LangtekstCreator.GeefLangtekst(IngegevenKenmerken,HalffabItemsBoom,Taal,, HalffabItemsBoomOnherwerkt)
 ]]></Implementation>
 </Method>
+
+<Method name="GeefLangtekstViaPRNr">
+<FormalSpec>PRNr:%String,Taal:DOM.enu.Taal</FormalSpec>
+<ReturnType>DOM.PM.ProductLangtekst</ReturnType>
+<Implementation><![CDATA[
+	#dim Langtekst as DOM.PM.ProductLangtekst = ""
+	#dim MaatwerkProduct as DOM.PM.Product = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(PRNr)
+	Set Variant = ##class(DOM.PM.enu.Variant.AutoComplete).%New()
+	Set TaalEnum = ##class(DOM.enu.Taal.AutoComplete).%New()
+
+	If ##class(TECH.StringUtils).Equals(Taal,TaalEnum.Nederlands,TaalEnum.Frans,TaalEnum.Duits,TaalEnum.Engels){
+		Set Langtekst = ##class(Prod.ProductTekst).GeefLangtekstObject(PRNr,Taal)
+	} Else {
+		If ##class(TECH.StringUtils).Equals(MaatwerkProduct.GeefVariant(),Variant.LegraboxPure,Variant.Merivobox,Variant.Taorbox) {
+			Set Langtekst = ..GeefLangtekst(MaatwerkProduct.GeefIngegevenKenmerken(),Taal)
+		} Else {
+			Set Langtekst = ##class(Prod.ProductTekst).GeefLangtekstObject(PRNr,Taal)
+		}
+	}
+	Quit Langtekst
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: WS/PM/Maatwerk/LangtekstService.cls.xml
===================================================================
diff -u
--- WS/PM/Maatwerk/LangtekstService.cls.xml	(revision 0)
+++ WS/PM/Maatwerk/LangtekstService.cls.xml	(revision 66023)
@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WS.PM.Maatwerk.LangtekstService">
+<Super>WS.OngeauthenticeerdeWebService</Super>
+
+<Method name="GeefMaatwerkLangtekstViaPRNr">
+<FormalSpec>PRNr:%String</FormalSpec>
+<ReturnType>zTryout.JWI.Vhisie4.VertaaldeLangteksten</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[
+	Set Bepaler = ##class(WSimpl.PM.Maatwerk.VertaaldeLangtekstenBepaler).%New()
+	Quit Bepaler.GeefMaatwerkLangtekstViaPRNr(PRNr)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WSimpl/PM/Maatwerk/VertaaldeLangteksten.cls.xml
===================================================================
diff -u
--- WSimpl/PM/Maatwerk/VertaaldeLangteksten.cls.xml	(revision 0)
+++ WSimpl/PM/Maatwerk/VertaaldeLangteksten.cls.xml	(revision 66023)
@@ -0,0 +1,15 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSimpl.PM.Maatwerk.VertaaldeLangteksten">
+<Super>TECH.DataTransferObject</Super>
+
+<Property name="OmschrijvingList">
+<Type>APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.dto.Omschrijving</Type>
+<Collection>list</Collection>
+<Parameter name="XMLNAME" value="LONG_DESCRIPTION"/>
+<Parameter name="XMLPROJECTION" value="ELEMENT"/>
+</Property>
+</Class>
+
+
+</Export>
Index: Prod/ProductTekst.cls.xml
===================================================================
diff -u -r55018 -r66023
--- Prod/ProductTekst.cls.xml	(.../ProductTekst.cls.xml)	(revision 55018)
+++ Prod/ProductTekst.cls.xml	(.../ProductTekst.cls.xml)	(revision 66023)
@@ -1214,6 +1214,21 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefLangtekstObject">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>PRNr:%String,Taal:DOM.enu.Taal</FormalSpec>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>DOM.PM.impl.ProductLangtekst</ReturnType>
+<Implementation><![CDATA[
+	#dim mdLangtekstLijnen as %String
+	Do ##class(Prod.ProductTekst).GetOmschrijvingArrayViaPRNr(PRNr,Taal,.mdLangtekstLijnen,1,1)
+	#dim LangtekstHoofding as %String = mdLangtekstLijnen(1)
+	Kill mdLangtekstLijnen(1)
+	#dim LangtekstDetail as %ListOfDataTypes = ##class(TECH.ListUtils).MultiDimensionalToListOfDataTypes(.mdLangtekstLijnen)
+	Quit ##class(DOM.PM.impl.ProductLangtekst).%New(LangtekstHoofding,LangtekstDetail)
+]]></Implementation>
+</Method>
+
 <Method name="GetOmschrijvingArray">
 <Description><![CDATA[
 Ophalen van de verschillende textproperties