Index: vhDeploy/WV/Deploy20160421xCreateMetaDefinitieTBXxTOBSETCODE.cls.xml
===================================================================
diff -u
--- vhDeploy/WV/Deploy20160421xCreateMetaDefinitieTBXxTOBSETCODE.cls.xml	(revision 0)
+++ vhDeploy/WV/Deploy20160421xCreateMetaDefinitieTBXxTOBSETCODE.cls.xml	(revision 33954)
@@ -0,0 +1,34 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.WV.Deploy20160421xCreateMetaDefinitieTBXxTOBSETCODE">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Aanmaken van het TBX-Kenmerk MetaDefinitie "TOBSETCODE" voor story UST1585</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	If '##class(Prod.Kenmerk.MetaDefinitie).%ExistsId("TBX||TOBSETCODE") {
+		Set BestaandeMetaDef=##class(Prod.Kenmerk.MetaDefinitie).%OpenId("TBX||PBXWIKKELDIEPTE")
+		#dim NieuweMetaDef As Prod.Kenmerk.MetaDefinitie = BestaandeMetaDef.%ConstructClone($$$False)
+		Set NieuweMetaDef.Groep=BestaandeMetaDef.Groep
+		Set NieuweMetaDef.Kenmerk="TOBSETCODE"
+		Set NieuweMetaDef.Omschrijving="TOB Set Eenheid Identificatie"
+		Set NieuweMetaDef.VolgNr="419"
+		Set NieuweMetaDef.IsReadOnly=$$$True
+		Set NieuweMetaDef.NieuweWaardeToegelaten=$$$False
+	
+		#dim sc As %Status = NieuweMetaDef.%Save()
+		Do ##class(TECH.Exceptions.SaveFailedException).ThrowIndienNietOK(sc,"Bewaren van de nieuwe MetaDef TOBSETCODE is niet gelukt.")
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhDeploy/WV/Deploy20160419xVertalingenVoorTBXxTOB.cls.xml
===================================================================
diff -u
--- vhDeploy/WV/Deploy20160419xVertalingenVoorTBXxTOB.cls.xml	(revision 0)
+++ vhDeploy/WV/Deploy20160419xVertalingenVoorTBXxTOB.cls.xml	(revision 33954)
@@ -0,0 +1,33 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.WV.Deploy20160419xVertalingenVoorTBXxTOB">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Vertalingen aanmaken voor TBX TOB</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[	Do ..CreeerVertalingenTBXProductieDetailBlad()
+]]></Implementation>
+</Method>
+
+<Method name="CreeerVertalingenTBXProductieDetailBlad">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	#dim VertalingGroepID As %String = "TB"
+	Do ##class(Res.Vertaling).CreateOrUpdate("TB","BasisType-TOBSET"      ,"K","N","TIP-ON BLUMOTION set eenh. + meenemer")
+	Do ##class(Res.Vertaling).CreateOrUpdate("TB","BasisType-TOBSTANG"    ,"K","N","TIP-ON BLUMOTION synchronisatie stang")
+	Do ##class(Res.Vertaling).CreateOrUpdate("TB","BasisType-TOBADAPTER"  ,"K","N","TIP-ON BLUMOTION synchronisatie adapter")
+	Do ##class(Res.Vertaling).CreateOrUpdate("TB","BasisType-TOBSTHOUDER" ,"K","N","TIP-ON BLUMOTION synchro-stanghouder ")
+	Do ##class(Res.Vertaling).CreateOrUpdate("TB","BasisType-TOBBODEMSTAB","K","N","TIP-ON BLUMOTION bodemstabilisering")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhDeploy/WV/Deploy20160419xWijzigMetaDefinitieTBXxVoorTOB.cls.xml
===================================================================
diff -u
--- vhDeploy/WV/Deploy20160419xWijzigMetaDefinitieTBXxVoorTOB.cls.xml	(revision 0)
+++ vhDeploy/WV/Deploy20160419xWijzigMetaDefinitieTBXxVoorTOB.cls.xml	(revision 33954)
@@ -0,0 +1,37 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.WV.Deploy20160419xWijzigMetaDefinitieTBXxVoorTOB">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Wijzigen van TB-Kenmerk MetaDefinities voor TBX TOB</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Do ..PasAanMetaDefinitieWijzigbaar("TB||BasisType", $$$True)
+	Do ..PasAanMetaDefinitieWijzigbaar("TB||Kleur", $$$True)
+]]></Implementation>
+</Method>
+
+<Method name="PasAanMetaDefinitieWijzigbaar">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>MetaDefinitieID:%String,IsWijzigbaar:%Boolean</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If ##class(Prod.Kenmerk.MetaDefinitie).%ExistsId(MetaDefinitieID) {
+		Set MetaDefBasisType=##class(Prod.Kenmerk.MetaDefinitie).%OpenId(MetaDefinitieID)
+		Set MetaDefBasisType.IsWijzigbaar = IsWijzigbaar
+		#dim sc As %Status = MetaDefBasisType.%Save()
+		Do ##class(TECH.Exceptions.SaveFailedException).ThrowIndienNietOK(sc,"Bewaren van de MetaDef "_MetaDefinitieID_" is niet gelukt.")
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>