Index: DOM/OV/impl/DataM/DataMOrder.cls.xml
===================================================================
diff -u -r946 -r994
--- DOM/OV/impl/DataM/DataMOrder.cls.xml	(.../DataMOrder.cls.xml)	(revision 946)
+++ DOM/OV/impl/DataM/DataMOrder.cls.xml	(.../DataMOrder.cls.xml)	(revision 994)
@@ -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-03-18 15:40:53">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-28 10:52:54">
 <Class name="DOM.OV.impl.DataM.DataMOrder">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject,DOM.OV.Order</Super>
-<TimeChanged>62168,56533.686918</TimeChanged>
+<TimeChanged>62178,39173.966174</TimeChanged>
 <TimeCreated>62063,29965.721214</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
@@ -37,6 +37,10 @@
 <Collection>list</Collection>
 </Property>
 
+<Property name="AfleverAdres">
+<Type>DOM.common.Adres</Type>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>OrderNr:%Integer</FormalSpec>
 <Private>1</Private>
@@ -48,11 +52,18 @@
 	{
 		Set ..OrderNr = OrderNr
 		Set ..KlantNr = $Piece($Get(^KO1(OrderNr,"F")),"\")
-		Set ..VolgendOrderLijnNr = ^KOD(..KlantNr,"F",..OrderNr,0)
+		If ($Data(^KOD(..KlantNr,"F",..OrderNr)))
+		{
+			Set ..VolgendOrderLijnNr = ^KOD(..KlantNr,"F",..OrderNr,0)
+		}
+		Else
+		{
+			Set Status = $$$ERROR($$$GeneralError,"Dit order is niet meer aanwezig")
+		}
 	}
 	Else
 	{
-		Set Status = 0
+		Set Status = $$$ERROR($$$GeneralError,"Dit order is niet meer aanwezig")
 	}
 	Quit Status
 ]]></Implementation>
@@ -62,7 +73,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()
@@ -82,10 +93,29 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	Set UserId = $Piece($Piece(..HoofdingData,"\",8),"#")
-	Quit $$USERNAMESQL^vhUSER(UserId,1)
+	Quit $$USERNAMESQL^vhUSER(UserId,-1)
 ]]></Implementation>
 </Method>
 
+<Method name="GeefVerzendWijze">
+<ReturnType>DOM.VKP.VerzendWijze</ReturnType>
+<Implementation><![CDATA[
+	Set AfleverAdres = ..GeefAfleveradres()
+	Set VerzendWijze = ""
+	If (AfleverAdres '= "")
+	{
+		Set VerzendWijze = ##class(DOM.VKP.VerzendWijze).%New(..KlantNr, ..GeefVerzendingWijze(), AfleverAdres.GeefLandCode(), AfleverAdres.GeefPostcode(), ..OrderNr)
+	}
+	Quit VerzendWijze
+]]></Implementation>
+</Method>
+
+<Method name="GeefVerzendingWijze">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit $Piece(..HoofdingData,"\",7)
+]]></Implementation>
+</Method>
+
 <Method name="GeefKlant">
 <ReturnType>DOM.CRM.Klant</ReturnType>
 <Implementation><![CDATA[	Quit ##class(DOM.DomeinContext).Instance().GeefKlantAPI().GeefKlant(..GeefKlantNr())
@@ -107,8 +137,7 @@
 <Method name="GeefAfleveradres">
 <ReturnType>DOM.common.Adres</ReturnType>
 <Implementation><![CDATA[
-	Set AfleverAdres = ""
-	If (..IsPersistent())
+	If ('$IsObject(..AfleverAdres) && ..IsPersistent())
 	{
 		Set Naam = $Piece(..KlantData,"\",2)
 		Set Toenaam = $Piece(..KlantData,"\",3)
@@ -117,9 +146,9 @@
 		Set Postcode = $Piece(..KlantData,"\",6)
 		Set Gemeente = $Piece(..KlantData,"\",7)
 		Set Land = $Piece(..KlantData,"\",8)
-		Set AfleverAdres = ##class(DOM.OV.impl.DataM.DataMAdres).%New(Naam, Toenaam, Aanspreking, Straat, Postcode, Gemeente, Land)
+		Set ..AfleverAdres = ##class(DOM.OV.impl.DataM.DataMAdres).%New(Naam, Toenaam, Aanspreking, Straat, Postcode, Gemeente, Land)
 	}
-	Quit AfleverAdres
+	Quit ..AfleverAdres
 ]]></Implementation>
 </Method>
 
@@ -131,7 +160,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefOrderlijn">
+<Method name="GeefOrderLijn">
 <FormalSpec>LijnNr:%Integer</FormalSpec>
 <ReturnType>DOM.OV.Orderlijn</ReturnType>
 <Implementation><![CDATA[
@@ -151,14 +180,14 @@
 ]]></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">
-<FormalSpec>Type:DOM.OV.enu.OrderlijnType</FormalSpec>
+<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)
 ]]></Implementation>
@@ -193,5 +222,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="3078234314"/>
+<Checksum value="1760035332"/>
 </Export>