Index: DCTRANSP.mac.rou
===================================================================
diff -u -r734 -r2306
--- DCTRANSP.mac.rou	(.../DCTRANSP.mac.rou)	(revision 734)
+++ DCTRANSP.mac.rou	(.../DCTRANSP.mac.rou)	(revision 2306)
@@ -33,7 +33,7 @@
  ; Afdruk body
 BODY
  New %J,B,I,R,T,BCount,GroepNr,KLNr,Naam,ToeNaam,Adres,PostNr,Woonpl,Land,Munt,SortKey,KlTaal,VrachtKost
- New Gewicht,Rembours,KlantOpm,ORDNr,BONNr,FANr,PROFNr,ContactType,ContactRef,Paletten,Collo,LangGoed
+ New Gewicht,Rembours,KlantOpm,ORDNr,BONNr,FANr,PROFNr,ContactType,ContactRef,Paletten,Collo,LangGoed,KPaletten
  New lbKenAnk,KenAnk,ObjKenAnk,IRef,Referenties,FSepLin,LSepLine
  Set %J=$$%J^vhRtn1()
  Do SortBody(%J,TranspNr)
@@ -59,8 +59,9 @@
  . Set Paletten=$G(^TRANSP("D",TranspNr,"D",GroepNr,"Q","E"))
  . Set Collo=$G(^TRANSP("D",TranspNr,"D",GroepNr,"Q","C"))
  . Set LangGoed=$G(^TRANSP("D",TranspNr,"D",GroepNr,"Q","L"))
+ . Set KPaletten=$G(^TRANSP("D",TranspNr,"D",GroepNr,"Q","P"))
  . Set KlantOpm(1)=$$TXT("VrachtK")_": "_^RES("TRANSPORT","PI","VRACHTKOST","D",$S(VrachtKost="":"NV",1:VrachtKost),Taal)_"~"
- . If 'Paletten,'Collo,'LangGoed
+ . If 'Paletten,'Collo,'LangGoed,'KPaletten
  . Else  Do
  . . Set KlantOpm(1)=KlantOpm(1)_$$TXT("VVolume")_":~"
  . . If Paletten Set KlantOpm(1)=KlantOpm(1)_Paletten_" "_$$TXT($S(Paletten=1:"Palet",1:"Paletten"))_", "
@@ -69,6 +70,7 @@
  . . . Set KlantOpm(1)=KlantOpm(1)_$$TXT("LangGoed")_" "_$P(LangGoed,D)
  . . . Set KlantOpm(1)=KlantOpm(1)_$S($L($P(LangGoed,D,2)):" "_$$TXT("Van")_" "_$P(LangGoed,D,2)_" "_$$TXT("Meter"),1:"")
  . . . Set KlantOpm(1)=KlantOpm(1)_", "
+ . . If KPaletten Set KlantOpm(1)=KlantOpm(1)_KPaletten_" "_$$TXT($S(Paletten=1:"KPalet",1:"KPaletten"))_", "
  . . Set $E(KlantOpm(1),$L(KlantOpm(1))-1,$L(KlantOpm(1)))=".~"
  . Set KlantOpm(1)=KlantOpm(1)_$G(^TRANSP("D",TranspNr,"D",GroepNr,"T"))
  . Set R=$G(^TRANSP("D",TranspNr,"D",GroepNr,"A"))
@@ -392,8 +394,10 @@
 TOnderst ;onderstaande adressen\adresses suivantes\folgende Adressen\onderstaande adressen
 TTenLste ;ten laatste op\en dernier lieu\sp�testens am\at the latest on;om\�\um\
 TVVolume ;Voorzien volume\Volume pr�vu\Vorgeschenes volume\Foreseen volume
-TPalet ;palet\palette\Palette\Pallet
-TPaletten ;paletten\palettes\Paletten\Pallets
+TPalet ;Europallet\Europalette\Euro-Palette\Euro Pallet
+TPaletten ;Europalletten\Euro-palettes\Euro-Paletten\Euro Pallets
+TKPalet ;klein pallet\petite palette\kleine palette\small pallet
+TKPaletten ;kleine palletten\petites palettes\kleine Paletten\small pallets
 TCollie ;collie\collis\Pakette\Packet
 TCollo ;collo\collis\Pakette\Packets
 TLangGoed ;langgoed\langgoed\langgoed\langgoed