Index: DOM/CRM/impl/KlantImpl.cls.xml
===================================================================
diff -u -r1298 -r1328
--- DOM/CRM/impl/KlantImpl.cls.xml	(.../KlantImpl.cls.xml)	(revision 1298)
+++ DOM/CRM/impl/KlantImpl.cls.xml	(.../KlantImpl.cls.xml)	(revision 1328)
@@ -70,6 +70,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefBestelGedrag">
+<ReturnType>DOM.CRM.enu.BestelGedrag</ReturnType>
+<Implementation><![CDATA[	Quit ..Klant.GeefBestelGedrag()
+]]></Implementation>
+</Method>
+
 <Method name="GeefBTWNr">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	Quit ..Klant.GeefBTWNr()
@@ -195,6 +201,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefURL">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..Klant.GeefURL()
+]]></Implementation>
+</Method>
+
 <Method name="GeefKlantIndexKKL">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	Quit ..Klant.GeefKlantIndexKKL()
@@ -283,5 +295,11 @@
 <Implementation><![CDATA[	Do ..Klant.ZetTelefoon1(Telefoon1)
 ]]></Implementation>
 </Method>
+
+<Method name="ZetURL">
+<FormalSpec>URL:%String</FormalSpec>
+<Implementation><![CDATA[	Do ..Klant.ZetURL(URL)
+]]></Implementation>
+</Method>
 </Class>
 </Export>
Index: DOM/CRM/impl/DataM/DataMKlant.cls.xml
===================================================================
diff -u -r1125 -r1328
--- DOM/CRM/impl/DataM/DataMKlant.cls.xml	(.../DataMKlant.cls.xml)	(revision 1125)
+++ DOM/CRM/impl/DataM/DataMKlant.cls.xml	(.../DataMKlant.cls.xml)	(revision 1328)
@@ -36,6 +36,11 @@
 <Default>5</Default>
 </Parameter>
 
+<Parameter name="Node7">
+<Type>%Integer</Type>
+<Default>7</Default>
+</Parameter>
+
 <Property name="Persisted">
 <Type>%Boolean</Type>
 <InitialExpression>"0"</InitialExpression>
@@ -102,6 +107,16 @@
 <Private>1</Private>
 </Property>
 
+<Property name="Node7Dirty">
+<Type>%Boolean</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Node7Cached">
+<Type>%Boolean</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>KlantNummer:%Integer</FormalSpec>
 <ReturnType>%Status</ReturnType>
@@ -114,6 +129,7 @@
 	Set ..BetalingsGegevens3Dirty = 1
 	Set ..Opmerkingen1Dirty = 1
 	Set ..Opmerkingen2Dirty = 1
+	Set ..Node7Dirty = 1
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -131,6 +147,7 @@
 		Set ..BetalingsGegevens3Dirty = 0		
 		Set ..Opmerkingen1Dirty = 0
 		Set ..Opmerkingen2Dirty = 0
+		Set ..Node7Dirty = 0
 	}Else{
 		Set Status = '($$$OK)
 	}
@@ -146,7 +163,7 @@
 		$$$ThrowError($$$errGeneralError,"Er is geen KlantNummer ingevuld, kan object niet saven.")	
 	}
 	
