Index: AX/Uitgaand/Klant/impl/AifConverter.cls.xml
===================================================================
diff -u -r33554 -r33557
--- AX/Uitgaand/Klant/impl/AifConverter.cls.xml	(.../AifConverter.cls.xml)	(revision 33554)
+++ AX/Uitgaand/Klant/impl/AifConverter.cls.xml	(.../AifConverter.cls.xml)	(revision 33557)
@@ -23,12 +23,23 @@
 	
 	set Custable.WebSalesOrderDisplay = "All"
 	
-	set DirParty = ##class(AXaif.Customer.AxdEntityDirPartyDirPartyTable).%New()
+	set DirParty = ##class(AXaif.Customer.AxdEntityDirPartyDirOrganization).%New()
 	set DirParty.LanguageId = ..FormatLanuageId(Partij.GeefTaal())
 	set DirParty.Name = Partij.GeefNaam()_$$$IfLength(Partij.GeefToenaam()," ","")
 	
+	set OrganizationName = ##class(AXaif.Customer.AxdEntityOrganizationName).%New()
+	set OrganizationName.Name = DirParty.Name
+	do DirParty.OrganizationName.Insert(OrganizationName)
+	
 	do DirParty.DirPartyPostalAddressView.Insert(..ConvertPostalAddress(Partij))
 	
+	do:$length(Partij.GeefTelefoon1()) DirParty.DirPartyContactInfoView.Insert(..ConvertContactInfo("Telefoon 1",Partij.GeefTelefoon1(),"Phone"))
+	do:$length(Partij.GeefTelefoon2()) DirParty.DirPartyContactInfoView.Insert(..ConvertContactInfo("Telefoon 2",Partij.GeefTelefoon2(),"Phone"))
+	do:$length(Partij.GeefGsm()) DirParty.DirPartyContactInfoView.Insert(..ConvertContactInfo("Gsm",Partij.GeefGsm(),"Phone"))
+	do:$length(Partij.GeefTelefax()) DirParty.DirPartyContactInfoView.Insert(..ConvertContactInfo("Fax",Partij.GeefTelefax(),"Fax"))
+	do:$length(Partij.GeefEmail()) DirParty.DirPartyContactInfoView.Insert(..ConvertContactInfo("E-mail",Partij.GeefEmail(),"Email"))
+	do:$length(Partij.GeefWebstek()) DirParty.DirPartyContactInfoView.Insert(..ConvertContactInfo("URL",Partij.GeefWebstek(),"URL"))
+		
 	do Custable.DirParty.Insert(DirParty)
 	
 	do AxKlant.CustTable.Insert(Custable)
@@ -37,6 +48,19 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ConvertContactInfo">
+<FormalSpec>LocationName:%String,Locator:%String,Type:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>AXaif.Customer.AxdEntityDirPartyContactInfoView</ReturnType>
+<Implementation><![CDATA[
+	set ContactInfo = ##class(AXaif.Customer.AxdEntityDirPartyContactInfoView).%New()
+	set ContactInfo.LocationName = LocationName
+	set ContactInfo.Locator = Locator
+	set ContactInfo.Type = Type
+	quit ContactInfo
+]]></Implementation>
+</Method>
+
 <Method name="ConvertPostalAddress">
 <FormalSpec>Partij:DOM.PARTIJ.Partij</FormalSpec>
 <Private>1</Private>
