Index: AXBizTalk/Address.cls.xml
===================================================================
diff -u
--- AXBizTalk/Address.cls.xml	(revision 0)
+++ AXBizTalk/Address.cls.xml	(revision 37870)
@@ -0,0 +1,132 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AXBizTalk.Address">
+<Super>%SerialObject,%XML.Adaptor</Super>
+
+<Property name="Klantnummer">
+<Type>%String</Type>
+<Parameter name="MAXLEN" value="20"/>
+</Property>
+
+<Property name="BezoekAdres">
+<Type>%Boolean</Type>
+</Property>
+
+<Property name="ToonzaalAdres">
+<Type>%Boolean</Type>
+</Property>
+
+<Property name="LeveringAdres">
+<Type>%Boolean</Type>
+</Property>
+
+<Property name="FacturatieAdres">
+<Type>%Boolean</Type>
+</Property>
+
+<Property name="Straat1">
+<Type>%String</Type>
+<Parameter name="MAXLEN" value="250"/>
+</Property>
+
+<Property name="Straat2">
+<Type>%String</Type>
+<Parameter name="MAXLEN" value="250"/>
+</Property>
+
+<Property name="Straat3">
+<Type>%String</Type>
+<Parameter name="MAXLEN" value="250"/>
+</Property>
+
+<Property name="Postcode">
+<Type>%String</Type>
+<Parameter name="MAXLEN" value="20"/>
+</Property>
+
+<Property name="Plaats">
+<Type>%String</Type>
+<Parameter name="MAXLEN" value="80"/>
+</Property>
+
+<Property name="County">
+<Type>%String</Type>
+<Parameter name="MAXLEN" value="50"/>
+</Property>
+
+<Property name="Provincie">
+<Type>%String</Type>
+<Parameter name="MAXLEN" value="50"/>
+</Property>
+
+<Property name="LandCodeISO3">
+<Type>%String</Type>
+<Parameter name="MAXLEN" value="3"/>
+</Property>
+
+<Property name="Telefoon">
+<Type>%String</Type>
+<Parameter name="MAXLEN" value="50"/>
+</Property>
+
+<Property name="Verzendwijze">
+<Type>%String</Type>
+<Parameter name="MAXLEN" value="100"/>
+</Property>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+<State>AddressState</State>
+<StreamLocation>^AXBizTalk.AddressS</StreamLocation>
+<Data name="AddressState">
+<Value name="1">
+<Value>Klantnummer</Value>
+</Value>
+<Value name="2">
+<Value>BezoekAdres</Value>
+</Value>
+<Value name="3">
+<Value>ToonzaalAdres</Value>
+</Value>
+<Value name="4">
+<Value>LeveringAdres</Value>
+</Value>
+<Value name="5">
+<Value>FacturatieAdres</Value>
+</Value>
+<Value name="6">
+<Value>Straat1</Value>
+</Value>
+<Value name="7">
+<Value>Straat2</Value>
+</Value>
+<Value name="8">
+<Value>Straat3</Value>
+</Value>
+<Value name="9">
+<Value>Postcode</Value>
+</Value>
+<Value name="10">
+<Value>Plaats</Value>
+</Value>
+<Value name="11">
+<Value>County</Value>
+</Value>
+<Value name="12">
+<Value>Provincie</Value>
+</Value>
+<Value name="13">
+<Value>LandCodeISO3</Value>
+</Value>
+<Value name="14">
+<Value>Telefoon</Value>
+</Value>
+<Value name="15">
+<Value>Verzendwijze</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: AXimpl/BizTalkMessage/Converter/CustomerConverter.cls.xml
===================================================================
diff -u -r37846 -r37870
--- AXimpl/BizTalkMessage/Converter/CustomerConverter.cls.xml	(.../CustomerConverter.cls.xml)	(revision 37846)
+++ AXimpl/BizTalkMessage/Converter/CustomerConverter.cls.xml	(.../CustomerConverter.cls.xml)	(revision 37870)
@@ -58,6 +58,7 @@
 	Do ..ConvertAdminSegmentering()
 	Do ..ConvertPrijsInformatie()
 	Do ..ConvertFinancieleInformatie()
