Index: APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/Opdeelzaag/OptimalisatieBestandenGenerator.cls.xml
===================================================================
diff -u -r38153 -r38212
--- APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/Opdeelzaag/OptimalisatieBestandenGenerator.cls.xml	(.../OptimalisatieBestandenGenerator.cls.xml)	(revision 38153)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/Opdeelzaag/OptimalisatieBestandenGenerator.cls.xml	(.../OptimalisatieBestandenGenerator.cls.xml)	(revision 38212)
@@ -93,21 +93,17 @@
 <FormalSpec>ActiviteitParameters:APPS.Halux.PPS.Activiteit.ActiviteitParameters</FormalSpec>
 <Implementation><![CDATA[
 	#dim Tijdstip As %TimeStamp = ##class(TECH.Files).GeefCurrentTimeStamp() 
-	#dim AfhandelingIterator As TECH.Iterator = ##class(APPS.Halux.Machine.OpdeelZaag.enu.Afhandeling).ValueListIterator()
 	
-	While (AfhandelingIterator.HasNext()) {
+	#dim Afhandeling As APPS.Halux.Machine.OpdeelZaag.enu.Afhandeling = ##class(APPS.Halux.Machine.OpdeelZaag.enu.Afhandeling).Automatisch()
+	
+	if ..BatchService.GeefProductieGroep(..BatchID) = ##class(APPS.Halux.common.enu.ProductieGroep).SpecialsPM() {
+		set Afhandeling = ##class(APPS.Halux.Machine.OpdeelZaag.enu.Afhandeling).Manueel()
+	}
 
-		#dim Afhandeling As APPS.Halux.Machine.OpdeelZaag.enu.Afhandeling = AfhandelingIterator.Next()
-		
-		continue:..BatchService.GeefProductieGroep(..BatchID)=##class(APPS.Halux.common.enu.ProductieGroep).SpecialsPM()
-		
-		#dim ClientIterator As TECH.Iterator = ##class(APPS.Halux.Machine.OpdeelZaag.enu.Client).ValueListIterator()
-		
-		While (ClientIterator.HasNext()) {
-			#dim Client As APPS.Halux.Machine.OpdeelZaag.enu.Client = ClientIterator.Next()
-			
-			Do ..GenereerOptimalisatieBestanden(Afhandeling, Client, Tijdstip)	
-		}
+	#dim ClientIterator As TECH.Iterator = ##class(APPS.Halux.Machine.OpdeelZaag.enu.Client).ValueListIterator()
+	While (ClientIterator.HasNext()) {
+		#dim Client As APPS.Halux.Machine.OpdeelZaag.enu.Client = ClientIterator.Next()
+		Do ..GenereerOptimalisatieBestanden(Afhandeling, Client, Tijdstip)	
 	}
 ]]></Implementation>
 </Method>
@@ -123,7 +119,6 @@
 		#dim OptimalisatieBestanden As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes(BestandVolledigeNaam)
 		
 		Do ..GenereerOptimalisatieBestand(OptimalisatieBestanden, ImportListPad, Afhandeling, Client)
-		Do:((Afhandeling = ..Afhandeling.Automatisch) && (Client = ..Client.Biesse)) ..GenereerBatchBestand(ImportListBestandNaam)
 	} Catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
 
@@ -152,28 +147,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GenereerBatchBestand">
-<FormalSpec>ImportListBestandNaam:TECH.String</FormalSpec>
-<Private>1</Private>
-<ReturnType>TECH.String</ReturnType>
-<Implementation><![CDATA[
-	#dim BestandLocatie As %String = ##class(APPS.Halux.Machine.Opdeelzaag).OptimalisatieBatchBestandLocatie()
-	#dim BestandNaam As %String = ..BatchID
-	#dim BestandVolledigeNaam As %String = ..GeefBestandVolledigeNaam(BestandLocatie, BestandNaam, ..FileExtension.BatchFile)
-	#dim DoelBestandLocatie As TECH.String = "c:\biesse\log\" _ ..BatchID _ "\"
-	
-	Do ..FileWriter.Open(BestandVolledigeNaam)
-	Do ..FileWriter.WriteLine("C:\StartOptimalisatie.bat " _ ImportListBestandNaam)	
-	Do ..FileWriter.WriteLine("md "_DoelBestandLocatie_" 2> nul")
-			;maak de DoelMap als deze nog niet bestaat, move werkt niet als de map nog niet bestaat
-	Do ..FileWriter.WriteLine("move /Y c:\biesse\optiplanning\tmp\implog.xml "_DoelBestandLocatie_"implog.xml")
-			;/Y om geen vraag te stellen als het bestand zou overschreven worden en de move uit te voeren
-	Do ..FileWriter.Close()
-	
-	Quit BestandVolledigeNaam
-]]></Implementation>
-</Method>
-
 <Method name="GeefBestandVolledigeNaam">
 <FormalSpec>BestandLocatie:TECH.String,BestandNaam:TECH.String,Extensie:TECH.String</FormalSpec>
 <Private>1</Private>
