Index: APPS/EC/enu/ProductType/AutoComplete.cls.xml
===================================================================
diff -u
--- APPS/EC/enu/ProductType/AutoComplete.cls.xml	(revision 0)
+++ APPS/EC/enu/ProductType/AutoComplete.cls.xml	(revision 66041)
@@ -0,0 +1,42 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.EC.enu.ProductType.AutoComplete">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de Enumeratie - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+De enumeratie Eigenschapn moeten als type de enumeratieklasse zelf terug geven. De enumeratieklasse moet afleiden van TECH.Enumeration</Description>
+<ClassType>serial</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%SerialObject</Super>
+
+<Property name="Legrabox">
+<Type>%String</Type>
+<InitialExpression>"LBX"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="Merivobox">
+<Type>%String</Type>
+<InitialExpression>"MVX"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="Tandembox">
+<Type>%String</Type>
+<InitialExpression>"TBX"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="Taorbox">
+<Type>%String</Type>
+<InitialExpression>"TAX"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+</Class>
+
+
+</Export>
Index: BL/Flow/Proxy/pxLevering.cls.xml
===================================================================
diff -u -r64772 -r66041
--- BL/Flow/Proxy/pxLevering.cls.xml	(.../pxLevering.cls.xml)	(revision 64772)
+++ BL/Flow/Proxy/pxLevering.cls.xml	(.../pxLevering.cls.xml)	(revision 66041)
@@ -323,6 +323,8 @@
 	. Set sc=$S(FactSoort="":$$$ERROR($$$GeneralError,"Subnode van ^KUL() onbekend"), 1:$$$OK)
 
 	Do:($IsObject($G(%blFlowDoc))) %blFlowDoc.ProxySettings.SetAt(KLNr,"KLNr")
+	#dim ProductOmschrijvingTaal = ##class(BL.Flow.Proxy.impl.LeverbonAfwijkendeTaalBepaler).%New().GeefAfwijkendeTaalVoorProductOpBonIndienNodig(BONNr)
+	Do:($IsObject($G(%blFlowDoc))) %blFlowDoc.ProxySettings.SetAt(ProductOmschrijvingTaal,"ProductOmschrijvingTaal")
 	Do:($IsObject($G(%blFlowDoc))) %blFlowDoc.ReplaceXsltParam("pImageColVisible="_$$$xslpFromDoc,"pImageColVisible="_%blFlowDoc.ShowImageColumn(KLNr,"L",BONNr))
 	
 	// Lock opzetten, om gelijktijdigheid van sortering/verwerking te vermijden 
@@ -452,9 +454,8 @@
 	#dim Rec As %String = $G(^KUL(KLNr,FactSoort,BONNr,1))
 	#dim Rec3 As %String = $G(^KUL(KLNr,FactSoort,BONNr,3))
 	#dim Taal As %String = $S(+Rec3:$P(Rec3,"\",9), 1:$P($$$KLRec(0),"\",9))   ; Ophalen Taal uit Leveringsadres, indien aanwezig, anders uit klantdata
+	Set Taal = ##class(BL.Flow.Proxy.impl.LeverbonAfwijkendeTaalBepaler).%New().GeefAfwijkendeTaalVoorBonIndienNodig(BONNr,Taal)
 	
-	Set Taal = ##class(BL.Flow.Proxy.impl.LeverbonAfwijkendeTaalBepaler).%New().GeefAfwijkendeTaalIndienNodig(BONNr,Taal)
-		
 	Set:(Taal="") Taal="N"
 	#dim Munt As %String = $P(Rec,"\",18)
 	#dim blnBruto As %Boolean = $P(Rec,"\",27)
Index: vhUnitTest/BL/Flow/Proxy/impl/LeverbonAfwijkendeTaalBepaler/Test.cls.xml
===================================================================
diff -u -r64473 -r66041
--- vhUnitTest/BL/Flow/Proxy/impl/LeverbonAfwijkendeTaalBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 64473)
+++ vhUnitTest/BL/Flow/Proxy/impl/LeverbonAfwijkendeTaalBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 66041)
@@ -3,40 +3,41 @@
 <Class name="vhUnitTest.BL.Flow.Proxy.impl.LeverbonAfwijkendeTaalBepaler.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Method name="Test Haefele testcases">
