Index: vhUnitTest/APPS/EC/Verkoop/impl/Externe/VerkoopService/OfferteVoorBestellingValidator/TestValideer.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/EC/Verkoop/impl/Externe/VerkoopService/OfferteVoorBestellingValidator/TestValideer.cls.xml	(revision 0)
+++ vhUnitTest/APPS/EC/Verkoop/impl/Externe/VerkoopService/OfferteVoorBestellingValidator/TestValideer.cls.xml	(revision 45352)
@@ -0,0 +1,74 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.EC.Verkoop.impl.Externe.VerkoopService.OfferteVoorBestellingValidator.TestValideer">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="OfferteStub">
+<Type>vhTest.Mock.APPS.VKP.Offerte</Type>
+</Property>
+
+<Property name="WinkelkarServiceStub">
+<Type>vhTest.Mock.APPS.EC.Winkelkar.WinkelkarService</Type>
+</Property>
+
+<Property name="OfferteVoorBestellingValidator">
+<Type>APPS.EC.Verkoop.impl.OfferteVoorBestellingValidator</Type>
+</Property>
+
+<Parameter name="KlantID">
+<Default>1234</Default>
+</Parameter>
+
+<Parameter name="PersonalityID">
+<Default>1</Default>
+</Parameter>
+
+<Parameter name="OfferteID">
+<Default>1000</Default>
+</Parameter>
+
+<Method name="Test: Ongeldige offerte geeft foutmelding bij valideer">
+<Implementation><![CDATA[
+	#dim LeverDatum As %String = "2017-05-05"
+
+	Do ..Init(LeverDatum,..#PersonalityID,,$$$True,$$$True)
+	Do ..OfferteStub.IndienMethodCall("IsVhisie4").DanReturn($$$False)
+
+	Set ..OfferteVoorBestellingValidator = ##class(APPS.EC.Verkoop.impl.OfferteVoorBestellingValidator).%New(..WinkelkarServiceStub)
+
+	#dim Substrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("De offerte '1000' is niet meer geldig!")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(APPS.VKP.Offerte.impl.OfferteNietMeerGeldigException).%ClassName(1),Substrings))
+
+	
+	Do ..OfferteVoorBestellingValidator.Valideer(..OfferteStub,..#KlantID,..#PersonalityID)
+]]></Implementation>
+</Method>
+
+<Method name="Init">
+<FormalSpec>LeverDatum:%Date,PersonalityID:DOM.common.enu.Personality="",IsBesteld:%Boolean=0,ZijnPrijzenVervallen:%Boolean=0,HeeftMaatwerklijnen:%Boolean=0</FormalSpec>
+<Implementation><![CDATA[
+	Set ..OfferteStub = ##class(vhTest.Mock.APPS.VKP.Offerte).%New()
+	If PersonalityID '= ""{
+		Do ..OfferteStub.IndienMethodCall("GeefPersonalityID").DanReturn(PersonalityID)
+	} Else{
+		Do ..OfferteStub.IndienMethodCall("GeefPersonalityID").DanReturn(..#PersonalityID)
+	}
+	Do ..OfferteStub.IndienMethodCall("GeefKlantID").DanReturn(..#KlantID)
+	Do ..OfferteStub.IndienMethodCall("GeefID").DanReturn(..#OfferteID)
+	Do ..OfferteStub.IndienMethodCall("GeefWinkelkarID").DanReturn($$$DummyInteger)
+	Do ..OfferteStub.IndienMethodCall("IsBesteld").DanReturn(IsBesteld)
+	Do ..OfferteStub.IndienMethodCall("ZijnPrijzenVervallen").DanReturn(ZijnPrijzenVervallen)
+	Do ..OfferteStub.IndienMethodCall("GeefLeverDatum").DanReturn(LeverDatum)
+	
+	#dim MaatwerkLijnen As %ListOfObjects = ##class(%ListOfObjects).%New()
+	If HeeftMaatwerklijnen {
+		Do MaatwerkLijnen.Insert(##class(DOM.EC.Winkelkar.MaatwerkLijn).%New())
+	} 
+	Set ..WinkelkarServiceStub = ##class(vhTest.Mock.APPS.EC.Winkelkar.WinkelkarService).%New()
+	Do ..WinkelkarServiceStub.IndienMethodCall("GeefMaatwerkLijnen",$$$ElkeWaarde).DanReturn(MaatwerkLijnen)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>