Index: vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/Opdeelzaag/OptimalisatieBestandenGenerator/VoerUit/TestProductGroep.cls.xml
===================================================================
diff -u -r38153 -r38212
--- vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/Opdeelzaag/OptimalisatieBestandenGenerator/VoerUit/TestProductGroep.cls.xml	(.../TestProductGroep.cls.xml)	(revision 38153)
+++ vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/Opdeelzaag/OptimalisatieBestandenGenerator/VoerUit/TestProductGroep.cls.xml	(.../TestProductGroep.cls.xml)	(revision 38212)
@@ -3,6 +3,21 @@
 <Class name="vhUnitTest.APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.Opdeelzaag.OptimalisatieBestandenGenerator.VoerUit.TestProductGroep">
 <Super>vhUnitTest.TestCase</Super>
 
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	#dim AfhandelingIterator As TECH.Iterator= ##class(APPS.Halux.Machine.OpdeelZaag.enu.Afhandeling).ValueListIterator()
+	while AfhandelingIterator.HasNext() {
+		#dim Afhandeling As APPS.Halux.Machine.OpdeelZaag.enu.Afhandeling = AfhandelingIterator.Next()
+		#dim ClientIterator As TECH.Iterator = ##class(APPS.Halux.Machine.OpdeelZaag.enu.Client).ValueListIterator()
+		while ClientIterator.HasNext() {
+			#dim Client As APPS.Halux.Machine.OpdeelZaag.enu.Client = ClientIterator.Next()
+			#dim ConfigItem As %String = "APPS.Halux.Machine.OpdeelZaag.impl.OptimalisatieBestandGenerator_FileLocation_" _ Afhandeling _ "_" _ Client
+			do ##class(TECH.Config.ConfigMgr).Instance().ZetString(ConfigItem,"E:\"_Client_"_"_Afhandeling,..#Applicatie)		
+		}
+	}
+]]></Implementation>
+</Method>
+
 <Method name="Test: productiegroep wordt opgehaald met juiste batchID">
 <Implementation><![CDATA[
 	#dim UitvoeringInfoDummy As APPS.Halux.PPS.Activiteit.impl.TAOR.dto.OpdeelzaagUitvoeringInfo
@@ -22,7 +37,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Voor producten in productiegroep specialPM worden geen bestanden gegenereerd voor automatische verwerking">
+<Method name="Test: Voor producten in productiegroep specialPM de bestanden in een manueel pad geplaatst">
 <Implementation><![CDATA[
 	#dim UitvoeringInfoDummy As APPS.Halux.PPS.Activiteit.impl.TAOR.dto.OpdeelzaagUitvoeringInfo
 	Set UitvoeringInfoDummy = ##class(vhTest.Utils.APPS.Halux.PPS.Activiteit.impl.TAOR.dto.OpdeelzaagUitvoeringInfo).UitvoeringInfo()
@@ -37,11 +52,15 @@
 	Do OptimalisatieBestandenGenerator.VerzamelData(UitvoeringInfoDummy)
 	Do OptimalisatieBestandenGenerator.VoerUit()
 
-	Do $$$AssertEquals(FileWriterFake.GeefBestandNamen().Count(),0)
+	#dim Bestandnamen As %ListOfDataTypes = FileWriterFake.GeefBestandNamen()
+	if $$$AssertEquals(Bestandnamen.Count(),2) {
+		do $$$AssertContains(Bestandnamen.GetAt(1),"Ardis_Manueel")	
+		do $$$AssertContains(Bestandnamen.GetAt(2),"Biesse_Manueel")	
+	}
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Voor producten in productiegroep worden bestanden gegenereerd voor automatische verwerking">
+<Method name="Test: Voor producten in productiegroep worden bestanden in een automatisch pad geplaatst">
 <Implementation><![CDATA[
 	#dim UitvoeringInfoDummy As APPS.Halux.PPS.Activiteit.impl.TAOR.dto.OpdeelzaagUitvoeringInfo
 	Set UitvoeringInfoDummy = ##class(vhTest.Utils.APPS.Halux.PPS.Activiteit.impl.TAOR.dto.OpdeelzaagUitvoeringInfo).UitvoeringInfo()
@@ -56,7 +75,11 @@
 	Do OptimalisatieBestandenGenerator.VerzamelData(UitvoeringInfoDummy)
 	Do OptimalisatieBestandenGenerator.VoerUit()
 
-	Do $$$AssertTrue(FileWriterFake.GeefBestandNamen().Count()>0)
+	#dim Bestandnamen As %ListOfDataTypes = FileWriterFake.GeefBestandNamen()
+	if $$$AssertEquals(Bestandnamen.Count(),2) {
+		do $$$AssertContains(Bestandnamen.GetAt(1),"Ardis_Auto")	
+		do $$$AssertContains(Bestandnamen.GetAt(2),"Biesse_Auto")	
+	}
 ]]></Implementation>
 </Method>
 </Class>