FishEye: Tag 37949 refers to a dead (removed) revision in file `vhUnitTest/APPS/Halux/PPS/Document/impl/common/TussenEtiketVoorToeleveringBepaler/MaakTussenEtiket/TestColliDragerType.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: DOM/AKP/ToeleveringService.cls.xml
===================================================================
diff -u -r37924 -r37949
--- DOM/AKP/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 37924)
+++ DOM/AKP/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 37949)
@@ -23,10 +23,10 @@
 <ReturnType>TECH.Iterator</ReturnType>
 </Method>
 
-<Method name="GeefColliDragerType">
+<Method name="GeefTransportWaarborgType">
 <Abstract>1</Abstract>
 <FormalSpec>ToeleveringID:%String</FormalSpec>
-<ReturnType>%String</ReturnType>
+<ReturnType>DOM.VKP.enu.TransportWaarborgType</ReturnType>
 </Method>
 </Class>
 
Index: vhUnitTest/APPS/Halux/PPS/Document/impl/common/TussenEtiketVoorToeleveringBepaler/MaakTussenEtiket/TestGeefTransportWaarborgType.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/Halux/PPS/Document/impl/common/TussenEtiketVoorToeleveringBepaler/MaakTussenEtiket/TestGeefTransportWaarborgType.cls.xml	(revision 0)
+++ vhUnitTest/APPS/Halux/PPS/Document/impl/common/TussenEtiketVoorToeleveringBepaler/MaakTussenEtiket/TestGeefTransportWaarborgType.cls.xml	(revision 37949)
@@ -0,0 +1,83 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.Halux.PPS.Document.impl.common.TussenEtiketVoorToeleveringBepaler.MaakTussenEtiket.TestGeefTransportWaarborgType">
+<Super>vhUnitTest.TestCase,APPS.Halux.PPS.Document.impl.common.TussenEtiketVoorToeleveringBepaler</Super>
+
+<Property name="ToeleveringID">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="KlantID">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProductIDIterator">
+<Type>TECH.Iterator</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="BatchServiceDummy">
+<Type>vhTest.Dummy.APPS.Halux.common.BatchService</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ToeleveringServiceMock">
+<Type>vhTest.Mock.DOM.AKP.ToeleveringService</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="KennisAnkerRepositoryStub">
+<Type>vhTest.Mock.DOM.common.Kennis.KennisAnkerRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	Set ..ToeleveringID = 222222
+	Set ..KlantID = "K||1111"
+	Set ..ProductIDIterator = ##class(TECH.ListbuildIterator).%New($listbuild(123456,654321))
+	Set ..BatchServiceDummy = ##class(vhTest.Dummy.APPS.Halux.common.BatchService).%New()
+
+	#dim KennisAnkerIterator As TECH.Iterator = ##class(TECH.ItemIterator).New()
+	Set ..KennisAnkerRepositoryStub = ##class(vhTest.Mock.DOM.common.Kennis.KennisAnkerRepository).%New()
+	Do ..KennisAnkerRepositoryStub.IndienMethodCall("GeefKennisAnkerIterator", $$$ElkeWaarde, $$$ElkeWaarde, $$$ElkeWaarde).DanReturn(KennisAnkerIterator)
+
+	Set ..ToeleveringServiceMock = ##class(vhTest.Mock.DOM.AKP.ToeleveringService).%New()
+	Do ..ToeleveringServiceMock.IndienMethodCall("GeefProductIDIterator",..ToeleveringID).DanReturn(..ProductIDIterator)
+	Do ..ToeleveringServiceMock.IndienMethodCall("GeefKlant",..ToeleveringID).DanReturn(##class(vhTest.Fake.DOM.VKP.VanHoeckeKlant).%New(..KlantID))
+]]></Implementation>
+</Method>
+
+<Method name="Test: WEGWERPPALLET wordt op tussenetiket geplaatst indien TransportWaarborgType zonder waarborg is">
+<Implementation><![CDATA[
+	Do ..ToeleveringServiceMock.VerwachtMethodCall("GeefTransportWaarborgType", ..ToeleveringID).DanReturn(##class(DOM.VKP.enu.TransportWaarborgType).ZonderWaarborg())
+
+	Set TussenEtiketVoorToeleveringBepaler = ##class(APPS.Halux.PPS.Document.impl.common.TussenEtiketVoorToeleveringBepaler).%New(..BatchServiceDummy, ..ToeleveringServiceMock, ..KennisAnkerRepositoryStub)
+	#dim TussenEtiket As BL.Etiket.LadeKlantEtiket = TussenEtiketVoorToeleveringBepaler.MaakTussenEtiket(..ToeleveringID)
+	
+	Do $$$AssertEquals(TussenEtiket.Info4,"WEGWERPPALLET")
+	
+	Do ..ToeleveringServiceMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: WEGWERPPALLET wordt niet op tussenetiket geplaatst indien TransportWaarborgType met waarborg is">
+<Implementation><![CDATA[
+	Do ..ToeleveringServiceMock.VerwachtMethodCall("GeefTransportWaarborgType", ..ToeleveringID).DanReturn(##class(DOM.VKP.enu.TransportWaarborgType).MetWaarborg())
+
+	Set TussenEtiketVoorToeleveringBepaler = ##class(APPS.Halux.PPS.Document.impl.common.TussenEtiketVoorToeleveringBepaler).%New(..BatchServiceDummy, ..ToeleveringServiceMock, ..KennisAnkerRepositoryStub)
+	#dim TussenEtiket As BL.Etiket.LadeKlantEtiket = TussenEtiketVoorToeleveringBepaler.MaakTussenEtiket(..ToeleveringID)
+	
+	Do $$$AssertEquals(TussenEtiket.Info4,"")
+	
+	Do ..ToeleveringServiceMock.Verifieer()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/Document/impl/common/TussenEtiketVoorToeleveringBepaler.cls.xml
===================================================================
diff -u -r37924 -r37949
--- APPS/Halux/PPS/Document/impl/common/TussenEtiketVoorToeleveringBepaler.cls.xml	(.../TussenEtiketVoorToeleveringBepaler.cls.xml)	(revision 37924)
+++ APPS/Halux/PPS/Document/impl/common/TussenEtiketVoorToeleveringBepaler.cls.xml	(.../TussenEtiketVoorToeleveringBepaler.cls.xml)	(revision 37949)
@@ -46,17 +46,21 @@
 	Set TussenEtiket = ##class(BL.Etiket.LadeKlantEtiket).%New("")
 	Set TussenEtiket.Info1 = ToeleveringID	
 	Set TussenEtiket.Info3 = "Batch:"_Batch.GeefID()_", "_..DueOutFormatter.GeefGeformatteerdeDueOut(Batch)
-	Set TussenEtiket.Info4 = ..GeefColliDragerType(ToeleveringID)
+	Set TussenEtiket.Info4 = ..GeefPalletType(ToeleveringID)
 	Set TussenEtiket.KennisAnkersTekst = ..GeefKennisAnkersTekst(ToeleveringID)
 	Quit TussenEtiket
 ]]></Implementation>
 </Method>
 
-<Method name="GeefColliDragerType">
+<Method name="GeefPalletType">
 <FormalSpec>ToeleveringID:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit ..ToeleveringService.GeefColliDragerType(ToeleveringID)
+<Implementation><![CDATA[
+	If ..ToeleveringService.GeefTransportWaarborgType(ToeleveringID) = ##class(DOM.VKP.enu.TransportWaarborgType).ZonderWaarborg() {
+		Quit "WEGWERPPALLET"
+	}
+	Quit ""
 ]]></Implementation>
 </Method>
 
Index: vhUnitTest/APPS/Halux/PPS/Document/impl/common/TussenEtiketVoorToeleveringBepaler/MaakTussenEtiket/TestKennisAnker.cls.xml
===================================================================
diff -u -r37908 -r37949
--- vhUnitTest/APPS/Halux/PPS/Document/impl/common/TussenEtiketVoorToeleveringBepaler/MaakTussenEtiket/TestKennisAnker.cls.xml	(.../TestKennisAnker.cls.xml)	(revision 37908)
+++ vhUnitTest/APPS/Halux/PPS/Document/impl/common/TussenEtiketVoorToeleveringBepaler/MaakTussenEtiket/TestKennisAnker.cls.xml	(.../TestKennisAnker.cls.xml)	(revision 37949)
@@ -42,7 +42,7 @@
 	Set ..ProductIDIterator = ##class(TECH.ListbuildIterator).%New($listbuild(123456,654321))
 	Set ..BatchServiceDummy = ##class(vhTest.Dummy.APPS.Halux.common.BatchService).%New()
 	Set ..ToeleveringServiceStub = ##class(vhTest.Mock.DOM.AKP.ToeleveringService).%New()
-	Do ..ToeleveringServiceStub.IndienMethodCall("GeefColliDragerType", $$$ElkeWaarde).DanDoeNiks()
+	Do ..ToeleveringServiceStub.IndienMethodCall("GeefTransportWaarborgType", $$$ElkeWaarde).DanDoeNiks()
 	Do ..ToeleveringServiceStub.IndienMethodCall("GeefProductIDIterator",..ToeleveringID).DanReturn(..ProductIDIterator)
 	Do ..ToeleveringServiceStub.IndienMethodCall("GeefKlant",..ToeleveringID).DanReturn(##class(vhTest.Fake.DOM.VKP.VanHoeckeKlant).%New(..KlantID))
 	Set ..KennisAnkerRepositoryMock = ##class(vhTest.Mock.DOM.common.Kennis.KennisAnkerRepository).%New()
Index: DOM/AKP/impl/ToeleveringService.cls.xml
===================================================================
diff -u -r37924 -r37949
--- DOM/AKP/impl/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 37924)
+++ DOM/AKP/impl/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 37949)
@@ -67,29 +67,17 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefColliDragerType">
+<Method name="GeefTransportWaarborgType">
 <FormalSpec>ToeleveringID:%String</FormalSpec>
-<ReturnType>%String</ReturnType>
+<ReturnType>DOM.VKP.enu.TransportWaarborgType</ReturnType>
 <Implementation><![CDATA[
 	#dim Toelevering As DOM.AKP.Toelevering = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI().GeefToelevering(ToeleveringID)
 	#dim OrderID As %String = Toelevering.GeefOrderID()
 	#dim Order As DOM.VKP.Order = ##class(DOM.DomeinContext).Instance().GeefOrderAPI().GeefOrder(OrderID)
 	
-	If ..IsDHLVerzendingWijze(Order) {
-		Quit "WEGWERPPALLET"
-	} Else {
-		Quit ""
-	}
+	Quit ##class(DOM.VKP.impl.TransportWaarborgTypeBepaler).%New().Bepaal(Order.GeefVerzendingWijze())
 ]]></Implementation>
 </Method>
-
-<Method name="IsDHLVerzendingWijze">
-<FormalSpec>Order:DOM.VKP.Order</FormalSpec>
-<Private>1</Private>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit ($Extract(Order.GeefVerzendingWijze(),1,1)="E")
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: vhTest/Mock/DOM/AKP/ToeleveringService.cls.xml
===================================================================
diff -u -r37924 -r37949
--- vhTest/Mock/DOM/AKP/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 37924)
+++ vhTest/Mock/DOM/AKP/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 37949)
@@ -8,13 +8,6 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>DOM.AKP.ToeleveringService,Tools.Mock.MockClassBase</Super>
 
-<Method name="GeefColliDragerType">
-<FormalSpec>ToeleveringID:%String</FormalSpec>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefColliDragerType",ToeleveringID)
-]]></Implementation>
-</Method>
-
 <Method name="GeefKlant">
 <FormalSpec>ToeleveringID:%String</FormalSpec>
 <ReturnType>DOM.VKP.VanHoeckeKlant</ReturnType>
@@ -35,6 +28,13 @@
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefProductTypes",ToeleveringID)
 ]]></Implementation>
 </Method>
+
+<Method name="GeefTransportWaarborgType">
+<FormalSpec>ToeleveringID:%String</FormalSpec>
+<ReturnType>DOM.VKP.enu.TransportWaarborgType</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefTransportWaarborgType",ToeleveringID)
+]]></Implementation>
+</Method>
 </Class>
 
 
FishEye: Tag 37949 refers to a dead (removed) revision in file `vhUnitTest/DOM/AKP/impl/ToeleveringService/GeefColliDragerType/Test.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?