Index: APPS/EDIExport/FactuurVerzender/impl/Kvik/Converteerder.cls.xml
===================================================================
diff -u -r33467 -r34654
--- APPS/EDIExport/FactuurVerzender/impl/Kvik/Converteerder.cls.xml	(.../Converteerder.cls.xml)	(revision 33467)
+++ APPS/EDIExport/FactuurVerzender/impl/Kvik/Converteerder.cls.xml	(.../Converteerder.cls.xml)	(revision 34654)
@@ -123,10 +123,16 @@
 	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()
+	
 	#dim AccountNumber As %String = $tr($Piece(LeverAdres.GeefOpmerking1(),"NR",2)," ","")
-	if (AccountNumber < 399999) || (AccountNumber > 599999) {
-		Do ##class(TECH.Exceptions.GeneralErrorException).Throw("Kvik factuur heeft geen geldig AccountNumber : "_..KvikFactuur.GeefID())
+	
+	Do:AccountNumber="" ##class(TECH.Exceptions.GeneralErrorException).Throw("Leveradres '"_LeverAdres.GeefID()_" - "_LeverAdres.GeefNaam()_"' opmerking '"_LeverAdres.GeefOpmerking1()_"' bevat geen account")
+	
+	set Range = ##class(TECH.Range).%New(399999,599999)
+	if $$$Not(Range.IsValid(AccountNumber)) {
+		Do ##class(TECH.Exceptions.GeneralErrorException).Throw("Kvik factuur '"_..KvikFactuur.GeefID()_"' heeft geen geldig accountNumber '"_AccountNumber_"'. Range '"_Range.ToString()_"'")
 	}
+
 	Set ..Document.Header.Parties.Buyer.Identification.AccountNumber = AccountNumber
 	Set ..Document.Header.Parties.Buyer.Name = LeverAdres.GeefNaam()
 ]]></Implementation>