Index: WS/PPS/TBX/ZaagServer.cls.xml
===================================================================
diff -u
--- WS/PPS/TBX/ZaagServer.cls.xml	(revision 0)
+++ WS/PPS/TBX/ZaagServer.cls.xml	(revision 913)
@@ -0,0 +1,310 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-28 09:13:05">
+<Class name="WS.PPS.TBX.ZaagServer">
+<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>
+<TimeChanged>62150,33251.725693</TimeChanged>
+<TimeCreated>62123,54831.812352</TimeCreated>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="SERVICENAME">
+<Description>
+URL for invoking the WebService.
+Parameter LOCATION = "http://cache02.vanhoecke.be/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.TBX.IWerkpostZaag</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.TBX.enu.Werkpost,BatchKey:%String,LijnNr:APPS.Halux.TBX.enu.ProductieLijn</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.TBX.enu.Werkpost,BodemRug:APPS.Halux.TBX.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.TBX.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.TBX.enu.Werkpost,L1BatchKey:%Float,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
+]]></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.TBX.enu.Werkpost,ZaagID:%Integer,Device:APPS.Halux.TBX.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 de een <B>manueel</B> productieetiket 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.TBX.enu.Werkpost,Titel:%String,BodemHoogte:%Integer,BodemLengte:%Float,RugHoogte:%Integer,RugLengte:%Float,Device:APPS.Halux.TBX.enu.PrintDevice</FormalSpec>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[
+	$$$TECHErrorTrapOn
+	Do ..GeefImplementatie(SessionKey, Werkpost)
+	$$$ThrowError($$$errGeneralError,"Not implemented")
+]]></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.TBX.enu.Werkpost,ZaagID:%Integer,RedenStilstand:%String,DuurStilstand:%Integer</FormalSpec>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[
+	$$$TECHErrorTrapOn
+	Do ..GeefImplementatie(SessionKey, Werkpost)
+	Do ..iWerkpost.ZetStatus(Werkpost, 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.TBX.enu.Werkpost,ZaagID:%Integer,Status:APPS.Halux.TBX.enu.Status,LijnNr:APPS.Halux.TBX.enu.ProductieLijn</FormalSpec>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[
+	$$$TECHErrorTrapOn
+	Do ..GeefImplementatie(SessionKey, Werkpost)
+	Do ..iWerkpost.ZetStatus(Werkpost, ZaagID, StatusType, 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.TBX.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.TBX.enu.Werkpost,ZaagID:%Integer,BodemOfRug:APPS.Halux.TBX.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.TBX.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.TBX.enu.Werkpost,ZaagID:%Integer,BodemOfRug:APPS.Halux.TBX.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.TBX.ZaagOpdrachten).%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.TBX.enu.Werkpost</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefImplementatie">
+<FormalSpec>SessionKey:%String="",Werkpost:APPS.Halux.TBX.enu.Werkpost=""</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If '..ControleSession(SessionKey,Werkpost) $$$ThrowError($$$errGeneralError,"Wrong session")
+	
+	Set ..iWerkpost=##class(APPS.Halux.TBX.ZaagService).InstanceWerkpost(Werkpost)
+	If '$isObject(..iWerkpost) $$$ThrowError($$$errGeneralError,"No implementation for "_Werkpost)
+]]></Implementation>
+</Method>
+</Class>
+<Checksum value="996127502"/>
+</Export>
Index: WS/Web/OLParticulier/impl/Sessie2APPSContext.cls.xml
===================================================================
diff -u -r734 -r913
--- WS/Web/OLParticulier/impl/Sessie2APPSContext.cls.xml	(.../Sessie2APPSContext.cls.xml)	(revision 734)
+++ WS/Web/OLParticulier/impl/Sessie2APPSContext.cls.xml	(.../Sessie2APPSContext.cls.xml)	(revision 913)
@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-01-27 17:01:16">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-17 10:59:46">
 <Class name="WS.Web.OLParticulier.impl.Sessie2APPSContext">
 <Description>
 Conversie van Sesiie gegevens naar APPSContext.
@@ -8,7 +8,7 @@
 <IncludeCode>TECH.Error</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>APPS.Web.OLParticulier.APPSContext,Sessie2OLGammaContext</Super>
-<TimeChanged>62013,37292.133451</TimeChanged>
+<TimeChanged>62139,39643.741038</TimeChanged>
 <TimeCreated>61944,51413.724252</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
@@ -28,7 +28,10 @@
 	Set Klant=..GetKlant(Sessie)
 	if Klant="" $$$ThrowError($$$errGeneralError,"GeenKlantToegekend")
 	
-	Set sc = APPSContext.Init(Sessie.Taal,Sessie.Regio,Klant,Website)
+	Set Taal = Sessie.Taal
+	if Sessie.ToonVertaalSleutels Set Taal = "ToonVertaalSleutel"
+	
+	Set sc = APPSContext.Init(Taal,Sessie.Regio,Klant,Website)
 	If sc ="" $$$ThrowErrorStatus($$$errGeneralError,"APPSContext",sc)
 
 	Quit APPSContext
@@ -46,5 +49,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="2982311647"/>
+<Checksum value="461362587"/>
 </Export>
Index: WS/Prod/Select.cls.xml
===================================================================
diff -u -r734 -r913
--- WS/Prod/Select.cls.xml	(.../Select.cls.xml)	(revision 734)
+++ WS/Prod/Select.cls.xml	(.../Select.cls.xml)	(revision 913)
@@ -1,10 +1,10 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-01-27 17:01:15">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-25 10:12:32">
 <Class name="WS.Prod.Select">
 <IncludeCode>BL.Sys.Toegang,BL.Sys.Proxy,BL.Prod,BL.Sys.Resources</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%SOAP.WebService</Super>
-<TimeChanged>61024,33971.946561</TimeChanged>
+<TimeChanged>62147,36816.113297</TimeChanged>
 <TimeCreated>61635,40762.36861</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
@@ -36,10 +36,37 @@
 	
 	;Toegelaten om producten te raadplegen?
 	$$$CheckAccess($$$rsProduct,$$$prRead)
-
+	
+	Set Usage = "ALL"
+	Set SubCriteria = ##class(BL.Prod.sub.pxSearchCriteria).%New(Usage)
+	Do SubCriteria.SetDefault()
+	
+	Set SubCriteria.StockType = Criteria.StockType
+	if (Criteria.Actief){
+		Set SubCriteria.Active = $LB("A")
+	}else{
+		Set SubCriteria.Active = $LB("N")
+	}
+	Set SubCriteria.VerifyCustomer = Criteria.KLNr
+	Set SubCriteria.LimitSupplier = Criteria.LevNr
+	Set SubCriteria.SearchTxt = Criteria.Zoek
+	Set SubCriteria.At = Criteria.At
+	Set SubCriteria.Language = Criteria.SubAt
+	
+	//Set SubCriteria.ProductType = $LB("B")
+	
+	Set SubPxSearchFormat = ##class(BL.Prod.sub.pxSearchFormat).%New()
+	Set SubPxSearchFormat.FormatCompact = Criteria.FormatCompact
+	Set SubPxSearchFormat.FormatExpand = Criteria.FormatExpand
+	Set SubPxSearchFormat.LijnMax = Criteria.LijnMax
+	
+	do WL^vhDBG($$ObjToText^vhLib(Criteria))
+	
 	Quit ##class(BL.Sys.Proxy.pxXMLDataSet).CreateQuery(.varDataSet,"BL.Prod.Select:Select",Criteria)
+	
+	///Quit ##class(BL.Sys.Proxy.pxXMLDataSet).CreateQuery(.varDataSet,"BL.Prod.Search:Select",SubCriteria,SubPxSearchFormat)
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="3088437413"/>
+<Checksum value="2890788922"/>
 </Export>
Index: WS/Web/OLParticulier/OrgaluxProductGamma.cls.xml
===================================================================
diff -u -r734 -r913
--- WS/Web/OLParticulier/OrgaluxProductGamma.cls.xml	(.../OrgaluxProductGamma.cls.xml)	(revision 734)
+++ WS/Web/OLParticulier/OrgaluxProductGamma.cls.xml	(.../OrgaluxProductGamma.cls.xml)	(revision 913)
@@ -1,31 +1,13 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-01-27 17:01:16">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-07 15:40:03">
 <Class name="WS.Web.OLParticulier.OrgaluxProductGamma">
 <Import>TECH.Timing</Import>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>WS.WebService</Super>
-<TimeChanged>62118,30685.839091</TimeChanged>
+<TimeChanged>62157,56474.851933</TimeChanged>
 <TimeCreated>61944,50000.995185</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
-<Parameter name="LOCATION">
-<Description>
-URL for invoking the WebService.</Description>
-<Default>http://cache02.vanhoecke.be/vhisie3</Default>
-</Parameter>
-
-<Parameter name="LOCATIONxxCACHE01xxADMIN1">
-<Default>http://cache01.vanhoecke.be/vhisie3</Default>
-</Parameter>
-
-<Parameter name="LOCATIONxxCACHE02xxDEVADMIN1">
-<Default>http://cache02.vanhoecke.be/vhisie3</Default>
-</Parameter>
-
-<Parameter name="LOCATIONxxCACHE02xxTSTADMIN1">
-<Default>http://cache02.vanhoecke.be/csp/tst-admin1</Default>
-</Parameter>
-
 <Parameter name="SERVICENAME">
 <Description>
 Name of the WebService.</Description>
@@ -57,6 +39,8 @@
 
 	$$$LogIncomming(WS.Web.OLParticulier.impl.Logger,GetToepassingen)
 	
+	set x =  1 / 0
+	
 	Set OLGamma = ..GetOrgaluxProductGamma(Sessie)	
 	
 	set dtoResult = OLGamma.GetToepassingen(.MeubelToepassing,.Zone,1)   ; Extra parameter: blnAddItemALLES=1 
@@ -173,6 +157,7 @@
 	;Do ##class(TimerUtils).Stop()
 	
 	;Do ##class(TimerUtils).Start("ZoekProductGroepen")
+	Do WLIP^vhDBG(127,"Zoek : "_Zoekterm)
 	set dtoResult = OLGamma.ZoekProductGroepen(.ProductCriteria,.Zoekterm,.LadeSpec,.ZoektermCategorie)
 	;Do ##class(TimerUtils).Stop()
 	
@@ -209,6 +194,8 @@
 	
 	$$$LogOutgoing(WS.Web.OLParticulier.impl.Logger,ZoekProductGroepInhoud,dtoResult)
 	
+	$$$TECHErrorTrapOff
+	
 	Quit dtoResult
 ]]></Implementation>
 </Method>
