Index: WS/Vhisie4/RequestHeader.cls.xml
===================================================================
diff -u -r40859 -r40862
--- WS/Vhisie4/RequestHeader.cls.xml	(.../RequestHeader.cls.xml)	(revision 40859)
+++ WS/Vhisie4/RequestHeader.cls.xml	(.../RequestHeader.cls.xml)	(revision 40862)
@@ -49,6 +49,14 @@
 <Parameter name="VALUELIST" value=",N,F,E,D"/>
 </Property>
 
+<Method name="KlantIdGet">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	If (i%KlantId=6819)||(i%KlantId=1000) Set %GeenPrijsInVhisie4=1
+	Quit $S($Get(%GeenPrijsInVhisie4):1736,1:i%KlantId)
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
 <State>RequestHeaderState</State>