Index: EWORDST.mac.rou
===================================================================
diff -u -r67053 -r67289
--- EWORDST.mac.rou	(.../EWORDST.mac.rou)	(revision 67053)
+++ EWORDST.mac.rou	(.../EWORDST.mac.rou)	(revision 67289)
@@ -328,6 +328,7 @@
  ;
 SHOWVERW(CONSNr) 
  Do SHOWVERW^EWORDST2(CONSNr)
+ Do ShowObjtLPN^EWORDST2(CONSNr)
  Quit
  ;
 SHOWSEL 
@@ -473,7 +474,7 @@
  .Set Status=##class(OBJTimpl.WMSOrder.OphalenOrderInOBJT).%New().GeefStatusVertaald(CONSNr)
  .If Status="Niet in OBJT" Set R=1 Quit
  .If Status="Geannuleerd" Set R=1 Quit
- .Set:Status="Gealloceerd" R=$$^vhTXTPOP("EWORDST","DELOBJT","",$$EXTNUM^vhLib.DataTypes(CONSNr,0,".",0),Status)
+ .Set:(Status="Gealloceerd")||(Status="Niet actief") R=$$^vhTXTPOP("EWORDST","DELOBJT","",$$EXTNUM^vhLib.DataTypes(CONSNr,0,".",0),Status)
  .Set:Status'="Gealloceerd" R=$$^vhTXTPOP("EWORDST","DELOBJTNODEL","",$$EXTNUM^vhLib.DataTypes(CONSNr,0,".",0),Status)
 
  If $L($P(R,D,20)),$P(R,D,20)'="W",$P(R,D,20)'="K" Quit  ; Alleen indien nog niets verwerkt door WMS
Index: OBJTimpl/WMSOrder/ImporteerVoorraadNiveau.cls.xml
===================================================================
diff -u -r67052 -r67289
--- OBJTimpl/WMSOrder/ImporteerVoorraadNiveau.cls.xml	(.../ImporteerVoorraadNiveau.cls.xml)	(revision 67052)
+++ OBJTimpl/WMSOrder/ImporteerVoorraadNiveau.cls.xml	(.../ImporteerVoorraadNiveau.cls.xml)	(revision 67289)
@@ -5,12 +5,17 @@
 Verwerken van de door OBJT gegenereerde voorraadlijst.
 Eerst wordt de voorraad uit de lijst verwerkt 
 en daarna wordt voor de niet doorgegeven producten de voorraad op nul gezet</Description>
+<IncludeCode>Prod.Product</IncludeCode>
 <Super>TECH.RegisteredObject</Super>
 
 <Property name="pxVoorraad">
 <Type>dtoCorrelateVoorraadNiveau</Type>
 </Property>
 
+<Property name="Logger">
+<Type>vhLib.Logger</Type>
+</Property>
+
 <Property name="CheckOBJTFase">
 <Type>OBJTimpl.CheckObjectiveFase</Type>
 <Private>1</Private>
@@ -25,16 +30,29 @@
 	Do ##class(dtoCorrelateVoorraadNiveau).%KillExtent()
 	Kill ^||OBJTVoorraad
 	Set ..CheckOBJTFase=##class(OBJTimpl.CheckObjectiveFase).%New()
+	Set ..Logger = ##class(vhLib.Logger).%New("OBJT_WMS")
+
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
+<Method name="test">
+<Description>
+d ##class(OBJTimpl.WMSOrder.ImporteerVoorraadNiveau).%New().test()</Description>
+<Implementation><![CDATA[
+	set ..pxVoorraad=##class(dtoCorrelateVoorraadNiveau).%New()
+	set ..pxVoorraad.Aantal=415
+	set ..pxVoorraad.Entiteit="VHBE"
+	set ..pxVoorraad.ItemId="0.144.866.3"
+	Do ..VerwerkVoorraad()
+]]></Implementation>
+</Method>
+
 <Method name="Verwerk">
 <FormalSpec>XMLreader:%XML.Reader</FormalSpec>
 <Implementation><![CDATA[
 	Do ..VerwerkBestand(XMLreader)
-	;Do ..VerwerkOntbrekendeVoorraden()
-	;zw ^||OBJTVoorraad
+	Do ..VerwerkOntbrekendeVoorraden()
 ]]></Implementation>
 </Method>
 
