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)