Index: vhUnitTest/DOM/PM/Maatwerk/Calc/HF/IHalffabItem/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/Maatwerk/Calc/HF/IHalffabItem/Test.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/Maatwerk/Calc/HF/IHalffabItem/Test.cls.xml	(revision 30235)
@@ -0,0 +1,148 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.PM.Maatwerk.Calc.HF.IHalffabItem.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="OnBeforeAllTests">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Do ##class(vhUnitTest.DOM.PM.TestData).%New().CreeerTestData(1001,1001)
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterAllTests">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Do ##class(vhUnitTest.DOM.PM.TestData).%New().VerwijderTestData(1001,1001)
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="TestStandaardHalffabItemDto">
+<Implementation><![CDATA[
+	#dim StandaardHalffabItem As DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem = ..GeefStandaardHalffabItem()
+	
+	Set Visitor = ##class(DOM.PM.Maatwerk.Calc.HF.impl.HalffabItemNaarDtoVisitor).%New()
+	Do StandaardHalffabItem.Accept(Visitor)
+	
+	#dim HalffabDto As DOM.PM.Maatwerk.Calc.HF.dto.StandaardHalffabItem = Visitor.GeefHalffabItem()
+	
+	Do $$$AssertTrue($IsObject(HalffabDto))
+	Do $$$AssertEquals(HalffabDto.Aantal,StandaardHalffabItem.Aantal)
+	Do $$$AssertEquals(HalffabDto.Gewicht,StandaardHalffabItem.Gewicht)
+	Do $$$AssertEquals(HalffabDto.OpnemenInEindproduct,StandaardHalffabItem.OpnemenInEindproduct)
+	Do $$$AssertEquals(HalffabDto.Rol, StandaardHalffabItem.GeefRol())
+	Do $$$AssertTrue($L(HalffabDto.OmschrijvingVoorDocs)>0,"")
+	Do $$$AssertTrue($L(HalffabDto.OmschrijvingVoorPicking)>0,"")
+	Do $$$AssertEquals(HalffabDto.OpmerkingVoorProductieDocument,StandaardHalffabItem.OpmerkingVoorProductieDocument)
+	Do $$$AssertEquals(HalffabDto.ProductData.ID,StandaardHalffabItem.GeefHalffab().GeefProductID())
+]]></Implementation>
+</Method>
+
+<Method name="TestBewerktHalffabItemDto">
+<Implementation><![CDATA[
+	Set BewerktHalffabItem = ##class(DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem).%New(..GeefContext(),"BewerktHalffabItem",##class(DOM.PM.Maatwerk.Calc.HF.Halffab).%New(1001))
+	Set BewerktHalffabItem.Aantal = 1
+	Set BewerktHalffabItem.Gewicht = 12
+	Set BewerktHalffabItem.OpnemenInEindproduct = 1
+	Do BewerktHalffabItem.ZetMagazijnZoneID("")
+	Set BewerktHalffabItem.OpmerkingVoorProductieDocument = "Opmerking voor productiedocument"
+	Do BewerktHalffabItem.ZetOmschrijvingVoorDocs("Omschrijving voor docs")
+	Do BewerktHalffabItem.ZetOmschrijvingVoorPicking("Omschrijving voor picking")
+	Do BewerktHalffabItem.ZetBewerkteDimensie("Lengte",123)
+	Do BewerktHalffabItem.ZetBewerkteDimensie("Breedte",456)
+	Set BewerktHalffabItem.AfmetingAangerekendPerStuk = 7
+	Set BewerktHalffabItem.AfmetingMetBewerkingVerlies = 10
+	Set BewerktHalffabItem.TeBekomenAantal = 6
+	
+	Set Visitor = ##class(DOM.PM.Maatwerk.Calc.HF.impl.HalffabItemNaarDtoVisitor).%New()
+	Do BewerktHalffabItem.Accept(Visitor)
+	
+	#dim HalffabDto As DOM.PM.Maatwerk.Calc.HF.dto.BewerktHalffabItem = Visitor.GeefHalffabItem()
+	
+	Do $$$AssertTrue($IsObject(HalffabDto))
+	Do $$$AssertEquals(HalffabDto.Aantal,BewerktHalffabItem.Aantal)
+	Do $$$AssertEquals(HalffabDto.Gewicht,BewerktHalffabItem.Gewicht)
+	Do $$$AssertEquals(HalffabDto.OpnemenInEindproduct,BewerktHalffabItem.OpnemenInEindproduct)
+	Do $$$AssertEquals(HalffabDto.Rol, BewerktHalffabItem.GeefRol())
+	Do $$$AssertTrue($L(HalffabDto.OmschrijvingVoorDocs)>0,"")
+	Do $$$AssertTrue($L(HalffabDto.OmschrijvingVoorPicking)>0,"")
+	Do $$$AssertEquals(HalffabDto.OpmerkingVoorProductieDocument,BewerktHalffabItem.OpmerkingVoorProductieDocument)
+	Do $$$AssertEquals(HalffabDto.ProductData.ID,BewerktHalffabItem.GeefHalffab().GeefProductID())
+	Do $$$AssertEquals(HalffabDto.AfmetingAangerekendPerStuk,BewerktHalffabItem.AfmetingAangerekendPerStuk)
+	Do $$$AssertEquals(HalffabDto.AfmetingMetBewerkingVerlies,BewerktHalffabItem.AfmetingMetBewerkingVerlies)
+	Do $$$AssertEquals(HalffabDto.TeBekomenAantal,BewerktHalffabItem.TeBekomenAantal)
+	Do $$$AssertEquals(HalffabDto.BewerkingDimensies.Count(),2)
+	Do $$$AssertEquals(HalffabDto.BewerkingDimensies.GetAt(1).Key,"Breedte")
+	Do $$$AssertEquals(HalffabDto.BewerkingDimensies.GetAt(1).Value,456)
+]]></Implementation>
+</Method>
+
+<Method name="TestInbegrepenHalffabItemDto">
+<Implementation><![CDATA[
+	Set InbegrepenHalffabItem = ##class(DOM.PM.Maatwerk.Calc.HF.InbegrepenHalffabItem).%New(..GeefContext(),"InbegrepenHalffabItem")
+	Set InbegrepenHalffabItem.Aantal = 1
+	Set InbegrepenHalffabItem.Gewicht = 12
+	Set InbegrepenHalffabItem.OpnemenInEindproduct = 1
+	Set InbegrepenHalffabItem.HalffabItem = ..GeefStandaardHalffabItem()
+	
+	Set Visitor = ##class(DOM.PM.Maatwerk.Calc.HF.impl.HalffabItemNaarDtoVisitor).%New()
+	Do InbegrepenHalffabItem.Accept(Visitor)
+	#dim HalffabDto As DOM.PM.Maatwerk.Calc.HF.dto.InbegrepenHalffabItem = Visitor.GeefHalffabItem()
+	
+	Do $$$AssertTrue($IsObject(HalffabDto))
+	Do $$$AssertEquals(HalffabDto.Aantal,InbegrepenHalffabItem.Aantal)
+	Do $$$AssertEquals(HalffabDto.Gewicht,InbegrepenHalffabItem.Gewicht)
+	Do $$$AssertEquals(HalffabDto.OpnemenInEindproduct,InbegrepenHalffabItem.OpnemenInEindproduct)
+	Do $$$AssertEquals(HalffabDto.Rol, InbegrepenHalffabItem.GeefRol())
+	Do $$$AssertTrue($IsObject(HalffabDto.HalffabItem))
+]]></Implementation>
+</Method>
+
+<Method name="TestSamengesteldHalffabItemDto">
+<Implementation><![CDATA[
+	Set SamengesteldItem = ##class(DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem).%New(..GeefContext(),"SamengesteldHalffabItem")
+	Set SamengesteldItem.Aantal = 1
+	Set SamengesteldItem.Gewicht = 13
+	Set SamengesteldItem.OpnemenInEindproduct = 1
+	Do SamengesteldItem.VoegToe(..GeefStandaardHalffabItem())
+	
+	Set Visitor = ##class(DOM.PM.Maatwerk.Calc.HF.impl.HalffabItemNaarDtoVisitor).%New()
+	Do SamengesteldItem.Accept(Visitor)
+	#dim HalffabDto As DOM.PM.Maatwerk.Calc.HF.dto.InbegrepenHalffabItem = Visitor.GeefHalffabItem()
+	
+	Do $$$AssertTrue($IsObject(HalffabDto))
+	Do $$$AssertEquals(HalffabDto.Aantal,SamengesteldItem.Aantal)
+	Do $$$AssertEquals(HalffabDto.Gewicht,SamengesteldItem.Gewicht)
+	Do $$$AssertEquals(HalffabDto.OpnemenInEindproduct,SamengesteldItem.OpnemenInEindproduct)
+	Do $$$AssertEquals(HalffabDto.HalffabItems.Count(),1)
+]]></Implementation>
+</Method>
+
+<Method name="GeefContext">
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.HF.HalffabContext</ReturnType>
+<Implementation><![CDATA[	Quit ##class(vhTest.Fake.DOM.PM.Maatwerk.Calc.HF.HalffabContext).%New("","","","")
+]]></Implementation>
+</Method>
+
+<Method name="GeefStandaardHalffabItem">
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem</ReturnType>
+<Implementation><![CDATA[
+	Set StandaardHalffabItem = ##class(DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem).%New(..GeefContext(),"StandaardHalffabItem", ##class(DOM.PM.Maatwerk.Calc.HF.Halffab).%New(1001))
+	Set StandaardHalffabItem.Aantal = 1
+	Set StandaardHalffabItem.Gewicht = 12
+	Set StandaardHalffabItem.OpnemenInEindproduct = 1
+	Do StandaardHalffabItem.ZetMagazijnZoneID("")
+	Do StandaardHalffabItem.ZetOmschrijvingVoorDocs("Omschrijving voor docs")
+	Do StandaardHalffabItem.ZetOmschrijvingVoorPicking("Omschrijving voor picking")
+	Set StandaardHalffabItem.OpmerkingVoorProductieDocument = "Opmerking voor productiedocument"
+	Quit StandaardHalffabItem
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
FishEye: Tag 30235 refers to a dead (removed) revision in file `vhUnitTest/DOM/PM/Maatwerk/HF/TestHalffabItem.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?