@@ -225,5 +212,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="1859923907"/>
+<Checksum value="1725303570"/>
 </Export>
Index: WS/Derde/Agenda/AgendaServer.cls.xml
===================================================================
diff -u -r734 -r913
--- WS/Derde/Agenda/AgendaServer.cls.xml	(.../AgendaServer.cls.xml)	(revision 734)
+++ WS/Derde/Agenda/AgendaServer.cls.xml	(.../AgendaServer.cls.xml)	(revision 913)
@@ -1,10 +1,10 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-01-27 17:01:13">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-23 08:43:38">
 <Class name="WS.Derde.Agenda.AgendaServer">
 <IncludeCode>BL.EC.Common</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%SOAP.WebService</Super>
-<TimeChanged>62105,51086.824451</TimeChanged>
+<TimeChanged>62145,31480.447439</TimeChanged>
 <TimeCreated>59771,30227.507488</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
@@ -14,15 +14,8 @@
 <Default>Derde.Agenda</Default>
 </Parameter>
 
-<Parameter name="LOCATION">
-<Description>
-URL for invoking the WebService.</Description>
-<Default>http://cache02.vanhoecke.be/vhisie3</Default>
-</Parameter>
-
 <Parameter name="NAMESPACE">
 <Description>
-TODO: change this to actual SOAP namespace.
 SOAP Namespace for the WebService</Description>
 <Default>http://vhisie.vanhoecke.be/V3</Default>
 </Parameter>
