Index: DOM/VKP/impl/ProductieDagenBepaler.cls.xml =================================================================== diff -u -r58646 -r64694 --- DOM/VKP/impl/ProductieDagenBepaler.cls.xml (.../ProductieDagenBepaler.cls.xml) (revision 58646) +++ DOM/VKP/impl/ProductieDagenBepaler.cls.xml (.../ProductieDagenBepaler.cls.xml) (revision 64694) @@ -68,6 +68,11 @@ #dim VerpakkingSoort As DOM.VKP.impl.ProductieDagenBepaler.enu.VerpakkingSoort = LBXVerpakkingSoortBepaler.BepaalVerpakkingSoort(..Verpakking) #dim LBXProductieDagenData As DOM.VKP.impl.LBXProductieDagenData = ##class(DOM.VKP.impl.LBXProductieDagenData).OpenId(VerpakkingSoort) Set ..ProductieDagen = LBXProductieDagenData.GeefProductieDagen(..KlantID) + + #dim IngegevenKenmerken as DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ..Product.GeefIngegevenKenmerken() + If (IngegevenKenmerken.BodemKleur = ##class(DOM.PM.enu.LBXBodemKleur).Donkergrijs()) || (IngegevenKenmerken.BodemKleur = ##class(DOM.PM.enu.LBXBodemKleur).Bruinzwart()) { + Set ..ProductieDagen=##class(TECH.Math).Max($$DIFFDATE^vhLib.DataTypes(+$H,$zdateh("08/09/2021"),"A"), ..ProductieDagen) + } ]]>