Index: BL/Derde/Agenda/Agenda.cls.xml
===================================================================
diff -u -r2641 -r2642
--- BL/Derde/Agenda/Agenda.cls.xml	(.../Agenda.cls.xml)	(revision 2641)
+++ BL/Derde/Agenda/Agenda.cls.xml	(.../Agenda.cls.xml)	(revision 2642)
@@ -2,7 +2,7 @@
 <Export generator="Cache" version="9">
 <Class name="BL.Derde.Agenda.Agenda">
 <Description>
-d ##class(BL.Derde.Agenda.Agenda).RijdenWerkPriveAll()</Description>
+d ##class(BL.Derde.Agenda.Agenda).RijdenWerkPriveAll() </Description>
 <IncludeCode>BL.EC.Common</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
@@ -318,8 +318,11 @@
 	
 	set IdxInteractie = ""
 	for { set dtoBehandeldOnderwerp = Interacties.GetNext(.IdxInteractie) quit:IdxInteractie="" 
-	 	if $$$Not($length(dtoBehandeldOnderwerp.ID)) set lbResult = ##class(APPS.CRM.Interacties.BehandeldOnderwerp).CreateRegistratie(dtoBehandeldOnderwerp,dtoOorsprong)
-	 	else  set lbResult = ##class(APPS.CRM.Interacties.BehandeldOnderwerp).UpdateRegistratie(dtoBehandeldOnderwerp)
+	 	if dtoBehandeldOnderwerp.Status = ##class(APPS.CRM.Interacties.enu.ObjectStatus).Delete() {
+		 	set lbResult = ##class(APPS.CRM.Interacties.BehandeldOnderwerp).DeleteRegistratie(dtoBehandeldOnderwerp)
+	 	} elseif $$$Not($length(dtoBehandeldOnderwerp.ID)) { set lbResult = ##class(APPS.CRM.Interacties.BehandeldOnderwerp).CreateRegistratie(dtoBehandeldOnderwerp,dtoOorsprong) }
+	 	else { set lbResult = ##class(APPS.CRM.Interacties.BehandeldOnderwerp).UpdateRegistratie(dtoBehandeldOnderwerp) }
+	 	
 	 	quit:$listlength(lbResult) 
 	}
 	
@@ -663,14 +666,24 @@
 <Implementation><![CDATA[
 	Set:'$isObject(Agenda) Agenda=##class(Derde.Agenda.Agenda).%OpenId(Agenda)
 	Quit:'$isObject(Agenda)
-	Quit:'$isObject(Agenda.Klant) ; Geen klant
+	
 	Quit:(Agenda.Type'="B")&&(Agenda.Type'="D")  ; Alleen BEZOEK en DIVERSE
 	
 	Quit:##class(Derde.Agenda.GeoLookUp).Exists(Agenda.Latitude,Agenda.Longitude) ; Bestaat reeds
 	
-	Set oLookUp=##class(Derde.Agenda.GeoLookUp).Create(Agenda.Latitude, Agenda.Longitude, Agenda.Type, Agenda.KlantGetObjectId(),,, Agenda.Straat, Agenda.Gemeente, Agenda.PostCode, Agenda.Land, Agenda.Gebruiker)
-	Set oLookUp.AutoCreate=1
-	Set Status=oLookUp.%Save()
+	Quit:($IsObject(Agenda.Klant))&&($IsObject(Agenda.Architect))  ; // Geen update indien beide ingevuld
+	
+	set DerdeID=""
+	if $IsObject(Agenda.Klant) { 
+		set DerdeID = Agenda.KlantGetObjectId()
+	} elseif $IsObject(Agenda.Architect) {
+		set DerdeID = Agenda.ArchitectGetObjectId()
+	}
+	if $length(DerdeID) {	
+		Set oLookUp=##class(Derde.Agenda.GeoLookUp).Create(Agenda.Latitude, Agenda.Longitude, Agenda.Type, DerdeID,,, Agenda.Straat, Agenda.Gemeente, Agenda.PostCode, Agenda.Land, Agenda.Gebruiker)
+		Set oLookUp.AutoCreate=1
+		Set Status=oLookUp.%Save()
+	}
 ]]></Implementation>
 </Method>
 
@@ -681,7 +694,7 @@
 <Implementation><![CDATA[
 	Set UserID=..User.%Id()
 	; Verwijderen van Agenda items
-	&SQL(Update Derde_Agenda.Agenda Set Type="P" where isnull(Type,"")="" and Datum=:Datum and Gebruiker=:UserID)
+	&SQL(Update Derde_Agenda.Agenda Set Type="P" where ((isnull(Type,"")="") or (Type="*")) and Datum=:Datum and Gebruiker=:UserID)
 	Set Result=##class(pxStatus).%New()
 	Set Result.Status=1
 	
@@ -949,7 +962,7 @@
 	. Set:(Type'="P")&&(Type'="R") First=First_" - "_$S(Naam="":Gemeente,1:Naam)
 	. Set:Type="R" First=First_" - "_$$FormatNumber^vhLib("#.##0' km';;",Afstand)
 	Else  Do
-	. Set First=First_" duur "_$ZT(Duur)
+	. Set First=First_" duur "_$ZT($ZABS(Duur))
 	. Set:(Type'="P")&&(Type'="R") Second=Naam_$S($L(Naam):" - ",1:"")_ Straat_" - "_Gemeente
 	. Set:Type="R" First=First_" - "_$$FormatNumber^vhLib("#.##0,0' km';;",Afstand)
 	. If Compact=3 Do