@@ -660,5 +653,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="1178623151"/>
+<Checksum value="4009018278"/>
 </Export>
Index: WS/Web/OLParticulier/dto/Sessie.cls.xml
===================================================================
diff -u -r734 -r913
--- WS/Web/OLParticulier/dto/Sessie.cls.xml	(.../Sessie.cls.xml)	(revision 734)
+++ WS/Web/OLParticulier/dto/Sessie.cls.xml	(.../Sessie.cls.xml)	(revision 913)
@@ -1,11 +1,11 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-01-27 17:01:16">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-15 13:48:05">
 <Class name="WS.Web.OLParticulier.dto.Sessie">
 <Description>
 Verzorgt de mapping van sessie-ID op de relevante informatie die de context bepaalt, zoals de taal van de gebruiker.</Description>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject,%XML.Adaptor</Super>
-<TimeChanged>61971,49501.866677</TimeChanged>
+<TimeChanged>62137,49741.140546</TimeChanged>
 <TimeCreated>61947,47947.614331</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
@@ -37,6 +37,10 @@
 <Type>WS.Web.OLParticulier.enu.Website</Type>
 <Required>1</Required>
 </Property>
+
+<Property name="ToonVertaalSleutels">
+<Type>%Boolean</Type>
+</Property>
 </Class>
