Index: vhDeploy/Deploy20160119xInvullenTAORxPPSxTiponBlumotionSetEenhedenEnMeenemers.cls.xml
===================================================================
diff -u
--- vhDeploy/Deploy20160119xInvullenTAORxPPSxTiponBlumotionSetEenhedenEnMeenemers.cls.xml	(revision 0)
+++ vhDeploy/Deploy20160119xInvullenTAORxPPSxTiponBlumotionSetEenhedenEnMeenemers.cls.xml	(revision 32375)
@@ -0,0 +1,82 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.Deploy20160119xInvullenTAORxPPSxTiponBlumotionSetEenhedenEnMeenemers">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Invullen Identificatie TAOR_PPS_TiponBlumotionSetEenhedenEnMeenemers</Default>
+</Parameter>
+
+<Method name="VulInProducten">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	#dim ProductenKenmerken As APPS.PM.dto.Kenm.ProductenKenmerken = ##class(APPS.PM.dto.Kenm.ProductenKenmerken).%New()
+	#dim Producten As %ListOfDataTypes = ..GeefProducten("TAOR_SEL_TiponBlumotionSetEenhedenEnMeenemers")
+	#dim Iterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(Producten)
+	
+	While (Iterator.HasNext()) {
+		#dim ProductID As TECH.String = Iterator.Next()
+		#dim Korttekst AS TECH.String = ..GeefKorttekst(ProductID)
+		#dim Identificatie As TECH.String = $Extract(Korttekst, 5, 8)
+		
+		Do ProductenKenmerken.Kenmerken.Insert(..VulInProduct(ProductID, "Identificatie", Identificatie))
+	}
+	
+	Do ..BewaarProductenKenmerken(ProductenKenmerken)
+]]></Implementation>
+</Method>
+
+<Method name="GeefProducten">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>KenmerkGroep:TECH.String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	#dim ProductZoekService As APPS.common.ProductCriteria.ProductZoekService = ##class(APPS.common.ProductCriteria.ProductZoekService).%New()
+	#dim EnCriterium As APPS.common.ProductCriteria.dto.EnCriterium = ##class(APPS.common.ProductCriteria.dto.EnCriterium).%New()
+	#dim HeeftDataInKenmerkGroep As APPS.common.ProductCriteria.dto.HeeftDataInKenmerkGroep = ##class(APPS.common.ProductCriteria.dto.HeeftDataInKenmerkGroep).%New()
+	
+	Set HeeftDataInKenmerkGroep.KenmerkGroep = KenmerkGroep
+	
+	Do EnCriterium.Criteria.Insert(HeeftDataInKenmerkGroep)
+	
+	Quit ProductZoekService.ZoekProducten(EnCriterium)
+]]></Implementation>
+</Method>
+
+<Method name="GeefKorttekst">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ProductID:TECH.String</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[	Quit ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(ProductID).GeefKorttekst()
+]]></Implementation>
+</Method>
+
+<Method name="VulInProduct">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ProductID:TECH.String,Kenmerk:TECH.String,Waarde:TECH.String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim KenmerkGroep As TECH.String = "TAOR_PPS_TiponBlumotionSetEenhedenEnMeenemers"
+	#dim ProductKenmerkenUtils As vhDeploy.Maatwerk.Kenmerk.ProductKenmerkenUtils = ##class(vhDeploy.Maatwerk.Kenmerk.ProductKenmerkenUtils).%New()
+	
+	Quit ProductKenmerkenUtils.MaakProductKenmerken(KenmerkGroep, ProductID, Kenmerk, $ListBuild(Waarde))
+]]></Implementation>
+</Method>
+
+<Method name="BewaarProductenKenmerken">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ProductenKenmerken:APPS.PM.dto.Kenm.ProductenKenmerken</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim KenmerkenService As APPS.PM.Kenmerk.impl.KenmerkenService = ##class(APPS.PM.Kenmerk.impl.KenmerkenService).%New()
+	
+	Do KenmerkenService.BewaarProductenKenmerken(ProductenKenmerken)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>