>SELECT *; > FROM ; > APPDATA!SERVICE; > WHERE Service.person_id == ( ?PERSON.PERSON_ID ); > ORDER BY Service.date >>
* Program...........: WHICHVIEWSAREAFFECTED.PRG * Author............: Mark McCasland lparameter tcTableName if empty(m.tcTableName) tcTableName = inputbox("Table/Field Name?", "Insert table/field name", ; "Product_Lines") if empty(m.tcTableName) return endif endif set exclusive off local lcStr, lcDBC, lcFieldName, lcTableName lcStr = "" lcDBC = "MMVisCollect.DBC" lcFieldName = "%." + lower(m.tcTableName) + "%" lcTableName = "%!" + LOWER(m.tcTableName) + " %" select ObjectType, ObjectName, "F" as cStatus, Property ; from (m.lcDBC) aa ; where aa.ObjectType = 'View' ; and aa.ObjectID in ; (select ParentID from (m.lcDBC) bb ; where lower(Property) like m.lcFieldName) ; union all ; select ObjectType, ObjectName, "T" as cStatus, Property ; from (m.lcDBC) cc ; where cc.ObjectType = 'View' ; and lower(cc.Property) like m.lcTableName ; into cursor crsAffectedViews order by 2,3 scan lcStr = m.lcStr + alltrim(ObjectName) + ; iif(cStatus="F"," - Fields changes"," - Table changes") + ; chr(13) + chr(10) endscan _cliptext = m.lcStr