-<Checksum value="2021813598"/>
+<Checksum value="1733973786"/>
 </Export>
Index: WS/Info/Agenda.cls.xml
===================================================================
diff -u
--- WS/Info/Agenda.cls.xml	(revision 0)
+++ WS/Info/Agenda.cls.xml	(revision 913)
@@ -0,0 +1,55 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-09 17:26:26">
+<Class name="WS.Info.Agenda">
+<Description>
+JBL + 2011-02-09
+Agenda info </Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%SOAP.WebService</Super>
+<TimeChanged>62131,62835.507189</TimeChanged>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="LOCATION">
+<Default>http://cache02/csp/admin1</Default>
+</Parameter>
+
+<Parameter name="LOCATIONxxCACHE01xxADMIN1">
+<Default>http://cache01/csp/admin1</Default>
+</Parameter>
+
+<Parameter name="LOCATIONxxCACHE02xxDEVADMIN1">
+<Default>http://cache02/csp/admin1</Default>
+</Parameter>
+
+<Parameter name="LOCATIONxxCACHE02xxTSTADMIN1">
+<Default>http://cache02/csp/tst-admin1</Default>
+</Parameter>
+
+<Parameter name="SERVICENAME">
+<Default>InfoAgenda</Default>
+</Parameter>
+
+<Parameter name="NAMESPACE">
+<Default>http://tempuri.org/</Default>
+</Parameter>
+
+<Parameter name="USECLASSNAMESPACES">
+<Default>1</Default>
+</Parameter>
+
+<Method name="IsArbeidsdag">
+<Description>
+Nagaan of de opgegeven dat een arbeidsdag is
+s o=##class(WS.Info.Agenda).IsArbeidsdag($h)</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Horolog:%Integer</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[
+	Set IsArbeidsdag = $$ISARBDAG^vhRtn2(Horolog)
+	Quit IsArbeidsdag
+]]></Implementation>
+</Method>
+</Class>
+<Checksum value="2667266454"/>
+</Export>
Index: WS/CRM/Interacties.cls.xml
===================================================================
diff -u -r734 -r913
--- WS/CRM/Interacties.cls.xml	(.../Interacties.cls.xml)	(revision 734)
+++ WS/CRM/Interacties.cls.xml	(.../Interacties.cls.xml)	(revision 913)
@@ -1,10 +1,10 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-01-27 17:01:13">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-23 08:43:28">
 <Class name="WS.CRM.Interacties">
 <IncludeCode>BL.EC.Common</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>WS.WebService</Super>
-<TimeChanged>62105,51126.145485</TimeChanged>
+<TimeChanged>62145,31470.53666</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Parameter name="SERVICENAME">
@@ -13,15 +13,8 @@
 <Default>CRM.Interacties</Default>
 </Parameter>
 
-<Parameter name="LOCATION">
-<Description>
-URL for invoking the WebService.</Description>
-<Default>http://cache02.vanhoecke.be/vhisie3</Default>
-</Parameter>
-
 <Parameter name="NAMESPACE">
 <Description>
-TODO: change this to actual SOAP namespace.
 SOAP Namespace for the WebService</Description>
 <Default>http://vhisie.vanhoecke.be/V3</Default>
 </Parameter>
@@ -138,5 +131,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="3191428605"/>
+<Checksum value="3753181210"/>
 </Export>
