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

execução de programas

Discussão em 'EMS , HCM e Totvs 11' iniciado por Carlos Alberto Giusti, Setembro 5, 2023.

  1. Carlos Alberto Giusti

    Carlos Alberto Giusti Membro Ativo

    Na hora que o programa está executando é possível saber é está sendo executado pelo Menu ou pelo RPW?
    Se sim, como saber.?
  2. rafael.andrade

    rafael.andrade Membro Master Moderador Equipe de Suporte

    Você quer saber a forma que um usuário está usando o programa ou você mesmo?
  3. Carlos Alberto Giusti

    Carlos Alberto Giusti Membro Ativo

    Não.
    Quero saber se na execução do programa dá para saber se foi acionado pelo menu ou pelo rpw.
  4. rafael.andrade

    rafael.andrade Membro Master Moderador Equipe de Suporte

    Pra rodar via RPW você tem que selecionar essa opção na tela, se não selecionou, é pelo menu
  5. Carlos Alberto Giusti

    Carlos Alberto Giusti Membro Ativo

    Eu preciso saber se o programa está executando por ser chamado pelo menu ou pelo rpw.
    Vou gerar uma planilha em excel. Se for executado pelo rpw vou gravar essa planilha numa pasta e se for executado pelo menu vou gerar a planilha em tela.
  6. rafael.andrade

    rafael.andrade Membro Master Moderador Equipe de Suporte

    Ahhh tá, vc tá perguntando se é possível o próprio programa detectar se ele mesmo está sendo executado via menu ou RPW, agora entendi.

    Na definição da temp-table tt-param, adiciona um campo "tipoExecucao" (pode ser outro nome), e coloque essa mesma definição tanto no .P como no .W

    Antes de executar no RPW coloca tipoExecucao = 2, se rodar em tela, coloca tipoExecucao = 1

    Dentro do .P basta verificar qual valor que está nesse campo

    Essas variáveis também mudam (dentro do .p que roda dentro e fora do RPW):

    Código:
    DEFINE NEW GLOBAL SHARED VARIABLE v_num_ped_exec_corren       AS INTEGER   NO-UNDO.
    DEFINE NEW GLOBAL SHARED VARIABLE v_dsl_return_value          AS CHARACTER NO-UNDO.
    DEFINE NEW GLOBAL SHARED VARIABLE c-dir-spool-servid-exec     AS CHARACTER NO-UNDO.       
    DEFINE NEW GLOBAL SHARED VARIABLE v_orientacao_pdf            AS CHARACTER NO-UNDO.
    DEFINE NEW GLOBAL SHARED VARIABLE v_cod_produt_corren         AS CHARACTER NO-UNDO.
    DEFINE NEW GLOBAL SHARED VARIABLE v_cod_dir_spool_servid_exec AS CHARACTER NO-UNDO.
    DEFINE NEW GLOBAL SHARED VARIABLE i-ep-codigo-param-global    AS CHARACTER NO-UNDO.
    DEFINE NEW GLOBAL SHARED VARIABLE v_cod_servid_exec           AS CHARACTER NO-UNDO.
    
    lcpaulino curtiu isso.

Compartilhe esta Página