[RESOLVIDO] Zoom z02in172 - Cadastro de itens

Pessoal, criei mais uma pasta no zoom z02in172 atrvés de uma UPC. Esta pasta tráz o zoom por narrativa. Quando clico 2 vezes sobre a minha pasta de zoom, não acontece nada. Alguém já tentou fazer algo parecido? Talavez em outro zoom? Criei com os comendos abaixo:

RUN get-link-handle IN adm-broker-hdl
(INPUT p-wgh-object,
INPUT "PAGE-SOURCE":U, OUTPUT c-folder).
Assign h-folder-upc = Widget-Handle(C-Folder) No-Error.
If Valid-Handle(h-folder-upc) Then Do:
RUN create-folder-page IN h-folder-upc (INPUT 5, INPUT "Narrativa":U).
RUN create-folder-label IN h-folder-upc (INPUT 5, INPUT "Narrativa":U).
RUN select-page IN wh-window (INPUT 5).
RUN init-object IN p-wgh-object (INPUT "dibrw/bdizin172.w":U, /* Nome do Objeto Viewer */
INPUT p-wgh-frame, INPUT "Layout = ":U, OUTPUT h-v-upc).
RUN set-position IN h-v-upc (2.6, 3.00).
RUN ADD-LINK IN adm-broker-hdl (INPUT p-wgh-object, input "PAGE", this-procedure).
RUN ADD-LINK IN adm-broker-hdl (INPUT p-wgh-object, input "STATE", this-procedure).
RUN get-link-handle IN adm-broker-hdl (INPUT p-wgh-object,INPUT "CONTAINER-TARGET":U, OUTPUT c-objects).
RUN dispatch IN h-v-upc ("initialize":U).
RUN select-page IN p-wgh-object (INPUT 1).
ASSIGN v-z02172-log = YES.

Obrigado

Posso lhe ajudar mas coloque o código compreto da UPC usando os demarcadores corretos.

Código:

Coloque o fonte completo aqui

Boa tarde
Trombini, em anexo a upc e o browse referente a consulta que quero.

Preciso escolher na pasta narrativa o item e ele deve trazer este item para o programa cd0204 ou qualquer outro programa que chame este zoom. Tentei de tudo e não consgui.

Obrigado pela ajuda.


Antonio

Antonio,

Achei q seu problema era na criação dos links, mas eu coloquei a UPC pra funcionar aqui e a unica coisa que alterei foi retirar a linha :

Código:

RUN dispatch IN h-v-upc ("initialize":U).

Quando eu dou double-click no seu browse ele me retorna o registro correto. Testei usando o CD0204. E coloquei sua UPC no z02in172.w.

Grato.

@TrombiniSP você tem a versão final desses programas? Estou com um problema parecido e gostaria de comparar o que foi feito para ver onde está o erro.