Index: WS/Halux/Planning/Planningstool.cls.xml
===================================================================
diff -u
--- WS/Halux/Planning/Planningstool.cls.xml	(revision 0)
+++ WS/Halux/Planning/Planningstool.cls.xml	(revision 913)
@@ -0,0 +1,69 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-08 16:45:04">
+<Class name="WS.Halux.Planning.Planningstool">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>WS.WebService</Super>
+<TimeChanged>62158,60303.558611</TimeChanged>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="SERVICENAME">
+<Description>
+Name of the WebService.</Description>
+<Default>Planningstool</Default>
+</Parameter>
+
+<Parameter name="NAMESPACE">
+<Default>http://www.vanhoecke.be/</Default>
+</Parameter>
+
+<Method name="GeefPlanningDetail">
+<FormalSpec>Datum:%Date,Categorie:APPS.Halux.Planning.enu.Categorie</FormalSpec>
+<ReturnType>TECH.XMLDataSet</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[	Quit ##class(APPS.Halux.Planning.PlanningService).%New().GeefPlanningDetail(Datum, Categorie)
+]]></Implementation>
+</Method>
+
+<Method name="GeefPlanningOverzicht">
+<FormalSpec>Van:%Date,Tot:%Date</FormalSpec>
+<ReturnType>TECH.XMLDataSet</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[
+	$$$TECHErrorTrapOn	
+	Quit ##class(APPS.Halux.Planning.PlanningService).%New().GeefPlanningOverzicht(Van, Tot)
+]]></Implementation>
+</Method>
+
+<Method name="GeefInstellingen">
+<ReturnType>APPS.Halux.Planning.dto.ApplicatieInstellingen</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[	Quit ##class(APPS.Halux.Planning.PlanningService).%New().GeefInstellingen()
+]]></Implementation>
+</Method>
+
+<Method name="VerplaatsToeleveringen">
+<FormalSpec>Gebruiker:%String,Opmerking:%String,Datum:%Date,ToeleveringNummers:%ListOfDataTypes</FormalSpec>
+<ReturnType>APPS.Halux.Planning.dto.VerplaatsToeleveringenResultaat</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[	Quit ##class(APPS.Halux.Planning.PlanningService).%New().VerplaatsToeleveringen(Gebruiker, Opmerking, Datum, ToeleveringNummers)
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderLaatsteVerplaatsing">
+<FormalSpec>ToeleveringsNummer:%Integer</FormalSpec>
+<ReturnType>APPS.Halux.Planning.dto.VerplaatsToeleveringenResultaat</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[	Quit ##class(APPS.Halux.Planning.PlanningService).%New().VerwijderLaatsteVerplaatsing(ToeleveringsNummer)
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderAlleVerplaatsingen">
+<FormalSpec>ToeleveringsNummer:%Integer</FormalSpec>
+<ReturnType>APPS.Halux.Planning.dto.VerplaatsToeleveringenResultaat</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[	Quit ##class(APPS.Halux.Planning.PlanningService).%New().VerwijderAlleVerplaatsingen(ToeleveringsNummer)
+]]></Implementation>
+</Method>
+</Class>
+<Checksum value="3191493608"/>
+</Export>
Index: WS/PM/ProductService.cls.xml
===================================================================
diff -u
--- WS/PM/ProductService.cls.xml	(revision 0)
+++ WS/PM/ProductService.cls.xml	(revision 913)
@@ -0,0 +1,39 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-07 14:22:34">
+<Class name="WS.PM.ProductService">
+<Description>
+JBL + 2011-03-03</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%SOAP.WebService</Super>
+<TimeChanged>62157,51826.584939</TimeChanged>
+<ClassDefinitionError>1</ClassDefinitionError>
+
+<Parameter name="SERVICENAME">
+<Default>APPS.PM.ProductService</Default>
+</Parameter>
+
+<Parameter name="NAMESPACE">
+<Default>http://vanhoecke.be</Default>
+</Parameter>
+
+<Method name="Select">
+<Description>
+Geef gegeven de criteria een lijst terug met producten (Prod.Product)</Description>
+<FormalSpec>Criteria:APPS.PM.dto.SelectCriteria</FormalSpec>
+<ReturnType>APPS.PM.dto.ProductZoekResultaatList</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[	Quit ##class(APPS.PM.ProductService).%New().Select(Criteria)
+]]></Implementation>
+</Method>
+
+<Method name="GeefClassificatieStructuur">
+<Description>
+De klassificatiestructuur voor producten terug geven in een boomstructuur.</Description>
+<ReturnType>APPS.PM.dto.Classificatie</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[	Quit ##class(APPS.PM.ProductService).%New().GeefClassificatieStructuur()
+]]></Implementation>
+</Method>
+</Class>
+<Checksum value="670016902"/>
+</Export>
Index: WS/Web/OLParticulier/impl/Sessie2OLGammaContext.cls.xml
===================================================================
diff -u -r734 -r913
--- WS/Web/OLParticulier/impl/Sessie2OLGammaContext.cls.xml	(.../Sessie2OLGammaContext.cls.xml)	(revision 734)
+++ WS/Web/OLParticulier/impl/Sessie2OLGammaContext.cls.xml	(.../Sessie2OLGammaContext.cls.xml)	(revision 913)
@@ -1,12 +1,12 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-01-27 17:01:16">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-17 11:02:08">
 <Class name="WS.Web.OLParticulier.impl.Sessie2OLGammaContext">
 <Description>
 Conversie van Sesie gegevens naar Context voor OL.Gamma</Description>
 <IncludeCode>BL.Derde.KlantSpecifiek</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>DOM.PM.OL.Gamma.Context</Super>