+<Method name="Test Haefele testcases Taal leverbon">
 <Implementation><![CDATA[
 	Set Landen = ##class(DOM.common.enu.Land.AutoComplete).%New()
 	Set Klanten = ##class(DOM.VKP.enu.Klant.AutoComplete).%New()
 	#dim LegacyPartijAPI as DOM.PARTIJ.LegacyPartijAPI = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI()
 	
 	Set UitleveringRepoMock = ##class(vhTest.Mock.TECH.Persistentie.Repository).%New()
+	Set EindPersonalityBepalerMock = ##class(vhTest.Mock.DOM.VKP.impl.EindPersonalityBepaler).%New()
 	
 	Set DummyUitleveringHoofding = ##class(Flow.Uitlevering.Hoofding).%New()
 	
-	Set AfwijkendeTaalBepaler = ##class(BL.Flow.Proxy.impl.LeverbonAfwijkendeTaalBepaler).%New(UitleveringRepoMock)
+	Set AfwijkendeTaalBepaler = ##class(BL.Flow.Proxy.impl.LeverbonAfwijkendeTaalBepaler).%New(UitleveringRepoMock,EindPersonalityBepalerMock)
 	
 	Do UitleveringRepoMock.VerwachtMethodCall("BestaatViaID","BONNr").DanReturn($$$True)
 	Do UitleveringRepoMock.VerwachtMethodCall("GeefViaID","BONNr").DanReturn(DummyUitleveringHoofding)
 	
 	Set DummyUitleveringHoofding.KlantNr = LegacyPartijAPI.GeefKlantNummerVoorPartijID(Klanten.HaefeleDuitsland)
 	Set DummyUitleveringHoofding.Land = Landen.Finland
-	Do $$$AssertEquals(AfwijkendeTaalBepaler.GeefAfwijkendeTaalIndienNodig("BONNr","N"),"E")
+	Do $$$AssertEquals(AfwijkendeTaalBepaler.GeefAfwijkendeTaalVoorBonIndienNodig("BONNr","N"),"E")
 	
 	Set DummyUitleveringHoofding.Land = Landen.Zweden
-	Do $$$AssertEquals(AfwijkendeTaalBepaler.GeefAfwijkendeTaalIndienNodig("BONNr","N"),"E")
+	Do $$$AssertEquals(AfwijkendeTaalBepaler.GeefAfwijkendeTaalVoorBonIndienNodig("BONNr","N"),"E")
 
 	Set DummyUitleveringHoofding.KlantNr = LegacyPartijAPI.GeefKlantNummerVoorPartijID(Klanten.HaefeleItalie)
 	Set DummyUitleveringHoofding.Land = Landen.Italie
-	Do $$$AssertEquals(AfwijkendeTaalBepaler.GeefAfwijkendeTaalIndienNodig("BONNr","N"),"E")
+	Do $$$AssertEquals(AfwijkendeTaalBepaler.GeefAfwijkendeTaalVoorBonIndienNodig("BONNr","N"),"E")
 	
 	Set DummyUitleveringHoofding.KlantNr = "35415" ;Haefele AT
 	Set DummyUitleveringHoofding.Land = 1096 ;Doet er niet toe
-	Do $$$AssertEquals(AfwijkendeTaalBepaler.GeefAfwijkendeTaalIndienNodig("BONNr","N"),"N")
+	Do $$$AssertEquals(AfwijkendeTaalBepaler.GeefAfwijkendeTaalVoorBonIndienNodig("BONNr","N"),"N")
 	Do UitleveringRepoMock.Verifieer()
 ]]></Implementation>
 </Method>
 
