Index: OBJTimpl/Herbevoorrading/BouwProductVoorraad.cls.xml
===================================================================
diff -u -r67716 -r67861
--- OBJTimpl/Herbevoorrading/BouwProductVoorraad.cls.xml	(.../BouwProductVoorraad.cls.xml)	(revision 67716)
+++ OBJTimpl/Herbevoorrading/BouwProductVoorraad.cls.xml	(.../BouwProductVoorraad.cls.xml)	(revision 67861)
@@ -43,15 +43,15 @@
 <Method name="Bouw">
 <Implementation><![CDATA[
 	Do ..VerwijderProductVoorraad()
-	w "Kleine producten"
+	;w "Kleine producten"
 	Do ..OphalenKleineProducten()
-	w "Statistiek"
+	;w "Statistiek"
 	Do ..BerekenKleineAfnames()
-	w "OpenstaandeHerbevoorrading"
+	;w "OpenstaandeHerbevoorrading"
 	Do ..OphalenOpenstaandeHerbevoorradingen()
-	w "POD Voorraad"
+	;w "POD Voorraad"
 	Do ..OphalenPODVoorraad()
-	w "Kardex Voorraad"
+	;w "Kardex Voorraad"
 	Do ..OphalenKARDEXVoorraad()
 ]]></Implementation>
 </Method>
@@ -138,6 +138,7 @@
 		{
 			Set rsProd=itProducten.Next()
 			Set:..ProductVoorraad.KortTekst="" ..ProductVoorraad.KortTekst=$$$ProductGet(rsProd.Data("Product"),$$$KortTekst) ; Info 
+			Set:..ProductVoorraad.PRNr="" ..ProductVoorraad.PRNr=rsProd.Data("Product")
 			Do ..BepaalDagVerkopen(rsProd.Data("Product"),..ProductVoorraad.Drempel)
 		}
 		Do ..BepaalStatistieken()
@@ -174,9 +175,9 @@
 
 <Method name="BepaalWerkDagen">
 <Implementation><![CDATA[
-	For Dag=1:1:40 
+	For Dag=1:1:90 
 	{
-		Set ..Werkdagen($$CALCDATE^vhLib.DataTypes($H,"A",-19-Dag))=0
+		Set ..Werkdagen($$CALCDATE^vhLib.DataTypes($H,"A",-30-Dag))=0
 	}
 ]]></Implementation>
 </Method>