-<TimeChanged>62013,37203.574791</TimeChanged>
+<TimeChanged>62139,39785.553887</TimeChanged>
 <TimeCreated>61944,51413.724252</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
@@ -19,8 +19,11 @@
 	
 	Set Context=..Instance()
 	
-	Do Context.Init(Sessie.Taal,Sessie.Regio,..GetKlant(Sessie),..GetWebsite(Sessie))
+	Set Taal = Sessie.Taal
+	If (Sessie.ToonVertaalSleutels) Set Taal = "ToonVertaalSleutel"
 	
+	Do Context.Init(Taal,Sessie.Regio,..GetKlant(Sessie),..GetWebsite(Sessie))
+	
 	Set Context.Munt = ..GetMunt(Sessie)
 	
 	Quit Context
@@ -85,5 +88,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="2955902508"/>
+<Checksum value="656780436"/>
 </Export>
Index: WS/EC/ProductServer.cls.xml
===================================================================
diff -u -r734 -r913
--- WS/EC/ProductServer.cls.xml	(.../ProductServer.cls.xml)	(revision 734)
+++ WS/EC/ProductServer.cls.xml	(.../ProductServer.cls.xml)	(revision 913)
@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-01-27 17:01:14">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-07 14:20:49">
 <Class name="WS.EC.ProductServer">
 <Description><![CDATA[
 VHISIE - ECommerce<br>
@@ -11,7 +11,7 @@
 <IncludeCode>BL.EC.Common</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%SOAP.WebService</Super>
-<TimeChanged>60908,48592.669555</TimeChanged>
+<TimeChanged>62157,51721.021869</TimeChanged>
 <TimeCreated>60207,60267.582459</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
@@ -126,7 +126,6 @@
 	;$$$WebServiceTrap
 	$$$ReInstateSession(SessionKey)
 	$$$ControleToegang($$$tgProductTree,"Get","")
-
 	$$$blProduct
 	Quit %blProduct.InternTreeStructure()
 ]]></Implementation>
@@ -162,5 +161,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="1221575931"/>
+<Checksum value="2271208397"/>
 </Export>
Index: WS/Web/OLParticulier/enu/Taal.cls.xml
===================================================================
diff -u -r734 -r913
--- WS/Web/OLParticulier/enu/Taal.cls.xml	(.../Taal.cls.xml)	(revision 734)
+++ WS/Web/OLParticulier/enu/Taal.cls.xml	(.../Taal.cls.xml)	(revision 913)
@@ -1,10 +1,10 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-01-27 17:01:16">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-15 13:47:08">
 <Class name="WS.Web.OLParticulier.enu.Taal">
 <ClassType>datatype</ClassType>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>%String</Super>
-<TimeChanged>61971,49560.038305</TimeChanged>
+<Super>TECH.Enumeration</Super>
+<TimeChanged>62137,49683.800998</TimeChanged>
 <TimeCreated>61947,47906.246416</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
@@ -36,5 +36,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="2265034541"/>
+<Checksum value="2711861370"/>
 </Export>