@@ -50,7 +68,10 @@
 		If $$$ISOK(sc)
 		{	
 			Set ..pxVoorraad=pxVoorraad
+
 			Set ..pxVoorraad.Entiteit=$zutil(..pxVoorraad.Entiteit,"U")
+			Set:..pxVoorraad.Entiteit=-1 ..pxVoorraad.Entiteit="VHBE"
+			
 			Do ..VerwerkVoorraad()
 		}
 	}
@@ -60,37 +81,35 @@
 <Method name="VerwerkVoorraad">
 <Implementation><![CDATA[
 	#dim rs as %ResultSet
-	;Do ..BepaalPRNr()
 	Set itVerdeler=##class(OBJTimpl.WMSOrder.VerdeelSOPRVoorraad).%New(..pxVoorraad.Entiteit,..pxVoorraad.ItemId)
-	;Do ..BepaalGeldig()
 	;w !,..pxVoorraad.Entiteit,"  ",..pxVoorraad.ItemId
 	Set ..pxVoorraad.AantalAdmin=itVerdeler.GeefOudeVoorraad()
 	If ..pxVoorraad.Aantal'=..pxVoorraad.AantalAdmin
 	{
 		;Write " = ",..pxVoorraad.Aantal," <-> ", ..pxVoorraad.AantalAdmin
 		Do itVerdeler.Verdeelvoorraad(..pxVoorraad.Aantal-..pxVoorraad.AantalAdmin,"N","OBJT nachtelijk sync")
 	}
+	Do ..MarkeerVerwerkteProducten()
 ]]></Implementation>
 </Method>
 
