Index: WS/Halux/PPS/TBXZaagServer.cls.xml
===================================================================
diff -u
--- WS/Halux/PPS/TBXZaagServer.cls.xml	(revision 0)
+++ WS/Halux/PPS/TBXZaagServer.cls.xml	(revision 2465)
@@ -0,0 +1,308 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="WS.Halux.PPS.TBXZaagServer">
+<Description><![CDATA[
+<b>OptiBox : Box cutting optimization</b>
+<br>The methods gets called from the Optimizer (server) to the Caché clients]]></Description>
+<IncludeCode>BL.Sys.Toegang,BL.Sys.Proxy,BL.Sys.Resources,TECH.Error</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>WS.WebService</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="SERVICENAME">
+<Description>
+URL for invoking the WebService.
+Parameter LOCATION = "http://PV_vmcache/vhintra";
+Name of the WebService.</Description>
+<Default>ZaagServer</Default>
+</Parameter>
+
+<Parameter name="NAMESPACE">
+<Default>http://vhintra.vanhoecke.be</Default>
+</Parameter>
+
+<Parameter name="SessionKey">
+<Default>HALUXZAAG</Default>
+</Parameter>
+
+<Property name="iWerkpost">
+<Type>APPS.Halux.PPS.TBXZaag.IWerkpost</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="GeefBatchLijst">
+<Description><![CDATA[
+     Geeft de resultset met actieve batches, waarbij de batches opgedeeld zijn in subbatches voor TipOn en Spoelbak.
+<br/> De LijnNr geeft de beperking tot die batches die bestemd zijn voor een bepaalde lijn
+<br/> Opm : SessionKey en Werkpost zijn constante waarden]]></Description>
+<FormalSpec>SessionKey:%String,Werkpost:%String,LijnNr:%String</FormalSpec>
+<ReturnType>%XML.DataSet</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[
+	$$$TECHErrorTrapOn
+	Do ..GeefImplementatie(SessionKey,Werkpost)
+	
+	Set DataSet=..iWerkpost.GeefBatchLijst(LijnNr)
+	Set DataSet.DiffGram=1
+	Set DataSet.NeedSchema=1
+	Quit DataSet
+]]></Implementation>
+</Method>
+
+<Method name="GeefZaagLijst">
+<Description><![CDATA[
+      Geef een uitgebreide resultset met de te zagen lades
+<br/> Opm : SessionKey en Werkpost zijn constante waarden]]></Description>
+<FormalSpec>SessionKey:%String,Werkpost:APPS.Halux.PPS.TBXZaag.enu.Werkpost,BatchKey:%String,LijnNr:APPS.Halux.PPS.TBXZaag.enu.Output2Lijn</FormalSpec>
+<ReturnType>%XML.DataSet</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[
+	$$$TECHErrorTrapOn
+	Do ..GeefImplementatie(SessionKey, Werkpost)
+	Set DataSet=..iWerkpost.GeefZaagLijst(BatchKey,LijnNr)
+	Set DataSet.DiffGram=1
+	Set DataSet.NeedSchema=1
+	Quit DataSet
+]]></Implementation>
+</Method>
+
+<Method name="GeefPlaatMateriaal">
+<Description><![CDATA[
+      Geef een resultset met plaatmateriaal om de selectie van beschadigd plaatmateriaal mogelijk te maken
+<br/> Wordt opgehaald bij opstart van de zaag
+<br/> Dmv BodemRug kan je de lijst eventueel beperken tot Rug, Bodem 
+<br/> Opm : SessionKey en Werkpost zijn constante waarden]]></Description>
+<FormalSpec>SessionKey:%String,Werkpost:APPS.Halux.PPS.TBXZaag.enu.Werkpost,BodemRug:APPS.Halux.PPS.TBXZaag.enu.BodemRug</FormalSpec>
+<ReturnType>%XML.DataSet</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[
+	$$$TECHErrorTrapOn
+	Do ..GeefImplementatie(SessionKey, Werkpost)
+	Set DataSet=..iWerkpost.GeefPlaatMateriaal($G(BodemRug))
+	Set DataSet.DiffGram=1
+	Set DataSet.NeedSchema=1
+	Quit DataSet
+]]></Implementation>
+</Method>
+
+<Method name="GeefStilstanden">
+<Description><![CDATA[
+      Geef een resultset met alle mogelijke stilstanden (Groep, Omschrijving, Code)
+<br/> Wordt opgehaald bij opstart van de zaag
+<br/> Opm : SessionKey en Werkpost zijn constante waarden]]></Description>
+<FormalSpec>SessionKey:%String,Werkpost:APPS.Halux.PPS.TBXZaag.enu.Werkpost</FormalSpec>
+<ReturnType>%XML.DataSet</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[
+	$$$TECHErrorTrapOn
+	Do ..GeefImplementatie(SessionKey, Werkpost)
+	Set DataSet=..iWerkpost.GeefStilstanden($G(Werkpost))
+	Set DataSet.DiffGram=1
+	Set DataSet.NeedSchema=1
+	Quit DataSet
+]]></Implementation>
+</Method>
+
+<Method name="SyncBatches">
+<Description><![CDATA[
+      Geeft een resultset met (ProductieLijn, BatchKey, BatchChanged, LengteBuffer, AantalBuffer)
+<br/> Berekent de lengte van en aantal bodems op de buffer tussen zaag en boxpress
+<br/> en geeft voor de verschillende productielijnen of de batch gewijzigd is. 
+<br/> Opm : SessionKey en Werkpost zijn constante waarden]]></Description>
+<FormalSpec>SessionKey:%String,Werkpost:APPS.Halux.PPS.TBXZaag.enu.Werkpost,L1BatchKey:%String,L2BatchKey:%String,DirectBatchKey:%String</FormalSpec>
+<ReturnType>%XML.DataSet</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[
+	$$$TECHErrorTrapOn
+	Do ..GeefImplementatie(SessionKey, Werkpost)
+	Set DataSet=..iWerkpost.SyncBatches( L1BatchKey, L2BatchKey, DirectBatchKey)
+	Set DataSet.DiffGram=1
+	Set DataSet.NeedSchema=1
+	Quit DataSet
+]]></Implementation>
+</Method>
+
+<Method name="PrintLabel">
+<Description><![CDATA[
+      Afdrukken van de een productie-etiket op de gewenste labelprinter
+<br/> De afdruk van de label verloopt via Bartender
+<br/> Aan de zaag zijn er 2 devices gekoppeld (LabelApplicator en LabelBackup)
+<br/> Opm : SessionKey en Werkpost zijn constante waarden]]></Description>
+<FormalSpec>SessionKey:%String,Werkpost:APPS.Halux.PPS.TBXZaag.enu.Werkpost,ZaagID:%Integer,Device:APPS.Halux.PPS.TBXZaag.enu.PrintDevice</FormalSpec>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[
+	$$$TECHErrorTrapOn
+	Do ..GeefImplementatie(SessionKey, Werkpost)
+	Do ..iWerkpost.PrintLabel(ZaagID, Device)
+]]></Implementation>
+</Method>
+
+<Method name="PrintLabelManueel">
+<Description><![CDATA[
+      Afdrukken van een <B>manueel</B> productie-etiket op de gewenste labelprinter
+<br/> De afdruk van het etiket verloopt via Bartender
+<br/> Aan de zaag zijn er 2 devices gekoppeld (LabelApplicator en LabelBackup)
+<br/> Opm : SessionKey en Werkpost zijn constante waarden]]></Description>
+<FormalSpec>SessionKey:%String,Werkpost:APPS.Halux.PPS.TBXZaag.enu.Werkpost,Titel:%String,BodemHoogte:%Integer,BodemLengte:%Float,RugHoogte:%Integer,RugLengte:%Float,Device:APPS.Halux.PPS.TBXZaag.enu.PrintDevice</FormalSpec>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[
+	$$$TECHErrorTrapOn
+	Do ..GeefImplementatie(SessionKey, Werkpost)
+	Do ..iWerkpost.PrintLabelManueel(Titel, BodemHoogte, BodemLengte, RugHoogte, RugLengte, Device)
+]]></Implementation>
+</Method>
+
+<Method name="RegistreerStilstand">
+<Description><![CDATA[
+      Registreren van stilstand.
+<br/> Parameter ZaagID is optioneel.
+<br/> Parameter DuurStilstand geeft de duur van de laatste zaagbeweging tot de registratie van de stilstand
+<br/> Parameter Redenstilstand is de code van de resulset GeefStilstanden
+<br/> Opm : SessionKey en Werkpost zijn constante waarden]]></Description>
+<FormalSpec>SessionKey:%String,Werkpost:APPS.Halux.PPS.TBXZaag.enu.Werkpost,ZaagID:%Integer,RedenStilstand:%String,DuurStilstand:%Integer</FormalSpec>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[
+	$$$TECHErrorTrapOn
+	Do ..GeefImplementatie(SessionKey, Werkpost)
+	Do ..iWerkpost.RegistreerStilstand(RedenStilstand, DuurStilstand,  ZaagID)
+	;$$$ThrowError($$$errGeneralError,"Not implemented")
+]]></Implementation>
+</Method>
+
+<Method name="ZetStatus">
+<Description><![CDATA[
+      Instellen van de nieuwe status.
+<br/> Parameter ZaagID bepaalt de uitgevoerde bewerking, element uit resultset GeefZaagLijst
+<br/> Parameter Status = "F" ; Finished
+<br/> Parameter LijnNr = op welke lijn het plaatmateriaal werd afgezet
+<br/> Opm : SessionKey en Werkpost zijn constante waarden]]></Description>
+<FormalSpec>SessionKey:%String,Werkpost:APPS.Halux.PPS.TBXZaag.enu.Werkpost,ZaagID:%Integer,Status:APPS.Halux.PPS.TBXZaag.enu.Status,LijnNr:APPS.Halux.PPS.TBXZaag.enu.Output2Lijn</FormalSpec>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[
+	$$$TECHErrorTrapOn
+	Do ..GeefImplementatie(SessionKey, Werkpost)
+	Do ..iWerkpost.ZetStatus(Werkpost, ZaagID, Status, LijnNr)
+]]></Implementation>
+</Method>
+
+<Method name="GeefProductURL">
+<Description><![CDATA[
+      Geeft de URL van de technische fiche van de lade
+<br/> Opm : SessionKey en Werkpost zijn constante waarden]]></Description>
+<FormalSpec>SessionKey:%String,Werkpost:APPS.Halux.PPS.TBXZaag.enu.Werkpost,ZaagID:%Integer</FormalSpec>
+<ReturnType>%String</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[
+	$$$TECHErrorTrapOn
+	Do ..GeefImplementatie(SessionKey, Werkpost)
+	Quit ..iWerkpost.GeefProductURL(ZaagID)
+]]></Implementation>
+</Method>
+
+<Method name="BeschadigingLade">
+<Description><![CDATA[
+      Opgeven dat plaatmateriaal van een lade beschadigd is.
+<br/> De ZaagID bepaalt welke bodem en/of rug het exact is
+<br/> Via BodemOfRug wordt bepaald welk deel (bodem en/of rug) er beschadigd is, de voorraad wordt verminderd.
+<br/> Als rework wordt true is dan wordt er een nieuwe zaagopdracht toegevoegd aan de huidige batch.
+<br/> Opm : SessionKey en Werkpost zijn constante waarden]]></Description>
+<FormalSpec>SessionKey:%String,Werkpost:APPS.Halux.PPS.TBXZaag.enu.Werkpost,ZaagID:%Integer,BodemOfRug:APPS.Halux.PPS.TBXZaag.enu.BodemRug,Rework:%Boolean,Reden:%String</FormalSpec>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[
+	$$$TECHErrorTrapOn
+	Do ..GeefImplementatie(SessionKey, Werkpost)
+	$$$ThrowError($$$errGeneralError,"Not implemented")
+]]></Implementation>
+</Method>
+
+<Method name="BeschadigingPlaat">
+<Description><![CDATA[
+      Opgeven dat plaatmateriaal beschadigd
+<br/> Het PlaatPRNr is een product uit de lijst van method GeefPlaatMateriaal
+<br/> De voorraad wordt met lengte verminderd, indien lengte is -1 wordt een ganse plaat genomen
+<br/> Opm : SessionKey en Werkpost zijn constante waarden]]></Description>
+<FormalSpec>SessionKey:%String,Werkpost:APPS.Halux.PPS.TBXZaag.enu.Werkpost,PlaatPRNr:%Integer,Lengte:%Float,Reden:%String</FormalSpec>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[
+	$$$TECHErrorTrapOn
+	Do ..GeefImplementatie(SessionKey, Werkpost)
+	$$$ThrowError($$$errGeneralError,"Not implemented")
+]]></Implementation>
+</Method>
+
+<Method name="ControleMeting">
+<Description><![CDATA[
+      Logging van een steekproefgewijze controlemeting. 
+<br/> Opm : SessionKey en Werkpost zijn constante waarden]]></Description>
+<FormalSpec>SessionKey:%String,Werkpost:APPS.Halux.PPS.TBXZaag.enu.Werkpost,ZaagID:%Integer,BodemOfRug:APPS.Halux.PPS.TBXZaag.enu.BodemRug,GewensteLengte:%Float,GemetenLengte:%Float</FormalSpec>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[
+	$$$TECHErrorTrapOn
+	Do ..GeefImplementatie(.SessionKey, .Werkpost)
+	;$$$ThrowError($$$errGeneralError,"Not implemented")
+]]></Implementation>
+</Method>
+
+<Method name="GeefSession">
+<Description>
+Sessionkey opvragen bij opstart van de zaag</Description>
+<ReturnType>%String</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[	Quit ..#SessionKey
+]]></Implementation>
+</Method>
+
+<Method name="TestError">
+<Description>
+Testen van fout afhandeling
+1 : Class Not Exist
+2 : Save object
+3 : Undefined
+4 : Wrong Session</Description>
+<FormalSpec>ErrorNr</FormalSpec>
+<ReturnType>%String</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[
+	If $G(ErrorNr)=1 {
+		Set x=NotExistingInstance.Property
+	}
+	ElseIf $G(ErrorNr)=2 {
+		Set sc=##class(APPS.Halux.PPS.TBXZaag.Opdrachten).%New().%Save()
+		$$$ThrowErrorStatus($$$errSaveFailed,"Not possible to save",sc)
+	}
+	ElseIf $G(ErrorNr)=3 {
+		Set X=NotExistingVariable
+	}
+	Else {		
+		$$$ThrowError($$$errGeneralError,"Wrong session")
+	}
+]]></Implementation>
+</Method>
+
+<UDLText name="T">
+<Content><![CDATA[
+/*
+ HELPER 
+ */
+]]></Content>
+</UDLText>
+
+<Method name="ControleSession">
+<FormalSpec>Session:%String,Werkpost:APPS.Halux.PPS.TBXZaag.enu.Werkpost</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefImplementatie">
+<FormalSpec>SessionKey:%String="",Werkpost:APPS.Halux.enu.Werkpost=""</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If '..ControleSession(SessionKey,Werkpost) $$$ThrowError($$$errGeneralError,"Wrong session")
+	
+	Set ..iWerkpost=##class(APPS.Halux.PPS.TBXZaag.impl.Werkpost).%New(Werkpost)
+	If '$isObject(..iWerkpost) $$$ThrowError($$$errGeneralError,"No implementation for "_Werkpost)
+]]></Implementation>
+</Method>
+</Class>
+</Export>