Index: vhUnitTest/AX/Uitgaand/Klant/KlantNaarBestand/Test.cls.xml
===================================================================
diff -u -r33554 -r33557
--- vhUnitTest/AX/Uitgaand/Klant/KlantNaarBestand/Test.cls.xml	(.../Test.cls.xml)	(revision 33554)
+++ vhUnitTest/AX/Uitgaand/Klant/KlantNaarBestand/Test.cls.xml	(.../Test.cls.xml)	(revision 33557)
@@ -27,6 +27,13 @@
 	do ..Partij.IndienMethodCall("GeefAdres").DanReturn(##class(vhTest.Dummy.DOM.VKP.LeverAdres).%New())
 	do ..Partij.IndienMethodCall("GeefTaal").DanReturn(##class(DOM.enu.Taal).Nederlands())
 	
+	do ..Partij.IndienMethodCall("GeefTelefoon1").DanReturn("")
+	do ..Partij.IndienMethodCall("GeefTelefoon2").DanReturn("")
+	do ..Partij.IndienMethodCall("GeefTelefax").DanReturn("")
+	do ..Partij.IndienMethodCall("GeefGsm").DanReturn("")
+	do ..Partij.IndienMethodCall("GeefEmail").DanReturn("")
+	do ..Partij.IndienMethodCall("GeefWebstek").DanReturn("")
+	
 	set ..Klant = ##class(vhTest.Mock.DOM.VKP.VanHoeckeKlant).%New()
 	do ..Klant.IndienMethodCall("GeefID").DanReturn("K||1234")
 	do ..Klant.IndienMethodCall("GeefKortingContantPercentage").DanReturn(3)
@@ -56,7 +63,7 @@
 	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
 	
 	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
-	#dim Party As AXaif.Customer.AxdEntityDirPartyDirPartyTable = CustTable.DirParty.GetAt(1)
+	#dim Party As AXaif.Customer.AxdEntityDirPartyDirOrganization = CustTable.DirParty.GetAt(1)
 	#dim PostalAddres As AXaif.Customer.AxdEntityDirPartyPostalAddressView = Party.DirPartyPostalAddressView.GetAt(1)
 	
 	do $$$AssertEquals(PostalAddres.IsPrimary,"Yes")
@@ -77,7 +84,7 @@
 	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
 	
 	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
-	#dim Party As AXaif.Customer.AxdEntityDirPartyDirPartyTable = CustTable.DirParty.GetAt(1)
+	#dim Party As AXaif.Customer.AxdEntityDirPartyDirOrganization = CustTable.DirParty.GetAt(1)
 	#dim PostalAddres As AXaif.Customer.AxdEntityDirPartyPostalAddressView = Party.DirPartyPostalAddressView.GetAt(1)
 	
 	do $$$AssertEquals(PostalAddres.ZipCode,"1234 AA")
@@ -94,7 +101,7 @@
 	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
 	
 	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
-	#dim Party As AXaif.Customer.AxdEntityDirPartyDirPartyTable = CustTable.DirParty.GetAt(1)
+	#dim Party As AXaif.Customer.AxdEntityDirPartyDirOrganization = CustTable.DirParty.GetAt(1)
 	#dim PostalAddres As AXaif.Customer.AxdEntityDirPartyPostalAddressView = Party.DirPartyPostalAddressView.GetAt(1)
 	
 	do $$$AssertEquals(PostalAddres.ZipCode,"NL1234 AA")
@@ -111,7 +118,7 @@
 	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
 	
 	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
-	#dim Party As AXaif.Customer.AxdEntityDirPartyDirPartyTable = CustTable.DirParty.GetAt(1)
+	#dim Party As AXaif.Customer.AxdEntityDirPartyDirOrganization = CustTable.DirParty.GetAt(1)
 	#dim PostalAddres As AXaif.Customer.AxdEntityDirPartyPostalAddressView = Party.DirPartyPostalAddressView.GetAt(1)
 	
 	do $$$AssertEquals(PostalAddres.ZipCode,"1234-AA")
@@ -127,9 +134,10 @@
 	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
 	
 	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
-	#dim Party As AXaif.Customer.AxdEntityDirPartyDirPartyTable = CustTable.DirParty.GetAt(1)
+	#dim Party As AXaif.Customer.AxdEntityDirPartyDirOrganization = CustTable.DirParty.GetAt(1)
 	
 	do $$$AssertEquals(Party.Name,"Klantnaam")
+	do $$$AssertEquals(Party.OrganizationName.GetAt(1).Name,"Klantnaam")
 ]]></Implementation>
 </Method>
 
@@ -142,9 +150,10 @@
 	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
 	
 	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
-	#dim Party As AXaif.Customer.AxdEntityDirPartyDirPartyTable = CustTable.DirParty.GetAt(1)
+	#dim Party As AXaif.Customer.AxdEntityDirPartyDirOrganization = CustTable.DirParty.GetAt(1)
 	
 	do $$$AssertEquals(Party.Name,"Klantnaam Toenaam")
+	do $$$AssertEquals(Party.OrganizationName.GetAt(1).Name,"Klantnaam Toenaam")
 ]]></Implementation>
 </Method>
 