+	Do ..ConvertAdresGegevens()
 	
 	Quit ..Customer
 ]]></Implementation>
@@ -167,6 +168,59 @@
 	Set ..Customer.FacturatieFrequentie = ..Klant.GeefFacturatieFrequentie()
 ]]></Implementation>
 </Method>
+
+<Method name="ConvertAdresGegevens">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set CRMAdres = ##class(AXBizTalk.Address).%New()
+	Set CRMAdres.Klantnummer = +##class(AX.common.impl.ConvertAdminToAX).ConvertCustomerID(..Klant.GeefID())
+	Set CRMAdres.Straat1 = ..Klant.GeefAdres().GeefStraat()
+	Set CRMAdres.Postcode = ..Klant.GeefAdres().GeefPostcode()
+	Set CRMAdres.Plaats = ..Klant.GeefAdres().GeefGemeente()
+	Set CRMAdres.LandCodeISO3 = ..Klant.GeefAdres().GeefLand().GeefIso3()
+	Set CRMAdres.Telefoon = ..Klant.GeefAdres().GeefTelefoon()
+	Set CRMAdres.Verzendwijze = ..Klant.GeefVerzendWijze()
+	Set CRMAdres.LeveringAdres = $$$False
+	Set CRMAdres.BezoekAdres = $$$False
+	Set CRMAdres.ToonzaalAdres = $$$False
+	Set CRMAdres.FacturatieAdres = $$$False
+	Do ..Customer.Adressen.Insert(CRMAdres)
+			
+	#dim LeverAdresIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(..Klant.GeefLeverAdressen())
+	While LeverAdresIterator.HasNext() {
+		#dim Adres As DOM.VKP.LeverAdres = LeverAdresIterator.Next()
+		Set CRMAdres = ##class(AXBizTalk.Address).%New()
+		Set CRMAdres.Klantnummer = +##class(AX.common.impl.ConvertAdminToAX).ConvertCustomerID(..Klant.GeefID())
+		Set CRMAdres.Straat1 = Adres.GeefStraat()
+		Set CRMAdres.Postcode = Adres.GeefPostcode()
+		Set CRMAdres.Plaats = Adres.GeefGemeente()
+		Set CRMAdres.LandCodeISO3 = Adres.GeefLand().GeefIso3()
+		Set CRMAdres.Telefoon = Adres.GeefTelefoon()
+		Set CRMAdres.Verzendwijze = Adres.GeefVerzendingWijze()
+		Set CRMAdres.LeveringAdres = $$$True
+		Set CRMAdres.BezoekAdres = $$$False
+		Set CRMAdres.ToonzaalAdres = $$$False
+		Set CRMAdres.FacturatieAdres = $$$False
+		Do ..Customer.Adressen.Insert(CRMAdres)
+	}
+	
+	If $IsObject(..Klant.GeefBezoekAdres()){
+		Set CRMAdres = ##class(AXBizTalk.Address).%New()
+		Set CRMAdres.Klantnummer = +##class(AX.common.impl.ConvertAdminToAX).ConvertCustomerID(..Klant.GeefID())
+		Set CRMAdres.Straat1 = ..Klant.GeefBezoekAdres().GeefStraat()
+		Set CRMAdres.Postcode = ..Klant.GeefBezoekAdres().GeefPostcode()
+		Set CRMAdres.Plaats = ..Klant.GeefBezoekAdres().GeefGemeente()
+		Set CRMAdres.LandCodeISO3 = ..Klant.GeefBezoekAdres().GeefLand().GeefIso3()
+		Set CRMAdres.Telefoon = ..Klant.GeefBezoekAdres().GeefTelefoon()
+		Set CRMAdres.Verzendwijze = ..Klant.GeefVerzendWijze()
+		Set CRMAdres.LeveringAdres = $$$False
+		Set CRMAdres.BezoekAdres = $$$True
+		Set CRMAdres.ToonzaalAdres = $$$False
+		Set CRMAdres.FacturatieAdres = $$$False
+		Do ..Customer.Adressen.Insert(CRMAdres)		
+	}
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhTest/Fake/DOM/VKP/LeverAdres.cls.xml
===================================================================
diff -u -r29059 -r37870
--- vhTest/Fake/DOM/VKP/LeverAdres.cls.xml	(.../LeverAdres.cls.xml)	(revision 29059)
+++ vhTest/Fake/DOM/VKP/LeverAdres.cls.xml	(.../LeverAdres.cls.xml)	(revision 37870)
@@ -43,6 +43,30 @@
 <Implementation><![CDATA[	quit "Straat "_..ID
 ]]></Implementation>
 </Method>
