Index: vhUnitTest/APPS/EC/Transport/Service/TestBerekenPalletGegevens.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/EC/Transport/Service/TestBerekenPalletGegevens.cls.xml	(revision 0)
+++ vhUnitTest/APPS/EC/Transport/Service/TestBerekenPalletGegevens.cls.xml	(revision 41607)
@@ -0,0 +1,121 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.EC.Transport.Service.TestBerekenPalletGegevens">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="SessieDummy">
+<Type>APPS.EC.Transport.dto.KlantIdentificatie</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	Do ##super()
+	Set ..SessieDummy = ##class(APPS.EC.Transport.dto.KlantIdentificatie).%New("DummyPersonality","DummyKlant")
+]]></Implementation>
+</Method>
+
+<Method name="Test: BerekenPalletGegevens roept StapelingBepaler Bereken op met CollisOpPallet per combinatie verpakkingtype en ladetype">
+<Implementation><![CDATA[
+	#dim OfferteID As %String = 999
+	
+	#dim DummyVerpakkingen As APPS.VKP.Offerte.dto.VerpakkingList
+	Set DummyVerpakkingen = ##class(vhTest.Utils.APPS.VKP.Offerte.dto.VerpakkingList).GeefVerpakkingsList()
+	
+	Set VerkoopOfferteServiceMock = ##class(vhTest.Mock.APPS.VKP.OfferteService).%New()
+	Do VerkoopOfferteServiceMock.VerwachtMethodCall("GeefProductVerpakkingDetails",OfferteID).DanReturn(DummyVerpakkingen)
+	
+	Set StapelingBepalerSpy = ##class(vhTest.Spy.APPS.TRANSP.Offerte.impl.DHL.StapelingBepaler).%New()
+	Do StapelingBepalerSpy.VerwachtMethodCall("Bereken",$$$ElkeWaarde)
+	
+	Set Service = ##class(APPS.EC.Transport.Service).%New(VerkoopOfferteServiceMock, , , , , StapelingBepalerSpy)
+	Do Service.BerekenPalletGegevens(OfferteID)
+	
+	Do VerkoopOfferteServiceMock.Verifieer()
+	Do StapelingBepalerSpy.Verifieer()
+	
+	#dim CollisOpPalletList As %ListOfObjects = StapelingBepalerSpy.GeefCollisOpPalletList()
+	if $$$AssertEquals(CollisOpPalletList.Count(),5) {
+		Do $$$AssertEquals(CollisOpPalletList.GetAt(1).Groep, ##class(APPS.VKP.Offerte.enu.LadeType).Taorbox() _"_" _##class(APPS.VKP.Offerte.enu.VerpakkingType).V1())
+		Do $$$AssertEquals(CollisOpPalletList.GetAt(2).Groep,##class(APPS.VKP.Offerte.enu.LadeType).Taorbox() _"_" _##class(APPS.VKP.Offerte.enu.VerpakkingType).Probox())
+		Do $$$AssertEquals(CollisOpPalletList.GetAt(3).Groep,##class(APPS.VKP.Offerte.enu.LadeType).Taorbox() _"_" _##class(APPS.VKP.Offerte.enu.VerpakkingType).FlatpackV1())
+		Do $$$AssertEquals(CollisOpPalletList.GetAt(4).Groep, ##class(APPS.VKP.Offerte.enu.LadeType).LegraboxPure() _"_" _##class(APPS.VKP.Offerte.enu.VerpakkingType).V1())
+		Do $$$AssertEquals(CollisOpPalletList.GetAt(5).Groep, ##class(APPS.VKP.Offerte.enu.LadeType).LegraboxPure() _"_" _##class(APPS.VKP.Offerte.enu.VerpakkingType).Probox())
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Test: BerekenPalletGegevens roept StapelingBepaler Bereken op met enkel CollisOpPallet per opgegeven verpakkingtype en ladetype">
+<Implementation><![CDATA[
+	#dim OfferteID As %String = 999
+	
+	#dim DummyVerpakkingen As APPS.VKP.Offerte.dto.VerpakkingList
+	Set DummyVerpakkingen = ##class(vhTest.Utils.APPS.VKP.Offerte.dto.VerpakkingList).GeefVerpakkingsList()
+	Do DummyVerpakkingen.RemoveAt(5)
+	Do DummyVerpakkingen.RemoveAt(3)
+	
+	Set VerkoopOfferteServiceMock = ##class(vhTest.Mock.APPS.VKP.OfferteService).%New()
+	Do VerkoopOfferteServiceMock.VerwachtMethodCall("GeefProductVerpakkingDetails",OfferteID).DanReturn(DummyVerpakkingen)
+	
+	Set StapelingBepalerSpy = ##class(vhTest.Spy.APPS.TRANSP.Offerte.impl.DHL.StapelingBepaler).%New()
+	Do StapelingBepalerSpy.VerwachtMethodCall("Bereken",$$$ElkeWaarde)
+	
+	Set Service = ##class(APPS.EC.Transport.Service).%New(VerkoopOfferteServiceMock, , , , , StapelingBepalerSpy)
+	Do Service.BerekenPalletGegevens(OfferteID)
+	
+	Do VerkoopOfferteServiceMock.Verifieer()
+	Do StapelingBepalerSpy.Verifieer()
+	
+	#dim CollisOpPalletList As %ListOfObjects = StapelingBepalerSpy.GeefCollisOpPalletList()
+	if $$$AssertEquals(CollisOpPalletList.Count(),3) {
+		Do $$$AssertEquals(CollisOpPalletList.GetAt(1).Groep, ##class(APPS.VKP.Offerte.enu.LadeType).Taorbox() _"_" _##class(APPS.VKP.Offerte.enu.VerpakkingType).V1())
+		Do $$$AssertEquals(CollisOpPalletList.GetAt(2).Groep,##class(APPS.VKP.Offerte.enu.LadeType).Taorbox() _"_" _##class(APPS.VKP.Offerte.enu.VerpakkingType).Probox())
+		Do $$$AssertEquals(CollisOpPalletList.GetAt(3).Groep, ##class(APPS.VKP.Offerte.enu.LadeType).LegraboxPure() _"_" _##class(APPS.VKP.Offerte.enu.VerpakkingType).Probox())
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Test: BerekenPalletGegevens Converteert Verpakkingslist naar CollisOpPallet">
+<Implementation><![CDATA[
+	#dim OfferteID As %String = 999
+	
+	#dim DummyVerpakkingen As APPS.VKP.Offerte.dto.VerpakkingList
+	Set DummyVerpakkingen = ##class(vhTest.Utils.APPS.VKP.Offerte.dto.VerpakkingList).GeefVerpakkingsList()
+	
+	Set VerkoopOfferteServiceMock = ##class(vhTest.Mock.APPS.VKP.OfferteService).%New()
+	Do VerkoopOfferteServiceMock.IndienMethodCall("GeefProductVerpakkingDetails",OfferteID).DanReturn(DummyVerpakkingen)
+	
+	Set StapelingBepalerSpy = ##class(vhTest.Spy.APPS.TRANSP.Offerte.impl.DHL.StapelingBepaler).%New()
+	Do StapelingBepalerSpy.IndienMethodCall("Bereken", $$$ElkeWaarde).DanDoeNiks()
+	
+	Set Service = ##class(APPS.EC.Transport.Service).%New(VerkoopOfferteServiceMock, , , , , StapelingBepalerSpy)
+	Do Service.BerekenPalletGegevens(OfferteID)
+	
+	#dim CollisOpPalletList As %ListOfObjects = StapelingBepalerSpy.GeefCollisOpPalletList()
+	if $$$AssertEquals(CollisOpPalletList.Count(),5) {
+		#dim CollisOpPallet As APPS.TRANSP.Stapeling.dto.CollisOpPallet = CollisOpPalletList.GetAt(1)
+		Do $$$AssertEquals(CollisOpPallet.Referentie, OfferteID)
+		Do $$$AssertEquals(CollisOpPallet.Settings.PalletFormaten.Count(), 2)
+		Do $$$AssertEquals(CollisOpPallet.Settings.PalletFormaten.GetAt(1), ##class(APPS.TRANSP.Stapeling.enu.PalletFormaat).EuroPallet())
+		Do $$$AssertEquals(CollisOpPallet.Settings.PalletFormaten.GetAt(2), ##class(APPS.TRANSP.Stapeling.enu.PalletFormaat).WegwerpPallet())
+		#dim ColliOpPallet As APPS.TRANSP.Stapeling.dto.ColliOpPallet = CollisOpPallet.Collis.GetAt(1)
+		Do $$$AssertEquals(ColliOpPallet.Aantal, 1)
+		Do $$$AssertEquals(ColliOpPallet.GewichtInKg, .02)
+		Do $$$AssertEquals(ColliOpPallet.ProductID, 4)
+		Do $$$AssertEquals(ColliOpPallet.Afmeting.Hoogte, 20)
+		Do $$$AssertEquals(ColliOpPallet.Afmeting.Breedte, 30)
+		Do $$$AssertEquals(ColliOpPallet.Afmeting.Lengte, 50)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefHuidigeDatum">
+<Private>1</Private>
+<ReturnType>%Date</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentDate()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
FishEye: Tag 41607 refers to a dead (removed) revision in file `vhUnitTest/APPS/EC/Transport/Service/Test.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: vhUnitTest/APPS/EC/Transport/Service/TestGeefMogelijkeZendingen.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/EC/Transport/Service/TestGeefMogelijkeZendingen.cls.xml	(revision 0)
+++ vhUnitTest/APPS/EC/Transport/Service/TestGeefMogelijkeZendingen.cls.xml	(revision 41607)
@@ -0,0 +1,163 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.EC.Transport.Service.TestGeefMogelijkeZendingen">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="SessieDummy">
+<Type>APPS.EC.Transport.dto.KlantIdentificatie</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	Do ##super()
+	Set ..SessieDummy = ##class(APPS.EC.Transport.dto.KlantIdentificatie).%New("DummyPersonality","DummyKlant")
+]]></Implementation>
+</Method>
+
+<Method name="Test: GeefMogelijkeZendingen wordt opgeroepen en geeft zendingdetails terug">
+<Implementation><![CDATA[
+	#dim OfferteID As %String = 999
+	
+	Set DummyLeverAdres = ##class(vhTest.Dummy.APPS.TRANSP.dto.InternationaalAdres).%New()
+	set DummyVerpakkingen = ##class(APPS.VKP.Offerte.dto.VerpakkingList).%New()
+	#dim DummyWinkelKarID As %String = "DummyWinkelKarID"
+	
+	Set VerkoopOfferteServiceMock = ##class(vhTest.Mock.APPS.VKP.OfferteService).%New()
+	Do VerkoopOfferteServiceMock.VerwachtMethodCall("GeefProductVerpakkingDetails",OfferteID).DanReturn(DummyVerpakkingen)
+	Do VerkoopOfferteServiceMock.VerwachtMethodCall("GeefLeverAdres",OfferteID).DanReturn(DummyLeverAdres)
+	Do VerkoopOfferteServiceMock.VerwachtMethodCall("GeefWinkelKarID",OfferteID).DanReturn(DummyWinkelKarID)
+
+	#dim DummyDatum As %Date = ..GeefHuidigeDatum()
+	
+	Set DummyWinkelKarService = ##class(vhTest.Mock.APPS.EC.Winkelkar.WinkelkarService).%New()
+	Do DummyWinkelKarService.IndienMethodCall("GeefVroegsteAfhaalDatum",DummyWinkelKarID).DanReturn(DummyDatum)
+	
+	set DummyBerekenInput = ##class(APPS.TRANSP.OfferteService.dto.BerekenInput).%New()
+
+	Set NaarBerekenInputConverterMock = ##class(vhTest.Mock.APPS.VKP.OfferteService.impl.NaarBerekenInputConverter).%New()
+	Do NaarBerekenInputConverterMock.VerwachtMethodCall("Convert", DummyVerpakkingen, DummyLeverAdres, OfferteID, DummyDatum).DanReturn(DummyBerekenInput)
+
+	set ZendingDetails = ##class(APPS.EC.Transport.dto.VerzendingMogelijkheden).%New()
+	set ZendingDetail = ##class(APPS.EC.Transport.dto.VerzendingMogelijkheid).%New()
+	Set ZendingDetail.LeverTijd = "12:00"
+	Set ZendingDetail.Code = "1"
+	Set ZendingDetail.TransportFirma = "UPS"
+	Set ZendingDetail.Optie = ##class(APPS.EC.Transport.dto.Optie).%New()
+	Do ZendingDetails.VerzendingMogelijkheden.Insert(ZendingDetail)
+	
+	Set HaalZendingDetailsMock = ##class(vhTest.Mock.APPS.EC.Transport.impl.ZendingDetails).%New()
+	Do HaalZendingDetailsMock.VerwachtMethodCall("GeefZendingDetails",DummyBerekenInput,"E",..SessieDummy).DanReturn(ZendingDetails)
+	
+	#dim BerekeningFoutenRepositoryDummy As vhTest.Mock.APPS.EC.Transport.impl.BerekeningFoutenRepository = ##class(vhTest.Mock.APPS.EC.Transport.impl.BerekeningFoutenRepository).%New()
+	Do BerekeningFoutenRepositoryDummy.IndienMethodCall("VerwijderViaOfferteID",$$$ElkeWaarde).DanDoeNiks()
+	Do BerekeningFoutenRepositoryDummy.IndienMethodCall("BestaatViaOfferteID",$$$ElkeWaarde).DanDoeNiks()
+	Do BerekeningFoutenRepositoryDummy.IndienMethodCall("Bewaar",$$$ElkeWaarde).DanDoeNiks()
+	
+	Set Service = ##class(APPS.EC.Transport.Service).%New(VerkoopOfferteServiceMock, NaarBerekenInputConverterMock, HaalZendingDetailsMock, , DummyWinkelKarService,,BerekeningFoutenRepositoryDummy)
+	#dim Resultaat As APPS.EC.Transport.dto.VerzendingMogelijkheden = Service.GeefMogelijkeZendingen(OfferteID, ,..SessieDummy)
+	
+	Do VerkoopOfferteServiceMock.Verifieer()
+	Do NaarBerekenInputConverterMock.Verifieer()
+	Do HaalZendingDetailsMock.Verifieer()
+	
+	Do $$$AssertEqualsList(ZendingDetails.VerzendingMogelijkheden, Resultaat.VerzendingMogelijkheden)
+]]></Implementation>
+</Method>
+
+<Method name="Test: ZetGekozenVerzendingMogelijkheid bewaart Verzendingmogelijkheid bij de offerte">
+<Implementation><![CDATA[
+	#dim OfferteID As %String = 1
+	#dim VerzendingMogelijkheidID As %String = 1
+	
+	#dim VerkoopOfferteDummy As vhTest.Mock.APPS.VKP.Offerte = ##class(vhTest.Mock.APPS.VKP.Offerte).%New()
+	Do VerkoopOfferteDummy.VerwachtMethodCall("ZetVerzendingItem",$$$ElkeWaarde).DanDoeNiks()
+	Do VerkoopOfferteDummy.IndienMethodCall("ZetLeverDatum",$$$ElkeWaarde).DanDoeNiks()
+	Do VerkoopOfferteDummy.VerwachtMethodCall("ZetCarbonNeutral",$$$ElkeWaarde).DanDoeNiks()
+
+	#dim OfferteBewaarderDummy As vhTest.Mock.APPS.VKP.OfferteBewaarder = ##class(vhTest.Mock.APPS.VKP.OfferteBewaarder).%New()
+	Do OfferteBewaarderDummy.VerwachtMethodCall("Bewaar",$$$ElkeWaarde).DanDoeNiks()
+	
+	Set VerkoopOfferteServiceMock = ##class(vhTest.Mock.APPS.VKP.OfferteService).%New()
+	Do VerkoopOfferteServiceMock.VerwachtMethodCall("GeefOfferte",OfferteID).DanReturn(VerkoopOfferteDummy)
+	Do VerkoopOfferteServiceMock.VerwachtMethodCall("GeefOfferteBewaarder").DanReturn(OfferteBewaarderDummy)
+	
+	
+	Set VerzendingMogelijkheidDummy = ##class(APPS.EC.Transport.data.VerzendingMogelijkheid).%New()
+	Set VerzendingMogelijkheidRepositoryMock = ##class(vhTest.Mock.APPS.EC.Transport.impl.VerzendingMogelijkheidRepository).%New()
+	Do VerzendingMogelijkheidRepositoryMock.VerwachtMethodCall("GeefViaOfferteIDEnVerzendingMogelijkheidID", OfferteID, VerzendingMogelijkheidID).DanReturn(VerzendingMogelijkheidDummy)
+
+	#dim OptieKeuze As %Integer = 0
+	#dim Service As APPS.EC.Transport.Service = ##class(APPS.EC.Transport.Service).%New(VerkoopOfferteServiceMock,"","",VerzendingMogelijkheidRepositoryMock)
+	Do Service.ZetGekozenVerzendingMogelijkheid(OfferteID,VerzendingMogelijkheidID,OptieKeuze)
+
+	Do VerkoopOfferteDummy.Verifieer()
+	Do OfferteBewaarderDummy.Verifieer()
+	Do VerkoopOfferteServiceMock.Verifieer()
+	Do VerzendingMogelijkheidRepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: ZetGekozenVerzendingMogelijkheid bewaart Verzendingmogelijkheid en geeft foutmelding op niet gekende offerteID">
+<Implementation><![CDATA[
+	#dim OfferteID As %String = 3
+	#dim VerzendingMogelijkheidID As %String = 1
+	
+	Set DummyException = ##class(TECH.Exceptions.GeneralErrorException).%New("OfferteID bestaat niet.")
+	
+	Set VerkoopOfferteServiceMock = ##class(vhTest.Mock.APPS.VKP.OfferteService).%New()
+	Do VerkoopOfferteServiceMock.IndienMethodCall("GeefOfferte",OfferteID).DanException(DummyException)
+
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("OfferteID bestaat niet.")
+	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.GeneralErrorException",Substrings))
+	
+	Set VerzendingMogelijkheidDummy = ##class(APPS.EC.Transport.data.VerzendingMogelijkheid).%New()
+	Set VerzendingMogelijkheidRepositoryMock = ##class(vhTest.Mock.APPS.EC.Transport.impl.VerzendingMogelijkheidRepository).%New()
+
+	Set Service = ##class(APPS.EC.Transport.Service).%New(VerkoopOfferteServiceMock,"","",VerzendingMogelijkheidRepositoryMock)
+	Do Service.ZetGekozenVerzendingMogelijkheid(OfferteID,VerzendingMogelijkheidID,"")
+]]></Implementation>
+</Method>
+
+<Method name="Test: ZetGekozenVerzendingMogelijkheid bewaart Verzendingmogelijkheid en geeft foutmelding bij BewaarOfferte">
+<Implementation><![CDATA[
+	#dim OfferteID As %String = 1
+	#dim VerzendingMogelijkheidID As %String = 1
+	
+	#dim DummyException As TECH.Exceptions.GeneralErrorException = ##class(TECH.Exceptions.GeneralErrorException).%New("Kan offerte niet bewaren.")
+
+	#dim VerkoopOfferteDummy As vhTest.Mock.APPS.VKP.Offerte = ##class(vhTest.Mock.APPS.VKP.Offerte).%New()
+	Do VerkoopOfferteDummy.IndienMethodCall("ZetVerzendingItem",$$$ElkeWaarde).DanDoeNiks()
+	Do VerkoopOfferteDummy.IndienMethodCall("ZetLeverDatum",$$$ElkeWaarde).DanDoeNiks()
+	Do VerkoopOfferteDummy.IndienMethodCall("ZetCarbonNeutral",$$$ElkeWaarde).DanDoeNiks()
+
+	#dim OfferteBewaarderDummy As vhTest.Mock.APPS.VKP.OfferteBewaarder = ##class(vhTest.Mock.APPS.VKP.OfferteBewaarder).%New()
+	Do OfferteBewaarderDummy.IndienMethodCall("Bewaar",$$$ElkeWaarde).DanException(DummyException)
+
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Kan offerte niet bewaren.")
+	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.GeneralErrorException",Substrings))
+
+	Set VerkoopOfferteServiceMock = ##class(vhTest.Mock.APPS.VKP.OfferteService).%New()
+	Do VerkoopOfferteServiceMock.IndienMethodCall("GeefOfferte",OfferteID).DanReturn(VerkoopOfferteDummy)
+	Do VerkoopOfferteServiceMock.IndienMethodCall("GeefOfferteBewaarder").DanReturn(OfferteBewaarderDummy)
+	
+	Set VerzendingMogelijkheidDummy = ##class(APPS.EC.Transport.data.VerzendingMogelijkheid).%New()
+	Set VerzendingMogelijkheidRepositoryMock = ##class(vhTest.Mock.APPS.EC.Transport.impl.VerzendingMogelijkheidRepository).%New()
+	Do VerzendingMogelijkheidRepositoryMock.IndienMethodCall("GeefViaOfferteIDEnVerzendingMogelijkheidID", OfferteID, VerzendingMogelijkheidID).DanReturn(VerzendingMogelijkheidDummy)
+
+	#dim OptieKeuze As %Integer = 0
+	#dim Service As APPS.EC.Transport.Service = ##class(APPS.EC.Transport.Service).%New(VerkoopOfferteServiceMock,"","",VerzendingMogelijkheidRepositoryMock)
+	Do Service.ZetGekozenVerzendingMogelijkheid(OfferteID,VerzendingMogelijkheidID,OptieKeuze)
+]]></Implementation>
+</Method>
+
+<Method name="GeefHuidigeDatum">
+<Private>1</Private>
+<ReturnType>%Date</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentDate()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>