Index: vhPowerTools/APPS/Optibox/Service.cls.xml
===================================================================
diff -u -r29059 -r29992
--- vhPowerTools/APPS/Optibox/Service.cls.xml	(.../Service.cls.xml)	(revision 29059)
+++ vhPowerTools/APPS/Optibox/Service.cls.xml	(.../Service.cls.xml)	(revision 29992)
@@ -15,7 +15,7 @@
 <Implementation><![CDATA[
 		Do ..ControleerIsOptiboxServerAlive()
 		
-		Set Service = ##class(WS.Prod.PanOpti.OptimizerBindingPanOptimizerWS).%New()	
+		#dim Service As APPS.Halux.PPS.Verpakking.OptimizeService = ##class(APPS.ApplicatieContext).Instance().GeefVerpakkingAPI().GeefOptimizeService()	
 		Do Service.SetLocation("http://optiboxbig/PanOptimizerWS")
 		
 		#dim LoggingRequest As DS.Prod.OptiBox.Logging 
Index: BL/Prod/OptiBox/Diverse.cls.xml
===================================================================
diff -u -r29980 -r29992
--- BL/Prod/OptiBox/Diverse.cls.xml	(.../Diverse.cls.xml)	(revision 29980)
+++ BL/Prod/OptiBox/Diverse.cls.xml	(.../Diverse.cls.xml)	(revision 29992)
@@ -381,7 +381,7 @@
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
 	Set $ETRAP="Do ##class("_..%ClassName(1)_").TrapHandlerSoap()"
-	Set wsOptimizer=##class(WS.Prod.PanOpti.OptimizerBindingPanOptimizerWS).%New()
+	#dim wsOptimizer As APPS.Halux.PPS.Verpakking.OptimizeService = ##class(APPS.ApplicatieContext).Instance().GeefVerpakkingAPI().GeefOptimizeService()
 	Do wsOptimizer.SetLocation(##class(BL.Prod.OptiBox.Optimize).GeefOptimizerLocation(OptiServer))
 
 	Quit wsOptimizer.AreYouAlive()
Index: BL/Prod/OptiBox/Snijden.cls.xml
===================================================================
diff -u -r29059 -r29992
--- BL/Prod/OptiBox/Snijden.cls.xml	(.../Snijden.cls.xml)	(revision 29059)
+++ BL/Prod/OptiBox/Snijden.cls.xml	(.../Snijden.cls.xml)	(revision 29992)
@@ -59,7 +59,7 @@
 <ClassMethod>1</ClassMethod>
 <FormalSpec>ID</FormalSpec>
 <Implementation><![CDATA[
-	Set wsOptimizer=##class(WS.Prod.PanOpti.OptimizerBindingPanOptimizerWS).%New()
+	#dim wsOptimizer As APPS.Halux.PPS.Verpakking.OptimizeService = ##class(APPS.ApplicatieContext).Instance().GeefVerpakkingAPI().GeefOptimizeService()
 	; Request status
 	s %objlasterror=""
 	Set Status=wsOptimizer.GetStatus("CUTTING",1)
@@ -571,7 +571,7 @@
 
 <Method name="Send2Optimizer">
 <Implementation><![CDATA[
-	Set wsOptimizer=##class(WS.Prod.PanOpti.OptimizerBindingPanOptimizerWS).%New()
+	#dim wsOptimizer As APPS.Halux.PPS.Verpakking.OptimizeService = ##class(APPS.ApplicatieContext).Instance().GeefVerpakkingAPI().GeefOptimizeService()
 	If $G(%blnProxy,..#UseProxy) Do
 	. Set wsOptimizer.HttpProxyServer=..#ProxyServer
 	. Set wsOptimizer.HttpProxyPort=..#ProxyPort
Index: BL/Prod/OptiBox/Optimize.cls.xml
===================================================================
diff -u -r29980 -r29992
--- BL/Prod/OptiBox/Optimize.cls.xml	(.../Optimize.cls.xml)	(revision 29980)
+++ BL/Prod/OptiBox/Optimize.cls.xml	(.../Optimize.cls.xml)	(revision 29992)
@@ -135,7 +135,7 @@
 D ##class(BL.Prod.OptiBox.Optimize).GetStatus()</Description>
 <ClassMethod>1</ClassMethod>
 <Implementation><![CDATA[
-	Set wsOptimizer=##class(WS.Prod.PanOpti.OptimizerBindingPanOptimizerWS).%New()
+	#dim wsOptimizer As APPS.Halux.PPS.Verpakking.OptimizeService = ##class(APPS.ApplicatieContext).Instance().GeefVerpakkingAPI().GeefOptimizeService()
 	; Request status
 	s %objlasterror=""
 	#dim Status = wsOptimizer.GetStatus("OPTIMIZATION",1)
Index: APPS/Halux/PPS/Verpakking/OptimizeService.cls.xml
===================================================================
diff -u -r29980 -r29992
--- APPS/Halux/PPS/Verpakking/OptimizeService.cls.xml	(.../OptimizeService.cls.xml)	(revision 29980)
+++ APPS/Halux/PPS/Verpakking/OptimizeService.cls.xml	(.../OptimizeService.cls.xml)	(revision 29992)
@@ -27,8 +27,6 @@
 </Method>
 
 <Method name="GetCardboardsLoaded">
-<Description>
-D ##class(WS.Prod.PanOpti.OptimizerBindingPanOptimizerWS).%New().GetCardboardsLoaded()</Description>
 <Abstract>1</Abstract>
 </Method>