@@ -156,7 +165,7 @@
 	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
 	
 	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
-	#dim Party As AXaif.Customer.AxdEntityDirPartyDirPartyTable = CustTable.DirParty.GetAt(1)
+	#dim Party As AXaif.Customer.AxdEntityDirPartyDirOrganization = CustTable.DirParty.GetAt(1)
 	
 	do $$$AssertEquals(Party.LanguageId,"nl-be")
 ]]></Implementation>
@@ -170,7 +179,7 @@
 	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
 	
 	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
-	#dim Party As AXaif.Customer.AxdEntityDirPartyDirPartyTable = CustTable.DirParty.GetAt(1)
+	#dim Party As AXaif.Customer.AxdEntityDirPartyDirOrganization = CustTable.DirParty.GetAt(1)
 	
 	do $$$AssertEquals(Party.LanguageId,"fr")
 ]]></Implementation>
@@ -184,7 +193,7 @@
 	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
 	
 	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
-	#dim Party As AXaif.Customer.AxdEntityDirPartyDirPartyTable = CustTable.DirParty.GetAt(1)
+	#dim Party As AXaif.Customer.AxdEntityDirPartyDirOrganization = CustTable.DirParty.GetAt(1)
 	
 	do $$$AssertEquals(Party.LanguageId,"de")
 ]]></Implementation>
@@ -198,7 +207,7 @@
 	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
 	
 	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
-	#dim Party As AXaif.Customer.AxdEntityDirPartyDirPartyTable = CustTable.DirParty.GetAt(1)
+	#dim Party As AXaif.Customer.AxdEntityDirPartyDirOrganization = CustTable.DirParty.GetAt(1)
 	
 	do $$$AssertEquals(Party.LanguageId,"en-us")
 ]]></Implementation>
@@ -384,6 +393,168 @@
 	do $$$AssertEquals(CustTable.TaxGroup,"BX")
 ]]></Implementation>
 </Method>
