Index: WS/APPS/Verpakking/SnijDoosServer.cls.xml
===================================================================
diff -u
--- WS/APPS/Verpakking/SnijDoosServer.cls.xml	(revision 0)
+++ WS/APPS/Verpakking/SnijDoosServer.cls.xml	(revision 68891)
@@ -0,0 +1,138 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WS.APPS.Verpakking.SnijDoosServer">
+<ClassType/>
+<IncludeCode>BL.Prod.OptiBox,BL.Sys.Toegang,BL.Sys.Proxy</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>WS.OngeauthenticeerdeWebService</Super>
+
+<Parameter name="XMLIGNORENULL">
+<Default>1</Default>
+</Parameter>
+
+<Parameter name="SERVICENAME">
+<Default>SnijDoosServer</Default>
+</Parameter>
+
+<Parameter name="NAMESPACE">
+<Default>http://vhintra.vanhoecke.be</Default>
+</Parameter>
+
+<Parameter name="OptiboxSmallAddr">
+<Description>
+IP-address van Optibox die MachineEvents mag versturen</Description>
+<Default>192.168.1.170</Default>
+</Parameter>
+
+<Parameter name="OptiboxBigAddr">
+<Default>192.168.1.38</Default>
+</Parameter>
+
+<Method name="AreYouAlive">
+<Description>
+Testing if the server is ready</Description>
+<ReturnType>%Integer</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[
+	$$$DebugIP
+	$$$LastLogCreate("I","",,,"AreYouAlive from Optimizer",,"")
+	Do ##class(DS.Prod.OptiBox.MachineStatus).SetAlive(..GetServerName())
+	Quit 1
+]]></Implementation>
+</Method>
+
+<Method name="CardboardLoaded">
+<FormalSpec>CardboardLoaded:BL.Prod.OptiBox.sub.pxCardboardLoaded</FormalSpec>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[
+	$$$WebServiceTrap
+	$$$DebugIP
+	$$$LastLogCreate("I","M",,,"CardboardLoaded",,CardboardLoaded)
+	Do ##class(BL.Prod.OptiBox.Diverse).%New().ModifyCardboardLoaded(CardboardLoaded)
+	Quit
+]]></Implementation>
+</Method>
+
+<Method name="OptimizationResult">
+<Description><![CDATA[
+The Optimizer returns the optimization result
+<br>This OptiRes structure contains all the box with the cuttingdefinition]]></Description>
+<FormalSpec>OptiRes:BL.Prod.OptiBox.sub.pxOptiResult</FormalSpec>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[
+	$$$WebServiceTrap
+	$$$DebugIP
+	$$$LastLogCreate("I","C",,,"OptimizationResult",,OptiRes)
+	Do ##class(BL.Prod.OptiBox.Optimize).Instantiate()
+	Do %blProdOptiBoxOptimize.ProcessOptiResult(OptiRes)
+	Quit
+]]></Implementation>
+</Method>
+
+<Method name="CuttingResult">
+<Description><![CDATA[
+The Optimizer returns the cuttingresult after the machine has cut a cardboard
+This results are not grouped, so after this method get called after each cut
+<br>The CurRes structure contains :
+<br>- cardboard and surface used
+<br>- waste
+<br>- cost]]></Description>
+<FormalSpec>CutRes:BL.Prod.OptiBox.sub.pxSnijResult</FormalSpec>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[
+	$$$WebServiceTrap
+	$$$DebugIP
+	
+	$$$LastLogCreate("I","S",,,"CuttingResult",,CutRes)
+	Do ##class(BL.Prod.OptiBox.Snijden).Instantiate()
+	Do %blProdOptiBoxSnijden.ProcessSnijResult(CutRes)
+	Quit
+]]></Implementation>
+</Method>
+
+<Method name="EventNotification">
+<Description><![CDATA[
+The Optimizer can signal any changes in the status of optimization, cutting or cuttingmachine
+<br>For changes on the optimization and cutting the event is only signaled to the requester
+<br>For changes on the cuttingmachine all possible requesters are signaled
+<br> Type : OPT, CUT, MACH
+<br> ID : OptiID of CutID of MachineID
+<br> Eventype for Optimization : Start, Finish
+<br> Eventype for Cutting : Start, Finish, WrongCardboard
+<br> Eventype for Machine : Online, OffLine, Error]]></Description>
+<FormalSpec>Status:BL.Prod.OptiBox.sub.pxStatus</FormalSpec>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[
+	$$$WebServiceTrap
+	$$$DebugIP
+	
+	Quit:Status=""
+	Quit:$$$Not($IsObject(Status))
+	Set Status.ServerName=..GetServerName()
+	$$$LastLogCreate("I","E",,,"Event "_Status.Type,,Status)
+	
+	If (Status.Type="MACHINE") {
+		Do ##class(BL.Prod.OptiBox.Diverse).ChangeMachineStatus(Status)
+	}
+	
+	Quit
+]]></Implementation>
+</Method>
+
+<Method name="GetServerName">
+<ReturnType>BL.Prod.OptiBox.enu.OptiServer</ReturnType>
+<Implementation><![CDATA[
+	#dim OptimizerServerName As %String = ""
+	#dim RemoteIPAddres As %String = ""
+	
+	Set RemoteIPAddres=$Select($isObject($G(%request)):%request.GetCgiEnv("REMOTE_ADDR"),1:"")
+	Set:RemoteIPAddres=..#OptiboxSmallAddr OptimizerServerName=##class(BL.Prod.OptiBox.enu.OptiServer).SmallEnCuts()
+	Set:RemoteIPAddres=..#OptiboxBigAddr OptimizerServerName=##class(BL.Prod.OptiBox.enu.OptiServer).Big()
+	
+	Quit $Get(OptimizerServerName)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>