Index: APPS/EC/Winkelkar/impl/WinkelkarControleur.cls.xml =================================================================== diff -u -r40445 -r40447 --- APPS/EC/Winkelkar/impl/WinkelkarControleur.cls.xml (.../WinkelkarControleur.cls.xml) (revision 40445) +++ APPS/EC/Winkelkar/impl/WinkelkarControleur.cls.xml (.../WinkelkarControleur.cls.xml) (revision 40447) @@ -57,6 +57,10 @@ While VerpakkingIterator.HasNext() { Do ..ControleerInputVoorVerpakking(VerpakkingIterator.Next(), WinkelkarNietBesteld) } + + Set TIPONUitfaseringControleur = ##class(APPS.EC.Winkelkar.impl.TIPONUitfaseringControleurWinkelkarVisitor).%New() + Do ..Winkelkar.Accept(TIPONUitfaseringControleur) + Do ..ControleerInput($$$Not(TIPONUitfaseringControleur.HeeftTIPONUitfasering()), "Melding") ]]>