Index: WS/PM/KenmerkenService.cls.xml
===================================================================
diff -u
--- WS/PM/KenmerkenService.cls.xml	(revision 0)
+++ WS/PM/KenmerkenService.cls.xml	(revision 913)
@@ -0,0 +1,51 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-03 13:10:02">
+<Class name="WS.PM.KenmerkenService">
+<Description>
+JBL + 2011-03-03</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%SOAP.WebService</Super>
+<TimeChanged>62153,47470.559241</TimeChanged>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="SERVICENAME">
+<Default>APPS.PM.KenmerkenService</Default>
+</Parameter>
+
+<Parameter name="NAMESPACE">
+<Default>http://tempuri.org</Default>
+</Parameter>
+
+<Parameter name="VeldBreedteInTekens">
+<Description>
+2011-03-02 : JBL : Deze ingestelde VeldBreedteInTekens is een tijdelijke oplossing. Later moet dit als data worden opgeslaan.</Description>
+<Type>%Integer</Type>
+<Default>15</Default>
+</Parameter>
+
+<Method name="GeefProductKenmerken">
+<Description>
+ Zoek productkenmerken aan de hand van de opgegeven PRNrs en productgroepen.
+ PRNrs = lijst van integers
+ KenmerkGroepen = lijst van strings</Description>
+<FormalSpec>PRNrs:APPS.PM.dto.Kenm.StringList,KenmerkGroepen:APPS.PM.dto.Kenm.StringList</FormalSpec>
+<ReturnType>APPS.PM.dto.Kenm.ProductenKenmerken</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[	Quit ##class(APPS.PM.KenmerkenService).%New().GeefProductKenmerken(PRNrs,KenmerkGroepen)
+]]></Implementation>
+</Method>
+
+<Method name="GeefMetadata">
+<Description>
+ Zoek metadata aan de hand van de opgegeven kenmerkengroepen.
+ KenmerkGroepen = lijst van strings</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>KenmerkGroepen:APPS.PM.dto.Kenm.StringList</FormalSpec>
+<ReturnType>APPS.PM.dto.Kenm.KenmerkMetadataList</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[	Quit ##class(APPS.PM.KenmerkenService).%New().GeefMetadata(KenmerkGroepen)
+]]></Implementation>
+</Method>
+</Class>
+<Checksum value="3245806090"/>
+</Export>
Index: WS/Web/OLParticulier/LadeSelector.cls.xml
===================================================================
diff -u -r734 -r913
--- WS/Web/OLParticulier/LadeSelector.cls.xml	(.../LadeSelector.cls.xml)	(revision 734)
+++ WS/Web/OLParticulier/LadeSelector.cls.xml	(.../LadeSelector.cls.xml)	(revision 913)
@@ -1,30 +1,12 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-01-27 17:01:16">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-08 14:25:01">
 <Class name="WS.Web.OLParticulier.LadeSelector">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>WS.WebService,TECH.Error.ErrorAdaptor</Super>
-<TimeChanged>62069,41939.745979</TimeChanged>
+<TimeChanged>62158,51900.783445</TimeChanged>
 <TimeCreated>61944,49997.592179</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
-<Parameter name="LOCATION">
-<Description>
-URL for invoking the WebService.</Description>
-<Default>http://cache02.vanhoecke.be/vhisie3</Default>
-</Parameter>
-
-<Parameter name="LOCATIONxxCACHE01xxADMIN1">
-<Default>http://cache01.vanhoecke.be/vhisie3</Default>
-</Parameter>
-
-<Parameter name="LOCATIONxxCACHE02xxDEVADMIN1">
-<Default>http://cache02.vanhoecke.be/vhisie3</Default>
-</Parameter>
-
-<Parameter name="LOCATIONxxCACHE02xxTSTADMIN1">
-<Default>http://cache02.vanhoecke.be/csp/tst-admin1</Default>
-</Parameter>
-
 <Parameter name="SERVICENAME">
 <Description>
 Name of the WebService.</Description>
@@ -48,6 +30,8 @@
 	Set LadeTypeLijst=appsLadeSelector.BepaalLadeTypesVoorAfmetingen(Afmetingen) 
 
 	$$$LogOutgoing(WS.Web.OLParticulier.impl.Logger,BepaalLadeTypesVoorAfmetingen,LadeTypeLijst)
+	
+	$$$LocalErrorTrapOff
 
 	Quit LadeTypeLijst
 ]]></Implementation>
@@ -67,6 +51,8 @@
 
 	$$$LogOutgoing(WS.Web.OLParticulier.impl.Logger,BepaalLadeTypesProfAfmetingen,LadeTypeLijst)
 
+	$$$LocalErrorTrapOff
+	
 	Quit LadeTypeLijst
 ]]></Implementation>
 </Method>
@@ -87,6 +73,8 @@
 
 	$$$LogOutgoing(WS.Web.OLParticulier.impl.Logger,GeefLadeKleurenVoorType,KleurenLijst)
 	
