Index: APPS/TRANSP/GLS/Bericht/impl/RequestDataBouwer.cls.xml
===================================================================
diff -u -r31086 -r32166
--- APPS/TRANSP/GLS/Bericht/impl/RequestDataBouwer.cls.xml	(.../RequestDataBouwer.cls.xml)	(revision 31086)
+++ APPS/TRANSP/GLS/Bericht/impl/RequestDataBouwer.cls.xml	(.../RequestDataBouwer.cls.xml)	(revision 32166)
@@ -222,7 +222,7 @@
 	
 	#dim LeveringAdres As APPS.TRANSP.dto.LeveringAdres = LeveringInfo.LeverAdres
 	Set Request.T100 = LeveringAdres.LandCode
-	Set Request.T330 = ..GeefGeformateerdePostcode(LeveringAdres.Postcode)
+	Set Request.T330 = ..GeefGeformateerdePostcode(LeveringAdres.LandCode,LeveringAdres.Postcode)
 	Set Request.T860 = LeveringAdres.Naam
 	Set Request.T759 = LeveringAdres.Naam 	/// mag ingevuld worden, maar uit eigen data hebben we geen nuttige contactnaam, dus ook Naam 
 	Set Request.T861 = $Select($Length(LeveringAdres.Toenaam):LeveringAdres.Toenaam,1:" ")
@@ -256,7 +256,7 @@
 	Set Request.T811 = "" ;AfzenderAdres.Toenaam, tijdelijk in commentaar want voor EDI met GLS is 'HOECKE' verplicht als toenaam.
 	Set Request.T820 = AfzenderAdres.Straat
 	Set Request.T821 = AfzenderAdres.LandCode
-	Set Request.T822 = ..GeefGeformateerdePostcode(AfzenderAdres.Postcode)
+	Set Request.T822 = ..GeefGeformateerdePostcode(AfzenderAdres.LandCode,AfzenderAdres.Postcode)
 	Set Request.T823 = AfzenderAdres.Woonplaats
 	
 	Set Request.T854 = LeveringInfo.Referentie
@@ -386,10 +386,13 @@
 </Method>
 
 <Method name="GeefGeformateerdePostcode">
-<FormalSpec>Postcode:%String</FormalSpec>
+<FormalSpec>Landcode:%String,Postcode:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit $Replace(Postcode,"-"," ")
+<Implementation><![CDATA[
+	set Postcode = $Replace(Postcode,"-"," ")
+	if Landcode = "PT" set Postcode = $extract(Postcode,1,4)
+	Quit Postcode
 ]]></Implementation>
 </Method>