Index: vhUnitTest/APPS/Halux/PPS/MES/MESService/IsActiefVoorMES/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/Halux/PPS/MES/MESService/IsActiefVoorMES/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/Halux/PPS/MES/MESService/IsActiefVoorMES/Test.cls.xml	(revision 71467)
@@ -0,0 +1,116 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.Halux.PPS.MES.MESService.IsActiefVoorMES.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="OrigineleFaseConfigSettings">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="OrigineleProductieLijnenActiefConfigSettings">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	Do ##super()
+	
+	Set ..OrigineleFaseConfigSettings = ##class(TECH.Config.ConfigMgr).Instance().GeefString("APPS.Halux.PPS.Document.impl.BatchNaarObjective_MESFase")
+	Set ..OrigineleProductieLijnenActiefConfigSettings = ##class(TECH.Config.ConfigMgr).Instance().GeefString("APPS.Halux.PPS.Document.impl.BatchNaarObjective_MESProductieLijnenActief")
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterAllTests">
+<Implementation><![CDATA[
+	Do ##class(TECH.Config.ConfigMgr).Instance().ZetString("APPS.Halux.PPS.Document.impl.BatchNaarObjective_MESFase", ..OrigineleFaseConfigSettings)
+	Do ##class(TECH.Config.ConfigMgr).Instance().ZetString("APPS.Halux.PPS.Document.impl.BatchNaarObjective_MESProductieLijnenActief", ..OrigineleProductieLijnenActiefConfigSettings)
+	
+	Do ##super()
+]]></Implementation>
+</Method>
+
+<Method name="Test: IsActief is standaard false indien de ingestelde fase 0 is">
+<Implementation><![CDATA[
+	#dim MESFase As %Integer = 0
+	#dim ProductieLijnenActief As %String = "1;2;3;4;5"
+	#dim DummyProductielijn As %Integer = 1
+	
+	Do ##class(TECH.Config.ConfigMgr).Instance().ZetString("APPS.Halux.PPS.Document.impl.BatchNaarObjective_MESFase", MESFase)
+	Do ##class(TECH.Config.ConfigMgr).Instance().ZetString("APPS.Halux.PPS.Document.impl.BatchNaarObjective_MESProductieLijnenActief", ProductieLijnenActief)
+	
+	Set MESService = ##class(APPS.Halux.PPS.MES.MESService).%New()
+	#dim IsActief As %Boolean = MESService.IsActiefVoorMes(DummyProductielijn)
+	
+	Do $$$AssertNotTrue(IsActief)
+]]></Implementation>
+</Method>
+
+<Method name="Test: IsActief is false indien niets is ingevuld">
+<Implementation><![CDATA[
+	#dim MESFase As %Integer = ""
+	#dim ProductieLijnenActief As %String = ""
+	#dim DummyProductielijn As %Integer = 1
+	
+	Do ##class(TECH.Config.ConfigMgr).Instance().ZetString("APPS.Halux.PPS.Document.impl.BatchNaarObjective_MESFase", MESFase)
+	Do ##class(TECH.Config.ConfigMgr).Instance().ZetString("APPS.Halux.PPS.Document.impl.BatchNaarObjective_MESProductieLijnenActief", ProductieLijnenActief)
+	
+	Set MESService = ##class(APPS.Halux.PPS.MES.MESService).%New()
+	#dim IsActief As %Boolean = MESService.IsActiefVoorMes(DummyProductielijn)
+	
+	Do $$$AssertNotTrue(IsActief)
+]]></Implementation>
+</Method>
+
+<Method name="Test: IsActief is true indien fase 1 en de juiste productielijn is ingevuld">
+<Implementation><![CDATA[
+	#dim MESFase As %Integer = 1
+	#dim ProductieLijnenActief As %String = "1"
+	#dim DummyProductielijn As %Integer = 1
+	
+	Do ##class(TECH.Config.ConfigMgr).Instance().ZetString("APPS.Halux.PPS.Document.impl.BatchNaarObjective_MESFase", MESFase)
+	Do ##class(TECH.Config.ConfigMgr).Instance().ZetString("APPS.Halux.PPS.Document.impl.BatchNaarObjective_MESProductieLijnenActief", ProductieLijnenActief)
+	
+	Set MESService = ##class(APPS.Halux.PPS.MES.MESService).%New()
+	#dim IsActief As %Boolean = MESService.IsActiefVoorMes(DummyProductielijn)
+	
+	Do $$$AssertTrue(IsActief)
+]]></Implementation>
+</Method>
+
+<Method name="Test: IsActief is true indien fase 1 en meerdere productielijnen zijn ingevuld">
+<Implementation><![CDATA[
+	#dim MESFase As %Integer = 1
+	#dim ProductieLijnenActief As %String = "1;2;3;4;5"
+	#dim DummyProductielijn As %Integer = 3
+	
+	Do ##class(TECH.Config.ConfigMgr).Instance().ZetString("APPS.Halux.PPS.Document.impl.BatchNaarObjective_MESFase", MESFase)
+	Do ##class(TECH.Config.ConfigMgr).Instance().ZetString("APPS.Halux.PPS.Document.impl.BatchNaarObjective_MESProductieLijnenActief", ProductieLijnenActief)
+	
+	Set MESService = ##class(APPS.Halux.PPS.MES.MESService).%New()
+	#dim IsActief As %Boolean = MESService.IsActiefVoorMes(DummyProductielijn)
+	
+	Do $$$AssertTrue(IsActief)
+]]></Implementation>
+</Method>
+
+<Method name="Test: IsActief is false indien fase 1 en productielijn niet in de lijst met actieve productielijnen voorkomt">
+<Implementation><![CDATA[
+	#dim MESFase As %Integer = 1
+	#dim ProductieLijnenActief As %String = "1;2;3;4;5"
+	#dim DummyProductielijn As %Integer = 6
+	
+	Do ##class(TECH.Config.ConfigMgr).Instance().ZetString("APPS.Halux.PPS.Document.impl.BatchNaarObjective_MESFase", MESFase)
+	Do ##class(TECH.Config.ConfigMgr).Instance().ZetString("APPS.Halux.PPS.Document.impl.BatchNaarObjective_MESProductieLijnenActief", ProductieLijnenActief)
+	
+	Set MESService = ##class(APPS.Halux.PPS.MES.MESService).%New()
+	#dim IsActief As %Boolean = MESService.IsActiefVoorMes(DummyProductielijn)
+	
+	Do $$$AssertNotTrue(IsActief)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>