Duvida nome do arquivo de relatório em branco

olá.
notei que ao rodar programas de relatório pedindo a opção de terminal o arquivo gerado está ficando sem o nome. é gerado com o nome ".tmp"

dentro da procedure pi-executar identifiquei o seguinte codigo:

Código:

    /*Alterado 14/02/2005 - tech1007 - Alterado o teste para verificar se a opção de RTF está selecionada*/
    if tt-param.destino = 1 then
        assign tt-param.arquivo = "".
    else if  tt-param.destino = 2 then
        assign tt-param.arquivo = input frame f-pg-imp c-arquivo.
    else if  tt-param.destino = 3 then
        assign tt-param.arquivo = session:temp-directory + c-programa-mg97 + ".tmp":U.
    else if  tt-param.destino = 4 then
        assign tt-param.arquivo = session:temp-directory + c-programa-mg97.

o problema está ocorrendo porque a variável c-programa-mg97 está vazia.

achei em apenas um programa antigo que esta variável foi forçada dentro da seção "main block"

Código:

{utp/ut9000.i "cipd001" "2.06.00.000"}
ASSIGN c-programa-mg97 = "cipd001".

o que estaria faltando fazer para que esta variável venha populada? e não tenha que forçar como no exemplo acima.

obrigado.

sim, estou. só usado preprocessor para não ficar repetindo o nome do programa.

DEFINITIONS
=================
&scoped-define program_name cift001
&scoped-define program_version 2.06.00.001

{utils/SMART.i}

def var c-versao-prg as char initial " 1.00.00.004":U no-undo.

{include/i-prgvrs.i {&program_name} {&program_name}}

&IF "{&EMSFND_VERSION}" >= "1.00" &THEN
{include/i-license-manager.i CIFT001 MFT}
&ENDIF

MAIN BLOCK
===============
ASSIGN CURRENT-WINDOW = {&WINDOW-NAME}
THIS-PROCEDURE:CURRENT-WINDOW = {&WINDOW-NAME}.

{utp/ut9000.i "{&program_name}" "{&program_version}"}

aproveitei a sua dica e revisei todos os programas. Problema resolvido.

haviam alguns programas que estavam funcionando e justamente estavam com a include do ut9000.i correta.
alterei os demais programas e normalizou.

muito obrigado pela ajuda.

até +