Index: vhUnitTest/APPS/EC/Verkoop/impl/OfferteConverter/Converteer/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/EC/Verkoop/impl/OfferteConverter/Converteer/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/EC/Verkoop/impl/OfferteConverter/Converteer/Test.cls.xml	(revision 42495)
@@ -0,0 +1,79 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.EC.Verkoop.impl.OfferteConverter.Converteer.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test StandaardConversie">
+<Implementation><![CDATA[
+	#dim TeConverterenOfferte As APPS.VKP.Offerte = ##class(vhTest.Utils.APPS.VKP.Offerte).StandaardOfferte()
+	
+	#dim OfferteId = $$$DummyInteger
+	Set OfferteServiceStub = ##class(vhTest.Mock.APPS.VKP.OfferteService).%New()
+	Do OfferteServiceStub.IndienMethodCall("GeefOfferte",OfferteId).DanReturn(TeConverterenOfferte)
+	Do OfferteServiceStub.IndienMethodCall("HeeftOfferteVanVH",TeConverterenOfferte).DanReturn($$$False)
+	
+	#dim StandaardWinkelkar As APPS.EC.Winkelkar.dto.Winkelkar = ##class(vhTest.Utils.APPS.EC.Winkelkar.dto.Winkelkar).WinkelkarMetLBXStandaardLade()
+	Set WinkelkarServiceStub = ##class(vhTest.Mock.APPS.EC.Winkelkar.WinkelkarService).%New()
+	Do WinkelkarServiceStub.IndienMethodCall("GeefWinkelkar", TeConverterenOfferte.GeefWinkelkarID()).DanReturn(StandaardWinkelkar)
+	
+	Set GeldigheidVermeldingBepalerStub = ##class(vhTest.Mock.APPS.EC.Verkoop.impl.GeldigheidVermeldingBepaler).%New()
+	Do GeldigheidVermeldingBepalerStub.IndienMethodCall("BepaalVermelding",TeConverterenOfferte).DanReturn("Vermelding")
+	
+	Set Converter = ##class(APPS.EC.Verkoop.impl.OfferteConverter).%New(OfferteServiceStub, WinkelkarServiceStub, GeldigheidVermeldingBepalerStub)
+	#dim Resultaat As APPS.EC.dto.Offerte = Converter.ConverteerNaarECommerce(TeConverterenOfferte)
+	
+	Do $$$AssertEquals(Resultaat.OfferteID,"1000")
+	Do $$$AssertEquals(Resultaat.Hoofding.BestelDatum,"")
+	Do $$$AssertEquals(Resultaat.Hoofding.BestelOpmerking,"BestelOpmerking")
+	Do $$$AssertEquals(Resultaat.Hoofding.LeveringDetail.Datum,"")
+	Do $$$AssertEquals(Resultaat.Hoofding.Referentie.CommissieReferentie,"CommissieReferentie")
+	Do $$$AssertEquals(Resultaat.Hoofding.Referentie.KlantOrderNummer,"")
+	Do $$$AssertEquals(Resultaat.Hoofding.Referentie.OrderReferentie,"OrderReferentie")
+	Do $$$AssertEquals(Resultaat.Winkelkar.Lijnen.Count(),1)
+	Do $$$AssertEquals(Resultaat.GeldigheidVermelding,"Vermelding")
+	Do $$$AssertEquals(Resultaat.Melding,"")
+	Do $$$AssertEquals(Resultaat.GekoppeldeOfferte,"")
+]]></Implementation>
+</Method>
+
+<Method name="Test Conversie met gekoppelde offerte">
+<Implementation><![CDATA[
+	#dim TeConverterenOfferte As APPS.VKP.Offerte = ##class(vhTest.Utils.APPS.VKP.Offerte).StandaardOfferte()
+	#dim GekoppeldeOfferte As APPS.VKP.Offerte = ##class(vhTest.Utils.APPS.VKP.Offerte).StandaardOfferte()
+	
+	#dim OfferteId = $$$DummyInteger
+	Set OfferteServiceStub = ##class(vhTest.Mock.APPS.VKP.OfferteService).%New()
+	Do OfferteServiceStub.IndienMethodCall("GeefOfferte",OfferteId).DanReturn(TeConverterenOfferte)
+	Do OfferteServiceStub.IndienMethodCall("GeefOfferte",1000).DanReturn(GekoppeldeOfferte)
+	Do OfferteServiceStub.IndienMethodCall("HeeftOfferteVanVH",TeConverterenOfferte).DanReturn($$$True)
+	Do OfferteServiceStub.IndienMethodCall("HeeftOfferteVanVH",GekoppeldeOfferte).DanReturn($$$False)
+	Do OfferteServiceStub.IndienMethodCall("GeefOfferteVanVH",TeConverterenOfferte).DanReturn(GekoppeldeOfferte)
+	
+	#dim StandaardWinkelkar As APPS.EC.Winkelkar.dto.Winkelkar = ##class(vhTest.Utils.APPS.EC.Winkelkar.dto.Winkelkar).WinkelkarMetLBXStandaardLade()
+	Set WinkelkarServiceStub = ##class(vhTest.Mock.APPS.EC.Winkelkar.WinkelkarService).%New()
+	Do WinkelkarServiceStub.IndienMethodCall("GeefWinkelkar", TeConverterenOfferte.GeefWinkelkarID()).DanReturn(StandaardWinkelkar)
+	
+	Set GeldigheidVermeldingBepalerStub = ##class(vhTest.Mock.APPS.EC.Verkoop.impl.GeldigheidVermeldingBepaler).%New()
+	Do GeldigheidVermeldingBepalerStub.IndienMethodCall("BepaalVermelding",TeConverterenOfferte).DanReturn("Vermelding")
+	Do GeldigheidVermeldingBepalerStub.IndienMethodCall("BepaalVermelding",GekoppeldeOfferte).DanReturn("VermeldingGekoppelde")
+	
+	Set Converter = ##class(APPS.EC.Verkoop.impl.OfferteConverter).%New(OfferteServiceStub, WinkelkarServiceStub, GeldigheidVermeldingBepalerStub)
+	#dim Resultaat As APPS.EC.dto.Offerte = Converter.ConverteerNaarECommerce(TeConverterenOfferte)
+	
+	Do $$$AssertEquals(Resultaat.OfferteID,"1000")
+	Do $$$AssertEquals(Resultaat.Hoofding.BestelDatum,"")
+	Do $$$AssertEquals(Resultaat.Hoofding.BestelOpmerking,"BestelOpmerking")
+	Do $$$AssertEquals(Resultaat.Hoofding.LeveringDetail.Datum,"")
+	Do $$$AssertEquals(Resultaat.Hoofding.Referentie.CommissieReferentie,"CommissieReferentie")
+	Do $$$AssertEquals(Resultaat.Hoofding.Referentie.KlantOrderNummer,"")
+	Do $$$AssertEquals(Resultaat.Hoofding.Referentie.OrderReferentie,"OrderReferentie")
+	Do $$$AssertEquals(Resultaat.Winkelkar.Lijnen.Count(),1)
+	Do $$$AssertEquals(Resultaat.GeldigheidVermelding,"Vermelding")
+	Do $$$AssertEquals(Resultaat.Melding,"")
+	Do $$$AssertNotEquals(Resultaat.GekoppeldeOfferte,"")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
FishEye: Tag 42495 refers to a dead (removed) revision in file `vhUnitTest/APPS/EC/Verkoop/impl/OfferteNaarDtoConverter/Converteer.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?