-<Method name="Test voor een andere personality : taal verandert niet">
+<Method name="Test Taal leverbon voor een andere personality : taal verandert niet">
 <Implementation><![CDATA[
 	Set Landen = ##class(DOM.common.enu.Land.AutoComplete).%New()
 	Set Klanten = ##class(DOM.VKP.enu.Klant.AutoComplete).%New()
@@ -53,11 +54,96 @@
 	
 	Set DummyUitleveringHoofding.KlantNr = LegacyPartijAPI.GeefKlantNummerVoorPartijID(Klanten.Kisch)
 	Set DummyUitleveringHoofding.Land = Landen.Finland
-	Do $$$AssertEquals(AfwijkendeTaalBepaler.GeefAfwijkendeTaalIndienNodig("BONNr","N"),"N")
+	Do $$$AssertEquals(AfwijkendeTaalBepaler.GeefAfwijkendeTaalVoorBonIndienNodig("BONNr","N"),"N")
 	
 	Do UitleveringRepoMock.Verifieer()
 ]]></Implementation>
 </Method>
+
+<Method name="Test Taal Productomschrijving op Leverbon Multipersonality oorsprong">
+<Implementation><![CDATA[
+	Set Landen = ##class(DOM.common.enu.Land.AutoComplete).%New()
+	Set Klanten = ##class(DOM.VKP.enu.Klant.AutoComplete).%New()
+	#dim LegacyPartijAPI as DOM.PARTIJ.LegacyPartijAPI = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI()
+	
+	Set UitleveringRepoMock = ##class(vhTest.Mock.TECH.Persistentie.Repository).%New()
+	Set EindPersonalityBepalerMock = ##class(vhTest.Mock.DOM.VKP.impl.EindPersonalityBepaler).%New()
+	
+	Set DummyUitleveringHoofding = ##class(Flow.Uitlevering.Hoofding).%New()
+	
+	Set AfwijkendeTaalBepaler = ##class(BL.Flow.Proxy.impl.LeverbonAfwijkendeTaalBepaler).%New(UitleveringRepoMock,EindPersonalityBepalerMock)
+	
+	Do UitleveringRepoMock.VerwachtMethodCall("BestaatViaID","BONNr").DanReturn($$$True)
+	Do UitleveringRepoMock.VerwachtMethodCall("GeefViaID","BONNr").DanReturn(DummyUitleveringHoofding)
+	
+	Set DummyUitleveringHoofding.KlantNr = LegacyPartijAPI.GeefKlantNummerVoorPartijID(Klanten.HaefeleDuitsland)
+	Set DummyUitleveringHoofding.Land = Landen.Finland
+	Set DummyUitleveringHoofding.OorsprongKetting = "OorsprongKettingFinland"
+	Do EindPersonalityBepalerMock.VerwachtMethodCall("GeefEindPersonality","OorsprongKettingFinland").DanReturn(##class(DOM.common.HaefeleFIPersonality).Instance())
+	
+	Do $$$AssertEquals(AfwijkendeTaalBepaler.GeefAfwijkendeTaalVoorProductOpBonIndienNodig("BONNr","N"),"FI")
+	
+	Set DummyUitleveringHoofding.KlantNr = LegacyPartijAPI.GeefKlantNummerVoorPartijID(Klanten.HaefeleDuitsland)	
+	Set DummyUitleveringHoofding.Land = Landen.Zweden
+	Set DummyUitleveringHoofding.OorsprongKetting = "OorsprongKettingZweden"
+	Do EindPersonalityBepalerMock.VerwachtMethodCall("GeefEindPersonality","OorsprongKettingZweden").DanReturn(##class(DOM.common.HaefeleSEPersonality).Instance())
+
+	Do $$$AssertEquals(AfwijkendeTaalBepaler.GeefAfwijkendeTaalVoorProductOpBonIndienNodig("BONNr","N"),"S")
+
+	
+	Set DummyUitleveringHoofding.KlantNr = LegacyPartijAPI.GeefKlantNummerVoorPartijID(Klanten.HaefeleItalie)
+	Set DummyUitleveringHoofding.Land = Landen.Italie
+	Set DummyUitleveringHoofding.OorsprongKetting = "OorsprongKettingItalie"
+	Do EindPersonalityBepalerMock.VerwachtMethodCall("GeefEindPersonality","OorsprongKettingItalie").DanReturn(##class(DOM.common.HaefeleITPersonality).Instance())
+	Do $$$AssertEquals(AfwijkendeTaalBepaler.GeefAfwijkendeTaalVoorProductOpBonIndienNodig("BONNr","N"),"IT")
+	
+	Set DummyUitleveringHoofding.KlantNr = "35415" ;Haefele AT
+	Set DummyUitleveringHoofding.Land = 1096 ;Doet er niet toe
+	Do $$$AssertEquals(AfwijkendeTaalBepaler.GeefAfwijkendeTaalVoorBonIndienNodig("BONNr","N"),"N")
+	
+	Do UitleveringRepoMock.Verifieer()
+	Do EindPersonalityBepalerMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test Taal Productomschrijving op Leverbon personality Vanhoecke oorsprong">
+<Implementation><![CDATA[
+	Set Landen = ##class(DOM.common.enu.Land.AutoComplete).%New()
+	Set Klanten = ##class(DOM.VKP.enu.Klant.AutoComplete).%New()
+	#dim LegacyPartijAPI as DOM.PARTIJ.LegacyPartijAPI = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI()
+	
+	Set UitleveringRepoMock = ##class(vhTest.Mock.TECH.Persistentie.Repository).%New()
+	Set EindPersonalityBepalerMock = ##class(vhTest.Mock.DOM.VKP.impl.EindPersonalityBepaler).%New()
+	Do EindPersonalityBepalerMock.VerwachtMethodCall("GeefEindPersonality","IngegevenInAX").DanReturn(##class(DOM.common.VanHoeckePersonality).Instance())
+	
+	Set DummyUitleveringHoofding = ##class(Flow.Uitlevering.Hoofding).%New()
+	
+	Set AfwijkendeTaalBepaler = ##class(BL.Flow.Proxy.impl.LeverbonAfwijkendeTaalBepaler).%New(UitleveringRepoMock,EindPersonalityBepalerMock)
+	
+	Do UitleveringRepoMock.VerwachtMethodCall("BestaatViaID","BONNr").DanReturn($$$True)
+	Do UitleveringRepoMock.VerwachtMethodCall("GeefViaID","BONNr").DanReturn(DummyUitleveringHoofding)
+	
+	Set DummyUitleveringHoofding.KlantNr = LegacyPartijAPI.GeefKlantNummerVoorPartijID(Klanten.HaefeleDuitsland)
+	Set DummyUitleveringHoofding.Land = Landen.Finland
+	Set DummyUitleveringHoofding.OorsprongKetting = "IngegevenInAX"
+	Do $$$AssertEquals(AfwijkendeTaalBepaler.GeefAfwijkendeTaalVoorProductOpBonIndienNodig("BONNr","N"),"FI")
+	
+	Set DummyUitleveringHoofding.KlantNr = LegacyPartijAPI.GeefKlantNummerVoorPartijID(Klanten.HaefeleDuitsland)
+	Set DummyUitleveringHoofding.Land = Landen.Zweden
+	Do $$$AssertEquals(AfwijkendeTaalBepaler.GeefAfwijkendeTaalVoorProductOpBonIndienNodig("BONNr","N"),"S")
+
+	Set DummyUitleveringHoofding.KlantNr = LegacyPartijAPI.GeefKlantNummerVoorPartijID(Klanten.HaefeleItalie)
+	Set DummyUitleveringHoofding.Land = Landen.Italie
+	Do $$$AssertEquals(AfwijkendeTaalBepaler.GeefAfwijkendeTaalVoorProductOpBonIndienNodig("BONNr","N"),"IT")
+	
+	Set DummyUitleveringHoofding.KlantNr = "35415" ;Haefele AT
+	Set DummyUitleveringHoofding.Land = 1096 ;Doet er niet toe
+	Do $$$AssertEquals(AfwijkendeTaalBepaler.GeefAfwijkendeTaalVoorProductOpBonIndienNodig("BONNr","N"),"N")
+
+	Do UitleveringRepoMock.Verifieer()
+	Do EindPersonalityBepalerMock.Verifieer()
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: BL/Flow/Proxy/impl/LeverbonAfwijkendeTaalBepaler.cls.xml
===================================================================
diff -u -r64454 -r66041
--- BL/Flow/Proxy/impl/LeverbonAfwijkendeTaalBepaler.cls.xml	(.../LeverbonAfwijkendeTaalBepaler.cls.xml)	(revision 64454)
+++ BL/Flow/Proxy/impl/LeverbonAfwijkendeTaalBepaler.cls.xml	(.../LeverbonAfwijkendeTaalBepaler.cls.xml)	(revision 66041)
@@ -8,19 +8,25 @@
 <Private>1</Private>
 </Property>
 
+<Property name="EindPersonalityBepaler">
+<Type>DOM.VKP.impl.EindPersonalityBepaler</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>UitleveringRepository:Flow.Uitlevering.HoofdingRepository=""</FormalSpec>
+<FormalSpec>UitleveringRepository:Flow.Uitlevering.HoofdingRepository="",EindPersonalityBepaler:DOM.VKP.impl.EindPersonalityBepaler=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..UitleveringRepository = $$$Inject(UitleveringRepository,##class(Flow.Uitlevering.HoofdingRepository).%New())
+	Set ..EindPersonalityBepaler = $$$Inject(EindPersonalityBepaler, ##class(DOM.VKP.impl.EindPersonalityBepaler).%New())
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
-<Method name="GeefAfwijkendeTaalIndienNodig">
+<Method name="GeefAfwijkendeTaalVoorBonIndienNodig">
 <FormalSpec>BONNr:%String,Taal:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
@@ -30,9 +36,8 @@
 		#dim Hoofding as Flow.Uitlevering.Hoofding = ..UitleveringRepository.GeefViaID(BONNr)
 		#dim KlantID as %String = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantPartijID(Hoofding.KlantNr)
 
-		if ##class(TECH.StringUtils).Equals(KlantID,KlantEnu.HaefeleDuitsland,KlantEnu.HaefeleItalie){
+		if ##class(TECH.StringUtils).Equals(KlantID,KlantEnu.HaefeleDuitsland,KlantEnu.HaefeleItalie,KlantEnu.HaefeleDenemarken){
 			#dim LeveradresLand as %String =  $$LAND^vhRtn1(Hoofding.Land)
-
 			if ##class(TECH.StringUtils).Equals(LeveradresLand,"FI","SE","IT"){
 				Set ResultTaal = "E"
 			}
@@ -41,6 +46,36 @@
 	Quit ResultTaal
 ]]></Implementation>
 </Method>
+
+<Method name="GeefAfwijkendeTaalVoorProductOpBonIndienNodig">
+<FormalSpec>BONNr:%String,Taal:%String="E"</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set KlantEnu = ##class(DOM.VKP.enu.Klant.AutoComplete).%New()
+	Set PersonalityEnu = ##class(DOM.common.enu.Personality.AutoComplete).%New()
+	Set TaalEnu= ##class(DOM.enu.Taal.AutoComplete).%New()
+	
+	#dim ResultTaal as %String = Taal
+	If ..UitleveringRepository.BestaatViaID(BONNr) {
+		#dim Hoofding as Flow.Uitlevering.Hoofding = ..UitleveringRepository.GeefViaID(BONNr)
+		
+		#dim Personality as DOM.common.Personality = ..EindPersonalityBepaler.GeefEindPersonality(Hoofding.OorsprongKetting)
+		
+		#dim KlantID as %String = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantPartijID(Hoofding.KlantNr)
+
+		If Personality.GeefID() = PersonalityEnu.VanHoecke {
+			#dim LeveradresLand as %String =  $$LAND^vhRtn1(Hoofding.Land)
+			Set:(KlantID = KlantEnu.HaefeleItalie) ResultTaal = TaalEnu.Italiaans
+			Set:(KlantID = KlantEnu.HaefeleDenemarken) ResultTaal = TaalEnu.Deens
+			Set:((KlantID = KlantEnu.HaefeleDuitsland) && (LeveradresLand = "FI" )) ResultTaal = TaalEnu.Fins
+			Set:((KlantID = KlantEnu.HaefeleDuitsland) && (LeveradresLand = "SE" )) ResultTaal = TaalEnu.Zweeds
+		} else {
+			Set ResultTaal = Personality.GeefTaal()
+		}
+	}
+	Quit ResultTaal
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: BL/FOP/Prod/Product.cls.xml
===================================================================
diff -u -r56610 -r66041
--- BL/FOP/Prod/Product.cls.xml	(.../Product.cls.xml)	(revision 56610)
+++ BL/FOP/Prod/Product.cls.xml	(.../Product.cls.xml)	(revision 66041)
@@ -115,7 +115,7 @@
 	#define TestPrijsLijst   (KLNr=4682)&&(Basis="P")
 	#define TestKlant        (KLNr?1(1"4682",1"5005"))
 	
-	New Ref,RecJ,arTxt,KlantRef,blImage,ImageUrl,ImageType,CodeMaatwerk,CodeMaatwerkVermelden
+	New Ref,RecJ,arTxt,KlantRef,blImage,ImageUrl,ImageType,CodeMaatwerk,CodeMaatwerkVermelden,ProduktOmschrijvingTaal
 	Set Ref=$NA(^KPR(PRNr))
 	Set:'$D(@Ref) Ref=$NA(^KPRO(PRNr))
 	Quit:'$D(@Ref)
@@ -170,7 +170,9 @@
 	. Set ..TEKST=##class(BL.FOP.Basis.pxTekstBlok).CreateFromArray(.arTxt)
 	. Set ..LevRef=$$$Trim($P(RecJ,"\",3))
 	Else  Do
-	. Do ##class(Prod.ProductTekst).GetOmschrijvingArrayViaPRNr(PRNr,Taal,.arTxt,1,1)
+	. Set ProduktOmschrijvingTaal = Taal
+	. Set:($IsObject($G(%blFlowDoc))) ProduktOmschrijvingTaal = %blFlowDoc.ProxySettings.GetAt("ProductOmschrijvingTaal")
+	. Do ..GeefOmschrijvingArrayVoorAlleTalen(PRNr,ProduktOmschrijvingTaal,.arTxt)
 	. If $G(KLNr)=$$$KlantGroupNivelles Do ; Toevoegen van gewicht en intrastat
 	. . Set Gewicht=$$$PRGet($$$Gewicht)
 	. . Set GewichtFmt=$TR($J(Gewicht/1000,0,3),".",",")
@@ -201,6 +203,34 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefOmschrijvingArrayVoorAlleTalen">
+<FormalSpec><![CDATA[PRNr:%String,Taal:DOM.enu.Taal,&arTxt:%String]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set ProductType = ##class(APPS.EC.enu.ProductType.AutoComplete).%New()
+	Set TaalEnum = ##class(DOM.enu.Taal.AutoComplete).%New()
+	
+	#dim IsBasisTaal as %Boolean =##class(TECH.StringUtils).Equals(Taal,TaalEnum.Nederlands,TaalEnum.Frans,TaalEnum.Duits,TaalEnum.Engels)
+	#dim KanLangtekstGenereren as %Boolean = $$$False
+	If $$$Not(IsBasisTaal) {
+		 Set KanLangtekstGenereren = ##class(TECH.StringUtils).Equals(..ProductType,ProductType.Taorbox,ProductType.Legrabox,ProductType.Merivobox)
+	} 
+
+	If $$$Not(IsBasisTaal) && KanLangtekstGenereren {
+		Set MaatwerkLangtekstBepaler = ##class(DOM.PM.impl.MaatwerkLangtekstBepaler).%New()
+		#dim Langtekst as DOM.PM.ProductLangtekst = MaatwerkLangtekstBepaler.GeefLangtekstViaPRNr(PRNr,Taal)
+		Kill arTxt
+		Set arTxt($Increment(arTxt)) = Langtekst.GeefHoofding()
+		Set it = ##class(TECH.ListIterator).%New(Langtekst.GeefDetail())
+		While(it.HasNext()) {
+			Set arTxt($Increment(arTxt)) = it.Next()
+		}
+	} Else {
+		Do ##class(Prod.ProductTekst).GetOmschrijvingArrayViaPRNr(PRNr,Taal,.arTxt,1,1)
+	}
+]]></Implementation>
+</Method>
+
 <Method name="ZetIntrastatGoederenCode">
 <FormalSpec>ProductID:%String,KlantID:DOM.VKP.VanHoeckeKlantID,Taal:%String</FormalSpec>
 <Private>1</Private>
Index: APPS/EC/enu/ProductType.cls.xml
===================================================================
diff -u -r62344 -r66041
--- APPS/EC/enu/ProductType.cls.xml	(.../ProductType.cls.xml)	(revision 62344)
+++ APPS/EC/enu/ProductType.cls.xml	(.../ProductType.cls.xml)	(revision 66041)
@@ -3,7 +3,7 @@
 <Class name="APPS.EC.enu.ProductType">
 <ClassType>datatype</ClassType>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>%String</Super>
+<Super>TECH.Enumeration</Super>
 
 <Parameter name="VALUELIST">
 <Default>;TBX;LBX;TAX;MVX</Default>
@@ -15,24 +15,28 @@
 
 <Method name="Tandembox">
 <ClassMethod>1</ClassMethod>
+<ReturnType>APPS.EC.enu.ProductType</ReturnType>
 <Implementation><![CDATA[	Quit "TBX"
 ]]></Implementation>
 </Method>
 
 <Method name="Taorbox">
 <ClassMethod>1</ClassMethod>
+<ReturnType>APPS.EC.enu.ProductType</ReturnType>
 <Implementation><![CDATA[	Quit "TAX"
 ]]></Implementation>
 </Method>
 
 <Method name="Legrabox">
 <ClassMethod>1</ClassMethod>
+<ReturnType>APPS.EC.enu.ProductType</ReturnType>
 <Implementation><![CDATA[	Quit "LBX"
 ]]></Implementation>
 </Method>
 
 <Method name="Merivobox">
 <ClassMethod>1</ClassMethod>
+<ReturnType>APPS.EC.enu.ProductType</ReturnType>
 <Implementation><![CDATA[	Quit "MVX"
 ]]></Implementation>
 </Method>
Index: APPS/EC/enu/ProductType/Verwerker.cls.xml
===================================================================
diff -u
--- APPS/EC/enu/ProductType/Verwerker.cls.xml	(revision 0)
+++ APPS/EC/enu/ProductType/Verwerker.cls.xml	(revision 66041)
@@ -0,0 +1,56 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.EC.enu.ProductType.Verwerker">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de Enumeratie - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+De enumeratie methoden moeten als type de enumeratieklasse zelf terug geven. De enumeratieklasse moet afleiden van TECH.Enumeration</Description>
+<Abstract>1</Abstract>
+<ProcedureBlock>1</ProcedureBlock>
+
+<Method name="Verwerk">
+<Final>1</Final>
+<FormalSpec>ProductType:APPS.EC.enu.ProductType</FormalSpec>
+<Implementation><![CDATA[
+	If ProductType = "LBX" {
+		Do ..VerwerkLegrabox()
+	} ElseIf ProductType = "MVX" {
+		Do ..VerwerkMerivobox()
+	} ElseIf ProductType = "TBX" {
+		Do ..VerwerkTandembox()
+	} ElseIf ProductType = "TAX" {
+		Do ..VerwerkTaorbox()
+	} Else {
+		Set Exceptie = ##class(TECH.Exceptions.EnumerationException).%New(ProductType,"APPS.EC.enu.ProductType",$classname())
+		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkLegrabox">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkMerivobox">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkTandembox">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkTaorbox">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>