CE PLUS - Nota 010462
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Encerramento de Custo
Data/Hora da Publicação: 03/08/2010 00:00:00
Data/Hora Última Alteração: 17/08/2010 11:29:58
Descrição da Nota: ENCERRAMENTO DE CUSTO NÃO VERIFICA PERMISSÃO PARA MR22 E F-02
Sintoma
O programa de encerramento esta permitindo que usuarios sem permissão para execução da transação
MR22 efetue o encerramento de custo.
Solução
Ajustado programa para verificar se o usuário possui autorização para execução das transações MR22 e
F-02.
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 10462 Data: 03/08/2010 Hora: 16:33:27
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 10462
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00004
Agrupamento : 00033
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
02401 - 00001 - CHAMADA DE EXIT NO CUSTO EFETIVO PARA TRATAR RELAT.ZYCIR007- CUS004
----------------------------------------------------------------------------------------------------
ENCERRAMENTO DE CUSTO NÃO VERIFICA PERMISSÃO PARA MR22 E F-02
----------------------------------------------------------------------------------------------------
Palavras Chave:
ENCERRAMENTO - CUSTO - PERMISSÃO - TRANSAÇÃO - MR22 - F02
/PWS/SAPMZYCI010
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI010F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI010F02
...
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY zexit = 'CUS004'.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario) IN PROGRAM
(itab_zyglt100-programa) IF FOUND.
ELSE.
SUBMIT /pws/zycir007 AND RETURN. "#EC CI_SUBMIT
ENDIF.
IMPORT e_okcode FROM MEMORY ID 'I007E'.
IF e_okcode EQ 'CONTAB'.
* >> Início da inclusão: FORM ENCERRAMENTO
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD 'F-02'.
IF sy-subrc NE 0.
MESSAGE e261(sf) WITH 'F-02'.
EXIT.
ENDIF.
* << Fim da inclusão
IF /pws/zycie001-belnr_mr22 IS INITIAL AND
NOT itab_zycie031[] IS INITIAL AND v_rub NE 'X'.
* >> Início da inclusão: FORM ENCERRAMENTO
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD 'MR22'.
IF sy-subrc NE 0.
MESSAGE e261(sf) WITH 'MR22'.
EXIT.
ENDIF.
* << Fim da inclusão
PERFORM fill_date_mr22.
ENDIF.
IF NOT /pws/zycie001-belnr_mr22 IS INITIAL OR
( /pws/zycie001-belnr_mr22 IS INITIAL
AND itab_zycie031[] IS INITIAL )
OR v_rub = 'X'.
IF v_conta = 'X'.
MESSAGE i015 WITH text-065.
ELSE.
PERFORM adiciona_partidas_est.
...