fetch_find in an embedded browse

[David Montgomery]

The following script worked for years (in all builds up to and through 1491_1048). In all builds later than 1491_1048 indexes seem to have no control or use in scripts.

Any ideas on how to make this script work again would be appreciated

'Debt accounts array 11/2/00

dim tbl as p
dim t_accts as p
dim t_companies as p

dim NewPmarker as c

tbl = table.current()
t_accts = table.open("accounts")

IF tbl.mode_get() " 0 THEN
END
END IF

on error goto fix_error

search:
'------
dim f_search as c
dim compid as c
dim x as n
dim cbid as c
dim who as c

t_accts.index_primary_put("compname")
t_accts.fetch_first()
t_accts.fetch_find(clntid)

count = calc-"no_accts
s_num = count
dim search(s_num) as c

i = 0
WHILE t_accts.client_id = clntid
i = i + 1
search(i) = left(t_accts.compname,15) +" - "+ remspecial(t_accts.acctnumber) +space(60)+ t_accts.pmarker
t_accts.fetch_next(2)
IF t_accts.fetch_eof()
EXIT WHILE
END IF
END WHILE
sort_array("search")
t_accts.close()

t_acct= table.get("accounts")

continue:
'--------
ui_beep(64)
found1 = ui_get_list_array("Client has "+str(s_num -1,3)+" accounts", 1, "search")
IF found1 = "" THEN
Debt_System_Browse.fetch_first()
parent.resynch()
ELSE
found = clntid+left(found1,10)
t_acct.index_primary_put("compname")
t_acct.fetch_first()
t_acct.fetch_find(found)
Debt_System_Browse.activate()
Debt_System_Browse.resynch()
END IF
t_acct.index_primary_put("client_id")

END

fix_error:
'---------
resume next

[T Sayers]

RE: fetch_find in an embedded browse

Hi David,

In v6, arrays need square brackets not round ones. I do not know at what point that changed, but your arrays have round brackets so that may well be your problem. Either way, it's probably a good idea to fix them now anyway.

Arrays are declared in the form...
dim arrayname[number] as c
...and values are set...
arrayname[n] = .....

So looking through your code,
dim search(s_num) as c
should be
dim search[s_num] as c

...and
search[i] = left(t_accts.compname,15)......
should be
search[i] = left(t_accts.compname,15)......

You will need to search the rest of your script for where arrays have been declared and their values have been set, and change the round brackets for square ones.

Hopefully that'll have you off and running again.


Regards,
Trevor

[David Montgomery]

RE: fetch_find in an embedded browse

Thanks for your response. I made the corrections you suggested. Did not make any difference, the script works properly until

t_acct.fetch_find(found)

this function does not work in this script or other similar scripts.

[martinwcole]

RE: fetch_find in an embedded browse

found = clntid+left(found1,10)

for this to work, check the index and be sure that it exactly matches what you are sending it. Sounds like something is not right with the index

[David Montgomery]

RE: fetch_find in an embedded browse

I thought of that and have checked it. Remember, this worked for years before the new builds revoked the fact that child records could be controlled by indexes and now have to be controlled by queries.

I'm stumped

[martinwcole]

RE: fetch_find in an embedded browse

try this or a variaation:

instead of t=table.get("table")

t=Parentform:tables.tablename

[David Montgomery]

RE: fetch_find in an embedded browse

I'm not sure I understand.

I did as you said

t_acct = parentform:tables.accounts

This didn't make any change

I used the explorer to get the table name and got

MDC_Debt_System:tables:accounts()

I tried that and it didn't work either

[David Montgomery]

RE: fetch_find in an embedded browse

I could not get the fetch_find() function to work at all.

But the following worked
found = right(found1,45)
t_acct.index_primary_put("pmarker")
t_acct.fetch_first(1)
while t_acct.pmarker "" found
pmarker = t_acct.pmarker
if t_acct.fetch_eof()
exit while
end if
t_acct.fetch_next(1)
end while
Debt_System_Browse.refresh()

I think the fetch_find() method has a bug as it does not work in any of my scripts now with the new build.

[martinwcole]

RE: fetch_find in an embedded browse

try this to see what is happening:

'to the following portion of your script
t_acct.fetch_first() 'unnecessary ********
rec=t_acct.fetch_find(found)
ui_msg_box("","" + rec) '***********
'if it found it, the rec will be greater than zero
Debt_System_Browse.activate()
Debt_System_Browse.resynch()
END IF

If rec is less than 0, the index/search variable don�t match
If the rec is greater than zero, you may need to modify the next lines:

t=parentform:tables:accounts �the browse table
t.order(�pmarker�,�pmarker=� + quote(found))
�accounts should have an index and a field named pmarker that match the value of variable-"found
Debt_System_Browse.refresh()

Regardless � modify the top of your script:
tbl = table.current()
IF tbl.mode_get() " 0 THEN
END
END IF
t_accts = table.open("accounts")
(otherwise you are leaving the table open!!)

[David Montgomery]

RE: fetch_find in an embedded browse

The variable found does match exactly an index called pmarker.

If I use t_acct = table.open("accounts") fetch_find(found) will find the record, but the browse will not refresh to the found record.

If I use t_acct = table.get("accounts") fetch_find(found) will not find the record.

but when I use the while method the script finds the record and refreshes the browse properly