+
+<Method name="GeefGemeente">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit "Gemeente "_..ID
+]]></Implementation>
+</Method>
+
+<Method name="GeefLand">
+<ReturnType>DOM.common.Land</ReturnType>
+<Implementation><![CDATA[	Quit ##class(DOM.common.impl.LocatieAPI).%New().GeefBelgie()
+]]></Implementation>
+</Method>
+
+<Method name="GeefTelefoon">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit "03/123456"_..ID
+]]></Implementation>
+</Method>
+
+<Method name="GeefVerzendingWijze">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit "VerzendingWijze"_..ID
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: AXBizTalk/Customer.cls.xml
===================================================================
diff -u -r37845 -r37870
--- AXBizTalk/Customer.cls.xml	(.../Customer.cls.xml)	(revision 37845)
+++ AXBizTalk/Customer.cls.xml	(.../Customer.cls.xml)	(revision 37870)
@@ -95,6 +95,23 @@
 <Type>%String</Type>
 </Property>
 
+<Property name="AantalFacturen">
+<Type>%String</Type>
+</Property>
+
+<Property name="AantalFacturenVervallen">
+<Type>%String</Type>
+</Property>
+
+<Property name="PercentageVervallenFacturen">
+<Type>%String</Type>
+</Property>
+
+<Property name="Adressen">
+<Type>AXBizTalk.Customer</Type>
+<Collection>list</Collection>
+</Property>
+
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
 <State>CustomerState</State>
@@ -163,6 +180,21 @@
 <Value name="21">
 <Value>FacturatieFrequentie</Value>
 </Value>
+<Value name="22">
+<Value>AantalFacturen</Value>
+</Value>
+<Value name="23">
+<Value>AantalVervallenFacturen</Value>
+</Value>
+<Value name="24">
+<Value>PercentageVervallenFacturen</Value>
+</Value>
+<Value name="25">
+<Value>AantalFacturenVervallen</Value>
+</Value>
+<Value name="26">
+<Value>Adressen</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: vhUnitTest/AXimpl/BizTalkMessage/Converter/CustomerConverter/Convert/Test.cls.xml
===================================================================
diff -u -r37846 -r37870
--- vhUnitTest/AXimpl/BizTalkMessage/Converter/CustomerConverter/Convert/Test.cls.xml	(.../Test.cls.xml)	(revision 37846)
+++ vhUnitTest/AXimpl/BizTalkMessage/Converter/CustomerConverter/Convert/Test.cls.xml	(.../Test.cls.xml)	(revision 37870)
@@ -23,6 +23,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="LeverAdresLijst">
+<Type>%ListOfDataTypes</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="OnBeforeOneTest">
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
@@ -37,6 +42,8 @@
 	Set ..VerkoopAPI = ##class(vhTest.Mock.DOM.VKP.VerkoopAPI).%New()
 	Do ..VerkoopAPI.IndienMethodCall("GeefKlant",$$$ElkeWaarde).DanReturn(..Klant)
 	
