Index: Flow/OrderWMS/Hoofding.cls.xml
===================================================================
diff -u -r55608 -r60142
--- Flow/OrderWMS/Hoofding.cls.xml	(.../Hoofding.cls.xml)	(revision 55608)
+++ Flow/OrderWMS/Hoofding.cls.xml	(.../Hoofding.cls.xml)	(revision 60142)
@@ -34,6 +34,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefAXLeverAdresID">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit $Piece($Get(^ORDW("D",..ConsolidatieNr,"A")),"\",29)
+]]></Implementation>
+</Method>
+
 <Method name="GetKlantOrLevAdres">
 <ReturnType>%Library.String</ReturnType>
 <Implementation><![CDATA[