Index: APPS/TRANSP/GLS/GLSv1/Bericht/impl/RequestDataBouwer.cls.xml
===================================================================
diff -u -r50788 -r51339
--- APPS/TRANSP/GLS/GLSv1/Bericht/impl/RequestDataBouwer.cls.xml	(.../RequestDataBouwer.cls.xml)	(revision 50788)
+++ APPS/TRANSP/GLS/GLSv1/Bericht/impl/RequestDataBouwer.cls.xml	(.../RequestDataBouwer.cls.xml)	(revision 51339)
@@ -399,8 +399,10 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	Set Postcode = $Replace(Postcode,"-"," ")
-	If Landcode = "PT" set Postcode = $extract(Postcode,1,4)
-	If Landcode = "SE" set Postcode = $replace(Postcode," ","")
+	If Landcode = "PT" Set Postcode = $Extract(Postcode,1,4)
+	If Landcode = "SE" Set Postcode = $Replace(Postcode," ","")
+	If Landcode = "DE" Set Postcode = $Replace(Postcode,"DE","D")
+	If Landcode = "FR" Set Postcode = $Replace(Postcode,"FR","F")
 	Quit Postcode
 ]]></Implementation>
 </Method>