FishEye: Tag 38111 refers to a dead (removed) revision in file `vhUnitTest/BL/Legacy/EWORDSW.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: vhUnitTest/Legacy/EWORDSW/TestSOFTV.cls.xml
===================================================================
diff -u -r31313 -r38111
--- vhUnitTest/Legacy/EWORDSW/TestSOFTV.cls.xml	(.../TestSOFTV.cls.xml)	(revision 31313)
+++ vhUnitTest/Legacy/EWORDSW/TestSOFTV.cls.xml	(.../TestSOFTV.cls.xml)	(revision 38111)
@@ -3,66 +3,91 @@
 <Class name="vhUnitTest.Legacy.EWORDSW.TestSOFTV">
 <Super>vhUnitTest.TestCase</Super>
 
-<Method name="OnAfterOneTest">
-<FormalSpec>aTestName:%String</FormalSpec>
+<Property name="UglyPickingProduct">
+<Type>%String</Type>
+<InitialExpression>1000</InitialExpression>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="LanggoedProduct">
+<Type>%String</Type>
+<InitialExpression>1001</InitialExpression>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="TandemProduct">
+<Type>%String</Type>
+<InitialExpression>691692</InitialExpression>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="Klant">
+<Type>DOM.VKP.VanHoeckeKlant</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeAllTests">
 <Implementation><![CDATA[
-	Do ##super(aTestName)
-	do ##class(vhUnitTest.DOM.PM.TestData).%New().VerwijderTestData(1000,1002)
+	Do ##super()
+	
+	Set ..Klant = ##class(vhTest.Data.DOM.VKP.VanHoeckeKlant).MaakBelgischeConsument()
+	Do ##class(vhUnitTest.DOM.PM.TestData).%New().CreeerTestData(1000,1001)
+	
+	#define OpslagZoneUglyPicking 2
+	#define OpslagZoneLanggoed 3	
+	
+	Set $Piece(^KPR(..UglyPickingProduct,2),"\",15) = $$$OpslagZoneUglyPicking
+	Set $Piece(^KPR(..LanggoedProduct,2),"\",15) = $$$OpslagZoneLanggoed
 ]]></Implementation>
 </Method>
 
-<Method name="OnBeforeOneTest">
-<FormalSpec>aTestName:%String</FormalSpec>
+<Method name="OnAfterAllTests">
 <Implementation><![CDATA[
-	Do ##super(aTestName)
-	do ##class(vhUnitTest.DOM.PM.TestData).%New().CreeerTestData(1000,1002)
-	#define UglyPicking 2
-	#define Langgoed 3	
-	Set $Piece(^KPR(1000,2),"\",15) = $$$UglyPicking
-	Set $Piece(^KPR(1001,2),"\",15) = $$$UglyPicking
-	Set $Piece(^KPR(1002,2),"\",15) = $$$Langgoed
+	Do ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().VerwijderKlant(..Klant.GeefID())
+	Do ##class(vhUnitTest.DOM.PM.TestData).%New().VerwijderTestData(1000,1001)
+	Do ##super()
 ]]></Implementation>
 </Method>
 
-<Method name="TestTAORIndeling">
+<Method name="Test: TAORIndeling producten in consolidatie dan wordt het ORGALUX soft-magazijn genomen">
 <Implementation><![CDATA[
-	#dim SoftV As %String = $$SOFTV^EWORDSW(1000,15522,1,$LB(##class(BL.Legacy.enu.ProductBevatType).TaorIndeling()))
-	Do $$$AssertEquals(SoftV,##class(APPS.MAG.enu.Magazijn).TAORIndeling())
+	#dim SoftV As %String = $$SOFTV^EWORDSW(..UglyPickingProduct,..Klant.GeefCode(),1,$LB(##class(BL.Legacy.enu.ProductBevatType).TaorIndeling()))
+	Do $$$AssertEquals(SoftV,##class(APPS.MAG.enu.Magazijn).Orgalux())
 ]]></Implementation>
 </Method>
 
-<Method name="TestTAORIndelingEnOrgalux-&gt;Orgalux">
+<Method name="Test: TAORIndeling en Orgalux producten in consolidatie dan wordt het ORGALUX soft-magazijn genomen">
 <Implementation><![CDATA[
-	#dim SoftV As %String = $$SOFTV^EWORDSW(1000,15522,1,$LB(##class(BL.Legacy.enu.ProductBevatType).TaorIndeling(), ##class(BL.Legacy.enu.ProductBevatType).Orgalux()))
+	#dim SoftV As %String = $$SOFTV^EWORDSW(..UglyPickingProduct,..Klant.GeefCode(),1,$LB(##class(BL.Legacy.enu.ProductBevatType).TaorIndeling(), ##class(BL.Legacy.enu.ProductBevatType).Orgalux()))
 	Do $$$AssertEquals(SoftV,##class(APPS.MAG.enu.Magazijn).Orgalux())
 ]]></Implementation>
 </Method>
 
-<Method name="TestOrgalux">
+<Method name="Test: Orgalux producten in de consolidatie dan wordt het ORGALUX soft-magazijn genomen">
 <Implementation><![CDATA[
-	#dim SoftV As %String = $$SOFTV^EWORDSW(1001,15522,1,$LB(##class(BL.Legacy.enu.ProductBevatType).Orgalux()))
+	#dim SoftV As %String = $$SOFTV^EWORDSW(..UglyPickingProduct,..Klant.GeefCode(),1,$LB(##class(BL.Legacy.enu.ProductBevatType).Orgalux()))
 	Do $$$AssertEquals(SoftV,##class(APPS.MAG.enu.Magazijn).Orgalux())
 ]]></Implementation>
 </Method>
 
-<Method name="TestLanggoed">
+<Method name="Test: Langgoed producten toevoegen aan een consolidatie dan wordt het LANGGOED soft-magazijn genomen">
 <Implementation><![CDATA[
-	#dim SoftV As %String = $$SOFTV^EWORDSW(1002,15522,1,$LB(""))
+	#dim SoftV As %String = $$SOFTV^EWORDSW(..LanggoedProduct,..Klant.GeefCode(),1,$LB())
 	Do $$$AssertEquals(SoftV,##class(APPS.MAG.enu.Magazijn).LangGoed())
 ]]></Implementation>
 </Method>
 
-<Method name="TestTandem">
+<Method name="Test: Tandem product toevoegen aan een consolidatie dan wordt het UGLY soft-magazijn genomen">
 <Implementation><![CDATA[
-	#dim SoftV As %String = $$SOFTV^EWORDSW(691692,1000,1,$LB())
-	Do $$$AssertEquals(SoftV,##class(APPS.MAG.enu.Magazijn).TandemAventos())
+	#dim SoftV As %String = $$SOFTV^EWORDSW(..TandemProduct,..Klant.GeefCode(),1,$LB())
+	Do $$$AssertEquals(SoftV,##class(APPS.MAG.enu.Magazijn).Ugly())
 ]]></Implementation>
 </Method>
 
-<Method name="TestTandemMetBevatTandem">
+<Method name="Test: Tandem product toevoegen aan een consolidatie met Tandem producten dan wordt het UGLY soft-magazijn genomen">
 <Implementation><![CDATA[
-	#dim SoftV As %String = $$SOFTV^EWORDSW(691692,1000,1,$LB(##class(BL.Legacy.enu.ProductBevatType).Tandem()))
-	Do $$$AssertEquals(SoftV,##class(APPS.MAG.enu.Magazijn).TandemAventos())
+	#dim SoftV As %String = $$SOFTV^EWORDSW(..TandemProduct,..Klant.GeefCode(),1,$LB(##class(BL.Legacy.enu.ProductBevatType).Tandem()))
+	Do $$$AssertEquals(SoftV,##class(APPS.MAG.enu.Magazijn).Ugly())
 ]]></Implementation>
 </Method>
 </Class>