Index: vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/TestVanHoecke.cls.xml =================================================================== diff -u -r31022 -r31461 --- vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/TestVanHoecke.cls.xml (.../TestVanHoecke.cls.xml) (revision 31022) +++ vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/TestVanHoecke.cls.xml (.../TestVanHoecke.cls.xml) (revision 31461) @@ -129,47 +129,46 @@ #dim Winkelkar As APPS.EC.Winkelkar.dto.Winkelkar = ..WinkelkarService.MaakWinkelkar(..MaakInterneUnitTestApplicatieObject(), ..KlantID, ..Personality) #dim IngegevenKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TAORKenmerken).StandaardLade() #dim Aantal As %Integer = -1 - #dim VoegToeGelukt As %Boolean = 0 + #dim VoegToeGelukt As %Boolean = $$$False try { Do ..WinkelkarService.VoegToeMaatwerkEnGeefWinkelkarTerug( Winkelkar.WinkelkarID, GroepNaam, IngegevenKenmerken, Aantal) - Set VoegToeGelukt = 1 + Set VoegToeGelukt = $$$True } catch { - set Exception = ##class(TECH.ExceptionHandler).Catch() - Set VoegToeGelukt = 0 + Set Exception = ##class(TECH.ExceptionHandler).Catch() + Set VoegToeGelukt = $$$False } - Do $$$AssertFalse(VoegToeGelukt,"De lijn kon niet worden toegevoegd omdat het aantal negatief is") + Do $$$AssertFalse(VoegToeGelukt, "De lijn kon niet worden toegevoegd omdat het aantal negatief is") - Set IngegevenKenmerken.HeeftTipon = "" + Set IngegevenKenmerken.GeleiderTechnologie = "" Set Aantal = 3 try { - Set VoegToeGelukt = 0 - Do ..WinkelkarService.VoegToeMaatwerkEnGeefWinkelkarTerug( Winkelkar.WinkelkarID, GroepNaam, IngegevenKenmerken, Aantal) - Set VoegToeGelukt = 1 + Set VoegToeGelukt = $$$False + Do ..WinkelkarService.VoegToeMaatwerkEnGeefWinkelkarTerug(Winkelkar.WinkelkarID, GroepNaam, IngegevenKenmerken, Aantal) + Set VoegToeGelukt = $$$True } catch { - set Exception = ##class(TECH.ExceptionHandler).Catch() Set Exception = ##class(TECH.ExceptionHandler).Catch() - Set VoegToeGelukt = 0 + Set VoegToeGelukt = $$$False } - Do $$$AssertFalse(VoegToeGelukt,"De lijn kon niet worden toegevoegd omdat de ingegeven kenmerken niet volledig zijn") + Do $$$AssertFalse(VoegToeGelukt, "De lijn kon niet worden toegevoegd omdat de ingegeven kenmerken niet volledig zijn") - Set IngegevenKenmerken.HeeftTipon = 0 + Set IngegevenKenmerken.GeleiderTechnologie = ##class(DOM.PM.enu.TAORGeleiderTechnologie).BLUMOTION() - Set Winkelkar = ..WinkelkarService.VoegToeMaatwerkEnGeefWinkelkarTerug( Winkelkar.WinkelkarID, GroepNaam, IngegevenKenmerken, Aantal, "Dit is de projectreferentie") + Set Winkelkar = ..WinkelkarService.VoegToeMaatwerkEnGeefWinkelkarTerug(Winkelkar.WinkelkarID, GroepNaam, IngegevenKenmerken, Aantal, "Dit is de projectreferentie") Do $$$AssertTrue($IsObject(Winkelkar),"Er werd een winkelkar teruggegeven") Do $$$AssertEquals(Winkelkar.Lijnen.Count(),1,"Er is 1 groep toegevoegd") Do $$$AssertTrue(Winkelkar.Lijnen.GetAt(1).%Extends("APPS.EC.Winkelkar.dto.GroepLijn")) Do $$$AssertEquals(Winkelkar.Lijnen.GetAt(1).Lijnen.GetAt(1).ProjectReferentie,"Dit is de projectreferentie","De projectreferentie") - Set Winkelkar = ..WinkelkarService.VerwijderLijn( Winkelkar.WinkelkarID, Winkelkar.Lijnen.GetAt(1).Lijnen.GetAt(1).LijnID) + Set Winkelkar = ..WinkelkarService.VerwijderLijn(Winkelkar.WinkelkarID, Winkelkar.Lijnen.GetAt(1).Lijnen.GetAt(1).LijnID) - Do $$$AssertTrue($IsObject(Winkelkar),"De gewijzigde winkelkar werd weergegeven") + Do $$$AssertTrue($IsObject(Winkelkar), "De gewijzigde winkelkar werd weergegeven") - Do $$$AssertTrue($IsObject(Winkelkar),"Er werd een winkelkar teruggegeven") + Do $$$AssertTrue($IsObject(Winkelkar), "Er werd een winkelkar teruggegeven") Do $$$AssertEquals(Winkelkar.Lijnen.Count(), 0, "Er is geen groep meer na verwijderen van de enige maatwerklijn.") Do ##class(DOM.EC.Winkelkar.Winkelkar).%DeleteId(Winkelkar.WinkelkarID) Index: APPS/PM/Maatwerk/impl/KenmerkenValidator/TAX.cls.xml =================================================================== diff -u -r30127 -r31461 --- APPS/PM/Maatwerk/impl/KenmerkenValidator/TAX.cls.xml (.../TAX.cls.xml) (revision 30127) +++ APPS/PM/Maatwerk/impl/KenmerkenValidator/TAX.cls.xml (.../TAX.cls.xml) (revision 31461) @@ -43,8 +43,8 @@ do:(..TAORKenmerken.LadeDiepte = "") Opmerkingen.Insert("LadeDiepte niet ingevuld.") do:(..TAORKenmerken.HeeftOpvullijstLinks = "") Opmerkingen.Insert("HeeftOpvullijstLinks niet ingevuld.") do:(..TAORKenmerken.HeeftOpvullijstRechts = "") Opmerkingen.Insert("HeeftOpvullijstRechts niet ingevuld.") - do:(..TAORKenmerken.HeeftTipon = "") Opmerkingen.Insert("HeeftTipon niet ingevuld.") do:(..TAORKenmerken.HeeftZijstabilisering = "") Opmerkingen.Insert("HeeftZijstabilisering niet ingevuld.") + do:(..TAORKenmerken.GeleiderTechnologie = "") Opmerkingen.Insert("GeleiderTechnologie niet ingevuld.") do:(..TAORKenmerken.GlijderType = "") Opmerkingen.Insert("GlijderType niet ingevuld.") do:(..TAORKenmerken.Uittrekbaarheid = "") Opmerkingen.Insert("Uittrekbaarheid niet ingevuld.") do:(..TAORKenmerken.VerpakkingType = "") Opmerkingen.Insert("VerpakkingType niet ingevuld.") Index: vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/WijzigMaatwerklijn/Test.cls.xml =================================================================== diff -u -r31418 -r31461 --- vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/WijzigMaatwerklijn/Test.cls.xml (.../Test.cls.xml) (revision 31418) +++ vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/WijzigMaatwerklijn/Test.cls.xml (.../Test.cls.xml) (revision 31461) @@ -108,13 +108,12 @@