Index: APPS/EDIExport/FactuurVerzender/impl/Kvik/Converteerder.cls.xml
===================================================================
diff -u -r32486 -r33441
--- APPS/EDIExport/FactuurVerzender/impl/Kvik/Converteerder.cls.xml	(.../Converteerder.cls.xml)	(revision 32486)
+++ APPS/EDIExport/FactuurVerzender/impl/Kvik/Converteerder.cls.xml	(.../Converteerder.cls.xml)	(revision 33441)
@@ -108,20 +108,15 @@
 <Method name="ZetLeverAdres">
 <Private>1</Private>
 <Implementation><![CDATA[
-	Set ..Document.Header.Parties.Delivery.Name = ..Bon.GeefLeveringsAdres().GeefNaam()
-	Set ..Document.Header.Parties.Delivery.Address.Street = ..Bon.GeefLeveringsAdres().GeefStraat()
-	Set ..Document.Header.Parties.Delivery.Address.ZipCode = ..Bon.GeefLeveringsAdres().GeefPostcode() 
-	Set ..Document.Header.Parties.Delivery.Address.City = ..Bon.GeefLeveringsAdres().GeefGemeente()
-	Set ..Document.Header.Parties.Delivery.Address.Country.ISOCode = ..Bon.GeefLeveringsAdres().GeefLand().GeefCode()
-	
-	try {
-		#dim AdresUtils As DOM.VKP.impl.DataM.AdresUtils = ##class(DOM.VKP.impl.DataM.AdresUtils).%New()
-		#dim OrigineelKlantAdresNr As %String = AdresUtils.GeefOrigineelKlantAdresNr("KVIKAS 24315",..Bon.GeefLeveringsAdres())
-		Set ..Document.Header.Parties.Buyer.Identification.AccountNumber = OrigineelKlantAdresNr
-	}
-	catch {
-		Set ..Document.Header.Parties.Buyer.Identification.AccountNumber = ..Bon.GeefLeveringsAdres().GeefKlantAdresNr()
-	}
+	#dim LeverAdres As DOM.VKP.LeverAdres = ..Bon.GeefLeveringsAdres()
+	Set ..Document.Header.Parties.Delivery.Name = LeverAdres.GeefNaam()
+	Set ..Document.Header.Parties.Delivery.Address.Street = LeverAdres.GeefStraat()
+	Set ..Document.Header.Parties.Delivery.Address.ZipCode = LeverAdres.GeefPostcode() 
+	Set ..Document.Header.Parties.Delivery.Address.City = LeverAdres.GeefGemeente()
+	Set ..Document.Header.Parties.Delivery.Address.Country.ISOCode = LeverAdres.GeefLand().GeefCode()
+	Do ##class(Tools.Wlip).%New(26).String(LeverAdres.GeefOpmerking1())
+	#dim AccountNumber As %String = $tr($Piece(LeverAdres.GeefOpmerking1(),"NR",2)," ","")
+	Set ..Document.Header.Parties.Buyer.Identification.AccountNumber = AccountNumber
 ]]></Implementation>
 </Method>