+
+<Method name="Test: ContactInfo - Geen gegevens">
+<Implementation><![CDATA[
+	do ..Partij.IndienMethodCall("GeefTelefoon1").DanReturn("")
+	do ..Partij.IndienMethodCall("GeefTelefoon2").DanReturn("")
+	do ..Partij.IndienMethodCall("GeefTelefax").DanReturn("")
+	do ..Partij.IndienMethodCall("GeefGsm").DanReturn("")
+	do ..Partij.IndienMethodCall("GeefEmail").DanReturn("")
+	do ..Partij.IndienMethodCall("GeefWebstek").DanReturn("")
+	
+	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
+	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
+	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
+	#dim Party As AXaif.Customer.AxdEntityDirPartyDirOrganization = CustTable.DirParty.GetAt(1)
+	
+	do $$$AssertEquals(Party.DirPartyContactInfoView.Count(),0)
+]]></Implementation>
+</Method>
+
+<Method name="Test: ContactInfo - Telefoon">
+<Implementation><![CDATA[
+	do ..Partij.IndienMethodCall("GeefTelefoon1").DanReturn("09 123 45 67")
+	do ..Partij.IndienMethodCall("GeefTelefoon2").DanReturn("")
+	do ..Partij.IndienMethodCall("GeefTelefax").DanReturn("")
+	do ..Partij.IndienMethodCall("GeefGsm").DanReturn("")
+	do ..Partij.IndienMethodCall("GeefEmail").DanReturn("")
+	do ..Partij.IndienMethodCall("GeefWebstek").DanReturn("")
+	
+	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
+	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
+	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
+	#dim Party As AXaif.Customer.AxdEntityDirPartyDirOrganization = CustTable.DirParty.GetAt(1)
+	
+	if $$$AssertEquals(Party.DirPartyContactInfoView.Count(),1) {
+	 	do $$$AssertEquals(Party.DirPartyContactInfoView.GetAt(1).LocationName,"Telefoon 1")
+	 	do $$$AssertEquals(Party.DirPartyContactInfoView.GetAt(1).Locator,"09 123 45 67")
+	 	do $$$AssertEquals(Party.DirPartyContactInfoView.GetAt(1).Type,"Phone")
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Test: ContactInfo - Telefoon1 en Telefoon2">
+<Implementation><![CDATA[
+	do ..Partij.IndienMethodCall("GeefTelefoon1").DanReturn("09 123 45 67")
+	do ..Partij.IndienMethodCall("GeefTelefoon2").DanReturn("09 123 45 68")
+	do ..Partij.IndienMethodCall("GeefTelefax").DanReturn("")
+	do ..Partij.IndienMethodCall("GeefGsm").DanReturn("")
+	do ..Partij.IndienMethodCall("GeefEmail").DanReturn("")
+	do ..Partij.IndienMethodCall("GeefWebstek").DanReturn("")
+	
+	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
+	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
+	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
+	#dim Party As AXaif.Customer.AxdEntityDirPartyDirOrganization = CustTable.DirParty.GetAt(1)
+	
+	if $$$AssertEquals(Party.DirPartyContactInfoView.Count(),2) {
+	 	do $$$AssertEquals(Party.DirPartyContactInfoView.GetAt(1).LocationName,"Telefoon 1")
+	 	do $$$AssertEquals(Party.DirPartyContactInfoView.GetAt(1).Locator,"09 123 45 67")
+	 	do $$$AssertEquals(Party.DirPartyContactInfoView.GetAt(1).Type,"Phone")
+	 	do $$$AssertEquals(Party.DirPartyContactInfoView.GetAt(2).LocationName,"Telefoon 2")
+	 	do $$$AssertEquals(Party.DirPartyContactInfoView.GetAt(2).Locator,"09 123 45 68")
+	 	do $$$AssertEquals(Party.DirPartyContactInfoView.GetAt(2).Type,"Phone")
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Test: ContactInfo - Telefoon1 en Telefax">
+<Implementation><![CDATA[
+	do ..Partij.IndienMethodCall("GeefTelefoon1").DanReturn("09 123 45 67")
+	do ..Partij.IndienMethodCall("GeefTelefoon2").DanReturn("")
+	do ..Partij.IndienMethodCall("GeefTelefax").DanReturn("09 123 45 66")
+	do ..Partij.IndienMethodCall("GeefGsm").DanReturn("")
+	do ..Partij.IndienMethodCall("GeefEmail").DanReturn("")
+	do ..Partij.IndienMethodCall("GeefWebstek").DanReturn("")
+	
+	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
+	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
+	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
+	#dim Party As AXaif.Customer.AxdEntityDirPartyDirOrganization = CustTable.DirParty.GetAt(1)
+	
+	if $$$AssertEquals(Party.DirPartyContactInfoView.Count(),2) {
+	 	do $$$AssertEquals(Party.DirPartyContactInfoView.GetAt(1).LocationName,"Telefoon 1")
+	 	do $$$AssertEquals(Party.DirPartyContactInfoView.GetAt(1).Locator,"09 123 45 67")
+	 	do $$$AssertEquals(Party.DirPartyContactInfoView.GetAt(1).Type,"Phone")
+	 	do $$$AssertEquals(Party.DirPartyContactInfoView.GetAt(2).LocationName,"Fax")
+	 	do $$$AssertEquals(Party.DirPartyContactInfoView.GetAt(2).Locator,"09 123 45 66")
+	 	do $$$AssertEquals(Party.DirPartyContactInfoView.GetAt(2).Type,"Fax")
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Test: ContactInfo - Telefoon1,Telefax en email">
+<Implementation><![CDATA[
+	do ..Partij.IndienMethodCall("GeefTelefoon1").DanReturn("09 123 45 67")
+	do ..Partij.IndienMethodCall("GeefTelefoon2").DanReturn("")
+	do ..Partij.IndienMethodCall("GeefTelefax").DanReturn("09 123 45 66")
+	do ..Partij.IndienMethodCall("GeefGsm").DanReturn("")
+	do ..Partij.IndienMethodCall("GeefEmail").DanReturn("iemand@ergens.be")
+	do ..Partij.IndienMethodCall("GeefWebstek").DanReturn("")
+	
+	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
+	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
+	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
+	#dim Party As AXaif.Customer.AxdEntityDirPartyDirOrganization = CustTable.DirParty.GetAt(1)
+	
+	if $$$AssertEquals(Party.DirPartyContactInfoView.Count(),3) {
+	 	do $$$AssertEquals(Party.DirPartyContactInfoView.GetAt(1).LocationName,"Telefoon 1")
+	 	do $$$AssertEquals(Party.DirPartyContactInfoView.GetAt(1).Locator,"09 123 45 67")
+	 	do $$$AssertEquals(Party.DirPartyContactInfoView.GetAt(1).Type,"Phone")
+	 	
+	 	do $$$AssertEquals(Party.DirPartyContactInfoView.GetAt(2).LocationName,"Fax")
+	 	do $$$AssertEquals(Party.DirPartyContactInfoView.GetAt(2).Locator,"09 123 45 66")
+	 	do $$$AssertEquals(Party.DirPartyContactInfoView.GetAt(2).Type,"Fax")
+	 	
+	 	do $$$AssertEquals(Party.DirPartyContactInfoView.GetAt(3).LocationName,"E-mail")
+	 	do $$$AssertEquals(Party.DirPartyContactInfoView.GetAt(3).Locator,"iemand@ergens.be")
+	 	do $$$AssertEquals(Party.DirPartyContactInfoView.GetAt(3).Type,"Email")
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Test: ContactInfo - Alles">
+<Implementation><![CDATA[
+	do ..Partij.IndienMethodCall("GeefTelefoon1").DanReturn("09 123 45 67")
+	do ..Partij.IndienMethodCall("GeefTelefoon2").DanReturn("09 123 45 68")
+	do ..Partij.IndienMethodCall("GeefTelefax").DanReturn("09 123 45 66")
+	do ..Partij.IndienMethodCall("GeefGsm").DanReturn("0474 123 456")
+	do ..Partij.IndienMethodCall("GeefEmail").DanReturn("iemand@ergens.be")
+	do ..Partij.IndienMethodCall("GeefWebstek").DanReturn("http://www.ergens.be")
+	
+	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
+	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
+	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
+	#dim Party As AXaif.Customer.AxdEntityDirPartyDirOrganization = CustTable.DirParty.GetAt(1)
+	
+	if $$$AssertEquals(Party.DirPartyContactInfoView.Count(),6) {
+	 	do $$$AssertEquals(Party.DirPartyContactInfoView.GetAt(1).LocationName,"Telefoon 1")
+	 	do $$$AssertEquals(Party.DirPartyContactInfoView.GetAt(1).Locator,"09 123 45 67")
+	 	do $$$AssertEquals(Party.DirPartyContactInfoView.GetAt(1).Type,"Phone")
+	 	
+	 	do $$$AssertEquals(Party.DirPartyContactInfoView.GetAt(2).LocationName,"Telefoon 2")
+	 	do $$$AssertEquals(Party.DirPartyContactInfoView.GetAt(2).Locator,"09 123 45 68")
+	 	do $$$AssertEquals(Party.DirPartyContactInfoView.GetAt(2).Type,"Phone")
+	 	
+	 	do $$$AssertEquals(Party.DirPartyContactInfoView.GetAt(3).LocationName,"Gsm")
+	 	do $$$AssertEquals(Party.DirPartyContactInfoView.GetAt(3).Locator,"0474 123 456")
+	 	do $$$AssertEquals(Party.DirPartyContactInfoView.GetAt(3).Type,"Phone")
+	 	
+	 	do $$$AssertEquals(Party.DirPartyContactInfoView.GetAt(4).LocationName,"Fax")
+	 	do $$$AssertEquals(Party.DirPartyContactInfoView.GetAt(4).Locator,"09 123 45 66")
+	 	do $$$AssertEquals(Party.DirPartyContactInfoView.GetAt(4).Type,"Fax")
+	 	
+	 	do $$$AssertEquals(Party.DirPartyContactInfoView.GetAt(5).LocationName,"E-mail")
+	 	do $$$AssertEquals(Party.DirPartyContactInfoView.GetAt(5).Locator,"iemand@ergens.be")
+	 	do $$$AssertEquals(Party.DirPartyContactInfoView.GetAt(5).Type,"Email")
+	 	
+	 	do $$$AssertEquals(Party.DirPartyContactInfoView.GetAt(6).LocationName,"URL")
+	 	do $$$AssertEquals(Party.DirPartyContactInfoView.GetAt(6).Locator,"http://www.ergens.be")
+	 	do $$$AssertEquals(Party.DirPartyContactInfoView.GetAt(6).Type,"URL")
+	}
+]]></Implementation>
+</Method>
 </Class>