Index: DOM/OV/impl/DataM/DataMOrder.cls.xml
===================================================================
diff -u -r734 -r903
--- DOM/OV/impl/DataM/DataMOrder.cls.xml	(.../DataMOrder.cls.xml)	(revision 734)
+++ DOM/OV/impl/DataM/DataMOrder.cls.xml	(.../DataMOrder.cls.xml)	(revision 903)
@@ -1,9 +1,9 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-01-27 17:00:58">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-04 08:14:35">
 <Class name="DOM.OV.impl.DataM.DataMOrder">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject,DOM.OV.Order</Super>
-<TimeChanged>62108,55335.498937</TimeChanged>
+<TimeChanged>62154,29745.14952</TimeChanged>
 <TimeCreated>62063,29965.721214</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
@@ -12,6 +12,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="HoofdingData">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="KlantNr">
 <Type>%Integer</Type>
 <Private>1</Private>
@@ -49,7 +54,7 @@
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
 	Set KLNr = ..GeefKlantNr()
-	Set Iterator = ..GeefTypeOrderLijnIterator(##class(DOM.OV.enu.OrderlijnType).Product())
+	Set Iterator = ..GeefTypeOrderlijnIterator(##class(DOM.OV.enu.OrderlijnType).Product())
 	Set BevatLangGoed=0
 	While ('BevatLangGoed && Iterator.HasNext()) {
 		Set ProductOrderLijn=Iterator.Next()
@@ -59,6 +64,26 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IsASAP">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ($Piece(..HoofdingData,"\",28) = 1)
+]]></Implementation>
+</Method>
+
+<Method name="GeefIngegevenDoor">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set UserId = $Piece($Piece(..HoofdingData,"\",8),"#")
+	Quit $$USERNAMESQL^vhUSER(UserId,1)
+]]></Implementation>
+</Method>
+
+<Method name="GeefKlant">
+<ReturnType>DOM.CRM.Klant</ReturnType>
+<Implementation><![CDATA[	Quit ##class(DOM.DomeinContext).Instance().GeefKlantAPI().GeefKlant(..GeefKlantNr())
+]]></Implementation>
+</Method>
+
 <Method name="GeefKlantNr">
 <ReturnType>%Integer</ReturnType>
 <Implementation><![CDATA[	Quit ..KlantNr
@@ -83,7 +108,8 @@
 		Set Straat = $Piece(..KlantData,"\",5)
 		Set Postcode = $Piece(..KlantData,"\",6)
 		Set Gemeente = $Piece(..KlantData,"\",7)
-		Set AfleverAdres = ##class(DOM.OV.impl.DataM.DataMAdres).%New(Naam, Toenaam, Aanspreking, Straat, Postcode, Gemeente)
+		Set Land = $Piece(..KlantData,"\",8)
+		Set AfleverAdres = ##class(DOM.OV.impl.DataM.DataMAdres).%New(Naam, Toenaam, Aanspreking, Straat, Postcode, Gemeente, Land)
 	}
 	Quit AfleverAdres
 ]]></Implementation>
@@ -103,13 +129,13 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefOrderLijnIterator">
+<Method name="GeefOrderlijnIterator">
 <ReturnType>TECH.Iterator</ReturnType>
 <Implementation><![CDATA[	Quit ##class(DOM.OV.impl.DataM.DataMOrderlijnIterator).%New(##this)
 ]]></Implementation>
 </Method>
 
-<Method name="GeefTypeOrderLijnIterator">
+<Method name="GeefTypeOrderlijnIterator">
 <FormalSpec>Type:DOM.OV.enu.OrderlijnType</FormalSpec>
 <ReturnType>TECH.Iterator</ReturnType>
 <Implementation><![CDATA[	Quit ##class(DOM.OV.impl.DataM.DataMTypedOrderLijnIterator).%New(##this,Type)
@@ -127,12 +153,23 @@
 ]]></Implementation>
 </Method>
 
+<Method name="HoofdingDataGet">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	If (i%HoofdingData = "") {
+		Set i%HoofdingData = ^KOD(..KlantNr, "F", ..OrderNr, 1)
+	}
+	Quit i%HoofdingData
+]]></Implementation>
+</Method>
+
 <Method name="IsPersistent">
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[	Quit ..GeefKlantNr()'=""
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="4064815884"/>
+<Checksum value="375460592"/>
 </Export>