Index: BL/Flow/Levering/sub/pxKlantPallet.cls.xml
===================================================================
diff -u -r2523 -r70593
--- BL/Flow/Levering/sub/pxKlantPallet.cls.xml	(.../pxKlantPallet.cls.xml)	(revision 2523)
+++ BL/Flow/Levering/sub/pxKlantPallet.cls.xml	(.../pxKlantPallet.cls.xml)	(revision 70593)
@@ -46,6 +46,10 @@
 <Type>%String</Type>
 </Property>
 
+<Property name="VerzendwijzeExtraInfo">
+<Type>%String</Type>
+</Property>
+
 <Property name="KlantnaamBIG">
 <Type>%String</Type>
 </Property>
@@ -69,10 +73,49 @@
 <Method name="WriteRow">
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Write ..Logo,*9,..KlantNaam,*9,..Toenaam,*9,..StraatNaamNr,*9,..Gemeente,*9,..Bonnr,*9,..Verzendwijze,*9,..KlantnaamBIG,*9,..CommRef,*9,..PalID,*9,..MagazijnID,*9,..UserIDPicker
+	Write ..Logo,*9,..KlantNaam,*9,..Toenaam,*9,..StraatNaamNr,*9,..Gemeente,*9,..Bonnr,*9,..Verzendwijze,*9,..VerzendwijzeExtraInfo,*9,..WriteKlantnaamBigOfUrgent(),..CommRef,*9,..PalID,*9,..MagazijnID,*9,..UserIDPicker
 	Write $C(13,10)
 	Quit $$$OK
 ]]></Implementation>
 </Method>
+
+<Method name="WriteHeader">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Do ..WriteHeaderBasis()
+	Write $C(13,10)
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="WriteHeaderBasis">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Write "Logo",*9
+	Write "KlantNaam",*9
+	Write "Toenaam",*9
+	Write "StraatNaamNr",*9
+	Write "Gemeente",*9
+	Write "Bonnr",*9
+	Write "Verzendwijze",*9
+	Write "VerzendwijzeExtraInfo",*9
+	Write "KlantnaamBIG",*9
+	Write "CommRef",*9
+	Write "PalID",*9
+	Write "MagazijnID",*9
+	Write "UserIDPicker",*9
+]]></Implementation>
+</Method>
+
+<Method name="WriteKlantnaamBigOfUrgent">
+<Private>1</Private>
+<Implementation><![CDATA[
+	If (..Verzendwijze = "THU") {
+		Write "HLX URGENT",*9
+	} Else {
+		Write ..KlantnaamBIG,*9
+	}
+]]></Implementation>
+</Method>
 </Class>
 </Export>