Index: vhTest/Integratie/Webshop/Offerte/IngaveTotBestelling/OfferteMetLijnenSchadeDoorTransportOfVoormontage/Test.cls.xml
===================================================================
diff -u
--- vhTest/Integratie/Webshop/Offerte/IngaveTotBestelling/OfferteMetLijnenSchadeDoorTransportOfVoormontage/Test.cls.xml	(revision 0)
+++ vhTest/Integratie/Webshop/Offerte/IngaveTotBestelling/OfferteMetLijnenSchadeDoorTransportOfVoormontage/Test.cls.xml	(revision 61054)
@@ -0,0 +1,341 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Integratie.Webshop.Offerte.IngaveTotBestelling.OfferteMetLijnenSchadeDoorTransportOfVoormontage.Test">
+<Super>vhTest.Integratie.WebserverKlantenPerPersonalityTemplate</Super>
+
+<Parameter name="GebruikBestandTeller">
+<Type>%Integer</Type>
+<Default>0</Default>
+</Parameter>
+
+<Parameter name="GebruikFakeDataOverschrijver">
+<Type>%Boolean</Type>
+<Default>1</Default>
+</Parameter>
+
+<Property name="OfferteID">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Offerte">
+<Type>APPS.EC.dto.Offerte</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="WinkelkarID">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ApplicatieID">
+<Type>%String</Type>
+<InitialExpression>$$$DummyString</InitialExpression>
+<Private>1</Private>
+</Property>
+
+<Property name="Familie">
+<Type>DOM.PM.enu.Familie.AutoComplete</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Variant">
+<Type>DOM.PM.enu.Variant.AutoComplete</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+ 	Do ##super()
+ 	Do ..CleanUpKortingen()
+ 	
+	#dim BackgroundJobAPI As vhTest.Mock.TECH.Background.BackgroundJobAPI = ##class(vhTest.Mock.TECH.Background.BackgroundJobAPI).MockInstance()
+	do BackgroundJobAPI.IndienMethodCall("GeefBackgroundProcessStarter").DanReturn(##class(vhTest.Fake.TECH.BackgroundProcessStarter).%New())
+]]></Implementation>
+</Method>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestCase:%String</FormalSpec>
+<Implementation><![CDATA[
+ 	Do ##super(aTestCase)
+ 	Do ##class(DOM.PM.Maatwerk.Calc.IoCContainer).Instance().Register("DateTimeAPI",##class(TECH.DateTime.impl.DateTimeAPI).%New())
+ 	Do ##class(vhTest.Fake.TECH.DateTime.DateTimeAPI).Activeer(..GeefDatum())
+ 	Do ##class(vhTest.Utils.MailNaarBestandAPI).MockInstance(..GeefBestandLocatie())
+ 	
+ 	Do ##class(TECH.Config.ConfigMgr).Instance().ZetString("APPS.EC.impl.Webshop.UrlBepaler_V3_SFS", "http://box.sfsunimarket.biz", ..#Applicatie)
+	Do ##class(TECH.Config.ConfigMgr).Instance().ZetString("APPS.EC.impl.Webshop.UrlBepaler_V3_VanHoecke", "http://legrabox.vanhoecke.be", ..#Applicatie)
+	Do ##class(TECH.Config.ConfigMgr).Instance().ZetString("APPS.EC.impl.Webshop.UrlBepaler_V3_Dupont", "http://integratietest.du-pont.be", ..#Applicatie)
+	Do ##class(TECH.Config.ConfigMgr).Instance().ZetString("APPS.EC.impl.Webshop.UrlBepaler_V3_Destil", "http://integratietest.destil.nl", ..#Applicatie)
+	Do ##class(TECH.Config.ConfigMgr).Instance().ZetString("APPS.EC.impl.Webshop.UrlBepaler_V3_Daro", "http://integratietest.daro.com", ..#Applicatie)
+	Do ##class(TECH.Config.ConfigMgr).Instance().ZetString("APPS.EC.impl.Webshop.UrlBepaler_V3_HaefeleBE", "http://integratietest.haefele.be", ..#Applicatie)
+	Do ##class(TECH.Config.ConfigMgr).Instance().ZetString("APPS.EC.impl.Webshop.UrlBepaler_V3_Hein", "http://integratietest.hein.be", ..#Applicatie)
+	
+ 	Do ##class(TECH.Config.ConfigMgr).Instance().ZetString("APPS.EC.impl.Webshop.UrlBepaler_V4_SFS", "http://integratietest_V4.sfsunimarket.biz", ..#Applicatie)
+	Do ##class(TECH.Config.ConfigMgr).Instance().ZetString("APPS.EC.impl.Webshop.UrlBepaler_V4_VanHoecke", "http://integratietest_V4.vanhoecke.be", ..#Applicatie)
+	Do ##class(TECH.Config.ConfigMgr).Instance().ZetString("APPS.EC.impl.Webshop.UrlBepaler_V4_Dupont", "http://integratietest_V4.du-pont.be", ..#Applicatie)
+	Do ##class(TECH.Config.ConfigMgr).Instance().ZetString("APPS.EC.impl.Webshop.UrlBepaler_V4_Destil", "http://integratietest_V4.destil.nl", ..#Applicatie)
+	Do ##class(TECH.Config.ConfigMgr).Instance().ZetString("APPS.EC.impl.Webshop.UrlBepaler_V4_Daro", "http://integratietest_V4.daro.com", ..#Applicatie)
+	Do ##class(TECH.Config.ConfigMgr).Instance().ZetString("APPS.EC.impl.Webshop.UrlBepaler_V4_HaefeleBE", "http://integratietest_V4.haefele.be", ..#Applicatie)
+	Do ##class(TECH.Config.ConfigMgr).Instance().ZetString("APPS.EC.impl.Webshop.UrlBepaler_V4_Hein", "http://integratietest_V4.hein.be", ..#Applicatie)
+	
+	Do ##class(TECH.Config.ConfigMgr).Instance().ZetString("Personality_WebshopVersie_SFS", ##class(APPS.EC.enu.WebshopVersie).V3(), ..#Applicatie)
+	Do ##class(TECH.Config.ConfigMgr).Instance().ZetString("Personality_WebshopVersie_VanHoecke", ##class(APPS.EC.enu.WebshopVersie).V3(), ..#Applicatie)
+	Do ##class(TECH.Config.ConfigMgr).Instance().ZetString("Personality_WebshopVersie_Dupont", ##class(APPS.EC.enu.WebshopVersie).V3(), ..#Applicatie)
+	Do ##class(TECH.Config.ConfigMgr).Instance().ZetString("Personality_WebshopVersie_Destil", ##class(APPS.EC.enu.WebshopVersie).V3(), ..#Applicatie)
+	Do ##class(TECH.Config.ConfigMgr).Instance().ZetString("Personality_WebshopVersie_Daro", ##class(APPS.EC.enu.WebshopVersie).V3(), ..#Applicatie)
+	Do ##class(TECH.Config.ConfigMgr).Instance().ZetString("Personality_WebshopVersie_HaefeleBE", ##class(APPS.EC.enu.WebshopVersie).V3(), ..#Applicatie)
+	Do ##class(TECH.Config.ConfigMgr).Instance().ZetString("Personality_WebshopVersie_Hein", ##class(APPS.EC.enu.WebshopVersie).V3(), ..#Applicatie)
+	
+	Do ##class(TECH.Config.ConfigMgr).Instance().ZetString("DOM.common.ProjectSettingsAPI_DaroExcludeFromDeliveryEnabled", $$$True, ..#Applicatie)
+
+	Do ##class(TECH.Config.ConfigMgr).Instance().ZetString("VhisieURL", "http://localhost/vhisie/vhisie.html", ..#Applicatie)
+
+	Do ..MaakKorting(..Personality.HaefeleBE, "hfleBE_1001MetKorting", ..Familie.Lade, ..Variant.LegraboxPure, 1, 0.25)
+	Do ..MaakKorting(..Personality.HaefeleBE, "hfleBE_1001MetKorting", ..Familie.Lade, ..Variant.Taorbox, 1, 0.25)
+]]></Implementation>
+</Method>
+
+<Method name="GeefDatum">
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[	Quit "08.04.2015"
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	Do ..CleanUpKortingen()
+]]></Implementation>
+</Method>
+
+<Method name="CleanUpKortingen">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#Dim Query As %String = "DELETE DOM_VKP_impl_Korting.Korting WHERE KlantID = ?"
+	Do ExecDynQuery^vhLib.Query(Query,$LB("hfleBE_1001MetKorting"))
+]]></Implementation>
+</Method>
+
+<Method name="MaakKorting">
+<FormalSpec>PersonalityID:DOM.common.enu.Personality,KlantID:DOM.VKP.VanHoeckeKlantID,Familie:DOM.PM.enu.Familie,Variant:DOM.PM.enu.Variant,VanafAantal:%Integer,Percentage:TECH.Percentage</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set Korting = ##class(DOM.VKP.impl.Korting.Korting).%New(PersonalityID,KlantID,Familie,Variant,Percentage)
+	Set Korting.VanafAantal = VanafAantal
+	Do Korting.Save()
+]]></Implementation>
+</Method>
+
+<Method name="InitKlanten">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ..VoegToeKlant("SFS_1000", "SFSKlant_D")
+	Do ..UpdateSFSKlantData("SFS_1000", "SFS Klant_D", ..Taal.Duits)
+	
+	Do ..VoegToeKlant("SFS_1001", "SFSKlant_FR")
+	Do ..UpdateSFSKlantData("SFS_1001", "SFS Klant_FR", ..Taal.Frans)
+	
+	Do ..VoegToeKlant(##class(DOM.VKP.enu.Klant).RabatPrijsKlant(), "VanHoeckeKlant")
+	
+	Do ..VoegToeKlant("hfleBE_1000", "HaefeleBE")
+	Do ..UpdateHaefeleBEKlantData("hfleBE_1000", "HaefeleBE_Klant")
+	
+	Do ..VoegToeKlant("hfleBE_1001MetKorting", "HaefeleBEMetKorting")
+	Do ..UpdateHaefeleBEKlantData("hfleBE_1001MetKorting", "HaefeleBE_KlantMetKorting")
+	
+	Do ..VoegToeKlant("dupont_1000", "Dupont")
+	Do ..UpdateKlantDataZonderVerificatie("dupont_1000", "Dupont_Klant", ..Taal.Nederlands, ##class(DOM.common.DupontPersonality).Instance())
+	
+	Do ..VoegToeKlant("daro_1000", "Daro")
+	Do ..UpdateKlantDataZonderVerificatie("daro_1000", "Daro_Klant", ..Taal.Engels, ##class(DOM.common.DaroPersonality).Instance())
+]]></Implementation>
+</Method>
+
+<Method name="InitPersonalities">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim PersonalityIterator As TECH.ListIterator = ##class(DOM.common.enu.Personality).ValueListIterator()
+	while PersonalityIterator.HasNext() {
+		#dim PersonalityID As DOM.common.enu.Personality = PersonalityIterator.Next()
+
+		If PersonalityID=##class(DOM.common.enu.Personality).HaefeleBE() {
+			Do ..Personalities.Insert(PersonalityID)
+		}		
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Test">
+<Implementation><![CDATA[
+	set ..SessieType = ##class(vhTest.Integratie.enu.SessieType).Webshop()
+	set ExterneVerkoopService = ##class(WS.EC.ExterneVerkoopService).%New()
+	do ..VoerUit(ExterneVerkoopService)
+	
+	do $$$AssertCorrectGemaakteBestanden(..GeefBestandLocatie())
+]]></Implementation>
+</Method>
+
+<Method name="VoerUitVoorGebruikerVanKlantBijPersonality">
+<FormalSpec>ExterneVerkoopService:WS.EC.ExterneVerkoopService</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim MockHttpPost As vhTest.Mock.TECH.Http.HttpAPI = ##class(vhTest.Mock.TECH.Http.HttpAPI).MockInstance()
+	#dim BestandLocatie = ##class(TECH.Files).AppendSubPath(..GeefBestandLocatie(),..GeefSubLocatie())
+	set FakeHttpPoster = ##class(TECH.Http.impl.PosterFileDumper).%New(BestandLocatie)
+	do MockHttpPost.IndienMethodCall("GeefPosterMailMock").DanReturn(FakeHttpPoster)
+	
+	Do ..MaakOfferteMetLijnenSchadeDoorTransportOfVoormontage(ExterneVerkoopService)
+	do ..BestelOfferte(ExterneVerkoopService)
+	
+	Set ..Offerte = ExterneVerkoopService.GeefOfferte(..OfferteID)
+
+	do ..DoorbestelOfferte(ExterneVerkoopService)
+	do ..MaakOrderVanOfferte()
+	do ..DupliceerOfferte(ExterneVerkoopService)
+]]></Implementation>
+</Method>
+
+<Method name="MaakOfferteMetLijnenSchadeDoorTransportOfVoormontage">
+<FormalSpec>ExterneVerkoopService:WS.EC.ExterneVerkoopService</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#Dim GroepNaam As %String = $$$DummyString
+	#Dim OfferteIDEnWinkelkarID As APPS.EC.dto.OfferteIDEnWinkelkarID = ExterneVerkoopService.MaakOfferte(..KlantID)
+	#Dim WinkelkarService As WS.EC.Winkelkar.ExterneWinkelkarService = ##class(WS.EC.Winkelkar.ExterneWinkelkarService).%New()
+	
+	Set ..OfferteID = OfferteIDEnWinkelkarID.OfferteID
+	Set ..WinkelkarID = OfferteIDEnWinkelkarID.WinkelkarID
+	
+	Do WinkelkarService.VoegToeMaatwerk(..ApplicatieID, ..WinkelkarID, GroepNaam, ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).CLadeMetMat(), 1)
+	Do WinkelkarService.VoegToeMaatwerk(..ApplicatieID, ..WinkelkarID, GroepNaam, ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).MBinnenLade(), 1)
+	Do WinkelkarService.VoegToeMaatwerk(..ApplicatieID, ..WinkelkarID, GroepNaam, ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TAORKenmerken).StandaardLade(), 1, "", "", "",1)
+	Do WinkelkarService.VoegToeMaatwerk(..ApplicatieID, ..WinkelkarID, GroepNaam, ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TAORKenmerken).BiColourLade(), 1, "", "", "",1)
+	
+	#Dim Offerte As APPS.EC.dto.Offerte = ExterneVerkoopService.GeefOfferte(..OfferteID)
+	
+	Do ##class(vhTest.Utils.APPC.EC.dto.Offerte).VerwijderPersistenteIDVanOfferteDto(Offerte)
+	Do ..DataExporteerder.ExporteerDataTransferObject(Offerte, "GemaakteOfferte.xml", ..GeefSubLocatie())
+
+	Quit
+]]></Implementation>
+</Method>
+
+<Method name="BestelOfferte">
+<FormalSpec>ExterneVerkoopService:WS.EC.ExterneVerkoopService</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#Dim Hoofding As APPS.EC.dto.Hoofding = ##class(APPS.EC.dto.Hoofding).%New()
+
+	Set Hoofding.LeveringDetail.Datum = ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentDate()
+	Set Hoofding.LeveringDetail.WensDatum = ..GeefWensLeverDatum()
+	Set Hoofding.BestelOpmerking = "DummyBestelOpmerking"
+	Set Hoofding.Referentie.OrderReferentie = "DummyOrderReferentie"
+	
+	If (..PersonalityID = ##class(DOM.common.enu.Personality).Hein()) {
+		Set Hoofding.LeveringDetail.Adres = ##class(vhTest.Utils.APPS.common.dto.Adres).DuitsAdres()
+	}
+	
+	Do ExterneVerkoopService.ZetOfferteHoofding(..OfferteID,Hoofding)
+	Do ExterneVerkoopService.BestelOfferte(..OfferteID)
+	
+	#Dim Offerte As APPS.EC.dto.Offerte = ExterneVerkoopService.GeefOfferte(..OfferteID)
+
+	Do ##class(vhTest.Utils.APPC.EC.dto.Offerte).VerwijderPersistenteIDVanOfferteDto(Offerte)
+	Do ..DataExporteerder.ExporteerDataTransferObject(Offerte, "BesteldeOfferte.xml", ..GeefSubLocatie())
+	Do ..SchrijfAlleenLezenVersie()
+]]></Implementation>
+</Method>
+
+<Method name="GeefWensLeverDatum">
+<Private>1</Private>
+<Implementation><![CDATA[	Quit "Zo spoedig mogelijk"
+]]></Implementation>
+</Method>
+
+<Method name="DoorbestelOfferte">
+<FormalSpec>ExterneVerkoopService:WS.EC.ExterneVerkoopService</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If ($IsObject(..Offerte.GekoppeldeOfferte)) {
+		Set ..Offerte.GekoppeldeOfferte.Hoofding.LeveringDetail.Adres.ID = ""
+		
+		Do ##class(TECH.Context.RuntimeContext).Instance().ZetGebruikerID(..#UserId)
+		Do ExterneVerkoopService.ZetPersonalityID(##class(DOM.common.enu.Personality).VanHoecke())
+		Do ExterneVerkoopService.BestelOfferte(..Offerte.GekoppeldeOfferte.OfferteID)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="MaakOrderVanOfferte">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#Dim TeConverterenOfferte As %String = ..OfferteID
+	
+	If $IsObject(..Offerte.GekoppeldeOfferte) {
+		Set TeConverterenOfferte = ..Offerte.GekoppeldeOfferte.OfferteID
+	}
+	
+	#dim Order As DOM.VKP.Order = ##class(APPS.VKP.OrderIngaveService).%New().MaakOrderVanOfferte(TeConverterenOfferte)
+	#dim OrderID As %String = Order.GeefID()
+	#dim KlantNr As %String = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(Order.GeefKlantID())
+	#dim mdOrder As %String = ""
+	
+	Merge mdOrder(KlantNr) = ^KOD(KlantNr,"F",OrderID)
+	
+	#dim idxLijn = 100
+	for  { set idxLijn = $order(mdOrder(KlantNr,idxLijn)) quit:idxLijn=""  
+		set $piece(mdOrder(KlantNr,idxLijn),"\",2)=""
+	}
+	
+	do ..DataExporteerder.ExporteerMultiDim(.mdOrder,"Order.txt",..GeefSubLocatie())
+]]></Implementation>
+</Method>
+
+<Method name="DupliceerOfferte">
+<FormalSpec>ExterneVerkoopService:WS.EC.ExterneVerkoopService</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	do ##class(TECH.Context.RuntimeContext).Instance().ZetGebruikerID(..Gebruiker.ID)
+	do ..GeauthenticeerdeWebService.ZetPersonalityID(..PersonalityID)
+	do ..GeauthenticeerdeWebService.ZetKlantID(..KlantID)
+	
+	#dim OfferteIDEnWinkelkarID As APPS.EC.dto.OfferteIDEnWinkelkarID = ExterneVerkoopService.DupliceerOfferte(..OfferteID) 
+	#dim Offerte As APPS.EC.dto.Offerte = ExterneVerkoopService.GeefOfferte(OfferteIDEnWinkelkarID.OfferteID)
+
+	Do ##class(vhTest.Utils.APPC.EC.dto.Offerte).VerwijderPersistenteIDVanOfferteDto(Offerte)
+	do ..DataExporteerder.ExporteerDataTransferObject(Offerte, "GedupliceerdeOfferte.xml", ..GeefSubLocatie())
+]]></Implementation>
+</Method>
+
+<Method name="SchrijfAlleenLezenVersie">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#Dim WebshopSessionService As APPS.EC.WebshopSessionService = ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefWebshopSessionService()
+	#Dim RefSessieData As APPS.EC.dto.RefSessieData = ##class(APPS.EC.dto.RefSessieData).%New()
+	
+	Set RefSessieData.KlantID = ..KlantID
+	Set RefSessieData.Verwerker = WebshopSessionService.GeefDomeinVerwerkerVoorPersonality(##class(TECH.Context.RuntimeContext).Instance().GeefPersonalityID())
+	Set RefSessieData.WebshopModus = ##class(APPS.EC.enu.WebshopModus).AlleenLezen()
+	Set RefSessieData.OfferteID = ..OfferteID
+	
+	#Dim Ref As %String = ##class(APPS.EC.impl.RefSessieDataBepaler).%New().GeefEncryptedRefSessieData(RefSessieData)
+	#Dim DataOpt As %String = $$$DummyString
+	#Dim Taal As DOM.enu.Taal = ""
+	#Dim RemoteIP As %String = $$$DummyString
+	#Dim SessieLozeExterneVerkoopService As WS.EC.SessieLozeExterneVerkoopService = ##class(WS.EC.SessieLozeExterneVerkoopService).%New()	
+	#Dim Bestelling As APPS.EC.dto.Bestelling = SessieLozeExterneVerkoopService.RaadpleegBestelling(Ref, DataOpt, Taal, RemoteIP)		
+	
+	Set Bestelling.Offerte.Hoofding.LeveringDetail.Datum = $$$DummyString
+	Set Bestelling.Offerte.Hoofding.BestelDatum = $$$DummyString
+	Set Bestelling.Offerte.Winkelkar.WinkelkarID = $$$DummyString
+	
+	Do ##class(vhTest.Utils.APPC.EC.dto.Offerte).VerwijderPersistenteIDVanOfferteDto(Bestelling.Offerte)
+	Do ..DataExporteerder.ExporteerDataTransferObject(Bestelling, ..GeefBestandNaam("BestellingAleenLezenVersie"), ..GeefSubLocatie())
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>