Clarion in general: Who What and Where
2002-08-27 -- Russell B. Eggen
Newsgroups: softvelocity.products.c55ee
I use this code to play with. It will wrap:
IF ?Browse:5{PROPLIST:MouseDownRow} = 0 AND ?Browse:5{PROPLIST:MouseDownField} <> 0
!Check for click in header and group header
LOC:Who = WHO(Queue:5,?Browse:5{PROPLIST:MouseDownField})
!Gets the field name
LOC:What = WHAT(Queue:5,?Browse:5{PROPLIST:MouseDownField})
!Gets the field value
LOC:Where = WHERE(Queue:5,WHAT(Queue:5,?Browse:5{PROPLIST:MouseDownField}))
!Gets the ordinal number of field
END
LOC:Who is a STRING(40)
LOC:What is a CSTRING(100)
LOC:Where is a LONG
--
Russ Eggen
www.radfusion.com
"Ian Holdsworth" wrote in message
news:3d6b8074@news.softvelocity.com...
Hi Everyone
I am trying add userdefinable output to a database using the Who, What &
Where functions.
Who: Works perfectly.
Where: Doesn't like being passed a variable string for the second parameter
(The field your looking for). It always returns zero even when passed the
results of the Who function. Not a problem I have a workaround for that
one.
What: This is where I am having the real problems. It only ever seems to
return the name of the field not the contents
lcl:field=who(data:record,4)
! lcl:field now = 'data:lastname'
fieldno#=mywhere(data:record,lcl:field)
! fieldno# now =4
lcl:fieldcontents=what(data:record,fieldno#)
!lcl:FieldContents now = 'data:lastname'
Anybody got any Idea's?
--
Ian Holdsworth
Senior Programmer / Assistant IT Manager
Response Analysis & Mailing Ltd
---------------------------------------------------
Direct Line: +44 (0) 20 8880 8866
Switch Board: +44 (0) 20 8880 8140
Fax: +44 (0) 0870 134 0987
Email Work: ian.holdsworth@ram-ltd.co.uk
Email Personal: BigE@Squadronofpigs.com
Web Site: www.ram-ltd.co.uk
Printed May 2, 2024, 6:42 pm
This article has been viewed/printed 35114 times.
Google search
has resulted in 24 hits on this article since January 25, 2004.