Index: APPS/Halux/Planning/dto/StockProbleemInfo.cls.xml =================================================================== diff -u -r1073 -r1398 --- APPS/Halux/Planning/dto/StockProbleemInfo.cls.xml (.../StockProbleemInfo.cls.xml) (revision 1073) +++ APPS/Halux/Planning/dto/StockProbleemInfo.cls.xml (.../StockProbleemInfo.cls.xml) (revision 1398) @@ -33,10 +33,6 @@ %String - -%Integer - - %Date Index: APPS/Halux/Planning/PlanningService.cls.xml =================================================================== diff -u -r1133 -r1398 --- APPS/Halux/Planning/PlanningService.cls.xml (.../PlanningService.cls.xml) (revision 1133) +++ APPS/Halux/Planning/PlanningService.cls.xml (.../PlanningService.cls.xml) (revision 1398) @@ -343,7 +343,6 @@ Set Datum = $$LastToelev^HADOPV(FabKey,HalffabrikaatPRNr) Set StockProbleemInfo.IsVerwachtExact = 0 - Set StockProbleemInfo.VerwachtInWeek = ##class(TECH.DateTime).Week($Piece(Datum,",")) Set StockProbleemInfo.VerwachtOpDag = $Piece(Datum,",") Do StockProbleemInfoLijst.Insert(StockProbleemInfo) Index: vhUnitTest/APPS/Halux/Planning/TestPlanningService.cls.xml =================================================================== diff -u -r1147 -r1398 --- vhUnitTest/APPS/Halux/Planning/TestPlanningService.cls.xml (.../TestPlanningService.cls.xml) (revision 1147) +++ vhUnitTest/APPS/Halux/Planning/TestPlanningService.cls.xml (.../TestPlanningService.cls.xml) (revision 1398) @@ -558,7 +558,6 @@ Do $$$AssertEquals(StockProbleemInfoLijst.GetAt(1).ProductCode,"KBG#HFOGUYRHB 248x998FZEV","Het halffabrikaat met stockprobleem") Do $$$AssertEquals(StockProbleemInfoLijst.GetAt(1).HalffabrikaatCode,"SPF.B600 B-STR2840 BZWI","Het halffabrikaat met stockprobleem") Do $$$AssertFalse(StockProbleemInfoLijst.GetAt(1).IsVerwachtExact,"Verwachte datum is niet exact") - Do $$$AssertEquals(StockProbleemInfoLijst.GetAt(1).VerwachtInWeek,11,"Verwacht in week 10") Set ToeleveringDeletedEventData = ##class(TECH.Events.ToeleveringDeletedEventData).%New(ToeleveringNummer) Set ToeleveringDeletedEvent = ##class(TECH.Events.ToeleveringDeletedEvent).%New(ToeleveringDeletedEventData)