estou colocando um zoom específico em um campo de um programa padrão do EMS (CD0704), então criei uma upc que pega o handle do campo e chama o zoom usei aquela include zoomvar.i. soh que qdo eu checo syntax ele da um erro : ** Unable to understand after -- "c-lista-campo = string". (247) ** S:\EMS206\include\zoomvar.i Could not understand line 156. (198). Curioso que uso a mesma coisa em uma viewer de um cadastro que eu tenho, e nao da erro nenhum tentei pegar todas as includes que tem na view e declarar na UPC, mas ai ele outros erros. Alguem sabe me dizer o porque desse erro, a UPC é bem simples. Segue abaixo... /*----- DEFINICAO DE FUNCOES -----*/ {upc/fc-handle-obj.I} /*{src/adm/method/viewer.i} {include/c-viewer.i} {utp/ut-glob.i} {include/i_dbtype.i} {include/i-vldfrm.i} */ /*----- DEFINICAO DE PARAMETROS -----*/ DEF INPUT PARAMETER p-ind-event AS CHAR NO-UNDO . DEF INPUT PARAMETER p-ind-object AS CHAR NO-UNDO . DEF INPUT PARAMETER p-wgh-object AS HANDLE NO-UNDO . DEF INPUT PARAMETER p-wgh-frame AS WIDGET-HANDLE NO-UNDO . DEF INPUT PARAMETER p-cod-table AS CHAR NO-UNDO . DEF INPUT PARAMETER p-row-table AS ROWID NO-UNDO . {utp/ut-glob.i} /*----- DEFINICAO DE VARIAVEIS LOCAIS -----*/ DEF VAR c-handle-obj AS CHARACTER NO-UNDO . /*----- DEFINICAO DE VARIAVEIS LOCAIS -----*/ DEF NEW GLOBAL SHARED VAR wh-id_classif_cliente AS WIDGET-HANDLE NO-UNDO. DEF VAR wh-pesquisa AS WIDGET-HANDLE NO-UNDO. DEF NEW GLOBAL SHARED VAR r-rowid AS ROWID NO-UNDO. def new GLOBAL SHARED VAR adm-broker-hdl AS HANDLE NO-UNDO. IF p-row-table <> ? THEN ASSIGN r-rowid = p-row-table. IF p-ind-event = "AFTER-ENABLE" AND p-ind-object = "VIEWER" THEN DO: c-handle-obj = fc-handle-obj("id_classif_cliente",p-wgh-frame). ASSIGN wh-id_classif_cliente = WIDGET-HANDLE(ENTRY(01,c-handle-obj)) NO-ERROR. IF VALID-HANDLE(wh-id_classif_cliente) THEN DO: ON 'LEFT-MOUSE-DBLCLICK' OF wh-id_classif_cliente DO: {include/zoomvar.i &prog-zoom=eszoom/z01es0004.w &campo=classif_cliente.id_classif_cliente &campozoom=id_classif_cliente:SCREEN-VALUE} END. END. END.
Colega aconselho voce a fazer da seguinte forma: na sua UPC, tirar a chamada da zoomvar.i e chamar um novo .p, onde você colocara da seguinte forma: Código: DEF VAR wh-pesquisa AS WIDGET-HANDLE NO-UNDO. DEF VAR l-implanta AS LOGICAL NO-UNDO. DEF NEW GLOBAL SHARED VAR wh-id_classif_cliente AS WIDGET-HANDLE NO-UNDO. {include/zoomvar.i &prog-zoom=eszoom/z01es0004.w &campo=classif_cliente.id_classif_cliente &campozoom=id_classif_cliente:SCREEN-VALUE} Acredito que assim dara certo, mas qualquer coisa posta aqui novamente
Bom dia. Mesmo eu separando em outro .p ele continua exibindo o erro: Unable to understand after -- "c-lista-campo = string". (247) Esse erro da na include e não no meu programa. Mas ele não compila.
