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
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