persistent 1 %Persistent 0 %Date %String %String %String %Float %String 1 1 ClassName,ID,Naam,GeldigVanaf 1 ObjectOfPersistentClass:%Persistent,Naam:%String,Waarde:%Integer,GeldigVanaf:%Date,Omschrijving:%String="" 1 1 %Status Indien voor huidige periode de waarde moet blijven gelde, deze nog twee jaar in de toekomst laten gelden. 1 Datum:%Date %Date 1 Zoek waarde die geldig is op die specifieke datum. %SQLQuery ClassName:%String,ID:%Integer,Naam:%String,Datum:%Date = Factor1.GeldigVanaf AND :Datum < APPS_common_KlantKost_impl_data.Factor_BepaalGeldigTot((Select MIN(Factor2.GeldigVanaf) FROM APPS_common_KlantKost_impl_data.Factor Factor2 Where Factor1.ClassName = Factor2.ClassName AND Factor1.ID = Factor2.ID AND Factor1.Naam = Factor2.Naam AND Factor2.GeldigVanaf > Factor1.GeldigVanaf)) ORDER BY Factor1.GeldigVanaf]]> %Library.CacheStorage ^APPS.common.KlantKosB5C.FactorD FactorDefaultData ^APPS.common.KlantKosB5C.FactorD ^APPS.common.KlantKosB5C.FactorI ^APPS.common.KlantKosB5C.FactorS %%CLASSNAME Bedrag GeldigVanaf Naam Waarde Omschrijving