Index: BL/FOP/Prod/Product.cls.xml
===================================================================
diff -u -r66041 -r66076
--- BL/FOP/Prod/Product.cls.xml	(.../Product.cls.xml)	(revision 66041)
+++ BL/FOP/Prod/Product.cls.xml	(.../Product.cls.xml)	(revision 66076)
@@ -170,8 +170,9 @@
 	. Set ..TEKST=##class(BL.FOP.Basis.pxTekstBlok).CreateFromArray(.arTxt)
 	. Set ..LevRef=$$$Trim($P(RecJ,"\",3))
 	Else  Do
-	. Set ProduktOmschrijvingTaal = Taal
+	. Set ProduktOmschrijvingTaal = ""
 	. Set:($IsObject($G(%blFlowDoc))) ProduktOmschrijvingTaal = %blFlowDoc.ProxySettings.GetAt("ProductOmschrijvingTaal")
+	. Set:(ProduktOmschrijvingTaal="") ProduktOmschrijvingTaal = Taal
 	. Do ..GeefOmschrijvingArrayVoorAlleTalen(PRNr,ProduktOmschrijvingTaal,.arTxt)
 	. If $G(KLNr)=$$$KlantGroupNivelles Do ; Toevoegen van gewicht en intrastat
 	. . Set Gewicht=$$$PRGet($$$Gewicht)
@@ -207,27 +208,35 @@
 <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)
-	} 
+	Try {
+		Set ProductType = ##class(APPS.EC.enu.ProductType.AutoComplete).%New()
+		Set TaalEnum = ##class(DOM.enu.Taal.AutoComplete).%New()
+		Set:(Taal="") Taal = "N"
+		#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()
+		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)
 		}
-	} Else {
-		Do ##class(Prod.ProductTekst).GetOmschrijvingArrayViaPRNr(PRNr,Taal,.arTxt,1,1)
 	}
+	Catch {
+		#dim GecatchteException As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Set NewException = ##class(TECH.Exceptions.GeneralErrorException).%New("Fout bij het berekenen van de langtekst voor product '"_PRNr_"' voor taal '"_ Taal _"' via FOP-scheduler.")
+		Do NewException.VoegToeInnerExceptie(GecatchteException)
+		Do ##class(TECH.ExceptionHandler).Throw(NewException)
+	}
 ]]></Implementation>
 </Method>