Need help for a query definition !

[make]

Hi,
i've used this code for filling a combo. But i want to display the values now in a browser.
I have tried to change the code. But it doesnt work. Why ?

for each xartikel use-index Glas-Main no-lock
where xartikel.glas = iprod_kombi_kz
and substring(xartikel.artikel_nr,8,2,"Character")= Durchm-Combo:screen-value :
if available xartikel then do:
find homa.lieferer where k-nr = integer(substring(xartikel.artikel_nr,1,2,"Character")).
if available lieferer then do :
IF man-combo:LOOKUP(string(lieferer.name1)) EQ 0 THEN
man-combo:ADD-LAST( homa.lieferer.name1).
end.
end.
end.

The new code :
&Scoped-define OPEN-QUERY-BROWSE-2 OPEN QUERY BROWSE-2 FOR EACH xartikel ~
use-index glas-Main NO-LOCK WHERE xartikel.glas = Chgl ~
and xartikel.durchm=ChDm.
if available xartikel then do:
find homa.liefer where lieferer.k-nr = ~
integer(substring(xartikel.artikel_nr,1,2,"Character")).
end.


Greets

 

[jongpau]

HI,

Try to make the query something like this:

FOR EACH xartikel use-index glas-Main NO-LOCK WHERE xartikel.glas = Chgl 
and xartikel.durchm=ChDm[b], first[/b] homa.liefer NO-LOCK where lieferer.k-nr = integer(substring(xartikel.artikel_nr,1,2,"Character"))

 

[Serj HAMMER]

small addition to first for-each.

Hello, make. I have some words about first portion of Your code.

You write:
<TT>
for each xartikel use-index Glas-Main no-lock where xartikel.glas = iprod_kombi_kz
and substring(xartikel.artikel_nr,8,2,"Character")= Durchm-Combo:screen-value :
&nbsp;&nbsp;<B>if available xartikel then do:</B>
</TT> - why do You use this "if"? Inside in for-each table xartikel always available.<TT>

&nbsp;&nbsp;&nbsp;&nbsp;find homa.lieferer where k-nr = integer(substring(xartikel.artikel_nr,1,2,"Character")).
&nbsp;&nbsp;&nbsp;&nbsp;if available lieferer then do :
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;IF man-combo:LOOKUP(string(lieferer.name1)) EQ 0 THEN
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;man-combo:ADD-LAST( homa.lieferer.name1).
&nbsp;&nbsp;&nbsp;&nbsp;end.
&nbsp;&nbsp;end.
end.
</TT>

Have a nice time.