Index: TECH/Events/KlantWijzigEvent.cls.xml
===================================================================
diff -u
--- TECH/Events/KlantWijzigEvent.cls.xml	(revision 0)
+++ TECH/Events/KlantWijzigEvent.cls.xml	(revision 1090)
@@ -0,0 +1,21 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="TECH.Events.KlantWijzigEvent">
+<ClassType>serial</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.PubSub.Event</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="%OnNew">
+<FormalSpec>Data:TECH.PubSub.EventData</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Do ##super(Data)
+	Set ..Type = "KlantWijzigEvent"
+	Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+</Export>
FishEye: Tag 1090 refers to a dead (removed) revision in file `APPS/LEV/impl/ConvertAPPStoDOMenu.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: APPS/CRM/dto/KlantBestand.cls.xml
===================================================================
diff -u
--- APPS/CRM/dto/KlantBestand.cls.xml	(revision 0)
+++ APPS/CRM/dto/KlantBestand.cls.xml	(revision 1090)
@@ -0,0 +1,33 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.CRM.dto.KlantBestand">
+<Description>
+JBL + 2011-05-03</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="XMLNAME">
+<Default>KlantBestand</Default>
+</Parameter>
+
+<Parameter name="XMLIGNOREINVALIDTAG">
+<Type>BOOLEAN</Type>
+<Default>1</Default>
+</Parameter>
+
+<Parameter name="XMLIGNORENULL">
+<Type>STRING</Type>
+<Constraint>,0,1,runtime</Constraint>
+<Default>1</Default>
+<Flags>ENUM</Flags>
+</Parameter>
+
+<Property name="Klanten">
+<Type>DOM.CRM.dto.KlantId</Type>
+<Collection>list</Collection>
+<Parameter name="XMLITEMNAME" value="KlantId"/>
+<Parameter name="XMLNAME" value="Klanten"/>
+</Property>
+</Class>
+</Export>
FishEye: Tag 1090 refers to a dead (removed) revision in file `APPS/LEV/impl/ConvertDOMtoAPPSenu.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: JBL_KlantService.prj.xml
===================================================================
diff -u
--- JBL_KlantService.prj.xml	(revision 0)
+++ JBL_KlantService.prj.xml	(revision 1090)
@@ -0,0 +1,26 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Project name="JBL_KlantService" LastModified="2011-05-03 08:46:37">
+  <Items>
+    <ProjectItem name="APPS.CRM.KlantService" type="CLS"/>
+    <ProjectItem name="APPS.CRM.dto.KlantBestand" type="CLS"/>
+    <ProjectItem name="APPS.LEV.LeverancierService" type="CLS"/>
+    <ProjectItem name="APPS.LEV.dto.LeverancierActiefStatus" type="CLS"/>
+    <ProjectItem name="APPS.LEV.dto.LeverancierBestand" type="CLS"/>
+    <ProjectItem name="APPS.LEV.impl.ConvertAPPStoDOMenu" type="CLS"/>
+    <ProjectItem name="APPS.LEV.impl.ConvertDOMtoAPPSenu" type="CLS"/>
+    <ProjectItem name="DOM.CRM.Klant" type="CLS"/>
+    <ProjectItem name="DOM.CRM.KlantAPI" type="CLS"/>
+    <ProjectItem name="DOM.CRM.dto.Klant" type="CLS"/>
+    <ProjectItem name="DOM.CRM.dto.KlantId" type="CLS"/>
+    <ProjectItem name="DOM.CRM.enu.ActiefStatus" type="CLS"/>
+    <ProjectItem name="DOM.LEV.Leverancier" type="CLS"/>
+    <ProjectItem name="DOM.LEV.ToeleveringAPI" type="CLS"/>
+    <ProjectItem name="DOM.LEV.dto.LeverancierId" type="CLS"/>
+    <ProjectItem name="DOM.LEV.enu.LeverancierActiefStatus" type="CLS"/>
+    <ProjectItem name="TECH.Events.KlantMaakEvent" type="CLS"/>
+    <ProjectItem name="TECH.Events.KlantVerwijderEvent" type="CLS"/>
+    <ProjectItem name="TECH.Events.KlantWijzigEvent" type="CLS"/>
+  </Items>
+</Project>
+</Export>
Index: DOM/CRM/dto/KlantId.cls.xml
===================================================================
diff -u
--- DOM/CRM/dto/KlantId.cls.xml	(revision 0)
+++ DOM/CRM/dto/KlantId.cls.xml	(revision 1090)
@@ -0,0 +1,46 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="DOM.CRM.dto.KlantId">
+<Description>
+JBL + 2011-05-02</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="XMLIGNOREINVALIDTAG">
+<Type>BOOLEAN</Type>
+<Default>1</Default>
+</Parameter>
+
+<Parameter name="XMLIGNORENULL">
+<Type>STRING</Type>
+<Constraint>,0,1,runtime</Constraint>
+<Default>1</Default>
+<Flags>ENUM</Flags>
+</Parameter>
+
+<Property name="Actief">
+<Type>DOM.CRM.enu.ActiefStatus</Type>
+<Parameter name="XMLNAME" value="Actief"/>
+<Parameter name="XMLPROJECTION" value="ELEMENT"/>
+</Property>
+
+<Property name="Adres">
+<Type>DOM.dto.Derde.Adres</Type>
+<Parameter name="XMLNAME" value="Adres"/>
+<Parameter name="XMLPROJECTION" value="ELEMENT"/>
+</Property>
+
+<Property name="Naam">
+<Type>%String</Type>
+<Parameter name="XMLNAME" value="Naam"/>
+<Parameter name="XMLPROJECTION" value="ELEMENT"/>
+</Property>
+
+<Property name="Nummer">
+<Type>%Integer</Type>
+<Parameter name="XMLNAME" value="Nummer"/>
+<Parameter name="XMLPROJECTION" value="ELEMENT"/>
+</Property>
+</Class>
+</Export>
Index: APPS/LEV/LeverancierService.cls.xml
===================================================================
diff -u -r1087 -r1090
--- APPS/LEV/LeverancierService.cls.xml	(.../LeverancierService.cls.xml)	(revision 1087)
+++ APPS/LEV/LeverancierService.cls.xml	(.../LeverancierService.cls.xml)	(revision 1090)
@@ -1,9 +1,9 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel) 5.0.21 (Build 6408U)" ts="2011-05-02 11:58:50">
+<Export generator="Cache" version="9">
 <Class name="APPS.LEV.LeverancierService">
 <Description><![CDATA[
 JBL + 2011-04-18 
-
+ 
 Bij deploy :
 -> Do ##class(APPS.LEV.LeverancierService).InitSubscription()
 in %ZSTART Do ##class(APPS.LEV.LeverancierService).MaakLeverancierBestand() aanroepen
@@ -13,8 +13,6 @@
 <IncludeCode>TECH.Error</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
-<TimeChanged>62213,43129.447108</TimeChanged>
-<TimeCreated>62203,48816.380487</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="GeefLeverancierLijst">
@@ -122,7 +120,7 @@
 	
 	/// Actief status
 	Set Actief = Leverancier.GeefLeverancierActiefStatus()
-	Set dtoLeverancierId.Actief = ##class(APPS.LEV.impl.ConvertDOMtoAPPSenu).ConvertLeverancierActiefStatus(Actief)
+	Set dtoLeverancierId.Actief = ##class(APPS.common.ConvertDOMtoAPPSenu).ConvertActiefStatus(Actief)
 	
 	/// Adres
 	Set LeverancierAdres = Leverancier.GeefAdres()
@@ -221,5 +219,4 @@
 </Data>
 </Storage>
 </Class>
-<Checksum value="3698854408"/>
 </Export>
FishEye: Tag 1090 refers to a dead (removed) revision in file `APPS/LEV/dto/LeverancierActiefStatus.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: APPS/common/enu/ActiefStatus.cls.xml
===================================================================
diff -u
--- APPS/common/enu/ActiefStatus.cls.xml	(revision 0)
+++ APPS/common/enu/ActiefStatus.cls.xml	(revision 1090)
@@ -0,0 +1,48 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.common.enu.ActiefStatus">
+<Description>
+JBL + 2011-04-18</Description>
+<ClassType>datatype</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%String</Super>
+
+<Parameter name="VALUELIST">
+<Default>,Actief,BuitenGebruik,Verwijderd</Default>
+</Parameter>
+
+<Parameter name="DISPLAYLIST">
+<Default>;Actief;Buiten gebruik;Verwijderd</Default>
+</Parameter>
+
+<Method name="Actief">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.enu.ActiefStatus</ReturnType>
+<Implementation><![CDATA[
+	Quit "Actief"
+
+
+]]></Implementation>
+</Method>
+
+<Method name="BuitenGebruik">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.enu.ActiefStatus</ReturnType>
+<Implementation><![CDATA[
+	Quit "BuitenGebruik"
+
+
+]]></Implementation>
+</Method>
+
+<Method name="Verwijderd">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.enu.ActiefStatus</ReturnType>
+<Implementation><![CDATA[
+	Quit "Verwijderd"
+
+
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/common/ConvertAPPS2DOMenu.cls.xml
===================================================================
diff -u
--- APPS/common/ConvertAPPS2DOMenu.cls.xml	(revision 0)
+++ APPS/common/ConvertAPPS2DOMenu.cls.xml	(revision 1090)
@@ -0,0 +1,32 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.common.ConvertAPPS2DOMenu">
+<Description>
+JBL + 2011-04-18</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="ConvertActiefStatus">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>LeverancierActiefStatus:APPS.common.enu.ActiefStatus</FormalSpec>
+<ReturnType>DOM.enu.ActiefStatus</ReturnType>
+<Implementation><![CDATA[
+	
+		Set ConvertedActiefStatus = ""
+		If (LeverancierActiefStatus = ##class(APPS.common.enu.ActiefStatus).Actief())
+		{
+			Set ConvertedActiefStatus = ##class(DOM.enu.ActiefStatus).Actief()
+		} ElseIf (LeverancierActiefStatus = ##class(APPS.common.enu.ActiefStatus).BuitenGebruik())
+		{
+			Set ConvertedActiefStatus = ##class(DOM.enu.ActiefStatus).BuitenGebruik()
+		} ElseIf (LeverancierActiefStatus = ##class(APPS.common.enu.ActiefStatus).Verwijderd())
+		{
+			Set ConvertedActiefStatus = ##class(DOM.enu.ActiefStatus).Verwijderd()
+		}
+		
+		Quit ConvertedActiefStatus
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: TECH/Events/KlantVerwijderEvent.cls.xml
===================================================================
diff -u
--- TECH/Events/KlantVerwijderEvent.cls.xml	(revision 0)
+++ TECH/Events/KlantVerwijderEvent.cls.xml	(revision 1090)
@@ -0,0 +1,21 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="TECH.Events.KlantVerwijderEvent">
+<ClassType>serial</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.PubSub.Event</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="%OnNew">
+<FormalSpec>Data:TECH.PubSub.EventData</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Do ##super(Data)
+	Set ..Type = "KlantVerwijderEvent"
+	Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/CRM/KlantService.cls.xml
===================================================================
diff -u
--- APPS/CRM/KlantService.cls.xml	(revision 0)
+++ APPS/CRM/KlantService.cls.xml	(revision 1090)
@@ -0,0 +1,201 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.CRM.KlantService">
+<Description><![CDATA[
+JBL + 2011-05-02
+
+Bij deploy : 
+s ^TECH.Config.ConfigItemD("DEV","APPS.CRM.KlantService.KlantBestand")=$LB("","\\jbl_xp\share\KLANT_VOLLEDIG.XML")
+s ^TECH.Config.ConfigItemD("DEV","APPS.CRM.KlantService.KlantBestandIncrementeel")=$LB("","\\jbl_xp\share\KLANT_::datum::.XML")
+Do ##class(APPS.CRM.KlantService).InitSubscription()
+in %ZSTART Do ##class(APPS.LEV.LeverancierService).MaakLeverancierBestand() aanroepen
+Eventueel
+	via ^cAB1 => DMA => instellen bij wijzigen/maken/verwijderen via admin dat de event worden getriggerd]]></Description>
+<IncludeCode>TECH.Error</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="GeefLeverancierLijst">
+<Description>
+Lijst van DOM.CRM.dto.KlantId</Description>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[
+	Set KlantAPI = ##class(DOM.DomeinContext).Instance().GeefKlantAPI()
+	Set KlantIt = KlantAPI.GeefKlantenIterator()
+	
+	Set Klanten = ##class(%ListOfObjects).%New()
+	
+	While KlantIt.HasNext(){
+		Set Klant = KlantIt.Next()
+		Set dtoKlantId = ..Klant2KlantId(Klant)			
+		Do Klanten.Insert(dtoKlantId)
+	}
+	Quit Klanten
+]]></Implementation>
+</Method>
+
+<Method name="Klant2KlantId">
+<Description>
+Converteer een Leverancier in een dto LeverancierId object 	</Description>
+<FormalSpec>Klant:DOM.CRM.Klant</FormalSpec>
+<Implementation><![CDATA[
+	Set dtoKlantId = ##class(DOM.CRM.dto.KlantId).%New()
+	Set dtoKlantId.Nummer = Klant.GeefNummer()
+	Set dtoKlantId.Naam = Klant.GeefNaam()
+	
+	/// Actief status
+	Set Actief = Klant.GeefActiefStatus()
+	Set dtoKlantId.Actief = ##class(APPS.common.ConvertDOMtoAPPSenu).ConvertActiefStatus(Actief)
+	
+	/// Adres
+	Set KlantAdres = Klant.GeefAdres()
+	Set Adres = ##class(DOM.dto.Derde.Adres).%New()
+	Set Adres.StraatNrBus = KlantAdres.GeefStraat()
+	Set Adres.Woonplaats = KlantAdres.GeefGemeente()
+	Set Adres.PostCode = KlantAdres.GeefPostcode()
+	Set Adres.Land = KlantAdres.GeefLandCode()
+	Set dtoKlantId.Adres = Adres
+	
+	Quit dtoKlantId
+]]></Implementation>
+</Method>
+
+<Method name="MaakKlantBestand">
+<Description>
+Maak een xml bestand met alle leveranciers in. 
+Do ##class(APPS.CRM.KlantService).MaakKlantBestand()</Description>
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	$$$TECHErrorTrapOn
+	Set KlantService = ##class(APPS.CRM.KlantService).%New()
+	Set dtoKlantBestand = ##class(APPS.CRM.dto.KlantBestand).%New()
+	Set dtoKlantBestand.Klanten = ##class(%ListOfObjects).%New()
+	Set Klanten = KlantService.GeefLeverancierLijst()
+	Set KlantIt = ##class(TECH.ListIterator).%New(Klanten)
+	While KlantIt.HasNext() {
+		Do dtoKlantBestand.Klanten.Insert(KlantIt.Next())
+	}
+	
+	Set Bestandsnaam = ##class(TECH.Config.ConfigMgr).Instance().GetString("APPS.CRM.KlantService.KlantBestand")
+	
+	set KlantBestand = KlantService.ExportXML(dtoKlantBestand, Bestandsnaam)
+	
+	$$$TECHErrorTrapOff
+	Quit KlantBestand
+]]></Implementation>
+</Method>
+
+<Method name="VulLevWijzigingenBestandAan">
+<Description>
+Maak een xml bestand met de gewijzigde klant</Description>
+<FormalSpec>KlantNr:%Integer,Bestandsnaam=""</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	$$$TECHErrorTrapOn
+	$$$chkRequiredParameter(KlantNr)
+	
+	if '$length(Bestandsnaam) {
+		Set Bestandsnaam = ##class(TECH.Config.ConfigMgr).Instance().GetString("APPS.CRM.KlantService.KlantBestandIncrementeel")
+		Set Datum = ""_$zd($h,3)
+		set Bestandsnaam = $$Replace^vhLib.String(Bestandsnaam,"::datum::",Datum)
+	}
+	Set dtoKlantBestand = ##class(APPS.CRM.dto.KlantBestand).%New()
+	Set XMLReader = ##class(%XML.Reader).%New()
+	Set Status=XMLReader.OpenFile(Bestandsnaam)
+	/// Indien er reeds een bestaand bestand is van deze dag. 
+	If $$$ISOK(Status){
+		Do XMLReader.Correlate("KlantBestand","APPS.CRM.dto.KlantBestand") 
+		Do XMLReader.Next(.Object,.sc)
+		Set dtoKlantBestand = Object
+	}
+	
+	/// Indien de klant diezelfde dag al was gewijzigd, de vorige KlantId eruit halen.
+	/// Dit voorkomt ook duplicate data in het xml bestand.
+	/// 
+	For i = 1 : 1 : dtoKlantBestand.Klanten.Count() {
+		If (dtoKlantBestand.Klanten.GetAt(i).Nummer = KlantNr){
+			Do dtoKlantBestand.Klanten.RemoveAt(i)
+		}
+	}	
+	
+	Set ToeleveringAPI = ##class(DOM.DomeinContext).Instance().GeefKlantAPI()
+	Set Klant = ToeleveringAPI.GeefKlant(KlantNr)
+	Set dtoKlantId = ..Klant2KlantId(Leverancier)			
+	Do dtoKlantBestand.Klanten.Insert(dtoKlantId)		
+	
+	set KlantBestand = ..ExportXML(dtoKlantBestand, Bestandsnaam)
+	
+	$$$TECHErrorTrapOff
+	Quit KlantBestand
+]]></Implementation>
+</Method>
+
+<Method name="InitSubscription">
+<Description>
+Do ##class(APPS.CRM.KlantService).InitSubscription()</Description>
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Set Subscription = ##class(TECH.PubSub.EventSubscription).%New("KlantWijzigEvent","APPS.CRM.KlantService","KlantEventCatcher")
+	Do Subscription.%Save()
+	Set Subscription = ##class(TECH.PubSub.EventSubscription).%New("KlantMaakEvent","APPS.CRM.KlantService","KlantEventCatcher")
+	Do Subscription.%Save()
+	Set Subscription = ##class(TECH.PubSub.EventSubscription).%New("KlantVerwijderEvent","APPS.CRM.KlantService","KlantEventCatcher")
+	Do Subscription.%Save()
+]]></Implementation>
+</Method>
+
+<Method name="KlantEventCatcher">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Event:TECH.PubSub.Event</FormalSpec>
+<Implementation><![CDATA[
+	
+	If ((Event.Type = "KlantWijzigEvent") || (Event.Type = "KlantMaakEvent") || (Event.Type = "KlantVerwijderEvent")){
+		Set LeverancierService = ##class(APPS.CRM.KlantService).%New()
+		Do LeverancierService.VulLevWijzigingenBestandAan(Event.Data.KlantNr)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="RaiseWijzigEvent">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>KlantNr:%Integer</FormalSpec>
+<Implementation><![CDATA[
+	Set EventData = ##class(TECH.Events.LeverancierEventData).%New(KlantNr)
+	Set Event = ##class(TECH.Events.KlantWijzigEvent).%New(EventData)
+	Do ##class(TECH.PubSub.OrchestrationContext).GetEventRaiser().RaiseEventAsync(Event)
+]]></Implementation>
+</Method>
+
+<Method name="RaiseVerwijderEvent">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>KlantNr:%Integer</FormalSpec>
+<Implementation><![CDATA[
+	Set EventData = ##class(TECH.Events.LeverancierEventData).%New(KlantNr)
+	Set Event = ##class(TECH.Events.KlantVerwijderEvent).%New(EventData)
+	Do ##class(TECH.PubSub.OrchestrationContext).GetEventRaiser().RaiseEventAsync(Event)
+]]></Implementation>
+</Method>
+
+<Method name="RaiseMaakEvent">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>KlantNr:%Integer</FormalSpec>
+<Implementation><![CDATA[
+	Set EventData = ##class(TECH.Events.LeverancierEventData).%New(KlantNr)
+	Set Event = ##class(TECH.Events.KlantMaakEvent).%New(EventData)
+	Do ##class(TECH.PubSub.OrchestrationContext).GetEventRaiser().RaiseEventAsync(Event)
+]]></Implementation>
+</Method>
+
+<Method name="ExportXML">
+<FormalSpec>XML:APPS.CRM.dto.KlantBestand,Bestandsnaam:%String=""</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set FileStream = ##class(%FileCharacterStream).%New()
+	Set FileStream.Filename = Bestandsnaam
+	Set sc=$$ProxyToXMLStream^vhLib(XML,FileStream,"", 1)
+	Quit FileStream.SaveStream()
+]]></Implementation>
+</Method>
+</Class>
+</Export>
FishEye: Tag 1090 refers to a dead (removed) revision in file `DOM/LEV/enu/LeverancierActiefStatus.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: TECH/Events/KlantMaakEvent.cls.xml
===================================================================
diff -u
--- TECH/Events/KlantMaakEvent.cls.xml	(revision 0)
+++ TECH/Events/KlantMaakEvent.cls.xml	(revision 1090)
@@ -0,0 +1,21 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="TECH.Events.KlantMaakEvent">
+<ClassType>serial</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.PubSub.Event</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="%OnNew">
+<FormalSpec>Data:TECH.PubSub.EventData</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Do ##super(Data)
+	Set ..Type = "KlantMaakEvent"
+	Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: DOM/CRM/Klant.cls.xml
===================================================================
diff -u -r1075 -r1090
--- DOM/CRM/Klant.cls.xml	(.../Klant.cls.xml)	(revision 1075)
+++ DOM/CRM/Klant.cls.xml	(.../Klant.cls.xml)	(revision 1090)
@@ -87,11 +87,6 @@
 <ReturnType>%String</ReturnType>
 </Method>
 
-<Method name="GeefKlantNr">
-<Abstract>1</Abstract>
-<ReturnType>%Integer</ReturnType>
-</Method>
-
 <Method name="GeefOpmerking1">
 <Abstract>1</Abstract>
 <ReturnType>%String</ReturnType>
Index: DOM/LEV/dto/LeverancierId.cls.xml
===================================================================
diff -u -r1075 -r1090
--- DOM/LEV/dto/LeverancierId.cls.xml	(.../LeverancierId.cls.xml)	(revision 1075)
+++ DOM/LEV/dto/LeverancierId.cls.xml	(.../LeverancierId.cls.xml)	(revision 1090)
@@ -20,7 +20,7 @@
 </Parameter>
 
 <Property name="Actief">
-<Type>APPS.LEV.dto.LeverancierActiefStatus</Type>
+<Type>APPS.common.enu.ActiefStatus</Type>
 <Parameter name="XMLNAME" value="Actief"/>
 <Parameter name="XMLPROJECTION" value="ELEMENT"/>
 </Property>
Index: DOM/LEV/impl/DataM/DataMLeverancier.cls.xml
===================================================================
diff -u -r1075 -r1090
--- DOM/LEV/impl/DataM/DataMLeverancier.cls.xml	(.../DataMLeverancier.cls.xml)	(revision 1075)
+++ DOM/LEV/impl/DataM/DataMLeverancier.cls.xml	(.../DataMLeverancier.cls.xml)	(revision 1090)
@@ -55,7 +55,7 @@
 </Method>
 
 <Method name="GeefLeverancierActiefStatus">
-<ReturnType>DOM.LEV.enu.LeverancierActiefStatus</ReturnType>
+<ReturnType>DOM.enu.ActiefStatus</ReturnType>
 <Implementation><![CDATA[	Quit $Piece(..Data0,"\",30)
 ]]></Implementation>
 </Method>
Index: APPS/common/ConvertDOMtoAPPSenu.cls.xml
===================================================================
diff -u
--- APPS/common/ConvertDOMtoAPPSenu.cls.xml	(revision 0)
+++ APPS/common/ConvertDOMtoAPPSenu.cls.xml	(revision 1090)
@@ -0,0 +1,31 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.common.ConvertDOMtoAPPSenu">
+<Description>
+JBL + 2011-04-18</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="ConvertActiefStatus">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ActiefStatus:DOM.enu.ActiefStatus</FormalSpec>
+<ReturnType>APPS.common.enu.ActiefStatus</ReturnType>
+<Implementation><![CDATA[
+		Set ConvertedActiefStatus = ""
+		If (ActiefStatus = ##class(DOM.enu.ActiefStatus).Actief())
+		{
+			Set ConvertedActiefStatus = ##class(APPS.common.enu.ActiefStatus).Actief()
+		} ElseIf (ActiefStatus = ##class(DOM.enu.ActiefStatus).BuitenGebruik())
+		{
+			Set ConvertedActiefStatus = ##class(APPS.common.enu.ActiefStatus).BuitenGebruik()
+		} ElseIf (ActiefStatus = ##class(DOM.enu.ActiefStatus).Verwijderd())
+		{
+			Set ConvertedActiefStatus = ##class(APPS.common.enu.ActiefStatus).Verwijderd()
+		}
+		
+		Quit ConvertedActiefStatus
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: DOM/LEV/Leverancier.cls.xml
===================================================================
diff -u -r1075 -r1090
--- DOM/LEV/Leverancier.cls.xml	(.../Leverancier.cls.xml)	(revision 1075)
+++ DOM/LEV/Leverancier.cls.xml	(.../Leverancier.cls.xml)	(revision 1090)
@@ -8,31 +8,37 @@
 <Method name="GeefAdres">
 <Abstract>1</Abstract>
 <ReturnType>DOM.common.Adres</ReturnType>
+<Implementation><![CDATA[]]></Implementation>
 </Method>
 
 <Method name="GeefLeverancierActiefStatus">
 <Abstract>1</Abstract>
-<ReturnType>DOM.LEV.enu.LeverancierActiefStatus</ReturnType>
+<ReturnType>DOM.enu.ActiefStatus</ReturnType>
+<Implementation><![CDATA[]]></Implementation>
 </Method>
 
 <Method name="GeefLeverancierNr">
 <Abstract>1</Abstract>
 <ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[]]></Implementation>
 </Method>
 
 <Method name="GeefNaam">
 <Abstract>1</Abstract>
 <ReturnType>%String</ReturnType>
+<Implementation><![CDATA[]]></Implementation>
 </Method>
 
 <Method name="GeefToeleveringIterator">
 <Abstract>1</Abstract>
 <ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[]]></Implementation>
 </Method>
 
 <Method name="GeefTijdstipLaatsteWijziging">
 <Abstract>1</Abstract>
 <ReturnType>%TimeStamp</ReturnType>
+<Implementation><![CDATA[]]></Implementation>
 </Method>
 </Class>
 </Export>
Index: DOM/enu/ActiefStatus.cls.xml
===================================================================
diff -u
--- DOM/enu/ActiefStatus.cls.xml	(revision 0)
+++ DOM/enu/ActiefStatus.cls.xml	(revision 1090)
@@ -0,0 +1,45 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="DOM.enu.ActiefStatus">
+<Description>
+JBL + 2011-04-18</Description>
+<ClassType>datatype</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%String</Super>
+
+<Parameter name="VALUELIST">
+<Default>,,1,2</Default>
+</Parameter>
+
+<Parameter name="DISPLAYLIST">
+<Default>;Actief;Buiten gebruik;Verwijderd</Default>
+</Parameter>
+
+<Method name="Actief">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.enu.ActiefStatus</ReturnType>
+<Implementation><![CDATA[
+	Quit ""
+
+]]></Implementation>
+</Method>
+
+<Method name="BuitenGebruik">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.enu.ActiefStatus</ReturnType>
+<Implementation><![CDATA[
+	Quit "1"
+
+]]></Implementation>
+</Method>
+
+<Method name="Verwijderd">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.enu.ActiefStatus</ReturnType>
+<Implementation><![CDATA[
+	Quit "2"
+
+]]></Implementation>
+</Method>
+</Class>
+</Export>