In article <4ca086ecd3robin@...>,
Robin Hampshire <robin@...> wrote:
> In article <Marcel-1.53-0416120836-0b0tRkF@...>,
> Wim Ekels <wim@...> wrote:
> > Hi all,

> > Someone (IP address 62.254.0.30) fetched the sample...

> > In the meantime Hans-Jürgen has send me the newest version!

> > Please follow the same link once more.

> > regards
> > Wim

> Thanks Wim, I'll have a look. In the meantime, I have cobbled together
> something that Hans-Jurgen can try.

I've had a look at your app Hans-Jurgen, and I've managed to get the query
working properly.

What I've done is as follows:

add an extra field to the froster query card, as the last field, and give
it the expression v_froster_query[@entry][9]. Make it wide enough to be
able to type in a longish expression without scrolling, so widen the
boundaries of the card to suit. Whatever data type you give the field,
make it a maximum input of "Any" so that it can scroll if necessary.

Change proc froster_query_search to be like the one attached, which has
it's changes documented alongside.

Leave the proc age_query_covert which I gave you earlier unchanged.

--
Robin Hampshire
robin@...

def proc froster_query_search

| new value for flags to overide "assume constant expression"
| max_lines will eventually be the number of lines in the query

local active, flags = 64, q, var1, max_lines = 0

active = proc system_compress_query (t_froster_query, fields_froster_query,
v_froster_query)

errmess_froster_query = "Searching..."
card update c_froster_query
delay on
query new q, "froster query"
query load ext q, q_froster_query
query clear q_froster_query
if incdeleted_froster_query then flags |= 8

| set max_lines to be the number of lines in the query
| note that if there is only one line to start with,
| @ext t_froster_query will be unpredictable

if @ext t_froster_query < 50 then max_lines = @ext t_froster_query
for var1 = 0 to max_lines - 1

| note changes in the next line to allow for actual variables used in this
application

v_froster_query[var1][fields_froster_query-1] = proc
age_query_convert(@trim(@ltrim
v_froster_query[var1][fields_froster_query-1]),"froster.g_dat")
next



query load array q_froster_query, v_froster_query, order_froster_query, flags

load froster, 0
error set 2
query select index q_froster_query, @string (incdeleted_froster_query, "*") +
order_froster_query
if !@errnum then query run q_froster_query, active, -1, flags
proc froster_query_checkerr (TRUE)

if !@ext q_froster_query
query load ext q_froster_query, q
if !@ext q_froster_query then query clear ext q_froster_query, 0, @record
froster, 1, step 1
endif
query dispose q

delay off
proc froster_query_update

enddef