Boa tarde Desenvolvi uma janela simples de cadastro e no campo Fornecedor fiz a função zoom (Onde consulta e busca o código do fornecedor).. Está funcionando corretamente, mas quando retorno para a janela inicial, aquela que chamou o zoom, o campo volta preenchido corretamente, porem a janela retorna com a função de inclusão cancelada. como resolver isso? Obs: O código usado para chamar o zoom é este: " DEF VAR l-implanta AS LOGICAL. ASSIGN l-implanta = NO. {include/zoomvar.i &prog-zoom=adzoom/z01ad098.w /* Nome do Programa de Zoom */ &campo=Fill-in-Fornecedor /* Nome do Fill-In recebedor*/ &campozoom=cod-emitente /* Nome do campo a retornar */ &FRAME={&FRAME-NAME}} "
Bom dia @maicon Não consegui simular o teu exemplo, em uma viewer adicionei o teu código, somente substituí o pré-processador &campo pelo campo da minha viewer. Não acredito que o problema seja este código que você compartilhou. Você não tem código de leave para o campo FILL-IN-FORNECEDOR? Atenciosamente, Jaison
Tem o código abaixo no leave do Fill-In-Fornecedor; " FIND FIRST emitente WHERE emitente.cod-emitente = int(Fill-In-Fornecedor:SCREEN-VALUE) NO-ERROR. IF AVAIL emitente THEN ASSIGN Fill-In-Nome-Fornecedor:SCREEN-VALUE = emitente.nome-emit. " lembrando que o problema em questão é, quando busco o fornecedor pelo zoom, quando retorno para a minha janela ele carrega o código do fornecedor, mas cancelou a operação atual, que é de inserção.