+	$$$LocalErrorTrapOff
+	
 	Quit KleurenLijst
 ]]></Implementation>
 </Method>
@@ -106,6 +94,8 @@
 	Set Binnenlade=appsLadeSelector.GeefOvereenkomstigeBinnenLade(Buitenlade) 
 	
 	$$$LogOutgoing(WS.Web.OLParticulier.impl.Logger,GeefOvereenkomstigeBinnenLade,Binnenlade)
+	
+	$$$LocalErrorTrapOff
 
 	Quit Binnenlade
 ]]></Implementation>
@@ -125,6 +115,8 @@
 
 	$$$LogOutgoing(WS.Web.OLParticulier.impl.Logger,GeefAfmetingConstraints,Constraints)
 	
+	$$$LocalErrorTrapOff
+	
 	Quit Constraints
 ]]></Implementation>
 </Method>
@@ -142,6 +134,8 @@
 	Set Constraints = appsLadeSelector.GeefProfAfmetingConstraints()
 
 	$$$LogOutgoing(WS.Web.OLParticulier.impl.Logger,GeefProfAfmetingConstraints,Constraints)
+	
+	$$$LocalErrorTrapOff
 	Quit Constraints
 ]]></Implementation>
 </Method>
@@ -160,6 +154,8 @@
 	
 	$$$LogOutgoing(WS.Web.OLParticulier.impl.Logger,GeefLadeSpecificatie,LadeSpecificatie)
 	
+	$$$LocalErrorTrapOff
+	
 	Quit LadeSpecificatie
 ]]></Implementation>
 </Method>
@@ -178,6 +174,8 @@
 	
 	$$$LogOutgoing(WS.Web.OLParticulier.impl.Logger,GeefBijhorendeLaden,LadeBeschrijvingLijst)
 	
+	$$$LocalErrorTrapOff
+	
 	Quit LadeBeschrijvingLijst
 ]]></Implementation>
 </Method>
@@ -197,5 +195,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="1633423700"/>
+<Checksum value="1040293766"/>
 </Export>
Index: WS/PPS/TBX/Server.cls.xml
===================================================================
diff -u -r734 -r913
--- WS/PPS/TBX/Server.cls.xml	(.../Server.cls.xml)	(revision 734)
+++ WS/PPS/TBX/Server.cls.xml	(.../Server.cls.xml)	(revision 913)
@@ -1,13 +1,13 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-01-27 17:01:14">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-03 11:28:58">
 <Class name="WS.PPS.TBX.Server">
 <Description><![CDATA[
 <b>OptiBox : Box cutting optimization</b>
 <br>The methods gets called from the Optimizer (server) to the Caché clients]]></Description>
 <IncludeCode>BL.Prod.OptiBox,BL.Sys.Toegang,BL.Sys.Proxy,BL.Sys.Resources</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%SOAP.WebService</Super>
-<TimeChanged>62117,34094.024961</TimeChanged>
+<TimeChanged>62125,41383.799453</TimeChanged>
 <TimeCreated>60207,60267.626363</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
@@ -134,7 +134,7 @@
 	Set QueueObject=##class(DS.PPS.TBX.Queue).%OpenId(QueueID)
 	Quit:'$isObject(QueueObject) $$$pxStatusErrorEx("Kan queue-object niet openen.","QueueID: "_QueueID)
 	
-	Set LadeGeproduceerdEventData = ##class(TECH.Events.LadeGeproduceerdEventData).%New(QueueObject.TOENr,QueueObject.TLUNr,QueueObject.Product.ProductNr,QueueObject.BatchID,Redo)
+	Set LadeGeproduceerdEventData = ##class(TECH.Events.LadeGeproduceerdEventData).%New(QueueObject.TOENr,QueueObject.TLUNr,QueueObject.Product.ProductNr,QueueObject.BatchID,QueueObject.Sequence,Redo)
 	Set LadeGeproduceerdEvent = ##class(TECH.Events.LadeGeproduceerdEvent).%New(LadeGeproduceerdEventData)
 	Do ##class(TECH.PubSub.OrchestrationContext).GetEventRaiser().RaiseEventAsync(LadeGeproduceerdEvent)
 	
@@ -175,5 +175,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="3930633567"/>
+<Checksum value="3007693973"/>
 </Export>