Index: AX/Uitgaand/EC/Klanten/impl/pxAdres.cls.xml
===================================================================
diff -u -r38084 -r42557
--- AX/Uitgaand/EC/Klanten/impl/pxAdres.cls.xml	(.../pxAdres.cls.xml)	(revision 38084)
+++ AX/Uitgaand/EC/Klanten/impl/pxAdres.cls.xml	(.../pxAdres.cls.xml)	(revision 42557)
@@ -83,14 +83,14 @@
  	Set VolgNr=0
 	If ($TR($ZCVT(Klant.StraatNrBus,"U")," ","")'["POSTBUS") Do ; geen postbus adres
 	. Set pxAdres=..%New()
-	. Do pxAdres.Fill("H",Klant.Aanspreking, Klant.Naam, Klant.Toenaam, Klant.StraatNrBus, Klant.Postnummer, Klant.Woonplaats, Klant.LandCode)
+	. Do pxAdres.Fill("H",Klant.Aanspreking, Klant.Naam, Klant.Toenaam, Klant.StraatNrBus, Klant.Postnummer, Klant.Woonplaats, Klant.LandCode,,,,$$SHOW^KLVERZW(,KLNr,,,,,1),"Main",,Klant.Taal)
 	. Do Array.SetAt(pxAdres,VolgNr)
 
 	; Leveringsadressen
    	Set KLNr=Klant.%Id()
 	&sql(DECLARE FAP CURSOR FOR
-		SELECT NummerLeveringsadres,Aanspreking, Naam, PostNummer, StraatNrBus, ToeNaam, Woonplaats, Land->Code,KodeLeveringsadres,Telefoon, Telefoon2, AlternatieveNaam, Opmerking1,Opmerking2,TypeAdres
-    	INTO AdresID,Aanspreking, Naam, PostCode, StraatNrBus, ToeNaam, Woonplaats, LandCode,KodeLeveringsadres,Telefoon1, Telefoon2, AlternatieveNaam, Opmerking1,Opmerking2,TypeAdres
+		SELECT NummerLeveringsadres,Aanspreking, Naam, PostNummer, StraatNrBus, ToeNaam, Woonplaats, Land->Code,KodeLeveringsadres,Telefoon, Telefoon2, AlternatieveNaam, Opmerking1,Opmerking2,TypeAdres,Verzendwijze
+    	INTO AdresID,Aanspreking, Naam, PostCode, StraatNrBus, ToeNaam, Woonplaats, LandCode,KodeLeveringsadres,Telefoon1, Telefoon2, AlternatieveNaam, Opmerking1,Opmerking2,TypeAdres,Verzendwijze
 		FROM Derde_Klant.LevAdres
 		WHERE Klant = :KLNr 
 		ORDER BY TypeAdres )
@@ -101,16 +101,16 @@
  	. If KodeLeveringsadres?4.6N Do  ; Het leveringsadres kan een link zijn naar het hoofdadres van een andere klant
  	. . Set oAndereKlant=##class(Derde.Klant.Klant).%OpenId(KodeLeveringsadres)
  	. . Quit:'$isObject(oAndereKlant)
- 	. . Do pxAdres.Fill(AdresID,oAndereKlant.Aanspreking,oAndereKlant.Naam, oAndereKlant.Toenaam, oAndereKlant.StraatNrBus, oAndereKlant.Postnummer, oAndereKlant.Woonplaats, oAndereKlant.LandCode,,,,"Link",,TypeAdres)
+ 	. . Do pxAdres.Fill(AdresID,oAndereKlant.Aanspreking,oAndereKlant.Naam, oAndereKlant.Toenaam, oAndereKlant.StraatNrBus, oAndereKlant.Postnummer, oAndereKlant.Woonplaats, oAndereKlant.LandCode,,,,oAndereKlant.Verzendwijze,"Link",TypeAdres,Klant.Taal)
 	. Else  Do
-	. . Do pxAdres.Fill(AdresID,Aanspreking, Naam, ToeNaam, StraatNrBus, PostCode, Woonplaats, LandCode,Telefoon1,Telefoon2,AlternatieveNaam,Opmerking1,Opmerking2,TypeAdres)
+	. . Do pxAdres.Fill(AdresID,Aanspreking, Naam, ToeNaam, StraatNrBus, PostCode, Woonplaats, LandCode,Telefoon1,Telefoon2,AlternatieveNaam,$S(Verzendwijze="":Klant.Verzendwijze,1:Verzendwijze),Opmerking2,TypeAdres,Klant.Taal)
 	. Do Array.SetAt(pxAdres,$I(VolgNr))
  	&sql(CLOSE FAP)
 ]]></Implementation>
 </Method>
 
 <Method name="Fill">
-<FormalSpec>AdresID:%String,Aanspreking:%String,Naam:%String,Toenaam:%String,StraatNrBus:%String,PostCode:%String,Woonplaats:%String,LandCode:%String,Telefoon1:%String="",Telefoon2:%String="",AlternatieveNaam:%String="",Opmerking1:%String="",Opmerking2:%String="",TypeAdres:%String=""</FormalSpec>
+<FormalSpec>AdresID:%String,Aanspreking:%String,Naam:%String,Toenaam:%String,StraatNrBus:%String,PostCode:%String,Woonplaats:%String,LandCode:%String,Telefoon1:%String="",Telefoon2:%String="",AlternatieveNaam:%String="",VerzendWijze:%String="",Opmerking2:%String="",TypeAdres:%String="",Taal:%String="N"</FormalSpec>
 <Implementation><![CDATA[
 	if TypeAdres = "B" { 
 		Set Naam = $extract(Naam,1,21)_" (B)"
@@ -125,10 +125,24 @@
 	Set ..Land=LandCode
 	Set ..Telefoon1=$G(Telefoon1)
 	Set ..Telefoon2=$G(Telefoon2)
-	Set ..AlternatieveNaam=$G(AlternatieveNaam)
-	Set ..Opmerking1=$G(Opmerking1)
+	Set ..AlternatieveNaam=$G(AlternatieveNaam) ; GLS volmacht alternatief adres
+	Set ..Opmerking1=..VertaalVerzendwijze(VerzendWijze,Taal)
 	Set ..Opmerking2=$G(Opmerking2)
 ]]></Implementation>
 </Method>
+
+<Method name="VertaalVerzendwijze">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Verzendwijze:%String,Taal:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set Verzendwijze=$P($P($P(Verzendwijze,"`"),";"),",")
+	Set:Verzendwijze?1"OD"1N Verzendwijze="OD"
+	Quit:Verzendwijze="" ""
+	Set:Taal="" Taal="N"
+	Set Oms=$G(^RES("KLANT","PI","VERZENDWIJZE","D",Verzendwijze,Taal))
+	Set:Oms="" Oms=$G(^RES("KLANT","PI","VERZENDWIJZE","D",Verzendwijze,"N"))
+	Quit Oms
+]]></Implementation>
+</Method>
 </Class>
 </Export>