Index: APPS/Verpakking/enu/MachineTechnologie/Verwerker.cls.xml
===================================================================
diff -u
--- APPS/Verpakking/enu/MachineTechnologie/Verwerker.cls.xml	(revision 0)
+++ APPS/Verpakking/enu/MachineTechnologie/Verwerker.cls.xml	(revision 68229)
@@ -0,0 +1,40 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Verpakking.enu.MachineTechnologie.Verwerker">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de Enumeratie - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+De enumeratie methoden moeten als type de enumeratieklasse zelf terug geven. De enumeratieklasse moet afleiden van TECH.Enumeration</Description>
+<Abstract>1</Abstract>
+<ProcedureBlock>1</ProcedureBlock>
+
+<Method name="Verwerk">
+<Final>1</Final>
+<FormalSpec>MachineTechnologie:APPS.Verpakking.enu.MachineTechnologie</FormalSpec>
+<Implementation><![CDATA[
+	If MachineTechnologie = "Kraft" {
+		Do ..VerwerkKraft()
+	} ElseIf MachineTechnologie = "Panotec" {
+		Do ..VerwerkPanotec()
+	} Else {
+		Set Exceptie = ##class(TECH.Exceptions.EnumerationException).%New(MachineTechnologie,"APPS.Verpakking.enu.MachineTechnologie",$classname())
+		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkKraft">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkPanotec">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Verpakking/enu/MachineID/AutoComplete.cls.xml
===================================================================
diff -u
--- APPS/Verpakking/enu/MachineID/AutoComplete.cls.xml	(revision 0)
+++ APPS/Verpakking/enu/MachineID/AutoComplete.cls.xml	(revision 68229)
@@ -0,0 +1,35 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Verpakking.enu.MachineID.AutoComplete">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de Enumeratie - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+De enumeratie Eigenschapn moeten als type de enumeratieklasse zelf terug geven. De enumeratieklasse moet afleiden van TECH.Enumeration</Description>
+<ClassType>serial</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%SerialObject</Super>
+
+<Property name="HALUX">
+<Type>%String</Type>
+<InitialExpression>"HALUX"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="TAOR">
+<Type>%String</Type>
+<InitialExpression>"TAOR"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="VH">
+<Type>%String</Type>
+<InitialExpression>"VH"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+</Class>
+
+
+</Export>
Index: APPS/Verpakking/V1LageRug/Panotec.cls.xml
===================================================================
diff -u
--- APPS/Verpakking/V1LageRug/Panotec.cls.xml	(revision 0)
+++ APPS/Verpakking/V1LageRug/Panotec.cls.xml	(revision 68229)
@@ -0,0 +1,97 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Verpakking.V1LageRug.Panotec">
+<Super>APPS.Verpakking.V1LageRug</Super>
+
+<Parameter name="XMLTYPE">
+<Default>APPS.Verpakking.V1LageRug.Panotec</Default>
+</Parameter>
+
+<Property name="ReceptID">
+<Type>%Integer</Type>
+<InitialExpression>202</InitialExpression>
+<Parameter name="XMLNAME" value="RECEPTID"/>
+</Property>
+
+<Property name="Type">
+<Type>%String</Type>
+<InitialExpression>"TYPE2"</InitialExpression>
+<Parameter name="XMLNAME" value="TYPE"/>
+<Parameter name="XMLPROJECTION" value="NONE"/>
+</Property>
+
+<Property name="Priority">
+<Type>%String</Type>
+<InitialExpression>"1"</InitialExpression>
+<Transient>1</Transient>
+<Parameter name="XMLNAME" value="PRIORITY"/>
+<Parameter name="XMLPROJECTION" value="NONE"/>
+</Property>
+
+<Property name="MaxLevels">
+<Type>%Decimal</Type>
+<InitialExpression>10</InitialExpression>
+<Transient>1</Transient>
+<Parameter name="XMLNAME" value="MAXLEVELS"/>
+<Parameter name="XMLPROJECTION" value="NONE"/>
+</Property>
+
+<Property name="Stabil">
+<Type>%Decimal</Type>
+<InitialExpression>0.8</InitialExpression>
+<Transient>1</Transient>
+<Parameter name="XMLNAME" value="STABIL"/>
+<Parameter name="XMLPROJECTION" value="NONE"/>
+</Property>
+
+<Property name="MinDepth">
+<Type>%Decimal</Type>
+<InitialExpression>100</InitialExpression>
+<Transient>1</Transient>
+<Parameter name="XMLNAME" value="MINDEPTH"/>
+<Parameter name="XMLPROJECTION" value="NONE"/>
+</Property>
+
+<Property name="MinWidth">
+<Type>%Decimal</Type>
+<InitialExpression>100</InitialExpression>
+<Transient>1</Transient>
+<Parameter name="XMLNAME" value="MINWIDTH"/>
+<Parameter name="XMLPROJECTION" value="NONE"/>
+</Property>
+
+<Property name="LogoPrint">
+<Type>%String</Type>
+<InitialExpression>"TBX DRAWER"</InitialExpression>
+<Transient>1</Transient>
+<Parameter name="XMLNAME" value="LOGOPRINT"/>
+<Parameter name="XMLPROJECTION" value="NONE"/>
+</Property>
+
+<Property name="Thickness">
+<Type>%Decimal</Type>
+<InitialExpression>4.2</InitialExpression>
+<Transient>1</Transient>
+<Parameter name="XMLNAME" value="THICKNESS"/>
+<Parameter name="XMLPROJECTION" value="NONE"/>
+</Property>
+
+<Property name="Recipe">
+<Type>%Decimal</Type>
+<InitialExpression>202</InitialExpression>
+<Transient>1</Transient>
+<Parameter name="XMLNAME" value="RECIPE"/>
+<Parameter name="XMLPROJECTION" value="NONE"/>
+</Property>
+
+<Property name="Swap">
+<Type>%Decimal</Type>
+<InitialExpression>1</InitialExpression>
+<Transient>1</Transient>
+<Parameter name="XMLNAME" value="SWAP"/>
+<Parameter name="XMLPROJECTION" value="NONE"/>
+</Property>
+</Class>
+
+
+</Export>
Index: APPS/Verpakking/DoosFactory.cls.xml
===================================================================
diff -u
--- APPS/Verpakking/DoosFactory.cls.xml	(revision 0)
+++ APPS/Verpakking/DoosFactory.cls.xml	(revision 68229)
@@ -0,0 +1,69 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Verpakking.DoosFactory">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="GeefBasisDoos">
+<FormalSpec>ProductGroep:%String,ReceptNaam:%String,Technologie:APPS.Verpakking.enu.MachineTechnologie</FormalSpec>
+<ReturnType>APPS.Verpakking.Doos</ReturnType>
+<Implementation><![CDATA[
+	#dim Doos As APPS.Verpakking.Doos
+	If (ProductGroep = "TBX") {
+		If (ReceptNaam = "V1 Lage rug") {
+			If (Technologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec()) { Set Doos = ##class(APPS.Verpakking.V1LageRug.Panotec).%New() }
+			;ElseIf (Technology = ##class(APPS.Verpakking.enu.MachineTechnologie).Kraft()) { Set Doos = ##class(APPS.Verpakking.V1LageRug.Kraft).%New() }
+		} ElseIf (ReceptNaam = "V1 Hoge rug") {
+			If (Technologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec()) { Set Doos = ##class(APPS.Verpakking.V1HogeRug.Panotec).%New() }
+			;ElseIf (Technology = ##class(APPS.Verpakking.enu.MachineTechnologie).Kraft()) { Set Doos = ##class().%New() }
+		} ElseIf (ReceptNaam = "V1 LosseOnderdelen") {
+			If (Technologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec()) { Set Doos = ##class(APPS.Verpakking.V1LosseOnderdelen.Panotec).%New() }
+			;ElseIf (Technology = ##class(APPS.Verpakking.enu.MachineTechnologie).Kraft()) { Set Doos = ##class().%New() }
+		} ElseIf (ReceptNaam = "Bulk LO Doos") {
+			;If (Technologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec()) { Set Doos = ##class().%New() }
+			;ElseIf (Technology = ##class(APPS.Verpakking.enu.MachineTechnologie).Kraft()) { Set Doos = ##class().%New() }
+		} ElseIf (ReceptNaam = "Zelfstaand met deksel") {
+			;If (Technologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec()) { Set Doos = ##class().%New() }
+			;ElseIf (Technology = ##class(APPS.Verpakking.enu.MachineTechnologie).Kraft()) { Set Doos = ##class().%New() }
+		} ElseIf (ReceptNaam = "Complexe scheiding") {
+			;If (Technologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec()) { Set Doos = ##class().%New() }
+			;ElseIf (Technology = ##class(APPS.Verpakking.enu.MachineTechnologie).Kraft()) { Set Doos = ##class().%New() }
+		} ElseIf (ReceptNaam = "Vouw errond doos") {
+			;If (Technologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec()) { Set Doos = ##class().%New() }
+			;ElseIf (Technology = ##class(APPS.Verpakking.enu.MachineTechnologie).Kraft()) { Set Doos = ##class().%New() }
+		}  ElseIf (ReceptNaam = "Zelfstaand met deksel") {
+			;If (Technologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec()) { Set Doos = ##class().%New() }
+			;ElseIf (Technology = ##class(APPS.Verpakking.enu.MachineTechnologie).Kraft()) { Set Doos = ##class().%New() }
+		}	
+	} ElseIf (ProductGroep = "KAD") {
+		If (ReceptNaam = "Vouw errond doos") {
+			;If (Technologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec()) { Set Doos = ##class().%New() }
+			;ElseIf (Technology = ##class(APPS.Verpakking.enu.MachineTechnologie).Kraft()) { Set Doos = ##class().%New() }
+		}	
+	} ElseIf (ProductGroep = "TAORBOX") {
+		If (ReceptNaam = "V1 Flatpack") {
+			;If (Technologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec()) { Set Doos = ##class().%New() }
+			;ElseIf (Technology = ##class(APPS.Verpakking.enu.MachineTechnologie).Kraft()) { Set Doos = ##class().%New() }
+		} ElseIf (ReceptNaam = "V1 Doos met deksel") {
+			;If (Technologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec()) { Set Doos = ##class().%New() }
+			;ElseIf (Technology = ##class(APPS.Verpakking.enu.MachineTechnologie).Kraft()) { Set Doos = ##class().%New() }
+		} ElseIf (ReceptNaam = "V1 LosseOnderdelen") {
+			If (Technologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec()) { Set Doos = ##class(APPS.Verpakking.V1LosseOnderdelen.Panotec).%New() }
+			;ElseIf (Technology = ##class(APPS.Verpakking.enu.MachineTechnologie).Kraft()) { Set Doos = ##class().%New() }
+		} ElseIf (ReceptNaam = "Vouw errond doos") {
+			;If (Technologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec()) { Set Doos = ##class().%New() }
+			;ElseIf (Technology = ##class(APPS.Verpakking.enu.MachineTechnologie).Kraft()) { Set Doos = ##class().%New() }
+		}
+	} 
+	
+	/*
+	If $$$Not($IsObject(Doos)) {
+		;Error	
+	}
+	*/
+	Quit Doos
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Verpakking/V1HogeRug.cls.xml
===================================================================
diff -u
--- APPS/Verpakking/V1HogeRug.cls.xml	(revision 0)
+++ APPS/Verpakking/V1HogeRug.cls.xml	(revision 68229)
@@ -0,0 +1,39 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Verpakking.V1HogeRug">
+<Super>APPS.Verpakking.Doos</Super>
+
+<Parameter name="XMLTYPE">
+<Default>APPS.Verpakking.V1HogeRug</Default>
+</Parameter>
+
+<Property name="ReceptName">
+<Type>%String</Type>
+<InitialExpression>"TBX V1 HIGH BACK"</InitialExpression>
+<Parameter name="XMLNAME" value="RECEPTNAME"/>
+</Property>
+
+<UDLText name="T">
+<Content><![CDATA[
+// Property H2 As %Decimal(XMLNAME = "PARAM1", XMLPROJECTION = "NONE") [ InitialExpression = 0 ];
+
+]]></Content>
+</UDLText>
+
+<UDLText name="T">
+<Content><![CDATA[
+// Property T As %Decimal(XMLNAME = "PARAM2") [ InitialExpression = 25 ];
+
+]]></Content>
+</UDLText>
+
+<UDLText name="T">
+<Content><![CDATA[
+// Property K As %Decimal(XMLNAME = "PARAM3") [ InitialExpression = 110 ];
+
+]]></Content>
+</UDLText>
+</Class>
+
+
+</Export>
Index: APPS/Verpakking/enu/MachineID/Verwerker.cls.xml
===================================================================
diff -u
--- APPS/Verpakking/enu/MachineID/Verwerker.cls.xml	(revision 0)
+++ APPS/Verpakking/enu/MachineID/Verwerker.cls.xml	(revision 68229)
@@ -0,0 +1,48 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Verpakking.enu.MachineID.Verwerker">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de Enumeratie - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+De enumeratie methoden moeten als type de enumeratieklasse zelf terug geven. De enumeratieklasse moet afleiden van TECH.Enumeration</Description>
+<Abstract>1</Abstract>
+<ProcedureBlock>1</ProcedureBlock>
+
+<Method name="Verwerk">
+<Final>1</Final>
+<FormalSpec>MachineID:APPS.Verpakking.enu.MachineID</FormalSpec>
+<Implementation><![CDATA[
+	If MachineID = "HALUX" {
+		Do ..VerwerkHALUX()
+	} ElseIf MachineID = "TAOR" {
+		Do ..VerwerkTAOR()
+	} ElseIf MachineID = "VH" {
+		Do ..VerwerkVH()
+	} Else {
+		Set Exceptie = ##class(TECH.Exceptions.EnumerationException).%New(MachineID,"APPS.Verpakking.enu.MachineID",$classname())
+		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkHALUX">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkTAOR">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkVH">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Verpakking/DoosService.cls.xml
===================================================================
diff -u
--- APPS/Verpakking/DoosService.cls.xml	(revision 0)
+++ APPS/Verpakking/DoosService.cls.xml	(revision 68229)
@@ -0,0 +1,101 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Verpakking.DoosService">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="DoosFactory">
+<Type>APPS.Verpakking.DoosFactory</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Optimizer">
+<Type>APPS.Verpakking.Optimizer</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="SnijDoosService">
+<Type>WS.APPS.Verpakking.SnijDoosService</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..DoosFactory = ##class(APPS.Verpakking.DoosFactory).%New()
+	Set ..Optimizer = ##class(APPS.Verpakking.Optimizer).%New()
+	Set ..SnijDoosService = ##class(WS.APPS.Verpakking.SnijDoosService).%New()
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="MaakDoos">
+<FormalSpec><![CDATA[ProductGroep:%String,ReceptNaam:%String,MachineID:APPS.Verpakking.enu.MachineID,Aantal:%Integer,&Params:%String,Prioriteit:%String="Simulatie"]]></FormalSpec>
+<Implementation><![CDATA[
+	#dim MachineTechnologie As APPS.Verpakking.enu.MachineTechnologie = ..GeefMachineTechnologie(MachineID)
+	#dim BasisDoos As APPS.Verpakking.Doos = ..DoosFactory.GeefBasisDoos(ProductGroep, ReceptNaam, MachineTechnologie)
+	#dim OptimaleDoos As APPS.Verpakking.Doos = ..Optimizer.OptimimaliseerDoos(BasisDoos, .Params, ProductGroep)
+	#dim SnijRequest As WS.APPS.Verpakking.SnijDoosRequest = ..MaakSnijRequest(OptimaleDoos, MachineTechnologie, MachineID, Prioriteit, Aantal)
+	Do ##class(Tools.Wlip).%New(110).ObjToXML(SnijRequest)
+	;Do ..SnijDoosService.SnijDoos(SnijRequest)
+	
+	If (..HeeftTBXLosseOnderdelendoos(.Params) && $$$Not(ProductGroep = "TBX") && $$$Not(ReceptNaam= "V1 LosseOnderdelen")) {
+		Set BasisDoos = ..DoosFactory.GeefBasisDoos("TBX", "V1 LosseOnderdelen", MachineTechnologie)
+		Set OptimaleDoos = ..Optimizer.OptimimaliseerDoos(BasisDoos, .Params)
+		Set SnijRequest = ..MaakSnijRequest(OptimaleDoos, MachineTechnologie, MachineID, Prioriteit, Aantal)
+		;Do ..SnijDoosService.SnijDoos(SnijRequest)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="HeeftTBXLosseOnderdelendoos">
+<FormalSpec><![CDATA[&Params:%String]]></FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit $Select($D(Params("LOQTY")) = $$$True: Params("LOQTY"), 1:$$$False)
+]]></Implementation>
+</Method>
+
+<Method name="MaakSnijRequest">
+<FormalSpec>OptimaleDoos:APPS.Verpakking.Doos,MachineTechnologie:APPS.Verpakking.enu.MachineTechnologie,MachineID:APPS.Verpakking.enu.MachineID,Prioriteit:%String,Aantal:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>WS.APPS.Verpakking.SnijDoosRequest</ReturnType>
+<Implementation><![CDATA[
+	Set SnijRequest = ##class(WS.APPS.Verpakking.SnijDoosRequest).%New()
+	
+	Set SnijRequest.Quantity = Aantal
+	Set SnijRequest.Box = OptimaleDoos
+	Set SnijRequest.CutMachine = MachineID
+	Set SnijRequest.Priority = Prioriteit
+	Set SnijRequest.Technology = MachineTechnologie
+	Set SnijRequest.Server = $$$Server
+	
+	Quit SnijRequest
+]]></Implementation>
+</Method>
+
+<Method name="GeefMachineTechnologie">
+<FormalSpec>MachineID:APPS.Verpakking.enu.MachineID</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.Verpakking.enu.MachineTechnologie</ReturnType>
+<Implementation><![CDATA[
+	#dim MachineTechnologie As APPS.Verpakking.enu.MachineTechnologie
+	
+	If (MachineID = ##class(APPS.Verpakking.enu.MachineID).VH()) {
+		Set MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec()
+	} ElseIf (MachineID = ##class(APPS.Verpakking.enu.MachineID).HALUX()) {
+		Set MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec()
+	} ElseIf(MachineID = ##class(APPS.Verpakking.enu.MachineID).TAOR()) {
+		Set MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec()
+	}
+	
+	Quit MachineTechnologie
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Verpakking/V1LosseOnderdelen/Panotec.cls.xml
===================================================================
diff -u
--- APPS/Verpakking/V1LosseOnderdelen/Panotec.cls.xml	(revision 0)
+++ APPS/Verpakking/V1LosseOnderdelen/Panotec.cls.xml	(revision 68229)
@@ -0,0 +1,73 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Verpakking.V1LosseOnderdelen.Panotec">
+<Super>APPS.Verpakking.V1LosseOnderdelen</Super>
+
+<Parameter name="XMLTYPE">
+<Default>APPS.Verpakking.V1LosseOnderdelen.Panotec</Default>
+</Parameter>
+
+<Property name="ReceptID">
+<Type>%Integer</Type>
+<InitialExpression>214</InitialExpression>
+<Parameter name="XMLNAME" value="RECEPTID"/>
+</Property>
+
+<Property name="Type">
+<Type>%String</Type>
+<InitialExpression>"TYPE14"</InitialExpression>
+<Parameter name="XMLNAME" value="TYPE"/>
+<Parameter name="XMLPROJECTION" value="NONE"/>
+</Property>
+
+<Property name="Priority">
+<Type>%String</Type>
+<InitialExpression>"1"</InitialExpression>
+<Transient>1</Transient>
+<Parameter name="XMLNAME" value="PRIORITY"/>
+<Parameter name="XMLPROJECTION" value="NONE"/>
+</Property>
+
+<Property name="Stabil">
+<Type>%Decimal</Type>
+<InitialExpression>0.8</InitialExpression>
+<Transient>1</Transient>
+<Parameter name="XMLNAME" value="STABIL"/>
+<Parameter name="XMLPROJECTION" value="NONE"/>
+</Property>
+
+<Property name="LogoPrint">
+<Type>%String</Type>
+<InitialExpression>"TBX DRAWER"</InitialExpression>
+<Transient>1</Transient>
+<Parameter name="XMLNAME" value="LOGOPRINT"/>
+<Parameter name="XMLPROJECTION" value="NONE"/>
+</Property>
+
+<Property name="Thickness">
+<Type>%Decimal</Type>
+<InitialExpression>4.2</InitialExpression>
+<Transient>1</Transient>
+<Parameter name="XMLNAME" value="THICKNESS"/>
+<Parameter name="XMLPROJECTION" value="NONE"/>
+</Property>
+
+<Property name="Recipe">
+<Type>%Decimal</Type>
+<InitialExpression>214</InitialExpression>
+<Transient>1</Transient>
+<Parameter name="XMLNAME" value="RECIPE"/>
+<Parameter name="XMLPROJECTION" value="NONE"/>
+</Property>
+
+<Property name="Swap">
+<Type>%Decimal</Type>
+<InitialExpression>1</InitialExpression>
+<Transient>1</Transient>
+<Parameter name="XMLNAME" value="SWAP"/>
+<Parameter name="XMLPROJECTION" value="NONE"/>
+</Property>
+</Class>
+
+
+</Export>
Index: APPS/Verpakking/Doos.cls.xml
===================================================================
diff -u
--- APPS/Verpakking/Doos.cls.xml	(revision 0)
+++ APPS/Verpakking/Doos.cls.xml	(revision 68229)
@@ -0,0 +1,59 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Verpakking.Doos">
+<Super>TECH.DataTransferObject</Super>
+
+<Parameter name="XMLTYPE">
+<Default>APPS.Verpakking.Doos</Default>
+</Parameter>
+
+<Property name="CardBoardID">
+<Type>%Decimal</Type>
+<Parameter name="XMLNAME" value="CARDBOARDID"/>
+</Property>
+
+<Property name="Width">
+<Type>%Decimal</Type>
+<Parameter name="XMLNAME" value="WIDTH"/>
+</Property>
+
+<Property name="Depth">
+<Type>%Decimal</Type>
+<Parameter name="XMLNAME" value="DEPTH"/>
+</Property>
+
+<Property name="Height">
+<Type>%Decimal</Type>
+<Parameter name="XMLNAME" value="HEIGHT"/>
+</Property>
+
+<Property name="ReceptID">
+<Type>%Integer</Type>
+<Parameter name="XMLNAME" value="RECEPEID"/>
+</Property>
+
+<Property name="ReceptName">
+<Type>%String</Type>
+<Parameter name="XMLNAME" value="RECIPENAME"/>
+</Property>
+
+<Property name="Params">
+<Type>APPS.Verpakking.Doos.Param</Type>
+<Collection>list</Collection>
+<Parameter name="XMLITEMNAME" value="PARAM"/>
+<Parameter name="XMLNAME" value="PARAMS"/>
+<Parameter name="XMLPROJECTION" value="COLLECTION"/>
+</Property>
+
+<UDLText name="T">
+<Content><![CDATA[
+/*
+	//.Params is overal beschikbaar waar .OneBox wordt uitgevoerd
+
+*/
+]]></Content>
+</UDLText>
+</Class>
+
+
+</Export>
Index: APPS/Verpakking/V1HogeRug/Panotec.cls.xml
===================================================================
diff -u
--- APPS/Verpakking/V1HogeRug/Panotec.cls.xml	(revision 0)
+++ APPS/Verpakking/V1HogeRug/Panotec.cls.xml	(revision 68229)
@@ -0,0 +1,97 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Verpakking.V1HogeRug.Panotec">
+<Super>APPS.Verpakking.V1HogeRug</Super>
+
+<Parameter name="XMLTYPE">
+<Default>APPS.Verpakking.V1HogeRug.Panotec</Default>
+</Parameter>
+
+<Property name="ReceptID">
+<Type>%Integer</Type>
+<InitialExpression>201</InitialExpression>
+<Parameter name="XMLNAME" value="RECEPTID"/>
+</Property>
+
+<Property name="Type">
+<Type>%String</Type>
+<InitialExpression>"TYPE1"</InitialExpression>
+<Parameter name="XMLNAME" value="TYPE"/>
+<Parameter name="XMLPROJECTION" value="NONE"/>
+</Property>
+
+<Property name="Priority">
+<Type>%String</Type>
+<InitialExpression>"1"</InitialExpression>
+<Transient>1</Transient>
+<Parameter name="XMLNAME" value="PRIORITY"/>
+<Parameter name="XMLPROJECTION" value="NONE"/>
+</Property>
+
+<Property name="MaxLevels">
+<Type>%Decimal</Type>
+<InitialExpression>10</InitialExpression>
+<Transient>1</Transient>
+<Parameter name="XMLNAME" value="MAXLEVELS"/>
+<Parameter name="XMLPROJECTION" value="NONE"/>
+</Property>
+
+<Property name="Stabil">
+<Type>%Decimal</Type>
+<InitialExpression>0.8</InitialExpression>
+<Transient>1</Transient>
+<Parameter name="XMLNAME" value="STABIL"/>
+<Parameter name="XMLPROJECTION" value="NONE"/>
+</Property>
+
+<Property name="MinDepth">
+<Type>%Decimal</Type>
+<InitialExpression>100</InitialExpression>
+<Transient>1</Transient>
+<Parameter name="XMLNAME" value="MINDEPTH"/>
+<Parameter name="XMLPROJECTION" value="NONE"/>
+</Property>
+
+<Property name="MinWidth">
+<Type>%Decimal</Type>
+<InitialExpression>100</InitialExpression>
+<Transient>1</Transient>
+<Parameter name="XMLNAME" value="MINWIDTH"/>
+<Parameter name="XMLPROJECTION" value="NONE"/>
+</Property>
+
+<Property name="LogoPrint">
+<Type>%String</Type>
+<InitialExpression>"TBX DRAWER"</InitialExpression>
+<Transient>1</Transient>
+<Parameter name="XMLNAME" value="LOGOPRINT"/>
+<Parameter name="XMLPROJECTION" value="NONE"/>
+</Property>
+
+<Property name="Thickness">
+<Type>%Decimal</Type>
+<InitialExpression>4.2</InitialExpression>
+<Transient>1</Transient>
+<Parameter name="XMLNAME" value="THICKNESS"/>
+<Parameter name="XMLPROJECTION" value="NONE"/>
+</Property>
+
+<Property name="Recipe">
+<Type>%Decimal</Type>
+<InitialExpression>201</InitialExpression>
+<Transient>1</Transient>
+<Parameter name="XMLNAME" value="RECIPE"/>
+<Parameter name="XMLPROJECTION" value="NONE"/>
+</Property>
+
+<Property name="Swap">
+<Type>%Decimal</Type>
+<InitialExpression>1</InitialExpression>
+<Transient>1</Transient>
+<Parameter name="XMLNAME" value="SWAP"/>
+<Parameter name="XMLPROJECTION" value="NONE"/>
+</Property>
+</Class>
+
+
+</Export>
Index: APPS/Verpakking/enu/MachineTechnologie/AutoComplete.cls.xml
===================================================================
diff -u
--- APPS/Verpakking/enu/MachineTechnologie/AutoComplete.cls.xml	(revision 0)
+++ APPS/Verpakking/enu/MachineTechnologie/AutoComplete.cls.xml	(revision 68229)
@@ -0,0 +1,28 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Verpakking.enu.MachineTechnologie.AutoComplete">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de Enumeratie - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+De enumeratie Eigenschapn moeten als type de enumeratieklasse zelf terug geven. De enumeratieklasse moet afleiden van TECH.Enumeration</Description>
+<ClassType>serial</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%SerialObject</Super>
+
+<Property name="Kraft">
+<Type>%String</Type>
+<InitialExpression>"Kraft"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="Panotec">
+<Type>%String</Type>
+<InitialExpression>"Panotec"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+</Class>
+
+
+</Export>
Index: APPS/Verpakking/enu/MachineID.cls.xml
===================================================================
diff -u
--- APPS/Verpakking/enu/MachineID.cls.xml	(revision 0)
+++ APPS/Verpakking/enu/MachineID.cls.xml	(revision 68229)
@@ -0,0 +1,39 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Verpakking.enu.MachineID">
+<ClassType>datatype</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.Enumeration</Super>
+
+<Parameter name="VALUELIST">
+<Default>;VH;HALUX;TAOR</Default>
+</Parameter>
+
+<Parameter name="DISPLAYLIST">
+<Default>;VH;HALUX;TAOR</Default>
+</Parameter>
+
+<Method name="VH">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.Verpakking.enu.MachineID</ReturnType>
+<Implementation><![CDATA[	Quit "VH"
+]]></Implementation>
+</Method>
+
+<Method name="HALUX">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.Verpakking.enu.MachineID</ReturnType>
+<Implementation><![CDATA[	Quit "HALUX"
+]]></Implementation>
+</Method>
+
+<Method name="TAOR">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.Verpakking.enu.MachineID</ReturnType>
+<Implementation><![CDATA[	Quit "TAOR"
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Verpakking/Optimizer.cls.xml
===================================================================
diff -u
--- APPS/Verpakking/Optimizer.cls.xml	(revision 0)
+++ APPS/Verpakking/Optimizer.cls.xml	(revision 68229)
@@ -0,0 +1,122 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Verpakking.Optimizer">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="OptimimaliseerDoos">
+<FormalSpec><![CDATA[BasisDoos:APPS.Verpakking.Doos,&Params:%String,ProductGroep:%String]]></FormalSpec>
+<Implementation><![CDATA[
+	If (BasisDoos.%Extends("APPS.Verpakking.V1HogeRug")) {
+		Do ..OptimaliseerV1HogeRug(.BasisDoos, .Params)
+	} ElseIf (BasisDoos.%Extends("APPS.Verpakking.V1LageRug")) {
+		Do ..OptimaliseerV1LageRug(.BasisDoos, .Params)
+	} ElseIf (BasisDoos.%Extends("APPS.Verpakking.V1LosseOnderdelen")) {
+		Do ..OptimaliseerV1HogeRug(.BasisDoos, .Params, ProductGroep)
+	}
+	
+	Set BasisDoos.CardBoardID = ..GetCardboardProduct(BasisDoos.Thickness, BasisDoos.LogoPrint, BasisDoos.Width)
+	
+	Quit BasisDoos
+]]></Implementation>
+</Method>
+
+<Method name="GetCardboardProduct">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Dikte,LogoPrint,PlanoBreedte</FormalSpec>
+<Implementation><![CDATA[
+	Set Product=""
+	&sql(DECLARE GetProduct CURSOR FOR
+		Select Breedte, Product, CardBoardID
+		into :Breedte, :PRNr, :CardBoardID
+		from Prod.OptiBox_btCardboard 
+		where Dikte=:Dikte and LogoPrint=:LogoPrint and Breedte>=:PlanoBreedte order by Breedte asc)
+
+   	&sql(OPEN GetProduct) 	   	
+ 	&sql(FETCH GetProduct)
+ 	&sql(CLOSE GetProduct)
+	Quit CardBoardID
+]]></Implementation>
+</Method>
+
+<Method name="OptimaliseerV1LosseOnderdelen">
+<FormalSpec><![CDATA[BasisDoos:APPS.Verpakking.V1HogeRug,&Params:%String,ProductGroep:%String]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	//Meta 456
+	If (ProductGroep = "TBX") {
+		Set BasisDoos.ReceptName = "TBX V1 LOOSE COMP"
+	} ElseIf (ProductGroep = "TAORBOX") { //Meta 505
+		Set BasisDoos.ReceptName = "TAORBOX V1 LOOSE COMP"
+	}
+	
+	Set Param = ##class(APPS.Verpakking.Doos.Param).%New()
+	Set Param.Key = "Q"
+	Set Param.Value = 1
+	Do BasisDoos.Params.Insert(Param)
+	
+	If (ProductGroep = "TBX") {
+		Set BasisDoos.Depth = Params("LODIEPTE")
+		Set BasisDoos.Height = Params("LOHOOGTE")
+		Set BasisDoos.Width = Params("LOBREEDTE")
+		
+		Set Param = ##class(APPS.Verpakking.Doos.Param).%New()
+		Set Param.Key = "T"
+		Set Param.Value = Params("LOCP")
+	} ElseIf (ProductGroep = "TAORBOX") {
+		Set BasisDoos.Depth = Params("DIEPTE")
+		Set BasisDoos.Height = Params("ZIJHOOGTE")
+		Set BasisDoos.Width = Params("BREEDTE")
+	
+		Set Param = ##class(APPS.Verpakking.Doos.Param).%New()
+		Set Param.Key = "T"
+		Set Param.Value = Params("BREEDTECP")
+	}
+	
+	Do BasisDoos.Params.Insert(Param)
+]]></Implementation>
+</Method>
+
+<Method name="OptimaliseerV1HogeRug">
+<FormalSpec><![CDATA[BasisDoos:APPS.Verpakking.V1HogeRug,&Params:%String]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	// select * from "Prod"."OptiBox_BoxData" where ID not like 'PR%'
+	//Product 3098795 is enkel high back
+	//Product 1812790 is high back + LOdoos
+	//select * from "Prod"."OptiBox_BoxData" where ID like 'TBX||V1 Hoge rug%'
+	//LET OP: Er zijn hier 2 resultaten, 1 voor doos en 1 voor LOdoos
+	
+	//Meta 505
+	Set BasisDoos.Depth = Params("DIEPTE")
+	Set BasisDoos.Height = Params("ZIJHOOGTE")
+	Set BasisDoos.Width = Params("BREEDTE")
+	
+	Set Param = ##class(APPS.Verpakking.Doos.Param).%New()
+	Set Param.Key = "H2"
+	Set Param.Value = Params("RUGHOOGTE")	
+	Do BasisDoos.Params.Insert(Param)
+	
+	;Set:($D(Params("T"))) BasisDoos.T = Params("T") // Staat niet in ^Prod.OptiBox.BoxMetaD(455,Params, 
+	;Set:($D(Params("K"))) BasisDoos.K = Params("K") // Staat niet in ^Prod.OptiBox.BoxMetaD(455,Params, 
+	
+	//OVERHANGSIZE? Type o en x = extra info voor optimizer
+	//OVERHANGSIZETHCIKNESS? Type o en x = extra info voor optimizer
+	;^Prod.OptiBox.BoxMetaD(455,Params,		Is de plek waar de mogelijke extra params staan gedefinieerd voor dit verpakkingtype
+]]></Implementation>
+</Method>
+
+<Method name="OptimaliseerV1LageRug">
+<FormalSpec><![CDATA[BasisDoos:APPS.Verpakking.V1HogeRug,&Params:%String]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	//PRNr 3429161
+	//Meta 454
+	Set BasisDoos.Depth = Params("DIEPTE")
+	Set BasisDoos.Height = Params("ZIJHOOGTE")
+	Set BasisDoos.Width = Params("BREEDTE")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Verpakking/VouwErrondDoos.cls.xml
===================================================================
diff -u
--- APPS/Verpakking/VouwErrondDoos.cls.xml	(revision 0)
+++ APPS/Verpakking/VouwErrondDoos.cls.xml	(revision 68229)
@@ -0,0 +1,24 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Verpakking.VouwErrondDoos">
+<Super>APPS.Verpakking.Doos</Super>
+
+<Parameter name="XMLTYPE">
+<Default>APPS.Verpakking.VouwErrondDoos</Default>
+</Parameter>
+
+<Property name="K1">
+<Type>%Decimal</Type>
+<InitialExpression>"0"</InitialExpression>
+<Transient>1</Transient>
+<Parameter name="XMLNAME" value="PARAM1"/>
+</Property>
+
+<Property name="K2">
+<Type>%Decimal</Type>
+<Parameter name="XMLNAME" value="PARAM2"/>
+</Property>
+</Class>
+
+
+</Export>
Index: APPS/Verpakking/enu/MachineTechnologie.cls.xml
===================================================================
diff -u
--- APPS/Verpakking/enu/MachineTechnologie.cls.xml	(revision 0)
+++ APPS/Verpakking/enu/MachineTechnologie.cls.xml	(revision 68229)
@@ -0,0 +1,32 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Verpakking.enu.MachineTechnologie">
+<ClassType>datatype</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.Enumeration</Super>
+
+<Parameter name="VALUELIST">
+<Default>;Panotec;Kraft</Default>
+</Parameter>
+
+<Parameter name="DISPLAYLIST">
+<Default>;Panotec;Kraft</Default>
+</Parameter>
+
+<Method name="Panotec">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.Verpakking.enu.MachineTechnologie</ReturnType>
+<Implementation><![CDATA[	Quit "Panotec"
+]]></Implementation>
+</Method>
+
+<Method name="Kraft">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.Verpakking.enu.MachineTechnologie</ReturnType>
+<Implementation><![CDATA[	Quit "Kraft"
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Verpakking/V1LosseOnderdelen.cls.xml
===================================================================
diff -u
--- APPS/Verpakking/V1LosseOnderdelen.cls.xml	(revision 0)
+++ APPS/Verpakking/V1LosseOnderdelen.cls.xml	(revision 68229)
@@ -0,0 +1,33 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Verpakking.V1LosseOnderdelen">
+<Super>APPS.Verpakking.Doos</Super>
+
+<Parameter name="XMLTYPE">
+<Default>APPS.Verpakking.V1LosseOnderdelen</Default>
+</Parameter>
+
+<UDLText name="T">
+<Content><![CDATA[
+// Property ReceptName As %String(XMLNAME = "RECEPTNAME");
+
+]]></Content>
+</UDLText>
+
+<UDLText name="T">
+<Content><![CDATA[
+// Property Q As %Decimal(XMLNAME = "PARAM1", XMLPROJECTION = "NONE") [ InitialExpression = 0 ];
+
+]]></Content>
+</UDLText>
+
+<UDLText name="T">
+<Content><![CDATA[
+// Property T As %Decimal(XMLNAME = "PARAM2");
+
+]]></Content>
+</UDLText>
+</Class>
+
+
+</Export>
Index: WS/APPS/Verpakking/SnijDoosRequest.cls.xml
===================================================================
diff -u
--- WS/APPS/Verpakking/SnijDoosRequest.cls.xml	(revision 0)
+++ WS/APPS/Verpakking/SnijDoosRequest.cls.xml	(revision 68229)
@@ -0,0 +1,56 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WS.APPS.Verpakking.SnijDoosRequest">
+<ClassType/>
+<ProcedureBlock>0</ProcedureBlock>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+<Inheritance>right</Inheritance>
+
+<Parameter name="ELEMENTQUALIFIED">
+<Default>1</Default>
+</Parameter>
+
+<Parameter name="NAMESPACE">
+</Parameter>
+
+<Parameter name="XMLNAME">
+<Default>CUTREQ</Default>
+</Parameter>
+
+<Parameter name="XMLSEQUENCE">
+<Default>1</Default>
+</Parameter>
+
+<Property name="Box">
+<Type>APPS.Verpakking.Doos</Type>
+<Parameter name="XMLNAME" value="BOX"/>
+</Property>
+
+<Property name="Technology">
+<Type>%String</Type>
+<Parameter name="XMLNAME" value="TECHNOLOGY"/>
+</Property>
+
+<Property name="CutMachine">
+<Type>%String</Type>
+<Parameter name="XMLNAME" value="CUTMACHINE"/>
+</Property>
+
+<Property name="Priority">
+<Type>%String</Type>
+<Parameter name="XMLNAME" value="PRIORITY"/>
+</Property>
+
+<Property name="Quantity">
+<Type>%String</Type>
+<Parameter name="XMLNAME" value="QUANTITY"/>
+</Property>
+
+<Property name="Server">
+<Type>%String</Type>
+<Parameter name="XMLNAME" value="SERVER"/>
+</Property>
+</Class>
+
+
+</Export>
Index: WS/APPS/Verpakking/SnijDoosService.cls.xml
===================================================================
diff -u
--- WS/APPS/Verpakking/SnijDoosService.cls.xml	(revision 0)
+++ WS/APPS/Verpakking/SnijDoosService.cls.xml	(revision 68229)
@@ -0,0 +1,41 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WS.APPS.Verpakking.SnijDoosService">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%SOAP.WebClient</Super>
+
+<UDLText name="T">
+<Content><![CDATA[
+/*
+/// This is the URL used to access the web service.
+Parameter LOCATION = "http://iserv.vanhoecke.be/csp/hadev/WS.KlantDataService.cls";
+
+/// This is the namespace used by the Service
+Parameter NAMESPACE = "http://www.vanhoecke.be";
+
+/// Use xsi:type attribute for literal types.
+Parameter OUTPUTTYPEATTRIBUTE = 1;
+*/
+]]></Content>
+</UDLText>
+
+<Parameter name="SERVICENAME">
+<Description>
+This is the name of the Service</Description>
+<Default>SnijDoosService</Default>
+</Parameter>
+
+<Method name="SnijDoos">
+<Final>1</Final>
+<FormalSpec>SnijDoosRequest:WS.APPS.Verpakking.SnijDoosRequest,KlantNr:%String</FormalSpec>
+<ProcedureBlock>1</ProcedureBlock>
+<WebMethod>1</WebMethod>
+<SoapBindingStyle>document</SoapBindingStyle>
+<SoapBodyUse>literal</SoapBodyUse>
+<Implementation><![CDATA[ 	Quit ..WebMethod("SnijDoos").Invoke($this,"docker01-acp:1880/ws/cut-request",.SnijDoosRequest)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Verpakking/Doos/Param.cls.xml
===================================================================
diff -u
--- APPS/Verpakking/Doos/Param.cls.xml	(revision 0)
+++ APPS/Verpakking/Doos/Param.cls.xml	(revision 68229)
@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Verpakking.Doos.Param">
+<Super>TECH.DataTransferObject</Super>
+
+<Property name="Key">
+<Type>%String</Type>
+<Parameter name="XMLNAME" value="KEY"/>
+</Property>
+
+<Property name="Value">
+<Type>%String</Type>
+<Parameter name="XMLNAME" value="VALUE"/>
+</Property>
+</Class>
+
+
+</Export>
Index: APPS/Verpakking/V1LageRug.cls.xml
===================================================================
diff -u
--- APPS/Verpakking/V1LageRug.cls.xml	(revision 0)
+++ APPS/Verpakking/V1LageRug.cls.xml	(revision 68229)
@@ -0,0 +1,24 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Verpakking.V1LageRug">
+<Super>APPS.Verpakking.Doos</Super>
+
+<Parameter name="XMLTYPE">
+<Default>APPS.Verpakking.V1LageRug</Default>
+</Parameter>
+
+<Property name="ReceptName">
+<Type>%String</Type>
+<InitialExpression>"TBX V1 LOW BACK"</InitialExpression>
+<Parameter name="XMLNAME" value="RECEPTNAME"/>
+</Property>
+
+<Property name="K">
+<Type>%Decimal</Type>
+<InitialExpression>110</InitialExpression>
+<Parameter name="XMLNAME" value="PARAM1"/>
+</Property>
+</Class>
+
+
+</Export>