FUNCTION GetHistoryData(sAlias, sSqlCmd, sUpdatable, sUpdateName) sUpdatable = IIF(TYPE("sUpdatable") # "C","Id, DoneDate", sUpdatable) sUpdateName = IIF(TYPE("sUpdateName") # "C",""DoneDate History.DoneDate", sUpdateName) SELECT 0 USE History oAdapter = CREATEOBJECT("CursorAdapter") WITH oAdapter .Alias = sAlias .DataSourceType = "Native" .DataSource = "" .SelectCmd = sSqlCmd .KeyFieldList = "Id" .Tables = "History" .UpdatableFieldList = sUpdatable .UpdateNameList = sUpdateName ENDWITH USE IN History RETURN