Logar ou Criar uma Conta

Anuncie aqui você Também: fdantas@4each.com.br

A2 Solutions Anuncie Aqui

execução de programas

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

Página 2 de 4

Carlos Alberto Giusti Membro Ativo
rafael.andrade disse: ↑

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.

Clique para expandir...

Deu certo. Obrigado.
Carlos Alberto Giusti, Setembro 6, 2023

#7

rafael.andrade curtiu isso.
Carlos Alberto Giusti Membro Ativo
rafael.andrade disse: ↑

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.

Clique para expandir...

Coloquei tipoExecucao no tt-param. No .p dei um message nesse campo e ele veio com Zero.
Está certo?
Carlos Alberto Giusti, Setembro 13, 2023

#8
rafael.andrade Membro Master Moderador Equipe de Suporte

tem que estar no .p e no .w que chamou esse .p

aí, antes da chamada do .p, vc tem que setar o campo primeiro

rafael.andrade, Setembro 13, 2023

#9
Carlos Alberto Giusti Membro Ativo

rafael.andrade disse: ↑

tem que estar no .p e no .w que chamou esse .p

aí, antes da chamada do .p, vc tem que setar o campo primeiro
Clique para expandir...

Como assim, setar.

Carlos Alberto Giusti, Setembro 13, 2023

#10
rafael.andrade Membro Master Moderador Equipe de Suporte

Setar é o mesmo que atribuir algum valor:

Tipo:
ASSIGN tt-param.tipoExecucao = 1.

rafael.andrade, Setembro 13, 2023

#11
Carlos Alberto Giusti Membro Ativo

rafael.andrade disse: ↑

Setar é o mesmo que atribuir algum valor:

Tipo:
ASSIGN tt-param.tipoExecucao = 1.
Clique para expandir...

no .w?

coloquei assim no .p e .w
define temp-table tt-param no-undo
field destino as integer
field arquivo as char format "x(35)"
field usuario as char format "x(12)"
field data-exec as date
field hora-exec as inte
FIELD rs-imprime AS integer
FIELD tipoExecucao AS INTE
FIELD tt-mes AS INTE
FIELD tt-ano AS INTE

field tt-emp-ini as char
field tt-emp-fin as char

field tt-est-ini as char
field tt-est-fin as char

field tt-fun-ini as inte
field tt-fun-fin as inte

field tt-ges-ini as char
field tt-ges-fin as char

field tt-per-ini as date
field tt-per-fin as date

field tt-oco-ini as inte
field tt-oco-fin as inte

field tt-sit-ini as inte
field tt-sit-fin as inte.

Carlos Alberto Giusti, Setembro 13, 2023

#12

(Você precisa ter uma conta ou estar logado para responder aqui.)

Página 2 de 4

Compartilhe esta Página

Ajude-nos a manter nosso conteúdo gratuito

Para manter nosso conteúdo gratuito nós utilizamos anúncios nas páginas, mas você está utilizando um bloqueador de anúncios (ad blocker).

Por favor, considere nos apoiar desabilitando o bloqueador para permitir a exibição dos anúncios.