Index: APPS/Web/OLParticulier/impl/DocumentCommon.cls.xml
===================================================================
diff -u -r734 -r1044
--- APPS/Web/OLParticulier/impl/DocumentCommon.cls.xml	(.../DocumentCommon.cls.xml)	(revision 734)
+++ APPS/Web/OLParticulier/impl/DocumentCommon.cls.xml	(.../DocumentCommon.cls.xml)	(revision 1044)
@@ -1,10 +1,10 @@
 <?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:48">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel) 5.0.21 (Build 6408U)" ts="2011-04-18 17:35:56">
 <Class name="APPS.Web.OLParticulier.impl.DocumentCommon">
 <IncludeCode>TECH.Error,vhLib.Macro</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
-<TimeChanged>62063,46958.94435</TimeChanged>
+<TimeChanged>62199,63356.556339</TimeChanged>
 <TimeCreated>61968,33971.513932</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
@@ -30,12 +30,15 @@
 	
 	$$$chkRequiredParameter(DocumentID)
 	
-	set Document = $zobjclassmethod("DOM.EC.OL."_..DocumentType_"."_..DocumentType,"OpenOrCreate",DocumentID)
+	set Aantal=""
+	set Document = $zobjclassmethod("DOM.EC.OL."_..DocumentType_"."_..DocumentType,"Open",DocumentID)
 	
-	set ProductenTeller = $zobjclassmethod("DOM.EC.OL."_..DocumentType_".Visitor.ProductenTeller","%New")
-	do Document.Accept(ProductenTeller)
+	if $IsObject(Document) {
 	
-	set Aantal = +ProductenTeller.Aantal
+		set ProductenTeller = $zobjclassmethod("DOM.EC.OL."_..DocumentType_".Visitor.ProductenTeller","%New")
+		do Document.Accept(ProductenTeller)
+		set Aantal = +ProductenTeller.Aantal
+	}
 	
 	quit Aantal
 ]]></Implementation>
@@ -51,20 +54,25 @@
 	
 	$$$chkRequiredParameter(DocumentID)
 	
-	set Document = $zobjclassmethod("DOM.EC.OL."_..DocumentType_"."_..DocumentType,"OpenOrCreate",DocumentID)
+	set result = ""
 	
-	set Visitor = ##class(APPS.Web.OLParticulier.impl.DocumentVisitor.GeefInhoud).%New(..APPSContext)
-	do Document.Accept(Visitor)
+	set Document = $zobjclassmethod("DOM.EC.OL."_..DocumentType_"."_..DocumentType,"Open",DocumentID)
 	
-	set TotaalPrijs = 0
-	set itGekozenItem = ##class(TECH.ListIterator).%New(Visitor.GekozenItemLijst.GekozenItem)
-	while itGekozenItem.HasNext() {
-		set GekozenItem = itGekozenItem.Next()
-		set TotaalPrijs = TotaalPrijs + GekozenItem.TotaalPrijs 
-	}
-	set Visitor.GekozenItemLijst.TotaalPrijs = TotaalPrijs
+	if $IsObject(Document) {
+		set Visitor = ##class(APPS.Web.OLParticulier.impl.DocumentVisitor.GeefInhoud).%New(..APPSContext)
+		do Document.Accept(Visitor)
+		
+		set TotaalPrijs = 0
+		set itGekozenItem = ##class(TECH.ListIterator).%New(Visitor.GekozenItemLijst.GekozenItem)
+		while itGekozenItem.HasNext() {
+			set GekozenItem = itGekozenItem.Next()
+			set TotaalPrijs = TotaalPrijs + GekozenItem.TotaalPrijs 
+		}
+		set Visitor.GekozenItemLijst.TotaalPrijs = TotaalPrijs
 	
-	quit Visitor.GekozenItemLijst
+		set result = Visitor.GekozenItemLijst
+	}
+	quit result
 ]]></Implementation>
 </Method>
 
@@ -77,15 +85,20 @@
 	$$$chkRequiredParameter(DocumentID)
 	$$$chkRequiredParameter(LijnID)
 	
