Index: vhUnitTest/APPS/VKP/Maatwerk/WinkelkarToProductVisitor/TAX/WinkelkarToProductVisitor.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/VKP/Maatwerk/WinkelkarToProductVisitor/TAX/WinkelkarToProductVisitor.cls.xml	(revision 0)
+++ vhUnitTest/APPS/VKP/Maatwerk/WinkelkarToProductVisitor/TAX/WinkelkarToProductVisitor.cls.xml	(revision 30522)
@@ -0,0 +1,53 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.VKP.Maatwerk.WinkelkarToProductVisitor.TAX.WinkelkarToProductVisitor">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase</Super>
+
+<Parameter name="Type">
+<Type>%String</Type>
+<Default>I</Default>
+</Parameter>
+
+<Property name="TAORKenmerken">
+<Type>DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	do ##super(aTestName)
+	
+	set ..TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLade()
+]]></Implementation>
+</Method>
+
+<Method name="Test">
+<Implementation><![CDATA[
+	#dim Aantal As TECH.Integer = 2
+	#dim EenheidPrijs As TECH.Integer = 13
+	#dim TotaalPrijs As TECH.Integer = 26
+	#dim KlantID = "K||1000"
+	#dim OrderID As TECH.String = 1
+	#dim Winkelkar As DOM.EC.Winkelkar.Winkelkar = ##class(DOM.EC.Winkelkar.InterneWinkelkar).%New("UnitTest")
+	#dim MaatwerkLijn As DOM.EC.Winkelkar.MaatwerkLijn = ##class(vhUnitTest.DOM.EC.Winkelkar.WinkelkarUtils).MaakNieuwMetEigenschappen(Aantal, ..TAORKenmerken, EenheidPrijs, TotaalPrijs)
+	#dim WinkelkarToProductVisitor As APPS.VKP.Maatwerk.impl.WinkelkarToProductVisitor = ##class(APPS.VKP.Maatwerk.impl.WinkelkarToProductVisitor).%New(##class(APPS.VKP.Maatwerk.enu.DocumentType).Offerte(), OrderID, KlantID)
+	
+	do Winkelkar.VoegToe(MaatwerkLijn)
+	do Winkelkar.Accept(WinkelkarToProductVisitor)
+	
+	#dim BesteldeProducten As APPS.VKP.Maatwerk.impl.BesteldeProducten = WinkelkarToProductVisitor.GeefBesteldeProducten()
+	
+	do $$$AssertEquals(BesteldeProducten.Lijst.Count(), 1, "Er is een nieuw product aangemaakt")
+	
+	if (BesteldeProducten.Lijst.Count() > 0) {
+		do DELETE^PRODUKT2(BesteldeProducten.Lijst.GetAt(1).GeefPRNr(), 1)
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
FishEye: Tag 30522 refers to a dead (removed) revision in file `vhUnitTest/APPS/VKP/Maatwerk/WinkelkarToProductVisitor/TAX/TestWinkelkarToProductVisitor.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?