-	If (..AlgemeneGegevensDirty || ..BetalingsGegevens2Dirty || ..BetalingsGegevens3Dirty || ..Opmerkingen1Dirty || ..Opmerkingen2Dirty)
+	If (..AlgemeneGegevensDirty || ..BetalingsGegevens2Dirty || ..BetalingsGegevens3Dirty || ..Opmerkingen1Dirty || ..Opmerkingen2Dirty || ..Node7Dirty)
 	{
 		Set OudeKlantIndex = $PIECE(^DKL("K","KL.A",..KlantNummer,0),"\",31)
 		
@@ -243,6 +260,13 @@
 			Set ^DKL("K","KL.A",..KlantNummer,..#Opmerkingen2Node) = ..Opmerkingen2
 			Set ^KKL(..GeefKlantIndexKKL(),..#Opmerkingen2Node) = ..Opmerkingen2	
 		}
+		If (..Node7Dirty){
+			Set OudeNode7 = ^DKL("K","KL.A",..KlantNummer,..#Node7)
+			Do ..LogWijzigingen(..KlantNummer, ..#Node7, OudeNode7, ..Node7Data)
+			
+			Set ^DKL("K","KL.A",..KlantNummer,..#Node7) = ..Node7Data
+			Set ^KKL(..GeefKlantIndexKKL(),..#Node7) = ..Node7Data
+		}
 		
 		/// Event raisen dat klant gewijzigd is.
 		Do ##class(APPS.CRM.KlantService).RaiseWijzigEvent(..KlantNummer)
@@ -316,6 +340,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Node7Gewijzigd">
+<Implementation><![CDATA[
+	Set ..Node7Dirty = 1
+	Set ..Node7Cached = 1
+]]></Implementation>
+</Method>
+
 <UDLText name="T">
 <Content><![CDATA[
 // [ JCL ] => vraag voor FRANK of PIETER 
@@ -408,5 +439,17 @@
 	Quit i%Opmerkingen2
 ]]></Implementation>
 </Method>
+
+<Method name="Node7DataGet">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	If (..Persisted && ('..Node7Cached)){
+		Set i%Node7Data = ^DKL("K","KL.A",..KlantNummer,..#Node7)
+		Set Node7Cached = 1
+	}
+	Quit i%Node7Data
+]]></Implementation>
+</Method>
 </Class>
 </Export>
Index: DOM/CRM/enu/BestelGedrag.cls.xml
===================================================================
diff -u
--- DOM/CRM/enu/BestelGedrag.cls.xml	(revision 0)
+++ DOM/CRM/enu/BestelGedrag.cls.xml	(revision 1328)
@@ -0,0 +1,52 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="DOM.CRM.enu.BestelGedrag">
+<ClassType>datatype</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%String</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="VALUELIST">
+<Default>,,1,2,3,O</Default>
+</Parameter>
+
+<Parameter name="DISPLAYLIST">
+<Default>;Ja;Een order/bon;Een order/bon/fact;Een bon/fact;Orgalux/order/bon/fact</Default>
+</Parameter>
+
+<Method name="Ja">
+<ClassMethod>1</ClassMethod>
+<CodeMode>expression</CodeMode>
+<Implementation><![CDATA[""
+]]></Implementation>
+</Method>
+
+<Method name="Order">
+<ClassMethod>1</ClassMethod>
+<CodeMode>expression</CodeMode>
+<Implementation><![CDATA["1"
+]]></Implementation>
+</Method>
+
+<Method name="OrderBonFactuur">
+<ClassMethod>1</ClassMethod>
+<CodeMode>expression</CodeMode>
+<Implementation><![CDATA["2"
+]]></Implementation>
+</Method>
+
+<Method name="BonFactuur">
+<ClassMethod>1</ClassMethod>
+<CodeMode>expression</CodeMode>
+<Implementation><![CDATA["3"
+]]></Implementation>
+</Method>
+
+<Method name="OrgaluxOrderBonFactuur">
+<ClassMethod>1</ClassMethod>
+<CodeMode>expression</CodeMode>
+<Implementation><![CDATA["O"
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: DOM/CRM/impl/DataM/DataMKlantBase.cls.xml
===================================================================
diff -u -r1075 -r1328
--- DOM/CRM/impl/DataM/DataMKlantBase.cls.xml	(.../DataMKlantBase.cls.xml)	(revision 1075)
+++ DOM/CRM/impl/DataM/DataMKlantBase.cls.xml	(.../DataMKlantBase.cls.xml)	(revision 1328)
@@ -43,6 +43,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="Node7Data">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="ActiefChanged">
 <Type>%Boolean</Type>
 <InitialExpression>0</InitialExpression>
@@ -142,6 +147,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefBestelGedrag">
+<ReturnType>DOM.CRM.enu.BestelGedrag</ReturnType>
+<Implementation><![CDATA[	Quit $piece(..BetalingsGegevens1,"\",18)
+]]></Implementation>
+</Method>
+
 <Method name="GeefBTWNr">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	Quit $piece(..AlgemeneGegevens,"\",16)
@@ -246,6 +257,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefURL">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit $Piece(..Node7Data,"\",2)
+]]></Implementation>
+</Method>
+
 <Method name="GeefKlantIndexKKL">
 <Description>
 Index voor KKL via KK1 ophalen.  </Description>
@@ -308,6 +325,17 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetNode7DataGegevens">
+<FormalSpec>Piece:%Integer,Waarde:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set Temp = ..Node7Data
+	Set $Piece(Temp,"\",Piece) = Waarde
+	Set ..Node7Data = Temp
+	Do ..Node7Gewijzigd()
+]]></Implementation>
+</Method>
+
 <Method name="ZetActiefStatus">
 <FormalSpec>Status:DOM.CRM.enu.ActiefStatus</FormalSpec>
 <Implementation><![CDATA[
@@ -372,6 +400,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetURL">
+<FormalSpec>URL:%String</FormalSpec>
+<Implementation><![CDATA[	Do ..ZetNode7DataGegevens(2,URL)
+]]></Implementation>
+</Method>
+
 <UDLText name="T">
 <Content><![CDATA[
 /************
@@ -395,5 +429,13 @@
 <Method name="BetalingsGegevens1Gewijzigd">
 <Abstract>1</Abstract>
 </Method>
+
+<Method name="Opmerkingen2Gewijzigd">
+<Abstract>1</Abstract>
+</Method>
+
+<Method name="Node7Gewijzigd">
+<Abstract>1</Abstract>
+</Method>
 </Class>
 </Export>
Index: DOM/CRM/Klant.cls.xml
===================================================================
diff -u -r1090 -r1328
--- DOM/CRM/Klant.cls.xml	(.../Klant.cls.xml)	(revision 1090)
+++ DOM/CRM/Klant.cls.xml	(.../Klant.cls.xml)	(revision 1328)
@@ -45,6 +45,11 @@
 <ReturnType>DOM.CRM.enu.ActiefStatus</ReturnType>
 </Method>
 
+<Method name="GeefBestelGedrag">
+<Abstract>1</Abstract>
+<ReturnType>DOM.CRM.enu.BestelGedrag</ReturnType>
+</Method>
+
 <Method name="GeefBTWNr">
 <Abstract>1</Abstract>
 <ReturnType>%String</ReturnType>
@@ -136,6 +141,11 @@
 <ReturnType>%String</ReturnType>
 </Method>
 
+<Method name="GeefURL">
+<Abstract>1</Abstract>
+<ReturnType>%String</ReturnType>
+</Method>
+
 <Method name="GeefFacturenIterator">
 <Abstract>1</Abstract>
 <FormalSpec>DatumVan:%Date,DatumTot:%Date</FormalSpec>
@@ -202,6 +212,11 @@
 <FormalSpec>Telefoon1:%String</FormalSpec>
 </Method>
 
+<Method name="ZetURL">
+<Abstract>1</Abstract>
+<FormalSpec>URL:%String</FormalSpec>
+</Method>
+
 <Method name="IsConsument">
 <Abstract>1</Abstract>
 <ReturnType>%Boolean</ReturnType>