CE PLUS - Nota 001187

Módulo: DOC. EXPORTAÇÃO

Funcionalidade: Outros

Data/Hora da Publicação: 12/04/2006 00:00:00

Data/Hora Última Alteração: 21/02/2011 16:24:33

Descrição da Nota: AUTORIZAÇÃO PARA EXECUÇÃO DE BATCH INPUT EM MODO VISÍVEL

Sintoma

a autorização para execução de batch-input em modo visível era pouco flexível, exigindo muitas

parametrizações para muitos usuários.

 

 

Solução

1. é verificado se há algum usuário cadastrado para alguma funcionalidade do módulo referente;

2. se não houver usuário cadastrado para qualquer funcionalidade do módulo referente, o programa

habilitará o uso de shift+F9 para qualquer usuário em todas as funcionalidades do módulo;

3. porém, se houver um ou mais módulos cadastrados para alguma(s) funcionalidade(s) do módulo, o

programa deverá restringir o acesso a esses usuários conforme as funcionalidades cadastradas para

cada um.

 

Versões Tratadas

6.0


Pré-Requisitos

Produto:

Nota

Descrição

VERIFICAÇÃO DE AUTORIZAÇÃO PARA EXECUTAR BATCH VIA SHFT F9.

Informações Complementares

----------------------------------------------------------------------------------------------------

Nota Número 01187 Data: 12/04/2006 Hora: 09:43:04

----------------------------------------------------------------------------------------------------

 

----------------------------------------------------------------------------------------------------

Nota Número              : 01187

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00023

Agrupamento              : 00109

----------------------------------------------------------------------------------------------------

Referência às notas relacionadas:

Número - Ordem - Versão - Pacote - Descrição Breve

 

00876  - 00001 - 6.0    - 00022  - VERIFICAÇÃO DE AUTORIZAÇÃO PARA EXECUTAR BATCH VIA SHFT F9.

----------------------------------------------------------------------------------------------------

AUTORIZAÇÃO PARA EXECUÇÃO DE BATCH INPUT EM MODO VISÍVEL

----------------------------------------------------------------------------------------------------

Palavras Chave:

AUTORIZAÇÃO BATCH INPUT MODO VISÍVEL

 

----------------------------------------------------------------------------------------------------

Objetos da nota:

FUNC /PWS/ZYGL_AUTORIZA_MODO_BATCH

REPS /PWS/LZYGLGFTOP

 

----------------------------------------------------------------------------------------------------

Modificações efetuadas em FUNC /PWS/ZYGL_AUTORIZA_MODO_BATCH

 

FUNCTION /pws/zygl_autoriza_modo_batch.

  TABLES: /pws/zyglt384.

* >> Início da inclusão: FUNCTION /PWS/ZYGL_AUTORIZA_MODO_BATCH

  SELECT *

    FROM /pws/zyglt384

    INTO TABLE itab_zyglt384

    WHERE codmod  EQ codmod.

* << Fim da inclusão

* >> Início da exclusão: FUNCTION /PWS/ZYGL_AUTORIZA_MODO_BATCH

  SELECT SINGLE * FROM /pws/zyglt384

  WHERE codmod  EQ codmod   AND

        usuario EQ usuario  AND

        func    EQ func.

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYGL_AUTORIZA_MODO_BATCH

  IF sy-subrc EQ 0.

    CLEAR itab_zyglt384.

    READ TABLE itab_zyglt384 WITH KEY usuario = usuario

                                       func = func.

* << Fim da inclusão

  IF sy-subrc EQ 0.

    autoriza = 'X'.

* >> Início da inclusão: FUNCTION /PWS/ZYGL_AUTORIZA_MODO_BATCH

    ELSE.

      autoriza = ' '.

    ENDIF.

* << Fim da inclusão

  ELSE.

* >> Início da exclusão: FUNCTION /PWS/ZYGL_AUTORIZA_MODO_BATCH

    CLEAR autoriza.

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYGL_AUTORIZA_MODO_BATCH

    autoriza = 'X'.

* << Fim da inclusão

  ENDIF.

ENDFUNCTION.

 

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/LZYGLGFTOP

 

function-pool /pws/zyglgf.

tables: /pws/zyglt100.

* >> Início da exclusão:

data: itab_zyglt100 like /pws/zyglt100 occurs 10 with header line.

* << Fim da exclusão

* >> Início da inclusão:

data: itab_zyglt100 like /pws/zyglt100 occurs 10 with header line,

      itab_zyglt384 like /pws/zyglt384 occurs 10 with header line.

* << Fim da inclusão

data:

  v_dtbase_convert like sy-datum.

data:

  w_flag_entre_exits(20) type c.

ranges: r_mandt for sy-mandt.