vhDeploy.Deploy 1 = ? AND Tag is null" #dim CurrentDate As %Date = ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentDate() #dim Params As %List = $ListBuild("Lade", "TAOR", "PAS", CurrentDate, CurrentDate) #dim ResultSet As TECH.ResultSet = ##class(TECH.Context).Instance().GeefQueryAPI().GetDynamicResultSet(Query, Params, ##class(TECH.enu.ResultSetRuntimeMode).Logical()) #dim ID As TECH.String = "" If ResultSet.Next() { Set ID = ResultSet.GetDataByName("ID") } Else { Do ##class(TECH.Exceptions.GeneralErrorException).Throw("Er is geen HalffabSpecInfo gevonden.") } If ResultSet.Next() { Do ##class(TECH.Exceptions.GeneralErrorException).Throw("Er zijn meerdere HalffabSpecInfo gevonden.") } #dim HalffabSpecInfo As DOM.PM.Maatwerk.Calc.HF.impl.HalffabSpecInfo = ##class(DOM.PM.Maatwerk.Calc.HF.impl.HalffabSpecInfo).OpenId(ID) Set HalffabSpecInfo.HalffabSpec = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.SpecHFv002PAS).%ClassName(1) Do HalffabSpecInfo.Save() ]]>