Index: DOM/VKP/enu/Klant.cls.xml
===================================================================
diff -u -r33035 -r33441
--- DOM/VKP/enu/Klant.cls.xml	(.../Klant.cls.xml)	(revision 33035)
+++ DOM/VKP/enu/Klant.cls.xml	(.../Klant.cls.xml)	(revision 33441)
@@ -321,13 +321,20 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Kvik">
+<Method name="KvikNL">
 <ClassMethod>1</ClassMethod>
 <ReturnType>DOM.VKP.enu.Klant</ReturnType>
 <Implementation><![CDATA[	Quit ..MaakPartijID(24315)
 ]]></Implementation>
 </Method>
 
+<Method name="KvikBE">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.VKP.enu.Klant</ReturnType>
+<Implementation><![CDATA[	Quit ..MaakPartijID(25868)
+]]></Implementation>
+</Method>
+
 <Method name="BlumPortugal">
 <Description>
 Klant naam: LUSO BLUM </Description>
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>
 
Index: DOM/VKP/enu/Klant/AutoComplete.cls.xml
===================================================================
diff -u -r33035 -r33441
--- DOM/VKP/enu/Klant/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 33035)
+++ DOM/VKP/enu/Klant/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 33441)
@@ -170,8 +170,15 @@
 <ReadOnly>1</ReadOnly>
 </Property>
 
-<Property name="Kvik">
+<Property name="KvikBE">
 <Type>DOM.VKP.enu.Klant</Type>
+<InitialExpression>"K||25868"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="KvikNL">
+<Type>DOM.VKP.enu.Klant</Type>
 <InitialExpression>"K||24315"</InitialExpression>
 <Transient>1</Transient>
 <ReadOnly>1</ReadOnly>
FishEye: Tag 33441 refers to a dead (removed) revision in file `DOM/VKP/impl/DataM/AdresUtils.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: vhTestFiles/UnitTests/APPS.EDIExport.FactuurVerzender.impl.Kvik.Verzender.Verzend/Test/TestKvikfactuurconverteerder/KvikFactuurTestOuput.xml
===================================================================
diff -u -r33343 -r33441
--- vhTestFiles/UnitTests/APPS.EDIExport.FactuurVerzender.impl.Kvik.Verzender.Verzend/Test/TestKvikfactuurconverteerder/KvikFactuurTestOuput.xml	(.../KvikFactuurTestOuput.xml)	(revision 33343)
+++ vhTestFiles/UnitTests/APPS.EDIExport.FactuurVerzender.impl.Kvik.Verzender.Verzend/Test/TestKvikfactuurconverteerder/KvikFactuurTestOuput.xml	(.../KvikFactuurTestOuput.xml)	(revision 33441)
@@ -18,7 +18,7 @@
       </Invoicee>
       <Buyer>
         <Identification>
-          <AccountNumber>3</AccountNumber>
+          <AccountNumber>401220</AccountNumber>
         </Identification>
       </Buyer>
       <Delivery>
Index: DOM/VKP/enu/Klant/Verwerker.cls.xml
===================================================================
diff -u -r33035 -r33441
--- DOM/VKP/enu/Klant/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 33035)
+++ DOM/VKP/enu/Klant/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 33441)
@@ -58,8 +58,10 @@
 		Do ..VerwerkKastID()
 	} ElseIf Klant = "K||1239" {
 		Do ..VerwerkKeller()
+	} ElseIf Klant = "K||25868" {
+		Do ..VerwerkKvikBE()
 	} ElseIf Klant = "K||24315" {
-		Do ..VerwerkKvik()
+		Do ..VerwerkKvikNL()
 	} ElseIf Klant = "K||6819" {
 		Do ..VerwerkLijstPrijsKlant()
 	} ElseIf Klant = "K||2999" {
@@ -251,12 +253,18 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
-<Method name="VerwerkKvik">
+<Method name="VerwerkKvikBE">
 <Abstract>1</Abstract>
 <Private>1</Private>
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
+<Method name="VerwerkKvikNL">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
 <Method name="VerwerkLijstPrijsKlant">
 <Abstract>1</Abstract>
 <Private>1</Private>
Index: APPS/EDIExport/FactuurVerzender/impl/Kvik/Verzender.cls.xml
===================================================================
diff -u -r33350 -r33441
--- APPS/EDIExport/FactuurVerzender/impl/Kvik/Verzender.cls.xml	(.../Verzender.cls.xml)	(revision 33350)
+++ APPS/EDIExport/FactuurVerzender/impl/Kvik/Verzender.cls.xml	(.../Verzender.cls.xml)	(revision 33441)
@@ -44,10 +44,9 @@
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Event:DOM.VKP.event.VerkoopfactuurGemaaktEvent</FormalSpec>
 <Implementation><![CDATA[
-	Quit
 	#dim FactuurID As %Integer = Event.Data.GeefFactuurID()
 	#dim FactuurAPI As DOM.VKP.FactuurAPI = ##class(DOM.DomeinContext).Instance().GeefVerkoopFactuurAPI() 
-	if FactuurAPI.BestaatFactuur(FactuurID) && (FactuurAPI.IsFactuurVanKlant(FactuurID,##class(DOM.VKP.enu.Klant).Kvik())) {
+	if FactuurAPI.BestaatFactuur(FactuurID) && (FactuurAPI.IsFactuurVanKlant(FactuurID,##class(DOM.VKP.enu.Klant).KvikBE()) || FactuurAPI.IsFactuurVanKlant(FactuurID,##class(DOM.VKP.enu.Klant).KvikNL())) {
 		do ..%New().Verzend(FactuurAPI.GeefFactuur(FactuurID))
 	}
 ]]></Implementation>
@@ -151,7 +150,7 @@
 <Method name="ConverteerDocument">
 <Private>1</Private>
 <Implementation><![CDATA[
-	if (..KvikFactuur.GeefKlantID() '= ##class(DOM.VKP.enu.Klant).Kvik()) {
+	if (..KvikFactuur.GeefKlantID() '= ##class(DOM.VKP.enu.Klant).KvikBE()) && (..KvikFactuur.GeefKlantID() '= ##class(DOM.VKP.enu.Klant).KvikNL()) {
 		Do ##class(TECH.Exceptions.GeneralErrorException).Throw("Foutieve klant voor kvik factuur export : "_..KvikFactuur.GeefKlantNr())
 	}
 	
FishEye: Tag 33441 refers to a dead (removed) revision in file `vhUnitTest/DOM/VKP/impl/DataM/AdresUtils/TestOrigineelKlantAdresNr.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?