-	set Document = $zobjclassmethod("DOM.EC.OL."_..DocumentType_"."_..DocumentType,"OpenOrCreate",DocumentID)
+	set result = ""
 	
-	set Visitor = ##class(APPS.Web.OLParticulier.impl.DocumentVisitor.GeefItem).%New(..APPSContext)	
+	set Document = $zobjclassmethod("DOM.EC.OL."_..DocumentType_"."_..DocumentType,"Open",DocumentID)
+
+	if $IsObject(Document) {
+		set Visitor = ##class(APPS.Web.OLParticulier.impl.DocumentVisitor.GeefItem).%New(..APPSContext)	
+
+		Set Lijn = Document.GeefLijn(LijnID)
+		Do Lijn.Accept(Visitor)
+		
+		set result = Visitor.GekozenItemMetCriteria
+	}
 	
-	Set Lijn = Document.GeefLijn(LijnID)
-	Do Lijn.Accept(Visitor)
-	
-	
-	quit Visitor.GekozenItemMetCriteria
+	quit result
 ]]></Implementation>
 </Method>
 
@@ -105,19 +118,19 @@
 	set Document = $zobjclassmethod("DOM.EC.OL."_..DocumentType_"."_..DocumentType,"OpenOrCreate",DocumentID)
 	
 	if $$$Not(Document.WijzigingenToegelaten()) $$$ThrowError($$$errUserError,"WijzigenOnmogelijk")
+		
+	   set ProductLijn = $zobjclassmethod("DOM.EC.OL."_..DocumentType_".ProductLijn","%New",KenmerkUnID,..#Aantal)
 	
-    set ProductLijn = $zobjclassmethod("DOM.EC.OL."_..DocumentType_".ProductLijn","%New",KenmerkUnID,..#Aantal)
-
 	if $IsObject(ProductCriteria) set ProductLijn.ProductCriteria = ##class(APPS.Web.OLParticulier.dtoUtils).ProductCriteriaLoadFromDTO(ProductCriteria)
 	if $IsObject(LadeSpec) set ProductLijn.LadeSpecificatie = ##class(APPS.Web.OLParticulier.dtoUtils).LadeSpecificatieLoadFromDTO(LadeSpec)
 	set ProductLijn.Zoekterm = Zoekterm
-
+	
 	do Document.VoegToe(ProductLijn)
 	set scSaved = Document.Save()
 	if $$$ISERR(scSaved) $$$ThrowErrorStatus($$$errSaveFailed,Document,scSaved)
-	
+		
 	set LijnID = ProductLijn.%Id()
-	
+		
 	quit LijnID
 ]]></Implementation>
 </Method>
@@ -132,7 +145,7 @@
 	$$$TECHErrorTrapOn
 
 	$$$chkRequiredParameter(DocumentID)
-	set Document = $zobjclassmethod("DOM.EC.OL."_..DocumentType_"."_..DocumentType,"OpenOrCreate",DocumentID)
+	set Document = $zobjclassmethod("DOM.EC.OL."_..DocumentType_"."_..DocumentType,"Open",DocumentID)
 	
 	if $$$Not(Document.WijzigingenToegelaten()) $$$ThrowError($$$errUserError,"WijzigenOnmogelijk")
 	
@@ -158,7 +171,7 @@
 	$$$TECHErrorTrapOn
 
 	$$$chkRequiredParameter(DocumentID)
-	set Document = $zobjclassmethod("DOM.EC.OL."_..DocumentType_"."_..DocumentType,"OpenOrCreate",DocumentID)
+	set Document = $zobjclassmethod("DOM.EC.OL."_..DocumentType_"."_..DocumentType,"Open",DocumentID)
 
 	if $$$Not(Document.WijzigingenToegelaten()) $$$ThrowError($$$errUserError,"WijzigenOnmogelijk")
 
@@ -200,5 +213,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="1808452204"/>
+<Checksum value="918137760"/>
 </Export>