Index: WS/Halux/PPS/LadeCodeServer.cls.xml
===================================================================
diff -u -r64191 -r73090
--- WS/Halux/PPS/LadeCodeServer.cls.xml	(.../LadeCodeServer.cls.xml)	(revision 64191)
+++ WS/Halux/PPS/LadeCodeServer.cls.xml	(.../LadeCodeServer.cls.xml)	(revision 73090)
@@ -2,8 +2,8 @@
 <Export generator="Cache" version="24">
 <Class name="WS.Halux.PPS.LadeCodeServer">
 <Description><![CDATA[
-<b>Halux TBX ladepers</b>
-<br>Deze webmethod worden opgeroepen door de .NET application welke draait op de Beckoff PLC van de ladepers]]></Description>
+Registratie van de een unieke lade code voor een lade, te gebruiken om later de lade te herkennen voor Orgalux
+<br/>De method RegistreerViaQueueID wordt opgeroepen vanaf Halux ladepers (.NET application welke draait op de Beckoff PLC van de ladepers)]]></Description>
 <ClassType/>
 <IncludeCode>BL.Sys.Toegang,BL.Sys.Proxy,BL.Sys.Resources,TECH.Error</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
@@ -35,7 +35,7 @@
 <br/>- voor TAX een VerwerkingID (2D-Barcode op een productieetiket)
 <br/>RegistratieCode is de barcode die op de lade gekleeft wordt
 <br/>De returnvalue is eventueel een foutboodschap, indien leeg dan is er geen fout]]></Description>
-<FormalSpec>Werkpost:%String,ID:%Integer,RegistratieCode:TECH.String</FormalSpec>
+<FormalSpec>Werkpost:%String,ID:%Integer,RegistratieCode:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
@@ -54,22 +54,22 @@
 <br/>- kan het formaat hebben XXXX waar XXXX staat voor de eigelijke dossiercode via de werkpost wordt dan bepaald tot welke familie het behoord
 <br/>RegistratieCode is de barcode die op de lade gekleeft wordt
 <br/>De returnvalue is eventueel een foutboodschap, indien leeg dan is er geen fout]]></Description>
-<FormalSpec>Werkpost:%String,DossierCode:%String,RegistratieCode:TECH.String</FormalSpec>
+<FormalSpec>Werkpost:%String,DossierCode:%String,RegistratieCode:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
 	;$$$TECHErrorTrapOn
-	Do ..BepaalDataOphaler(Werkpost)
+	Do ..BepaalDataOphaler(Werkpost, DossierCode)
 	Quit ..iDataOphaler.Registreer("D",DossierCode,RegistratieCode)
 ]]></Implementation>
 </Method>
 
 <Method name="BepaalDataOphaler">
-<FormalSpec>Werkpost:APPS.Halux.common.enu.Werkpost</FormalSpec>
+<FormalSpec>Werkpost:APPS.Halux.common.enu.Werkpost,Code:%String=""</FormalSpec>
 <Private>1</Private>
 <ReturnType>APPS.VKP.Maatwerk.LadeRegistratie.impl.IDataOphaler</ReturnType>
 <Implementation><![CDATA[
-	If ($$$StartsWith(Werkpost,"LP"))||($$$StartsWith(Werkpost,"LB")) {
+	If (($$$StartsWith(Werkpost,"LP"))||($$$StartsWith(Werkpost,"LB"))||(Werkpost?1N) || (($$$StartsWith(Werkpost,"P1")) && ($$$StartsWith(Code,"L")))) {
 		Set ..iDataOphaler=##class(APPS.VKP.Maatwerk.LadeRegistratie.impl.LBXDataOphaler).%New(Werkpost)
 	} ElseIf $$$StartsWith(Werkpost,"TA"){
 		Set ..iDataOphaler=##class(APPS.VKP.Maatwerk.LadeRegistratie.impl.TAXDataOphaler).%New(Werkpost)