Index: APPS/Halux/PPS/DocumentGenerator/PickingOnderdelen.cls.xml
===================================================================
diff -u -r71179 -r74557
--- APPS/Halux/PPS/DocumentGenerator/PickingOnderdelen.cls.xml	(.../PickingOnderdelen.cls.xml)	(revision 71179)
+++ APPS/Halux/PPS/DocumentGenerator/PickingOnderdelen.cls.xml	(.../PickingOnderdelen.cls.xml)	(revision 74557)
@@ -57,6 +57,44 @@
 ]]></Implementation>
 </Method>
 
+<UDLText name="T">
+<Content><![CDATA[
+// d ##class(APPS.Halux.PPS.DocumentGenerator.PickingOnderdelen).OpkuisPickStar()
+
+]]></Content>
+</UDLText>
+
+<Method name="OpkuisPickStar">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	
+	Do ..OpkuisPickStarMappen(##class(TECH.Config.ConfigMgr).Instance().GetString("APPS.Halux.PPS.DocumentGeneratorService.PickingOnderdelen.LBX"))
+	Do ..OpkuisPickStarMappen(##class(TECH.Config.ConfigMgr).Instance().GetString("APPS.Halux.PPS.DocumentGeneratorService.PickingOnderdelen.TAX"))
+]]></Implementation>
+</Method>
+
+<UDLText name="T">
+<Content><![CDATA[
+// Bestanden ouder dan 30 dagen verwijderen
+
+]]></Content>
+</UDLText>
+
+<Method name="OpkuisPickStarMappen">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>BasisDir:%String</FormalSpec>
+<Implementation><![CDATA[
+	
+	#dim Dir As %String
+	Set Dir = ##class(TECH.Files).AppendSubPath(BasisDir , "\Data\FromHost\")
+	Do SCANDIR^vhDEV(Dir,"*.*",,"X",30)
+	Set Dir = ##class(TECH.Files).AppendSubPath(BasisDir , "\Data\ToHost\")
+	Do SCANDIR^vhDEV(Dir,"*.*",,"X",30)
+	Set Dir = ##class(TECH.Files).AppendSubPath(BasisDir , "\Data\Private\ScanIn\")
+	Do SCANDIR^vhDEV(Dir,"*.*",,"X",30)
+]]></Implementation>
+</Method>
+
 <Method name="GenereerDocumenten">
 <FormalSpec>Batch:APPS.Halux.common.Batch</FormalSpec>
 <Implementation><![CDATA[
@@ -66,25 +104,31 @@
 	#dim FileException As TECH.Exceptions.FileException
 	#dim GeneralErrorException As TECH.Exceptions.FileException
 	#dim Omschrijving As %String
+	#dim MesFaseActief As %Integer = ##class(TECH.Config.ConfigMgr).Instance().GeefString("APPS.Halux.PPS.Document.impl.BatchNaarObjective_MESFase")
+	#dim MagDocumentVoorLBX As %Boolean = (..Batch.GeefCategorie() = ##class(APPS.Halux.common.enu.Categorie).Legrabox()) && (MesFaseActief < 2)
+	#dim MagDocumentVoorTAX As %Boolean = (..Batch.GeefCategorie() = ##class(APPS.Halux.common.enu.Categorie).TAORbox())
 	
-	If (##class(TECH.StringUtils).Equals(..Batch.GeefCategorie(), ##class(APPS.Halux.common.enu.Categorie).Legrabox(), ##class(APPS.Halux.common.enu.Categorie).TAORbox())) {
+	If (MagDocumentVoorLBX || MagDocumentVoorTAX) {
 		While ToeleveringenIterator.HasNext()
 		{
 			#dim Toelevering As DOM.AKP.Toelevering = ToeleveringenIterator.Next()
 			#dim BestandNaam As %String = ##class(TECH.Files).AppendSubPath(..GeefBestandLocatie() , "\Data\FromHost\") _ Toelevering.GeefID()_".pic"
+			#dim BestandNaamScanIn As %String = ##class(TECH.Files).AppendSubPath(..GeefBestandLocatie() , "\Data\Private\ScanIn\") _ Toelevering.GeefID()_".pic"
 			try {
+				If ##class(TECH.File).Exists(BestandNaamScanIn) {
+					Do ..FileUtils.Delete(BestandNaamScanIn)				
+				}
 				If ##class(TECH.File).Exists(BestandNaam) {
 					Do ..FileUtils.Delete(BestandNaam)				
 				}
-				
 				If ##class(TECH.File).Exists(##class(TECH.StringUtils).Replace(BestandNaam, ".pic", ".temp")) {
 					Do ..FileUtils.Delete(##class(TECH.StringUtils).Replace(BestandNaam, ".pic", ".temp"))				
 				}
 				
 				If (..Batch.GeefCategorie() = ##class(APPS.Halux.common.enu.Categorie).Legrabox()) {
-					Do ..TriggerLBXPickingOnderdelenAansturingActiePerToelevering(Toelevering.GeefID())
+					Do ..TriggerLBXPickingOnderdelenAansturingActiePerToelevering(Toelevering.GeefID(), Batch.GeefID())
 				} ElseIf (..Batch.GeefCategorie() = ##class(APPS.Halux.common.enu.Categorie).TAORbox()) {
-					Do ..TriggerTAXPickingOnderdelenAansturingActiePerToelevering(Toelevering.GeefID())
+					Do ..TriggerTAXPickingOnderdelenAansturingActiePerToelevering(Toelevering.GeefID(), Batch.GeefID())
 				}
 				
 				Do ..MaakBestand(Toelevering, BestandNaam, ..Batch.GeefCategorie())
@@ -310,11 +354,11 @@
 </Method>
 
 <Method name="TriggerLBXPickingOnderdelenAansturingActiePerToelevering">
-<FormalSpec>ToeleveringID:%String</FormalSpec>
+<FormalSpec>ToeleveringID:%String,BatchID:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	Set AansturingActie = ##class(APPS.Halux.PPS.Document.impl.LBX.OnderdelenPicking).%New()
-	#dim UitvoeringInfoIterator As TECH.Iterator = ..OnderdelenPickingUitvoeringInfoRepository.ZoekViaToeleveringID(ToeleveringID)
+	#dim UitvoeringInfoIterator As TECH.Iterator = ..OnderdelenPickingUitvoeringInfoRepository.ZoekViaToeleveringID(ToeleveringID, BatchID)
 	Set UitvoeringInfoLijst = ##class(%ListOfObjects).%New()
 	
 	While UitvoeringInfoIterator.HasNext() {
@@ -327,11 +371,11 @@
 </Method>
 
 <Method name="TriggerTAXPickingOnderdelenAansturingActiePerToelevering">
-<FormalSpec>ToeleveringID:%String</FormalSpec>
+<FormalSpec>ToeleveringID:%String,BatchID:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	Set AansturingActie = ##class(APPS.Halux.PPS.Document.impl.TAX.OnderdelenPicking).%New()
-	#dim UitvoeringInfoIterator As TECH.Iterator = ..OnderdelenPickingUitvoeringInfoRepository.ZoekViaToeleveringID(ToeleveringID)
+	#dim UitvoeringInfoIterator As TECH.Iterator = ..OnderdelenPickingUitvoeringInfoRepository.ZoekViaToeleveringID(ToeleveringID, BatchID)
 	Set UitvoeringInfoLijst = ##class(%ListOfObjects).%New()
 	
 	While UitvoeringInfoIterator.HasNext() {