Index: vhPowerTools/DOM/VKP/VerwijderBoekhoudkundigeBelemmeringenOpKlanten.cls.xml
===================================================================
diff -u
--- vhPowerTools/DOM/VKP/VerwijderBoekhoudkundigeBelemmeringenOpKlanten.cls.xml	(revision 0)
+++ vhPowerTools/DOM/VKP/VerwijderBoekhoudkundigeBelemmeringenOpKlanten.cls.xml	(revision 48619)
@@ -0,0 +1,44 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhPowerTools.DOM.VKP.VerwijderBoekhoudkundigeBelemmeringenOpKlanten">
+<Description>
+Do ##class(vhPowerTools.DOM.VKP.VerwijderBoekhoudkundigeBelemmeringenOpKlanten).VerwijderBelemmeringen()</Description>
+<IncludeCode>TECH.Error,vhLib.Macro</IncludeCode>
+<Super>%RegisteredObject</Super>
+
+<Method name="VerwijderBelemmeringen">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+		#dim Logger As vhLib.Logger = ##class(vhLib.Logger).%New()
+		Do ##class(TECH.Context).Instance().PushPubSubAPIClassName("TECH.PubSub.impl.NotRaisingEventRaiser")
+		Try {
+			
+			#Dim Klanten = ##class(DOM.VKP.impl.VerkoopAPI).%New().GeefKlantIterator()
+			While Klanten.HasNext() {
+				#dim Klant As DOM.VKP.VanHoeckeKlant = Klanten.Next()
+				Try {
+					
+					Do Klant.ZetDubieus($$$False)
+					Do Klant.ZetKredietLimietIn1000Eur("")
+					Do Klant.ZetIncasso($$$False)
+					Do Klant.ZetVooruitbetaling($$$False)
+					
+					Do Klant.Save()
+					
+				} Catch {
+					#dim Exception As TECH.Exception = ##class(TECH.ExceptionHandler).Catch()
+					Write Klant.GeefID(), Exception.ToString()
+					Do Logger.Warning( "VerwijderBoekhoudkundigeBelemmeringenOpKlanten", Klant.GeefID() _ " - " _ Exception.ToString() )
+				}
+			}
+			
+		} Catch {
+			Write ##class(TECH.ExceptionHandler).Catch().ToString()
+		}
+		Do ##class(TECH.Context).Instance().PopPubSubAPIClassName()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>