I want to zoom in tccom2510s000 after input of some characters followed by comma (,), so that tccom2510s000 start with key 2. I have done this with the item list (tiitm0502s000) some months ago.
The session starts, but the key isn't change. How should the zoomsession called. Have I to declare some special external variables?

zoom.to$("tccom2510s000", Z.SESSION, "tdpur040.suno", "tccom020.suno", 0)

Hi -
It may depend where you are zooming from. For some reason this session is looking doing special logic when zoomed to from a search key field (tccom020.seak). When it zooms in it imports a variable (itccom0003.seak) into the table field for tccom020.seak and runs the find on that. It always blanks out the .suno when it comes in from a search key.
Try declaring and filling an external variable named:

itccom0003.seak

with the Search Key you are looking for before calling the zoom.


Added: if not zooming from a search key, try declaring an external variable called:

hold.suno

And filling that before the zoom.

Hi,
thanks for the hints, but it isn't work. Here is what I try. suno.frm is the field, where I want to zoom from.

extern domain tcsuno suno.frm, zoom.suno, hold.suno
extern domain tcseak itccom0003.seak
...
field.suno.frm:
before.checks:
if rpos(strip$(suno.frm), ",") = len(strip$(suno.frm)) then
tdpur040.suno = suno.frm
tccom020.seak = suno.frm
itccom0003.seak = suno.frm
hold.suno = suno.frm
zoom.suno = suno.frm
suno.frm = zoom.to$("tccom2510s000", Z.SESSION, "tdpur040.suno", "tccom020.suno", 0)
endif


With the item list it works as follow and so I think it would also works in the same manner with the supplier list, but it isn't.

before.checks:
if rpos(strip$(tibom010.sitm), ",") = len(strip$(tibom010.sitm)) then
tdsls041.item = tibom010.sitm
tibom010.sitm = zoom.to$("tiitm0502s000", Z.SESSION, "tdsls041.item", "tiitm001.item", 0)
endif

Have you any other suggestions?

Try to change the zoom name from tdpur040.orno to tccom020.seak in zoom.to$ . It should work with tccom0003.seak value.

Thanks, it works.

But, why is it a different logic?

Session tiitm0502s000 too has the zoom name tdsls041.item (besides tiitm001.seak and any other default zooms) . It's only that tiitm0502s000 has more variety.

BTW nice to c ascii functionality ported to BW versions with excellent coding.