+	Set ..LeverAdresLijst = ##class(%ListOfDataTypes).%New()
+	
 	Do ..Klant.IndienMethodCall("GeefInterneVerantwoordelijke").DanReturn("Verantwoordelijke")
 	Do ..Klant.IndienMethodCall("GeefActiviteit").DanReturn("")
 	Do ..Klant.IndienMethodCall("GeefKwantitatief").DanReturn("")
@@ -47,6 +54,10 @@
 	Do ..Klant.IndienMethodCall("GeefLeveringVoorwaarde").DanReturn("30")
 	Do ..Klant.IndienMethodCall("GeefKredietlimiet").DanReturn("1000")
 	Do ..Klant.IndienMethodCall("GeefFacturatieFrequentie").DanReturn("D2")
+	Do ..Klant.IndienMethodCall("GeefLeverAdressen").DanReturn(..LeverAdresLijst)
+	Do ..Klant.IndienMethodCall("GeefAdres").DanReturn(##class(vhTest.Dummy.DOM.common.impl.VH.Adres).%New())
+	Do ..Klant.IndienMethodCall("GeefBezoekAdres").DanReturn("")
+	Do ..Klant.IndienMethodCall("GeefVerzendWijze").DanReturn("")
 	
 	Do ..Partij.IndienMethodCall("GeefActiefStatus").DanReturn("")
 ]]></Implementation>
@@ -83,6 +94,18 @@
 	Do $$$AssertEquals(GeconverteerdeKlant.Leveringsvoorwaarde,"30")
 	Do $$$AssertEquals(GeconverteerdeKlant.Kredietlimiet,"1000")
 	Do $$$AssertEquals(GeconverteerdeKlant.FacturatieFrequentie,"D2")
+	
+	Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(1).Klantnummer,"1234")
+	Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(1).Straat1,"DummyStraat")
+	Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(1).Postcode,"9100")
+	Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(1).Plaats,"DummyGemeente")
+	Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(1).LandCodeISO3,"BEL")
+	Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(1).Telefoon,"")
+	Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(1).Verzendwijze,"")
+	Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(1).LeveringAdres,$$$False)
+	Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(1).BezoekAdres,$$$False)
+	Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(1).ToonzaalAdres,$$$False)
+	Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(1).FacturatieAdres,$$$False)
 ]]></Implementation>
 </Method>
 
@@ -253,6 +276,108 @@
 	Do $$$AssertEquals(GeconverteerdeKlant.Kwaliteit,"")
 ]]></Implementation>
 </Method>