-<Method name="BepaalGeldig">
+<Method name="MarkeerVerwerkteProducten">
 <Implementation><![CDATA[
-	Set:..pxVoorraad.Entiteit="" ..pxVoorraad.Fout="Entiteit niet ingevuld"
-	Set:..pxVoorraad.PRNr="" ..pxVoorraad.Fout="Onbekend product"
-	If (..pxVoorraad.Fout="") && ('..CheckOBJTFase.VoorraadSync(..pxVoorraad.PRNr,..pxVoorraad.Entiteit))
+	#dim rs as %ResultSet=##class(OBJTimpl.PM.OBJTIdentNrMappingRepository).%New().GeefAdminItemIDs(..pxVoorraad.ItemId)
+	#dim it as TECH.ResultSetIterator = ##class(TECH.ResultSetIterator).%New(rs)
+
+	While it.HasNext()
 	{
-		Set ..pxVoorraad.Fout="Sync niet toegelaten. Fase:"_..CheckOBJTFase.GeefFase()
+		Set rs=it.Next()
+		Set PRNr=rs.Data("Product")
+		If PRNr
+		{
+			Set ^||OBJTVoorraad(PRNr,..pxVoorraad.Entiteit)=""
+		}
 	}
 ]]></Implementation>
 </Method>
 
-<Method name="BepaalPRNr">
-<Implementation><![CDATA[
-	Quit:..pxVoorraad.ItemId="" ""
-	Set ..pxVoorraad.PRNr=$P($G(^KPR2($TR(..pxVoorraad.ItemId,".")_" ")),"\")
-]]></Implementation>
-</Method>
-
 <Method name="VerwerkOntbrekendeVoorraden">
 <Implementation><![CDATA[
 
@@ -100,25 +119,38 @@
 		; HLX Werkvloer
 		Set AdminVoorraad=$P(^PRSTOCK("D",PRNr),"\",5)
 		Set Entiteit="HLX"
-		If (+AdminVoorraad'=0) && ..CheckOBJTFase.VoorraadSync(PRNr,Entiteit) && '$D(^||OBJTVoorraad(PRNr,Entiteit))
+		If $D(^KPR(PRNr)) && (+AdminVoorraad'=0) && ..CheckOBJTFase.VoorraadSync(PRNr,Entiteit) && '$D(^||OBJTVoorraad(PRNr,Entiteit)) && ($$$PRGet($$$LinkType)'="S")
 		{
  			Do ##class(vhLib.Logger).%New("OBJT_WMS").Warning("Voorraadniveau op nul gezet","PRNr:"_PRNr_" Entiteit:"_Entiteit_" Oud:"_AdminVoorraad) 
-			;Do ..WijzigVoorraad(Entiteit,PRNr,AdminVoorraad,0)
+			Do ..ZetVoorraadOpNul(Entiteit,PRNr,-AdminVoorraad)
 		}
 		
 		; VHBE Fysieke voorraad
 		Set AdminVoorraad=$P(^PRSTOCK("D",PRNr),"\",1)
 		Set Entiteit="VHBE"
-		If (+AdminVoorraad'=0) && ..CheckOBJTFase.VoorraadSync(PRNr,Entiteit) && '$D(^||OBJTVoorraad(PRNr,Entiteit))
+		If $D(^KPR(PRNr)) && (+AdminVoorraad'=0) && ..CheckOBJTFase.VoorraadSync(PRNr,Entiteit) && '$D(^||OBJTVoorraad(PRNr,Entiteit)) && ($$$PRGet($$$LinkType)'="S")
 		{
- 			Do ##class(vhLib.Logger).%New("OBJT_WMS").Warning("Voorraadniveau op nul gezet","PRNr:"_PRNr_" Entiteit:"_Entiteit_" Oud:"_AdminVoorraad) 
-			;Do ..WijzigVoorraad(Entiteit,PRNr,AdminVoorraad,0)
+ 			Do ##class(vhLib.Logger).%New("OBJT_WMS").Warning("Voorraadniveau op nul gezet","PRNr:"_PRNr_" "_$$$PRGet($$$KortTekst)_" Entiteit:"_Entiteit_" Oud:"_AdminVoorraad) 
+			Do ..ZetVoorraadOpNul(Entiteit,PRNr,-AdminVoorraad)
 		}
 		
 		Set PRNr=$O(^PRSTOCK("D",PRNr))
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="ZetVoorraadOpNul">
+<FormalSpec>Entiteit:%String,PRNr:%String,Voorraadwijziging:%Decimal</FormalSpec>
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[
+	;w !," voorraadwijziging naar nul  ",PRNr," ",$$$PRGet($$$KortTekst)," ",Voorraadwijziging
+	Set Omschrijving="OBJT nachtelijk sync op NUL"
+	Do ##class(vhLib.OldSchool).InitVars()
+	Set CUserId="OBJT"
+ 	;//Do ..Logger.Warning("Voorraadniveau","PRNr:"_PRNr_" Entiteit:"_Entiteit_" Delta:"_Voorraadwijziging_" Oms:"_Omschrijving) 
+	;Do STORE^PRSTOCK($S(Entiteit="HLX":"W",1:"F"),"N",PRNr,Voorraadwijziging,Omschrijving)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: EWPAL.mac.rou
===================================================================
diff -u -r66860 -r67289
--- EWPAL.mac.rou	(.../EWPAL.mac.rou)	(revision 66860)
+++ EWPAL.mac.rou	(.../EWPAL.mac.rou)	(revision 67289)
@@ -604,8 +604,26 @@
  . . If $P(Rec,D,16)="" Do ; geen transloc
  . . . Set $P(Rec,D,16)=$E(100+$P(Rec,D,5),2,3)_" "_$E(100+$P(Rec,D,6),2,3)_" "_$E(100+$P(Rec,D,7),2,3)
  . Set ^HULP(%J,I)=Rec
+  Do FETCHOBJT(PRNr,%J)
+ 
  Quit
  
+FETCHOBJT(PRNr,%J)
+	Set it=##class(OBJTimpl.WMSOrder.OphalenVoorraadOpLocatie).%New().GeefIterator(PRNr)
+	While it.HasNext()
+	{	
+	Set rs=it.Next()
+ 	Set Rec="OBJT"
+ 	Set $P(Rec,D,2)=+rs.Data("QTYONHAND")
+  	Set $P(Rec,D,3)=+rs.Data("QTYALLOCATED")
+  	Set $P(Rec,D,10)=$P($zdth(rs.Data("DTSMODIFICATION"),8),",",1) ; datum
+  	Set $P(Rec,D,11)=$P($zdth(rs.Data("DTSMODIFICATION"),8),",",2) ; tijd
+  
+  	Set $P(Rec,D,16)=$G(rs.Data("LOCATIONID"))
+  	Set:$P(Rec,D,16)="" $P(Rec,D,16)=$G(rs.Data("WAREHOUSE"))_":"_rs.Data("WAREHOUSELOCATION")
+  	Set ^HULP(%J,$O(^HULP(%J,""),-1)+1)=Rec
+	}
+	Quit  
  ;
 COPYOLD ; Copy van het oude EWPAL("D")
  ; Er worden 10 bestanden bijgehouden
Index: EWORDSW.mac.rou
===================================================================
diff -u -r66310 -r67289
--- EWORDSW.mac.rou	(.../EWORDSW.mac.rou)	(revision 66310)
+++ EWORDSW.mac.rou	(.../EWORDSW.mac.rou)	(revision 67289)
@@ -388,7 +388,7 @@
  Set C("DUEOUTTIME")=$P(ConsRec,D,3)
  ;Set:$$DIFFTIME^vhLib.DataTypes($H,C("DUEOUTTIME"))'>0 C("DUEOUTTIME")=($P(C("DUEOUTTIME"),",")-1)_","_$P(C("DUEOUTTIME"),",",2)  ; Bij afhaling de dueout nog vervroegen, hierdoor worden afhalingen die later dan 17:00 worden doorgestuurd toch nog voorgetrokken door EWMS
  Set C("VERZENDW")=$$VerzendWijzeCompact($P(ConsRec,D,2),IsAndereControleWijze)
- Set C("KLNM")=C("VERZENDW")_" "_C("KLNM")
+ ;Set C("KLNM")=C("VERZENDW")_" "_C("KLNM")
  Set VrzZone=$P(ConsRec,D,4)
  Set:VrzZone'?6N VrzZone=$O(^RES("EWORDS","PI","VERZENDZONE","D",""))
  Set C("VERZENDZONE")=VrzZone
@@ -449,9 +449,9 @@
  ; anders te werk gaan qua controle bij dit soort orders.
 VerzendWijzeCompact(VerzendW,IsAndereControleWijze)
  Quit:'$G(IsAndereControleWijze) VerzendW
- Set:$L(VerzendW)=3 $E(VerzendW,2)=""
- Set $E(VerzendW,3)="+" 
- Quit VerzendW
+ ;Set:$L(VerzendW)=3 $E(VerzendW,2)=""
+ ;Set $E(VerzendW,3)="+" 
+ Quit VerzendW _ "+"
  	 	
 HeeftBonAndereControleWijze(CONSNr)
  Quit ($$ISORGAL^FLOWCHK("L",CONSNr) || $$HeeftTAORIndeling^FLOWCHK("L",CONSNr))
Index: OBJTimpl/WMSOrder/OphalenVoorraadOpLocatie.cls.xml
===================================================================
diff -u
--- OBJTimpl/WMSOrder/OphalenVoorraadOpLocatie.cls.xml	(revision 0)
+++ OBJTimpl/WMSOrder/OphalenVoorraadOpLocatie.cls.xml	(revision 67289)
@@ -0,0 +1,127 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="OBJTimpl.WMSOrder.OphalenVoorraadOpLocatie">
+<IncludeCode>Prod.Product</IncludeCode>
+<Super>TECH.RegisteredObject,TECH.Iterator</Super>
+
+<Property name="Converter">
+<Type>AXimpl.Controle.Order.Ax.AxOrderLijnConverter</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ResultSet">
+<Type>TECH.ResultSet</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="SqlQueryConnection">
+<Type>AXimpl.SqlQueryConnection</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ConfigMgr">
+<Type>TECH.Config.ConfigMgr</Type>
+<Private>1</Private>
+</Property>
+
+<UDLText name="T">
+<Content><![CDATA[
+// d ##class(OBJTimpl.WMSOrder.OphalenVoorraadOpLocatie).%New().Test()
+
+]]></Content>
+</UDLText>
+
+<Method name="Test">
+<FormalSpec>PRNr:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set it=..GeefIterator($G(PRNr,1602161))
+	
+	While it.HasNext()
+	{	
+		set rs=it.Next()
+		write rs.Data("WAREHOUSE")," ",rs.Data("QTYONHAND")
+		w !,$zdth(rs.Data("DTSMODIFICATION"),8), "  ",$$INTDATE^vhLib.DataTypes($P(rs.Data("DTSMODIFICATION"),"-",1,3))
+ 		w "  ",$$INTTIME^vhLib.DataTypes($P($P(rs.Data("DTSMODIFICATION"),"-",4),".",1,3))
+
+	}
+]]></Implementation>
+</Method>
+
+<Method name="%OnNew">
+<FormalSpec>ConfigMgr:TECH.Config.ConfigMgr=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..ConfigMgr = $$$Inject(ConfigMgr,##class(TECH.Config.ConfigMgr).Instance())
+	
+	//d ##class(TECH.Config.ConfigMgr).Instance().SetString("OBJTimpl.DatasourceName","OBJT_ACP")
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefIterator">
+<FormalSpec>PRNr:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set OBJTItemId=##class(OBJTimpl.PM.OBJTIdentLookupService).%New().GeefOBJTIdentNr($$$PRGet($$$IdentNummer))
+	;w OBJTItemId,!
+	#Dim ResultSet as %ResultSet = ..GeefResultSet(OBJTItemId)
+	Set Iterator=##class(TECH.ResultSetIterator).%New(ResultSet)
+	Quit Iterator
+]]></Implementation>
+</Method>
+
+<Method name="GeefResultSet">
+<FormalSpec>OBJTItemId:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%ResultSet</ReturnType>
+<Implementation><![CDATA[
+    Set rs=##class(%ResultSet).%New("%DynamicQueryGW:SQLGW")
+    Set OBJTConnect=..GeefSQLConnectie()
+	Set Status=""
+    Set SqlStatement="SELECT "
+	_"	it.NAME ITEMID"
+	_"  ,it.DESCRIPTION"
+    _"  ,[DTSCREATED]"
+    _"  ,[DTSMODIFICATION]"
+    _"  ,[LOCATIONOID]"
+    _"  ,[QTYALLOCATED]"
+    _"  ,[QTYONHAND]"
+    _"  ,[QTYRESERVED]"
+    _"  ,checkdigit as LOCATIONID"
+	_"  ,wh.Name WAREHOUSE"
+	_"  ,a.Name WAREHOUSELOCATION"
+    _" FROM OBJT_INVENTORYRECORD ir"
+    _" join objt_item it on  it.OID=itemoid"
+    _" join OBJT_WAREHOUSE wh on ir.WAREHOUSEOID=wh.OID "
+    _" left outer join objt_warehouselocation a on a.OID=locationoid"
+    _" where tracelevel=0 "
+    _"   and it.name=? "
+    _"   and a.Name<>'MARSHALL'"
+    try
+    {
+    	Do rs.Prepare(SqlStatement,,OBJTConnect)
+	    Do rs.Execute(OBJTItemId)    
+    } catch {
+	    do OBJTConnect.Disconnect()
+	    do ##class(TECH.ExceptionHandler).Rethrow()
+    }
+    Quit rs
+]]></Implementation>
+</Method>
+
+<Method name="GeefSQLConnectie">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set SqlConnection =##class(%SQLGatewayConnection).%New()
+    #dim OBJTSqlServer As %String = ..ConfigMgr.GeefString("OBJTimpl.DatasourceName")
+	Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(SqlConnection.Connect(OBJTSqlServer,"",""))
+    Quit SqlConnection
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: EWORDST2.mac.rou
===================================================================
diff -u -r29059 -r67289
--- EWORDST2.mac.rou	(.../EWORDST2.mac.rou)	(revision 29059)
+++ EWORDST2.mac.rou	(.../EWORDST2.mac.rou)	(revision 67289)
@@ -139,3 +139,18 @@
  Quit
  
 
+ShowObjtLPN(CONSNr) 
+ New R,KLNr,VerzW,DOutTime,VerzZ,Aanmaak,OpBon,WMSStat,ToWMS,Picked,Node,Controled
+ New Klant,Bon,Verz,SoftV,SoftVRec,First,Txt,Cnt,VolgNr,OBJTRec
+ Quit:'CONSNr
+ Quit:'$D(^ORDW("D",CONSNr))
+ Set Txt=0
+ Set VolgNr=""
+ ; Aantal LPN
+ For  Set VolgNr=$O(^ORDW("D",CONSNr,"OBJT",VolgNr)) Quit:VolgNr=""  Do
+ . Set OBJTRec=^ORDW("D",CONSNr,"OBJT",VolgNr)
+ . Set Txt=Txt+1,Txt(Txt)= $E($P(OBJTRec,"\",1)_"            ",1,14)_"| "_$E($P(OBJTRec,"\",2)_"               ",1,15)_"| "_$zdt($P(OBJTRec,"\",3),4,2)
+ If Txt Do
+ . Set R=$$WILD^vhTXTPOP("C;C","OBJT LPN "_CONSNr,"Txt")
+ Quit
+ 
Index: OBJTimpl/WMSOrder/dtoPicklijn.cls.xml
===================================================================
diff -u -r67170 -r67289
--- OBJTimpl/WMSOrder/dtoPicklijn.cls.xml	(.../dtoPicklijn.cls.xml)	(revision 67170)
+++ OBJTimpl/WMSOrder/dtoPicklijn.cls.xml	(.../dtoPicklijn.cls.xml)	(revision 67289)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="OBJTimpl.WMSOrder.dtoPicklijn">
-<IncludeCode>Prod.Product</IncludeCode>
+<IncludeCode>Prod.Product,BL.Derde.KlantSpecifiek</IncludeCode>
 <Super>%SerialObject,%XML.Adaptor</Super>
 
 <Parameter name="XMLNAME">
@@ -138,11 +138,10 @@
 <Method name="GeefDueOutTime">
 <FormalSpec><![CDATA[&C:%String]]></FormalSpec>
 <Implementation><![CDATA[
-	#define Halux 6332
 	#dim DueOut = C("DUEOUTTIME")
 	#dim DueOutTijd as %Numeric = $Piece(DueOut,",",2)
 	;indien halux && dueout != 03:00h
-	If (C("KLNR") = $$$Halux ) && (DueOutTijd '= 10800) {
+	If (C("KLNR") = $$$KlantHalux ) && (DueOutTijd '= 10800) {
 		;dan zetten we dueout 18:00h
 		Set DueOutTijd = 18*3600
 		Set $Piece(DueOut,",",2) = DueOutTijd
Index: OBJTimpl/WMSOrder/ImporteerPicking.cls.xml
===================================================================
diff -u -r67022 -r67289
--- OBJTimpl/WMSOrder/ImporteerPicking.cls.xml	(.../ImporteerPicking.cls.xml)	(revision 67022)
+++ OBJTimpl/WMSOrder/ImporteerPicking.cls.xml	(.../ImporteerPicking.cls.xml)	(revision 67289)
@@ -102,7 +102,7 @@
 
     ; Defaults
     Set C("PALKLID")="OBJT"
- 	Set C("DATUM")=$zdth(..pxPicking.PickingTijdstip,8)
+ 	Set C("DATUM")=$S(..pxPicking.PickingTijdstip="":$H,1:$zdth(..pxPicking.PickingTijdstip,8))
  	Set C("SOURCEPALID")=""
  	Set C("USER")=""
  	Set C("LOCMSTR")=""
Index: OBJTimpl/WMSOrder/OphalenOrderInOBJT.cls.xml
===================================================================
diff -u -r67030 -r67289
--- OBJTimpl/WMSOrder/OphalenOrderInOBJT.cls.xml	(.../OphalenOrderInOBJT.cls.xml)	(revision 67030)
+++ OBJTimpl/WMSOrder/OphalenOrderInOBJT.cls.xml	(.../OphalenOrderInOBJT.cls.xml)	(revision 67289)
@@ -44,6 +44,7 @@
 	#dim Status as %String =..GeefStatus(CONSNr)
 	
 	Quit:Status="" "Niet in OBJT"
+	Quit:Status=0 "Niet actief"
 	Quit:Status=1 "Gealloceerd"
 	Quit:Status=2 "Vrijgegeven"
 	Quit:Status=3 "Picking"
Index: OBJTimpl/WMSOrder/PrintKlantEtiket.cls.xml
===================================================================
diff -u -r67182 -r67289
--- OBJTimpl/WMSOrder/PrintKlantEtiket.cls.xml	(.../PrintKlantEtiket.cls.xml)	(revision 67182)
+++ OBJTimpl/WMSOrder/PrintKlantEtiket.cls.xml	(.../PrintKlantEtiket.cls.xml)	(revision 67289)
@@ -19,12 +19,24 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test">
+<Description>
+d ##class(OBJTimpl.WMSOrder.PrintKlantEtiket).%New().Test()</Description>
+<Implementation><![CDATA[
+	Set Req = ##class(OBJTimpl.WMSOrder.dtoKlantEtiketRequest).%New()
+	Set Req.Vertrekplaats="ZONE12"
+	Set Req.ConsNr="2203378576"
+	Set Req.LPN="D-0011155"
+	Do ..PrintKlantEtiket(Req)
+]]></Implementation>
+</Method>
+
 <Method name="PrintKlantEtiket">
 <FormalSpec>KlantEtiketRequest:OBJTimpl.WMSOrder.dtoKlantEtiketRequest</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#dim BONNr as %String = $Reverse($Extract($Reverse(KlantEtiketRequest.ConsNr),1,6)) 
-	Do EXTERN^FLOWBON4(BONNr, ..ConverteerVertrekplaats(KlantEtiketRequest.Vertrekplaats),KlantEtiketRequest.LPN)
+	Do ..StoreLPN(KlantEtiketRequest)
+	Do EXTERN^FLOWBON4($e(KlantEtiketRequest.ConsNr,5,10), ..ConverteerVertrekplaats(KlantEtiketRequest.Vertrekplaats),KlantEtiketRequest.LPN)
 	Quit "OK"
 ]]></Implementation>
 </Method>
@@ -35,6 +47,17 @@
 <Implementation><![CDATA[	Quit ..VertrekplaatsConverteerder.Converteer(Vertrekplaats)
 ]]></Implementation>
 </Method>
+
+<Method name="StoreLPN">
+<FormalSpec>KlantEtiketRequest:OBJTimpl.WMSOrder.dtoKlantEtiketRequest</FormalSpec>
+<Implementation><![CDATA[
+	Set CONSNr=$E(KlantEtiketRequest.ConsNr,5,10)
+	If (CONSNr?1"3"5N) && $D(^ORDW("D",CONSNr))
+	{
+		Set ^ORDW("D",CONSNr,"OBJT",$O(^ORDW("D",CONSNr,"OBJT",""),-1)+1)=KlantEtiketRequest.Vertrekplaats_"\"_KlantEtiketRequest.LPN_"\"_$H
+	}
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: OBJTimpl/PM/OBJTIdentNrMappingRepository.cls.xml
===================================================================
diff -u -r66955 -r67289
--- OBJTimpl/PM/OBJTIdentNrMappingRepository.cls.xml	(.../OBJTIdentNrMappingRepository.cls.xml)	(revision 66955)
+++ OBJTimpl/PM/OBJTIdentNrMappingRepository.cls.xml	(.../OBJTIdentNrMappingRepository.cls.xml)	(revision 67289)
@@ -99,9 +99,10 @@
 <FormalSpec>OBJTItemID:%String</FormalSpec>
 <ReturnType>%ResultSet</ReturnType>
 <Implementation><![CDATA[
-	#dim ResultSet as TECH.ResultSet
-	Set ResultSet = ResultSet("select Product,ItemID from OBJTimpl_PM.OBJTIdentNrMapping where OBJTItemID=? ")
-	Do ResultSet.Prepare(OBJTItemID)
+	#dim ResultSet as %ResultSet
+	Set ResultSet=##class(%ResultSet).%New("%DynamicQuery:SQL")
+	Set sc=ResultSet.Prepare("select Product,ItemID from OBJTimpl_PM.OBJTIdentNrMapping where OBJTItemID=? ")
+	Set sc=ResultSet.Execute(OBJTItemID)
 	Quit ResultSet
 ]]></Implementation>
 </Method>
Index: EWRECR.mac.rou
===================================================================
diff -u -r66310 -r67289
--- EWRECR.mac.rou	(.../EWRECR.mac.rou)	(revision 66310)
+++ EWRECR.mac.rou	(.../EWRECR.mac.rou)	(revision 67289)
@@ -28,20 +28,29 @@
 	. Write !,!,"OPGELET : EWRECR kon NIET gestart worden.  Check vhLib.Logging !",!,!
  
 	Do ##class(vhLib.Logger).%New($$$EWRECRLoggerGroep).Info("Start","EWRECR is gestart.")
+	Set EWRECTeller=0
 	
 	For  Quit:EWLoop="STOP"  Do  Quit:EWLoop="STOP"
+	. Set EWRECTeller=EWRECTeller+1
 	. ;Use WDev
 	. Set Ok=$System.Event.Wait("EWRECFAST",$S(FastMode:FastTime,1:HangTime))
 	. If Ok=1 Set FastMode=$P($H,",",2)+^EWREC("P","WAITTIME") ;Read van interjob is voortijdig beeindigd, fastmode ingesteld voor max. 2 min
 	. If FastMode,$D(^EWREC("WHC"))<10 Set FastMode="" ;Geen WaitHandle -> geen fastmode
 	. If FastMode,FastMode<$P($H,",",2) Set FastMode="" ;FastMode is verstrekenen
+	. Set EWRECLast="CHECK EWMS"
 	. Do CHECK
-	. Do WMSALIVE
+	. ;Do WMSALIVE
+	. Set EWRECLast="UitlezenOntvangenBestanden"
 	. Do ##class(OBJTimpl.BestandVerwerker).%New().UitlezenOntvangenBestanden()
+	. Set EWRECLast="CHKBON"
 	. Do:$D(^ORDW("BON")) CHKBON^EWORDF2 ; Verder op bon zetten en afdrukken
+	. Set EWRECLast="CHKURG"
 	. Do:$D(^RCP("URG")) CHKURG^EWRCPF ; Urgentie door mailen naar user
+	. Set EWRECLast="CHKAUTO"
 	. Do:$G(^RCP("AUTO")) CHKAUTO^EWRCPF() ; Automatisch inboeken Halux
-	. Do:$D(^RCP("AUTO_OBJT")) ##class(OBJTimpl.WMSOrder.ZendOpslagOntvangst).VerzendNaVertraging() ;OBJT : Fase 1 Automatisch stockage voor producten in de Vertikale liften
+	. Set EWRECLast="VerzendNaVertraging"
+	. Do:$D(^RCP("AUTO_OBJT")) ##class(OBJTimpl.WMSOrder.ZendOpslagOntvangst).VerzendNaVertraging() ;OBJT : Fase 1 Automatisch stockage voor producten in de Vertikale liften	
+	. Set EWRECLast="alles verwerkt"
 	. Lock +^cLOG(cs,"CTK0","JOB"):0 ; Controle of caretaker nog draait
 	. If $T Do  ; Indien gelocked dan caretaker gestopt
 	. . Lock -^cLOG(cs,"CTK0","JOB")