Index: vhDeploy/Deploy20151119xNieuweOptiBoxDataVoorTAORWrapAround.cls.xml
===================================================================
diff -u
--- vhDeploy/Deploy20151119xNieuweOptiBoxDataVoorTAORWrapAround.cls.xml	(revision 0)
+++ vhDeploy/Deploy20151119xNieuweOptiBoxDataVoorTAORWrapAround.cls.xml	(revision 31625)
@@ -0,0 +1,46 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.Deploy20151119xNieuweOptiBoxDataVoorTAORWrapAround">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="ProductGroep">
+<Type>%String</Type>
+<Default>TAORBOX</Default>
+</Parameter>
+
+<Parameter name="DoosBenaming">
+<Type>%String</Type>
+<Default>Vouw errond doos</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	#dim BoxMeta As DS.Prod.OptiBox.BoxMeta
+	#dim Query As %String = "SELECT ID FROM Prod.OptiBox_BoxMeta WHERE Name = ? AND ProductGroep = ?"
+	#dim Params As %List = $ListBuild(..#DoosBenaming, ..#ProductGroep)
+	#dim ResultSet As TECH.ResultSet = ##class(TECH.Context).Instance().GeefQueryAPI().GetDynamicResultSet(Query, Params)
+	If ResultSet.Next() {
+		Set BoxMeta = ##class(DS.Prod.OptiBox.BoxMeta).OpenId(ResultSet.GetDataByName("ID"))
+	} Else {
+		Do ##class(TECH.Exceptions.GeneralErrorException).Throw("Er is geen Box Meta gevonden voor Query:"_Query_", met volgende params:"_$$LCVT^vhLib(Params))
+	}
+	If ResultSet.Next() {
+		Do ##class(TECH.Exceptions.GeneralErrorException).Throw("Er zijn meerdere Box Meta velden gevonden voor Query:"_Query_", met volgende params:"_$$LCVT^vhLib(Params))
+	}
+	
+	Set BoxData = ##class(DS.Prod.OptiBox.BoxData).%New()
+	Set BoxData.BreedteExec = "Params(""BREEDTE"")"
+	Set BoxData.DiepteExec = "Params(""DIEPTE"")"
+	Set BoxData.HoogteExec = "Params(""HOOGTE"")"
+	Set BoxData.CutOrder = 1
+	Set BoxData.Meta = BoxMeta
+	Set BoxData.ObjType = ..#ProductGroep
+	Set BoxData.ObjRef = ..#DoosBenaming
+	Do BoxData.Save()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>