Geeft een halffabrikaat spec. Familie is "TBX", "KAD", etc. Variant is bv. "Antaro", "Plus",... TECH.Error 1 TECH.RegisteredObject,DOM.PM.Maatwerk.Calc.HF.IHalffabRepository TECH.Query.QueryUitvoerder 1 1 1 %Status 1 ProductID:%String DOM.PM.Maatwerk.Calc.HF.Halffab SpecificatieInput:DOM.PM.Maatwerk.Calc.HF.HalffabRepositoryInput DOM.PM.Maatwerk.Calc.HF.HalffabSpec = ? AND Tag is null" Set Params = Params_$ListBuild(SpecificatieInput.BerekenDatum, SpecificatieInput.BerekenDatum) } Else { Set Query = Query_" AND Tag = ?" Set Params = Params_$ListBuild(SpecificatieInput.BerekenTag) } #dim ResultSet As TECH.ResultSet = ..QueryUitvoerder.VoerUit(Query, Params) Quit ..GeefHalffabSpec(ResultSet) ]]> De Resultset mag slechts één HalffabSpec bevatten, anders wordt er een Error gethrowed. ResultSet:%ResultSet 1 DOM.PM.Maatwerk.Calc.HF.HalffabSpec ResultSet:%ResultSet,ProductID:%String 1 DOM.PM.Maatwerk.Calc.HF.Halffab