Index: BL/Flow/Proxy/pxLevering.cls.xml
===================================================================
diff -u -r67857 -r71017
--- BL/Flow/Proxy/pxLevering.cls.xml	(.../pxLevering.cls.xml)	(revision 67857)
+++ BL/Flow/Proxy/pxLevering.cls.xml	(.../pxLevering.cls.xml)	(revision 71017)
@@ -578,6 +578,12 @@
 	Set ..Gewicht=##class(BL.FOP.Basis.pxAttribUnit).Create($P($P(Rec,"\",13),"#",3),"kg")
 	Set ..HoutCertificaten = ##class(BL.Flow.Proxy.pxHoutCertificaat).BepaalHoutCertificatenViaBon(BONNr,FactSoort,Taal)
 	
+	#dim ToonMeldingEuropaletOmruilen As %Boolean = ##class(TECH.StringUtils).Equals( $$$Trim(..VERZENDWIJZE), "DI1", "DD1")
+	If ToonMeldingEuropaletOmruilen {
+		#dim pxMemo As BL.FOP.Basis.pxTekstHTML = ##class(BL.FOP.Basis.pxTekstHTML).Create("MEMO", ..GeefMeldingEuropaletOmruilen(Taal), $LB("type=MEMO"), 0, 1)
+		Do ..MEMO.Insert(pxMemo)
+	}
+	
 	Quit
 flbCalcRembours(KLNr,BONNr,FactSoort)
 	Quit ..CalcRembours(KLNr,BONNr,FactSoort)
@@ -599,6 +605,17 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefMeldingEuropaletOmruilen">
+<FormalSpec>Taal:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim MeldingEuropaletOmruilen As %String = "Bij levering op europaletten dient het exacte aantal steeds omgeruild te worden op het moment van levering."
+	Set:(Taal = "F") MeldingEuropaletOmruilen = "En cas de livraison sur europalettes, le nombre exact doit toujours être échangé au moment de la livraison."
+	Quit MeldingEuropaletOmruilen
+]]></Implementation>
+</Method>
+
 <Method name="GeefDatumOpBonGezet">
 <FormalSpec>LeveringBonId:%String,Klantnummer:%String</FormalSpec>
 <Private>1</Private>