Index: APPS/CRM/Interacties/BehandeldOnderwerp.cls.xml
===================================================================
diff -u -r1479 -r2031
--- APPS/CRM/Interacties/BehandeldOnderwerp.cls.xml	(.../BehandeldOnderwerp.cls.xml)	(revision 1479)
+++ APPS/CRM/Interacties/BehandeldOnderwerp.cls.xml	(.../BehandeldOnderwerp.cls.xml)	(revision 2031)
@@ -15,8 +15,10 @@
 
 	set BehandeldOnderwerp = ##class(DOM.CRM.BehandeldOnderwerp.BehandeldOnderwerp).%New()
 	
-	set BehandeldOnderwerp.Oorsprong.ID = dtoOorsprong.ID
-	set BehandeldOnderwerp.Oorsprong.Type = dtoOorsprong.Type
+	if $isObject(dtoOorsprong) {
+		set BehandeldOnderwerp.Oorsprong.ID = dtoOorsprong.ID
+		set BehandeldOnderwerp.Oorsprong.Type = dtoOorsprong.Type
+	}
 
 	do ..BehandeldOnderwerpLoadFromDTO(BehandeldOnderwerp,dtoBehandeldOnderwerp)
 		
@@ -102,10 +104,7 @@
 				" WHERE Toepassingen_KlantDivisie = ? AND Toepassingen_Toepassing = ?"
 				
 	set KlantDivisie = "KS"  ; klant divisie wordt hardcoded overruled aangezien er toch geen verschil wordt gemaakt in de verschillende divisies
-	;set Toepassing = "B"     ; Toepassing zelfde regeling als KlantDivisie
 	
-	do WLIP^vhDBG(195,KlantDivisie_" "_Toepassing)
-				
 	set qHandler = $$ExecDynQuery^vhQUERYLIB(query,$listbuild(KlantDivisie,Toepassing))
 	while qHandler.Next()
 	 { set Metadata = ##class(DOM.CRM.Interacties.Metadata).%OpenId(qHandler.Get("Metadata"))
@@ -211,24 +210,27 @@
 
 <Method name="IsValidOorsprongDTO">
 <ClassMethod>1</ClassMethod>
-<FormalSpec>dtoOorsprong</FormalSpec>
+<FormalSpec>dtoOorsprong:APPS.CRM.Interacties.dto.Oorsprong</FormalSpec>
 <ReturnType>%List</ReturnType>
 <Implementation><![CDATA[
 	set lbResult = ""
 	
-	if $$$Not($length(dtoOorsprong.ID)) { $$$AddErrorToList(lbResult,1000,"OorsprongsID niet opgegeven") }
+	if $isObject(dtoOorsprong) {
 	
-	if $$$Not($length(dtoOorsprong.Type)) { $$$AddErrorToList(lbResult,1000,"Type oorsprong niet opgegeven") }
+		if $$$Not($length(dtoOorsprong.ID)) { $$$AddErrorToList(lbResult,1000,"OorsprongsID niet opgegeven") }
 	
-	quit:(dtoOorsprong.Type="Onbepaald") lbResult
+		if $$$Not($length(dtoOorsprong.Type)) { $$$AddErrorToList(lbResult,1000,"Type oorsprong niet opgegeven") }
 	
-	set Package = "DOM.CRM.Oorsprong"
+		quit:(dtoOorsprong.Type="Onbepaald") lbResult
 	
-	do arrDerivedClasses^vhLib.Class(Package_"."_"Abstract",.arrClasses)	
-	if '$data(arrClasses(Package_"."_dtoOorsprong.Type)) { $$$AddErrorToList(lbResult,1000,"Type oorsprong is onbestaand") } 
+		set Package = "DOM.CRM.Oorsprong"
 	
-	if $$$Not($listlength(lbResult)) set lbResult = $zobjClassMethod(Package_"."_dtoOorsprong.Type,"IsValidID",dtoOorsprong.ID)
+		do arrDerivedClasses^vhLib.Class(Package_"."_"Abstract",.arrClasses)	
+		if '$data(arrClasses(Package_"."_dtoOorsprong.Type)) { $$$AddErrorToList(lbResult,1000,"Type oorsprong is onbestaand") } 
 	
+		if $$$Not($listlength(lbResult)) set lbResult = $zobjClassMethod(Package_"."_dtoOorsprong.Type,"IsValidID",dtoOorsprong.ID)
+	}
+	
 	quit lbResult
 ]]></Implementation>
 </Method>