Index: vhCARETAKER.mac.rou
===================================================================
diff -u -r67716 -r67865
--- vhCARETAKER.mac.rou	(.../vhCARETAKER.mac.rou)	(revision 67716)
+++ vhCARETAKER.mac.rou	(.../vhCARETAKER.mac.rou)	(revision 67865)
@@ -970,7 +970,8 @@
 	Try {
  		Do InitRuntimeContext
 		;Do ##class(AX.Uitgaand.EC.Service).%New().ExportVeranderdeVoorraad()
-		Do ##class(AX.Uitgaand.EC.Productie.impl.ExportLevertermijnJSON).%New().ExportVeranderde()
+		;Do ##class(AX.Uitgaand.EC.Productie.impl.ExportLevertermijnJSON).%New().ExportVeranderde()
+		Set x=##class(AX.Uitgaand.EC.Productie.impl.GenerateLevertermijn).%New()
 		}
 	Catch (Exceptie)
 	{
@@ -1259,15 +1260,27 @@
 	}
 	Quit	
 
-HerbevoorradingKardex ; Orders aanmaken voor herbevoorrading van Kardex
+VrijgevenOrdersNaarWMS ; Orders die klaargezet zijn in ORDW doorgeven aan OBJT
 	Try {
 		Do InitRuntimeContext
-		d ##class(OBJTimpl.Herbevoorrading.ZendHerbevoorrading).%New().VerwerkTekorten()
+		Do ProcessAll^EWORDSW(+$H,0)
 	} Catch {
 		Do OnError
 	}
-	Quit	
-	
+	Quit
+		
+HerbevoorradingKardex ; OBJT herbevoorrading voor Kardex
+	Try {
+		Do InitRuntimeContext
+		If ($P($H,",",2)>(7*3600))&&($P($H,",",2)<(20*3600))
+		{
+			D ##class(OBJTimpl.Herbevoorrading.ZendHerbevoorrading).%New().VerwerkTekorten()
+		}
+	} Catch {
+		Do OnError
+	}
+	Quit
+		
 OnError 
 	set $ztrap="EndErrorTrapping"
 	new Exceptie set Exceptie = ##class(TECH.ExceptionHandler).Catch()