[RESOLVIDO] Zoom

Vou passar um exemplo passando o rowid da tabela como parametro que pode te ajudar a constuir uma tela de Zoom.

/*exemplo passando ROWID:

NA TELA 1:
Vc cria uma window com um browse ligando ele em uma tabela
do seu banco:
exemplo da sintaxe:
*/

DEFINE QUERY BROWSE-2 FOR
usuario SCROLLING.

/* Browse definitions */
DEFINE BROWSE BROWSE-2
QUERY BROWSE-2 NO-LOCK DISPLAY
usuario.id FORMAT "->>9":U
usuario.nome FORMAT "X(45)":U WIDTH 36.6
usuario.email FORMAT "X(30)":U
WITH NO-ROW-MARKERS SEPARATORS SIZE 77.6 BY 4.52 EXPANDABLE.

/* na mesma TELA1 vc cria um botão que vai
pegar o registro selecionado no browse e vai
passar o ROWID para outra tela */

DEFINE BUTTON BUTTON-12
LABEL "rowid"
SIZE 15 BY 1.14

/* na Trigger choose do botão criado,
vc vai chamar outra outra tela, e passar o rowid
como parametro*/

RUN tela2.w ( ROWID (sua-tabela)).

/* ********************************************** */

NA TELA 2:
/*Primeiro vc define uma variavel para receber o rowid da tela 1*/

DEFINE INPUT PARAMETER nome-do-variavel AS ROWID NO-UNDO.

/*Depois vc cria os DBs-Fields ou seja os campos da sua tabela
que vc quer colocar na window (Tela 2).

Depois vc coloca um FIND no Mainblock para encontrar na tabela
o rowid passado da tela 1*/

FIND nome-da-sua-tabela WHERE ROIWD (nome-da-sua-tabela) = (nome-da-variavel-criada).