+
+<Method name="Test: 2 leveradressen aanwezig -&gt; 3 adressen in resultaat (ook hoofdadres)">
+<Implementation><![CDATA[
+	Do ..LeverAdresLijst.Insert(##class(vhTest.Fake.DOM.VKP.LeverAdres).%New(1))	
+	Do ..LeverAdresLijst.Insert(##class(vhTest.Fake.DOM.VKP.LeverAdres).%New(2))
+
+	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
+	
+	#dim GeconverteerdeKlant As AXBizTalk.Customer = Converter.Convert(..Klant.GeefID())
+	
+	If $$$AssertEquals(GeconverteerdeKlant.Adressen.Count(),3) {
+		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(2).Klantnummer,"1234")
+		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(2).Straat1,"Straat 1")
+		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(2).Postcode,"9101")
+		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(2).LandCodeISO3,"BEL")
+		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(2).Telefoon,"03/1234561")
+		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(2).Verzendwijze,"VerzendingWijze1")
+		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(2).LeveringAdres,$$$True)
+		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(2).BezoekAdres,$$$False)
+		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(2).ToonzaalAdres,$$$False)
+		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(2).FacturatieAdres,$$$False)
+		
+		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(3).Klantnummer,"1234")
+		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(3).Straat1,"Straat 2")
+		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(3).Postcode,"9102")
+		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(3).LandCodeISO3,"BEL")
+		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(3).Telefoon,"03/1234562")
+		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(3).Verzendwijze,"VerzendingWijze2")
+		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(3).LeveringAdres,$$$True)
+		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(3).BezoekAdres,$$$False)
+		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(3).ToonzaalAdres,$$$False)
+		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(3).FacturatieAdres,$$$False)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Test: 0 leveradressen aanwezig -&gt; 1 adres in resultaat (het hoofdadres)">
+<Implementation><![CDATA[
+	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
+	
+	#dim GeconverteerdeKlant As AXBizTalk.Customer = Converter.Convert(..Klant.GeefID())
+	
+	Do $$$AssertEquals(GeconverteerdeKlant.Adressen.Count(),1)
+]]></Implementation>
+</Method>
+
+<Method name="Test: 0 leveradressen en 1 bezoekadres aanwezig -&gt; 2 adressen in resultaat (het hoofdadres en bezoekadres)">
+<Implementation><![CDATA[
+	Do ..Klant.IndienMethodCall("GeefBezoekAdres").DanReturn(##class(vhTest.Dummy.DOM.common.impl.VH.Adres).%New())	
+	
+	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
+	
+	#dim GeconverteerdeKlant As AXBizTalk.Customer = Converter.Convert(..Klant.GeefID())
+	
+	If $$$AssertEquals(GeconverteerdeKlant.Adressen.Count(),2) {
+		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(2).Klantnummer,"1234")
+		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(2).Straat1,"DummyStraat")
+		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(2).Postcode,"9100")
+		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(2).LandCodeISO3,"BEL")
+		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(2).Telefoon,"")
+		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(2).Verzendwijze,"")
+		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(2).LeveringAdres,$$$False)
+		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(2).BezoekAdres,$$$True)
+		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(2).ToonzaalAdres,$$$False)
+		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(2).FacturatieAdres,$$$False)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Test: 2 leveradressen en 1 bezoekadres aanwezig -&gt; 4 adressen in resultaat (het hoofdadres, 2 leveradressen en 1 bezoekadres)">
+<Implementation><![CDATA[
+	Do ..Klant.IndienMethodCall("GeefBezoekAdres").DanReturn(##class(vhTest.Dummy.DOM.common.impl.VH.Adres).%New())
+	Do ..LeverAdresLijst.Insert(##class(vhTest.Fake.DOM.VKP.LeverAdres).%New(1))	
+	Do ..LeverAdresLijst.Insert(##class(vhTest.Fake.DOM.VKP.LeverAdres).%New(2))
+	
+	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
+	
+	#dim GeconverteerdeKlant As AXBizTalk.Customer = Converter.Convert(..Klant.GeefID())
+	
+	If $$$AssertEquals(GeconverteerdeKlant.Adressen.Count(),4) {
+		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(1).LeveringAdres,$$$False)
+		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(1).BezoekAdres,$$$False)
+		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(1).ToonzaalAdres,$$$False)
+		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(1).FacturatieAdres,$$$False)
+		
+		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(2).LeveringAdres,$$$True)
+		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(2).BezoekAdres,$$$False)
+		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(2).ToonzaalAdres,$$$False)
+		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(2).FacturatieAdres,$$$False)
+		
+		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(3).LeveringAdres,$$$True)
+		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(3).BezoekAdres,$$$False)
+		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(3).ToonzaalAdres,$$$False)
+		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(3).FacturatieAdres,$$$False)
+		
+		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(4).LeveringAdres,$$$False)
+		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(4).BezoekAdres,$$$True)
+		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(4).ToonzaalAdres,$$$False)
+		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(4).FacturatieAdres,$$$False)
+	}
+]]></Implementation>
+</Method>
 </Class>