@@ -207,7 +208,7 @@
 	While it.HasNext()
 	{
 		Set rs=it.Next()
-		If '##class(OBJTimpl.Herbevoorrading.ProductVoorraad).%ExistsId(rs.Data("ITEMID")) 
+		If '##class(OBJTimpl.Herbevoorrading.ProductVoorraad).%ExistsId(rs.Data("ITEMID"))
 		{   ;w ..ProductVoorraad.OBJTItemID," "
 			Set ..ProductVoorraad=##class(OBJTimpl.Herbevoorrading.ProductVoorraad).%New()
 			Set ..ProductVoorraad.OBJTItemID=rs.Data("ITEMID")
Index: OBJTimpl/Herbevoorrading/ProductVoorraad.cls.xml
===================================================================
diff -u -r67716 -r67861
--- OBJTimpl/Herbevoorrading/ProductVoorraad.cls.xml	(.../ProductVoorraad.cls.xml)	(revision 67716)
+++ OBJTimpl/Herbevoorrading/ProductVoorraad.cls.xml	(.../ProductVoorraad.cls.xml)	(revision 67861)
@@ -13,6 +13,12 @@
 <Type>%String</Type>
 </Property>
 
+<Property name="PRNr">
+<Description>
+Eerste product van de OBJTItemId iterator</Description>
+<Type>%String</Type>
+</Property>
+
 <Property name="Aantal">
 <Type>%String</Type>
 </Property>
@@ -146,6 +152,9 @@
 <Value name="18">
 <Value>DueoutTijdstip</Value>
 </Value>
+<Value name="19">
+<Value>PRNr</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: OBJTimpl/Herbevoorrading/ZendHerbevoorrading.cls.xml
===================================================================
diff -u -r67716 -r67861
--- OBJTimpl/Herbevoorrading/ZendHerbevoorrading.cls.xml	(.../ZendHerbevoorrading.cls.xml)	(revision 67716)
+++ OBJTimpl/Herbevoorrading/ZendHerbevoorrading.cls.xml	(.../ZendHerbevoorrading.cls.xml)	(revision 67861)
@@ -13,6 +13,10 @@
 <Type>OBJTimpl.Herbevoorrading.ProductVoorraad</Type>
 </Property>
 
+<Property name="DebugNietVerzenden">
+<Type>%Boolean</Type>
+</Property>
+
 <Parameter name="DrempelDagenBuffer">
 <Default>1</Default>
 </Parameter>
@@ -37,56 +41,64 @@
 </UDLText>
 
 <Method name="%OnNew">
+<FormalSpec>NietVerzenden:%Boolean=0</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Lock +Herbevoorrading Else  Quit $$$ERROR("GEEN EXCL LOCK")
 	Do ##class(OBJTimpl.Herbevoorrading.BouwProductVoorraad).%New().Bouw()
-
+	Set ..DebugNietVerzenden=NietVerzenden
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="%OnClose">
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Lock -Herbevoorrading
 
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkTekorten">
 <Implementation><![CDATA[
+	Lock +Herbevoorrading:0 Else  Quit
+	
 	#Dim it as TECH.Iterator
 	Set it=##class(OBJTimpl.Herbevoorrading.ProductVoorraadIterator).%New()
-	Set Aantal=0
 	While it.HasNext()
 	{
 		Set ..ProductVoorraad=it.Next()
 		Set Beschikbaar=..ProductVoorraad.VoorraadInboundKardex+..ProductVoorraad.VoorraadInKardex+..ProductVoorraad.AantalInHerbevoorrading
 		Set Drempel=(..ProductVoorraad.GemiddeldeAfnamePerDag*..#DrempelDagenBuffer)+(..#DrempelVeiligheid*(((..ProductVoorraad.StdAfwPerDag**2)*..#DrempelDagenBuffer)**0.5))
+		Set Aantal=0
 		
 		
-		Write !,..ProductVoorraad.KortTekst, " AVG:",..ProductVoorraad.GemiddeldeAfnamePerDag," ",Beschikbaar," < ",Drempel
+		Write:..DebugNietVerzenden !,..ProductVoorraad.KortTekst, " AVG:",..ProductVoorraad.GemiddeldeAfnamePerDag," Krdx:",Beschikbaar," Herb.drempel:",Drempel
 		
 		If (Beschikbaar<Drempel) || (Beschikbaar=0)
 		{
-			Write " replenish ",Beschikbaar-Drempel
+			;Write " replenish:",Beschikbaar-Drempel
 			Set Aantal=$J((..ProductVoorraad.GemiddeldeAfnamePerDag*..#HerbevoorradingDagenBuffer)+(..#HerbevoorradingVeiligheid*(((..ProductVoorraad.StdAfwPerDag**2)*..#HerbevoorradingDagenBuffer)**0.5)),0,0)
-			Write " -> ",Aantal
+			;Write " -> ",Aantal
 			Set:Aantal<..ProductVoorraad.MinHerbevoorrading Aantal=..ProductVoorraad.MinHerbevoorrading ; dagafname is zeer klein dan fallback
 			Set Aantal=..Afronding(Aantal)
-			Write " -> ",Aantal
+			Write:..DebugNietVerzenden " repl:",Aantal
 		}
+		else
+		{
+			Write:..DebugNietVerzenden " geen repl"
+		}
 		
+		
+		
 		If Aantal>..ProductVoorraad.VoorraadInPOD
 		{
 			Set Aantal=..Afronding(Drempel)
 			If Aantal>..ProductVoorraad.VoorraadInPOD
 			{
 				Set Aantal=0
 			}
-			Write " verminderd naar ",Aantal
+			Write:..DebugNietVerzenden " verminderd naar ",Aantal
 		}
 		
 		If Aantal>0 ; Order aanmaken
@@ -96,10 +108,13 @@
 			Set ..ProductVoorraad.Aantal=Aantal
 			Do OBJTSender.VoegtoeHerbevoorrading(..ProductVoorraad)
 			Do ..ProductVoorraad.Save()
-			Do OBJTSender.VerstuurPicklijnen() ;OBJT
+			Do:'..DebugNietVerzenden OBJTSender.VerstuurPicklijnen() ;OBJT
 		}
 	}
 	;Do ..Show()
+	Lock -Herbevoorrading
+	
+	Write:..DebugNietVerzenden !,"Druk [enter] om verder te gaan" Read:..DebugNietVerzenden K
 ]]></Implementation>
 </Method>
 
Index: OBJTimpl/WMSOrder/OphalenOrderInOBJT.cls.xml
===================================================================
diff -u -r67712 -r67861
--- OBJTimpl/WMSOrder/OphalenOrderInOBJT.cls.xml	(.../OphalenOrderInOBJT.cls.xml)	(revision 67712)
+++ OBJTimpl/WMSOrder/OphalenOrderInOBJT.cls.xml	(.../OphalenOrderInOBJT.cls.xml)	(revision 67861)
@@ -48,6 +48,7 @@
 	Quit:Status=1 "Gealloceerd"
 	Quit:Status=2 "Vrijgegeven"
 	Quit:Status=3 "Picking"
+	Quit:Status=10 "Klaargezet"
 	Quit:Status=12 "Geannuleerd"
 	Quit:Status=14 "Afgewerkt/Beëindigd"
 	Quit:Status=18 "Bezig met picken"
Index: OBJTimpl/WMSOrder/ControlePickstatus.cls.xml
===================================================================
diff -u -r67712 -r67861
--- OBJTimpl/WMSOrder/ControlePickstatus.cls.xml	(.../ControlePickstatus.cls.xml)	(revision 67712)
+++ OBJTimpl/WMSOrder/ControlePickstatus.cls.xml	(.../ControlePickstatus.cls.xml)	(revision 67861)
@@ -19,36 +19,57 @@
 <Method name="Export">
 <Description>
 d ##class(OBJTimpl.WMSOrder.ControlePickstatus).%New().Export()</Description>
+<ProcedureBlock>0</ProcedureBlock>
 <Implementation><![CDATA[
 	Set Dev=$$OPEN^vhDEV(,"Vergelijk orderstatus OBJT versus ORDW.txt","W","T")
 	Use Dev
 	Write "ORDNr	Datum	ORDWStatus	OBJTSTatus",!
+	Use 0
+	Write "ORDNr	Datum	ORDWStatus	OBJTSTatus",!
 	Set CONSNr=$O(^ORDW("D",""))
 	Set (Cnt,ObjtCnt)=0
 	While CONSNr 
 	{
+		#dim ORDWStatus as %String =$P(^ORDW("D",CONSNr),"\",20)
 		Set Cnt=Cnt+1
-		If $D(^ORDW("D",CONSNr,"S","V")) ; Doorgestuurd naar OBJT
+		If $D(^ORDW("D",CONSNr,"S","V")) && '((ORDWStatus="B") || (ORDWStatus="")) ; Doorgestuurd naar OBJT
 		{
 			Set ObjtCnt=ObjtCnt+1
 			Set OBJTStatus=##class(OBJTimpl.WMSOrder.OphalenOrderInOBJT).%New().GeefStatusVertaald(CONSNr)
 			Set ORDWStatus=$P(^ORDW("D",CONSNr),"\",20)
-			;w "."
-	 		If '(((OBJTStatus="Geannuleerd") || (OBJTStatus="Afgewerkt") || (OBJTStatus="Niet in OBJT"))  && (ORDWStatus="B"))
+
+	 		If '(((OBJTStatus="Geannuleerd") || (OBJTStatus="Afgewerkt"))  && (ORDWStatus="B"))
 	 		{
+		 		; tecontroleren
+		 		; alle ORDWStatus C
+		 		; ORDWStatus P of w en Afgewerkt/Beeindigd of geannuleerd
+		 		; ORDWStatus W en Afgewerkt/Beeindigd, kan zijn dat er nog uglies of orgalux in uglypicking moeten gedaan worden
+				Use Dev
 		 		Write CONSNr, *9,$$$ExcelDat($P(^ORDW("D",CONSNr),"\",3)),*9,ORDWStatus,*9,OBJTStatus,!
+		 		Use 0
+		 		if (ORDWStatus="C"){
+			 		Write CONSNr, *9,$$$ExcelDat($P(^ORDW("D",CONSNr),"\",3)),*9,ORDWStatus,*9,OBJTStatus,!
+		 		} elseif ("P;W" [ ORDWStatus ) {
+			 		Write:("Afgewerkt/Beëindigd" [ OBJTStatus) CONSNr, *9,$$$ExcelDat($P(^ORDW("D",CONSNr),"\",3)),*9,ORDWStatus,*9,OBJTStatus, *9,"mogelijk nog UGLY/OL",!
+			 		Write:("Geannuleerd" [ OBJTStatus) CONSNr, *9,$$$ExcelDat($P(^ORDW("D",CONSNr),"\",3)),*9,ORDWStatus,*9,OBJTStatus,!			 		
+		 		} else {
+			 		Write CONSNr, *9,$$$ExcelDat($P(^ORDW("D",CONSNr),"\",3)),*9,ORDWStatus,*9,OBJTStatus,!
+		 		}
 		 	}
 		}
-		If Cnt#100=0 
-		{
-			Use 0
-			Set FP=2301
-			Write @F,@F2,ObjtCnt, " / ",Cnt
-			Use Dev
-		}
+		
+		;If Cnt#100=0 
+		;{
+		;	Use 0
+		;	Set FP=2301
+		;	Write @F,@F2,ObjtCnt, " / ",Cnt
+		;	Use Dev
+		;}
 		Set CONSNr=$O(^ORDW("D",CONSNr))
 	}
 	Do CLOSE^vhDEV(Dev)
+	Write "Controle gedaan [] om verder te gaan"
+	Read x
 ]]></Implementation>
 </Method>
 </Class>
Index: EWPAL.mac.rou
===================================================================
diff -u -r67493 -r67861
--- EWPAL.mac.rou	(.../EWPAL.mac.rou)	(revision 67493)
+++ EWPAL.mac.rou	(.../EWPAL.mac.rou)	(revision 67861)
@@ -622,22 +622,24 @@
  
  Quit
  
+
 FETCHOBJT(PRNr,%J)
 	Set it=##class(OBJTimpl.WMSOrder.OphalenVoorraadOpLocatie).%New().GeefIterator(PRNr)
 	While it.HasNext()
 	{	
 	Set rs=it.Next()
- 	Set Rec="OBJT"
+ 	Set Rec=rs.Data("LPN")
  	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:$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  
+	Quit  	
+	
+	
  ;
 COPYOLD ; Copy van het oude EWPAL("D")
  ; Er worden 10 bestanden bijgehouden
Index: OBJTimpl/Herbevoorrading/OphalenProductenKlein.cls.xml
===================================================================
diff -u -r67716 -r67861
--- OBJTimpl/Herbevoorrading/OphalenProductenKlein.cls.xml	(.../OphalenProductenKlein.cls.xml)	(revision 67716)
+++ OBJTimpl/Herbevoorrading/OphalenProductenKlein.cls.xml	(.../OphalenProductenKlein.cls.xml)	(revision 67861)
@@ -36,13 +36,13 @@
     #dim OBJTConnection as %SQLGatewayConnection =..GeefSQLConnectie()
 	#dim Status as %String = ""
     #dim SqlStatement as %String 
-    Set SqlStatement= "  SELECT top 100"
+    Set SqlStatement= "  SELECT "
 	_ " it.NAME ITEMID"
 	_ " ,it.DESCRIPTION"
- 	_ " ,it.USRNUM2 as DREMPEL"
+ 	_ " ,it.USRNUM2 as DREMPEL" ;_ " ,case when it.NAME = '0.888.547.3' then 250 when it.NAME = '0.644.998.3' then 100 when it.NAME = '0.661.673.8' then 100 else it.USRNUM2 end as DREMPEL"
  	_ " ,it.USRNUM3 as MINAANTAL"
     _ " FROM objt_item it "
-    _ " WHERE isnull(it.USRNUM2,0)>0"
+    _ " WHERE isnull(it.USRNUM2,0)>0 " ; or it.NAME in ('0.661.673.8','0.644.998.3','0.888.547.3')"
     
     try
     {
Index: OBJTimpl/WMSOrder/OphalenVoorraadOpLocatie.cls.xml
===================================================================
diff -u -r67289 -r67861
--- OBJTimpl/WMSOrder/OphalenVoorraadOpLocatie.cls.xml	(.../OphalenVoorraadOpLocatie.cls.xml)	(revision 67289)
+++ OBJTimpl/WMSOrder/OphalenVoorraadOpLocatie.cls.xml	(.../OphalenVoorraadOpLocatie.cls.xml)	(revision 67861)
@@ -82,6 +82,44 @@
     Set OBJTConnect=..GeefSQLConnectie()
 	Set Status=""
     Set SqlStatement="SELECT "
+	_" loc.FULLNAME LOCATIONID"
+ 	_" , loc.TYPE LOC_TYPE"
+  	_" , wh.NAME WH_NAME"
+  	_" , isnull(wh.DESCRIPTION,wh.NAME) as WH_DESCRIPTION"
+  	_" , inv.ITEM_NAME as ITEMID"
+  	_" , case when lpn like '000000%' then 'sublpn' else LPN end LPN"
+  	_" , inv.DEPARTMENT_NAME"
+  	_" , sum(VALUE) QTYONHAND"
+  	_" , max(inv.DTSUPDATE) DTSMODIFICATION"
+ 	_" from dcereport_inventory inv "
+ 	_" left join  dcereport_locations loc"
+	_"   on inv.location_oid=loc.OID"
+ 	_" left join  dcereport_warehouses wh "
+	_"   on wh.oid=loc.WAREHOUSE_OID"
+	_" where type='BIN' and inv.Item_name=?"
+	_" group by loc.FULLNAME , loc.TYPE  , wh.NAME , isnull(wh.DESCRIPTION,wh.NAME),inv.ITEM_NAME, case when lpn like '000000%' then 'sublpn' else LPN end,inv.DEPARTMENT_NAME   "
+	
+	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="GeefResultSetOLD">
+<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]"
@@ -112,6 +150,31 @@
 ]]></Implementation>
 </Method>
 
+<UDLText name="T">
+<Content><![CDATA[
+/*    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'"
+*/
+]]></Content>
+</UDLText>
+
 <Method name="GeefSQLConnectie">
 <Private>1</Private>
 <Implementation><![CDATA[
Index: OBJTimpl/Herbevoorrading/OphalenVoorraad.cls.xml
===================================================================
diff -u -r67716 -r67861
--- OBJTimpl/Herbevoorrading/OphalenVoorraad.cls.xml	(.../OphalenVoorraad.cls.xml)	(revision 67716)
+++ OBJTimpl/Herbevoorrading/OphalenVoorraad.cls.xml	(.../OphalenVoorraad.cls.xml)	(revision 67861)
@@ -44,7 +44,7 @@
   	_ " join objt_item it on  it.OID=itemoid"
   	_ " join OBJT_WAREHOUSE wh on ir.WAREHOUSEOID=wh.OID "
   	_ " where  tracelevel=1 "
-  	_ " and isnull(it.USRNUM2,0)>0"
+  	_ " and (isnull(it.USRNUM2,0)>0  ) " ;or it.NAME in ('0.661.673.8','0.644.998.3','0.888.547.3'))"
   	_ " and wh.Name in ('06','07','04','05','01')"
   	_ " group by it.Name"
     
Index: OBJTimpl/Herbevoorrading/OphalenOpenstaandeOrders.cls.xml
===================================================================
diff -u -r67716 -r67861
--- OBJTimpl/Herbevoorrading/OphalenOpenstaandeOrders.cls.xml	(.../OphalenOpenstaandeOrders.cls.xml)	(revision 67716)
+++ OBJTimpl/Herbevoorrading/OphalenOpenstaandeOrders.cls.xml	(.../OphalenOpenstaandeOrders.cls.xml)	(revision 67861)
@@ -44,7 +44,7 @@
 	_ " 	on itemqty.OUTBOUNDOPERATIONOID = op.oid"
 	_ " left join OBJT_ITEM it"
 	_ " 	on itemqty.ITEMOID=it.OID"
-	_ " where (oo.Status not in (14,12) and oo.USRTXT1='VL'"
+	_ " where oo.Status not in (14,12) and oo.USRTXT1='KardexREPL'"
 	_ " group by it.Name"
     
     try