Index: DOM/PM/Product/impl/BTWCodeZetter.cls.xml
===================================================================
diff -u
--- DOM/PM/Product/impl/BTWCodeZetter.cls.xml	(revision 0)
+++ DOM/PM/Product/impl/BTWCodeZetter.cls.xml	(revision 51334)
@@ -0,0 +1,48 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.Product.impl.BTWCodeZetter">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="ProductApi">
+<Type>DOM.PM.ProductAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>ProductApi:DOM.PM.ProductAPI</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..ProductApi = $$$Inject(ProductApi, ##class(DOM.PM.impl.ProductAPI).%New())
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="ZetBTWCodeAlleProductenOp8">
+<Description>
+Nota voor tijdswinst: Kan gestart worden vanaf bepaald product in constructor van DOM.PM.impl.DataM.DataMProductIDIterator!
+Per 14/05/18 staan alle Producten tot ID 1828229 ok (staan allemaal op BTWCode = 8)</Description>
+<Implementation><![CDATA[
+	#dim ProductIDIterator As TECH.Iterator = ..ProductApi.GeefProductIDIterator()
+	#dim Product As DOM.PM.Product
+	#dim ProductId As %String
+	
+	While ProductIDIterator.HasNext() {
+		Set ProductId = ProductIDIterator.Next()
+		Set Product = ##class(DOM.PM.impl.ProductImpl).OpenId(ProductId)
+		If $$$Not(Product.GeefBTWCode() = "8") {
+			Do Product.ZetBTWCode("8")
+			Do Product.Save()
+		}
+	}
+	
+	Quit
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>