Index: DOM/PM/Maatwerk/Calc/Kost/impl/TAOR/v004/ZijkantLogo.cls.xml =================================================================== diff -u -r51627 -r54721 --- DOM/PM/Maatwerk/Calc/Kost/impl/TAOR/v004/ZijkantLogo.cls.xml (.../ZijkantLogo.cls.xml) (revision 51627) +++ DOM/PM/Maatwerk/Calc/Kost/impl/TAOR/v004/ZijkantLogo.cls.xml (.../ZijkantLogo.cls.xml) (revision 54721) @@ -40,9 +40,19 @@ Set KostPrijs = 0 Set Detail = Detail _ " (gratis)" } - - Set KostItem = ##class(DOM.PM.Maatwerk.Calc.Kost.ExtraKostItem).%New(..Naam _" Links - Rechts" ,KostPrijs,Detail, 1) - Do SamengesteldKostItem.VoegToe(KostItem) + // Hier moet kostplaats n,og ingewerkt worden. + If (..GeefProductieWijzeEvaluator(##class(DOM.PM.enu.TAORProductieWijze).Volledig()).Evalueer(HalffabItemsBoom, Context, IngegevenKenmerken)) { + Set KostItem = ##class(DOM.PM.Maatwerk.Calc.Kost.ExtraKostItem).%New(..Naam _" Links - Rechts" ,KostPrijs,Detail, 1) + Do SamengesteldKostItem.VoegToe(KostItem) + } ElseIf (..GeefZijkantLinksAanwezigEvaluator().Evalueer(HalffabItemsBoom, Context, IngegevenKenmerken)) { + Set KostPrijs = KostPrijs / 2 + Set KostItem = ##class(DOM.PM.Maatwerk.Calc.Kost.ExtraKostItem).%New(..Naam _" Links " ,KostPrijs,Detail, 1) + Do SamengesteldKostItem.VoegToe(KostItem) + } ElseIf (..GeefZijkantRechtsAanwezigEvaluator().Evalueer(HalffabItemsBoom, Context, IngegevenKenmerken)) { + Set KostPrijs = KostPrijs / 2 + Set KostItem = ##class(DOM.PM.Maatwerk.Calc.Kost.ExtraKostItem).%New(..Naam _" Rechts" ,KostPrijs,Detail, 1) + Do SamengesteldKostItem.VoegToe(KostItem) + } } }