Index: vhUnitTest/APPS/VKP/impl/LeveringsTermijnFactory/MaakLeveringsTermijn/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/VKP/impl/LeveringsTermijnFactory/MaakLeveringsTermijn/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/VKP/impl/LeveringsTermijnFactory/MaakLeveringsTermijn/Test.cls.xml	(revision 53046)
@@ -0,0 +1,41 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.VKP.impl.LeveringsTermijnFactory.MaakLeveringsTermijn.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test : Geeft voor niet SFS klanten standaard LeveringsTermijn weer">
+<Implementation><![CDATA[
+	Set VerzendWijze = ##class(APPS.VKP.VerzendWijze).%New("1000","EX")
+
+	Set LeveringsTermijnFactory = ##class(APPS.VKP.impl.LeveringsTermijnFactory).%New()
+	#dim LeveringsTermijn As APPS.VKP.LeveringsTermijn = LeveringsTermijnFactory.MaakLeveringsTermijn("",VerzendWijze)
+	
+	Do $$$AssertEquals(LeveringsTermijn.%ClassName(1), ##class(APPS.VKP.LeveringsTermijn).%ClassName(1))
+]]></Implementation>
+</Method>
+
+<Method name="Test : Geeft voor SFS klantID de SFS LeveringsTermijn weer">
+<Implementation><![CDATA[
+	Set VerzendWijze = ##class(APPS.VKP.VerzendWijze).%New("12486","EX")
+
+	Set LeveringsTermijnFactory = ##class(APPS.VKP.impl.LeveringsTermijnFactory).%New()
+	#dim LeveringsTermijn As APPS.VKP.LeveringsTermijn = LeveringsTermijnFactory.MaakLeveringsTermijn("",VerzendWijze, ##class(DOM.VKP.enu.Klant).SFS())
+	
+	Do $$$AssertEquals(LeveringsTermijn.%ClassName(1), ##class(APPS.VKP.LeveringsTermijnSFS).%ClassName(1))
+]]></Implementation>
+</Method>
+
+<Method name="Test : Geeft voor SFS PersonalityID de SFS LeveringsTermijn weer">
+<Implementation><![CDATA[
+	Set VerzendWijze = ##class(APPS.VKP.VerzendWijze).%New("12486","EX")
+
+	Set LeveringsTermijnFactory = ##class(APPS.VKP.impl.LeveringsTermijnFactory).%New()
+	#dim LeveringsTermijn As APPS.VKP.LeveringsTermijn = LeveringsTermijnFactory.MaakLeveringsTermijn("",VerzendWijze, ,##class(DOM.common.enu.Personality).SFS())
+	
+	Do $$$AssertEquals(LeveringsTermijn.%ClassName(1), ##class(APPS.VKP.LeveringsTermijnSFS).%ClassName(1))
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>