let myQuery(PLMQuery) let myQueryResult(PLMQueryResult) let myQueryResults(List) let i(Integer) let myProduct(VPMReference) myQuery = CreatePLMQuery("VPMReference") if myQuery <> NULL { myQuery->AddCriterion("PLM_ExternalID","UserQuery*") myQueryResults = myQuery->RunQuery() i = 1 for i while i <= 1 { set myQueryResult = myQueryResults.GetItem(i) set myProduct = myQueryResult->LoadResult() Message(myProduct.PLM_ExternalID) } } |