Do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","BL.Flow.Offerte.TestKADEDI") 1 vhUnitTest.TestCase %String KADEDI.xml %String KADEDI_2.xml %String KADEDI_3.xml %String KADEDI_4.xml %Integer 435 %Integer 1678 %String ALVULXA 1 BestandsNaam:%String BL.Flow.Offerte.dto.KADEDI.ProjectItem Rechts","Beslag element is correct.") Do $$$AssertEquals(Kaderdeur.Beslag.GetAt(1).GeefPositie().X,1559,"Beslag positie X is correct.") Do $$$AssertEquals(Kaderdeur.Beslag.GetAt(1).GeefPositie().Y,6,"Beslag positie Y is correct.") Do $$$AssertEquals(Kaderdeur.Beslag.GetAt(1).GeefPositie().Z,0,"Beslag positie Z is correct.") Do $$$AssertEquals(Kaderdeur.Beslag.GetAt(1).GeefCode(),"BLUMS","Beslag code is correct.") Do $$$AssertEquals(Kaderdeur.Boringen.Count(),4,"Aantal boringen is correct.") Do $$$AssertEquals(Kaderdeur.Boringen.GetAt(1).GeefAfschuinDiameter(),0,"Boring Afschuindiameter is correct.") Do $$$AssertEquals(Kaderdeur.Boringen.GetAt(1).GeefDiameter(),7,"Boring Diameter is correct.") Do $$$AssertEquals(Kaderdeur.Boringen.GetAt(1).GeefElement(),"Vulling","Boring Element is correct.") Do $$$AssertEquals(Kaderdeur.Boringen.GetAt(1).GeefPositie().X,60,"Boring Positie X is correct.") Do $$$AssertEquals(Kaderdeur.Boringen.GetAt(1).GeefPositie().Y,518,"Boring Positie Y is correct.") Do $$$AssertEquals(Kaderdeur.Boringen.GetAt(1).GeefPositie().Z,0,"Boring Positie Z is correct.") Do $$$AssertEquals(Kaderdeur.Boringen.GetAt(1).GeefRichting().X,0,"Boring Richting X is correct.") Do $$$AssertEquals(Kaderdeur.Boringen.GetAt(1).GeefRichting().Y,0,"Boring Richting Y is correct.") Do $$$AssertEquals(Kaderdeur.Boringen.GetAt(1).GeefRichting().Z,-1,"Boring Richting Z is correct.") Do $$$AssertEquals(Kaderdeur.Boringen.GetAt(1).GeefType(),##class(DOM.PM.enu.KADBoringType).Volledig(),"Boring Type is correct.") Do $$$AssertEquals(Kaderdeur.Breedte,..#Breedte,"Breedte is correct.") Do $$$AssertEquals(Kaderdeur.Hoogte,..#Hoogte,"Hoogte is correct.") Do $$$AssertEquals(Kaderdeur.Montage,##class(DOM.PM.enu.KADMontage).KaderEnVulling(),"Montage is correct.") Do $$$AssertEquals(Kaderdeur.Ophangplaats,##class(DOM.PM.enu.KADOphangplaats).Rechts(),"Ophangplaats is correct.") Do $$$AssertEquals(Kaderdeur.ProfielAfwerking,##class(DOM.PM.enu.KADProfielAfwerking).Geanodiseerd(),"ProfielAfwerking is correct.") Do $$$AssertEquals(Kaderdeur.ProfielType,##class(DOM.PM.enu.KADProfielType).BreedGlas(),"ProfielType is correct.") Do $$$AssertEquals(Kaderdeur.Verpakking,##class(DOM.PM.enu.KADVerpakking).Krimp(),"Verpakking is correct.") Do $$$AssertEquals(Kaderdeur.Vulling.Gehard,0,"Vulling gehard is correct.") Do $$$AssertEquals(Kaderdeur.Vulling.VullingType,..#VullingType,"Vulling gehard is correct.") ]]> Rechts","Beslag element is correct.") Do $$$AssertEquals(Kaderdeur.Beslag.GetAt(1).GeefPositie().X,1559,"Beslag positie X is correct.") Do $$$AssertEquals(Kaderdeur.Beslag.GetAt(1).GeefPositie().Y,6,"Beslag positie Y is correct.") Do $$$AssertEquals(Kaderdeur.Beslag.GetAt(1).GeefPositie().Z,0,"Beslag positie Z is correct.") Do $$$AssertEquals(Kaderdeur.Beslag.GetAt(1).GeefCode(),"BLUMS","Beslag code is correct.") Do $$$AssertEquals(Kaderdeur.Boringen.Count(),6,"Aantal boringen is correct.") Do $$$AssertEquals(Kaderdeur.Boringen.GetAt(1).GeefAfschuinDiameter(),0,"Boring Afschuindiameter is correct.") Do $$$AssertEquals(Kaderdeur.Boringen.GetAt(1).GeefDiameter(),5,"Boring Diameter is correct.") Do $$$AssertEquals(Kaderdeur.Boringen.GetAt(1).GeefElement(),"Profiel->Links","Boring Element is correct.") Do $$$AssertEquals(Kaderdeur.Boringen.GetAt(1).GeefPositie().X,41,"Boring Positie X is correct.") Do $$$AssertEquals(Kaderdeur.Boringen.GetAt(1).GeefPositie().Y,43.25,"Boring Positie Y is correct.") Do $$$AssertEquals(Kaderdeur.Boringen.GetAt(1).GeefPositie().Z,0,"Boring Positie Z is correct.") Do $$$AssertEquals(Kaderdeur.Boringen.GetAt(1).GeefRichting().X,0,"Boring Richting X is correct.") Do $$$AssertEquals(Kaderdeur.Boringen.GetAt(1).GeefRichting().Y,0,"Boring Richting Y is correct.") Do $$$AssertEquals(Kaderdeur.Boringen.GetAt(1).GeefRichting().Z,-1,"Boring Richting Z is correct.") Do $$$AssertEquals(Kaderdeur.Boringen.GetAt(1).GeefType(),##class(DOM.PM.enu.KADBoringType).Volledig(),"Boring Type is correct.") Do $$$AssertEquals(Kaderdeur.Breedte,..#Breedte,"Breedte is correct.") Do $$$AssertEquals(Kaderdeur.Hoogte,..#Hoogte,"Hoogte is correct.") Do $$$AssertEquals(Kaderdeur.Montage,##class(DOM.PM.enu.KADMontage).KaderEnVulling(),"Montage is correct.") Do $$$AssertEquals(Kaderdeur.Ophangplaats,##class(DOM.PM.enu.KADOphangplaats).Rechts(),"Ophangplaats is correct.") Do $$$AssertEquals(Kaderdeur.ProfielAfwerking,##class(DOM.PM.enu.KADProfielAfwerking).Geanodiseerd(),"ProfielAfwerking is correct.") Do $$$AssertEquals(Kaderdeur.ProfielType,##class(DOM.PM.enu.KADProfielType).BreedGlas(),"ProfielType is correct.") Do $$$AssertEquals(Kaderdeur.Verpakking,##class(DOM.PM.enu.KADVerpakking).Krimp(),"Verpakking is correct.") Do $$$AssertEquals(Kaderdeur.Vulling.Gehard,0,"Vulling gehard is correct.") Do $$$AssertEquals(Kaderdeur.Vulling.VullingType,..#VullingType,"Vulling gehard is correct.") ]]> Links","Boring Element is correct.") Do $$$AssertEquals(Kaderdeur.Boringen.GetAt(2).GeefPositie().X,6,"Boring Positie X is correct.") Do $$$AssertEquals(Kaderdeur.Boringen.GetAt(2).GeefPositie().Y,80,"Boring Positie Y is correct.") Do $$$AssertEquals(Kaderdeur.Boringen.GetAt(2).GeefPositie().Z,0,"Boring Positie Z is correct.") Do $$$AssertEquals(Kaderdeur.Boringen.GetAt(2).GeefRichting().X,0,"Boring Richting X is correct.") Do $$$AssertEquals(Kaderdeur.Boringen.GetAt(2).GeefRichting().Y,0,"Boring Richting Y is correct.") Do $$$AssertEquals(Kaderdeur.Boringen.GetAt(2).GeefRichting().Z,-1,"Boring Richting Z is correct.") Do $$$AssertEquals(Kaderdeur.Boringen.GetAt(2).GeefType(),##class(DOM.PM.enu.KADBoringType).Gedeeltelijk(),"Boring Type is correct.") /// Boring 2 voor demper Do $$$AssertEquals(Kaderdeur.Boringen.GetAt(3).GeefAfschuinDiameter(),0,"Boring Afschuindiameter is correct.") Do $$$AssertEquals(Kaderdeur.Boringen.GetAt(3).GeefDiameter(),5,"Boring Diameter is correct.") Do $$$AssertEquals(Kaderdeur.Boringen.GetAt(3).GeefElement(),"Profiel->Rechts","Boring Element is correct.") Do $$$AssertEquals(Kaderdeur.Boringen.GetAt(3).GeefPositie().X,883,"Boring Positie X is correct.") Do $$$AssertEquals(Kaderdeur.Boringen.GetAt(3).GeefPositie().Y,80,"Boring Positie Y is correct.") Do $$$AssertEquals(Kaderdeur.Boringen.GetAt(3).GeefPositie().Z,0,"Boring Positie Z is correct.") Do $$$AssertEquals(Kaderdeur.Boringen.GetAt(3).GeefRichting().X,0,"Boring Richting X is correct.") Do $$$AssertEquals(Kaderdeur.Boringen.GetAt(3).GeefRichting().Y,0,"Boring Richting Y is correct.") Do $$$AssertEquals(Kaderdeur.Boringen.GetAt(3).GeefRichting().Z,-1,"Boring Richting Z is correct.") Do $$$AssertEquals(Kaderdeur.Boringen.GetAt(3).GeefType(),##class(DOM.PM.enu.KADBoringType).Gedeeltelijk(),"Boring Type is correct.") Do $$$AssertEquals(Kaderdeur.Breedte,889,"Breedte is correct.") Do $$$AssertEquals(Kaderdeur.Hoogte,164,"Hoogte is correct.") Do $$$AssertEquals(Kaderdeur.Montage,##class(DOM.PM.enu.KADMontage).KaderEnVulling(),"Montage is correct.") Do $$$AssertEquals(Kaderdeur.Ophangplaats,"","Ophangplaats is correct.") Do $$$AssertEquals(Kaderdeur.ProfielAfwerking,##class(DOM.PM.enu.KADProfielAfwerking).Geanodiseerd(),"ProfielAfwerking is correct.") Do $$$AssertEquals(Kaderdeur.ProfielType,##class(DOM.PM.enu.KADProfielType).BreedKleef19mm(),"ProfielType is correct.") Do $$$AssertEquals(Kaderdeur.Verpakking,##class(DOM.PM.enu.KADVerpakking).Krimp(),"Verpakking is correct.") Do $$$AssertEquals(Kaderdeur.Vulling.Gehard,0,"Vulling gehard is correct.") Do $$$AssertEquals(Kaderdeur.Vulling.VullingType,"ALVULPL","Vulling gehard is correct.") ]]> Deze method test de omzetting van de L1- en L2-parameter bij een SGK greep Wanneer deze waarde(n) leeg of 0 zijn, dan moet ge-default worden op 8.55mm Deze method test ook dat de defaulting NIET wordt toegepast bij een ander type van greep. Deze method overschrijft de waarde van de parameter in het projectitem ProjectItem:BL.Flow.Offerte.dto.KADEDI.ProjectItem,Key:BL.Flow.Offerte.enu.KADEDI.Key,Value:%String 1