Preciso fazer que quando o usuário roda a tela em RPW, direcione o txt/LST do programa no spool\RPW\(nome do user que rodou), sabem como faz? Já tentei colocar IF tt-param.destino = 2 THEN DO: find first ped_exec where ped_exec.num_ped_exec = i-num-ped-exec-rpw no-lock no-error. find first servid_exec where servid_exec.cod_servid_exec = ped_exec.cod_servid_exec no-lock no-error. ASSIGN c-arquivo-relat = "\" + servid_exec.nom_dir_spool + "\ESPL4000.txt". FIND FIRST usuar_mestre NO-LOCK //busca usuÿrio que agendou o rpw WHERE usuar_mestre.cod_usuario = ped_exec.cod_usuario NO-ERROR. OUTPUT TO VALUE(c-arquivo-relat). PUT tt-param.r-considera. OUTPUT CLOSE. Porém quando vou checar, ele salva no diretório incorreto do spool D:\totvs\datasul\dts-0\ERP\spool mas quando dou disp no servid_exec.nom_dir_spool o diretório deveria ser D:\totvs\datasul\dts-0\ERP\spool\RPW\(users) Ele está salvando 1 pasta antes.
No cadastro de usuarios, na segunda aba vc indica qual a pasta a ser salvo os arquivos gerados por RPW.
Opa, consegui da seguinte maneira mas graças a sua dica: IF tt-param.destino = 2 THEN DO: //tratamento gerar arquivo no spool do usuario rpw if i-num-ped-exec-rpw <> 0 then do: //RPW find first ped_exec where ped_exec.num_ped_exec = i-num-ped-exec-rpw no-lock no-error. find first servid_exec where servid_exec.cod_servid_exec = ped_exec.cod_servid_exec no-lock no-error. FIND FIRST usuar_mestre NO-LOCK //busca usuÿrio que agendou o rpw WHERE usuar_mestre.cod_usuario = ped_exec.cod_usuario NO-ERROR. END. ASSIGN c-arquivo-relat = servid_exec.nom_dir_spool + "\" + usuar_mestre.nom_subdir_spool_rpw + "\ESPL4000.txt". OUTPUT TO VALUE(c-arquivo-relat). PUT tt-param.r-considera. OUTPUT CLOSE. obrigado.