1. This site uses cookies. By continuing to use this site, you are agreeing to our use of cookies. Learn More.
  2. Anuncie Aqui
    Anuncie aqui você Também: fdantas@4each.com.br

Salvar arquivo spool

Discussão em 'EMS , HCM e Totvs 11' iniciado por Arthur G, Novembro 28, 2024.

  1. Arthur G

    Arthur G Sem Pontuação

    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.
  2. bootstrapmaster

    bootstrapmaster Moderator Moderador Equipe de Suporte

    No cadastro de usuarios, na segunda aba vc indica qual a pasta a ser salvo os arquivos gerados por RPW.
  3. Arthur G

    Arthur G Sem Pontuação

    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.

Compartilhe esta Página