CE PLUS - Nota 011760
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Encerramento de Custo
Data/Hora da Publicação: 16/12/2011 10:05:38
Data/Hora Última Alteração: 16/12/2011 10:05:38
Descrição da Nota: RETIRAR AUTHORITY CHECK ANTES DA MR22 E F02 NO ENCERRAMENTO.
Sintoma
Retirar authority check antes da MR22 e F02 no encerramento.
Solução
Retirar o authority check
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 11760 Data: 09/12/2011 Hora: 15:52:51
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 11760
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 8.0
Pacote : 00009
Agrupamento : 00098
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
10462 - 00001 - 8.0 - 00004 - ENCERRAMENTO DE CUSTO NÃO VERIFICA PERMISSÃO PARA MR22 E F-02
----------------------------------------------------------------------------------------------------
RETIRAR AUTHORITY CHECK ANTES DA MR22 E F02 NO ENCERRAMENTO.
----------------------------------------------------------------------------------------------------
Palavras Chave:
MR22 - F02 - ENCERRAMENTO DE CUSTO - AUTHORITY CHECK
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI010F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI010F02
...
IMPORT e_okcode FROM MEMORY ID 'I007E'.
IF e_okcode EQ 'CONTAB'.
* >> Início da exclusã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 exclusão
IF /pws/zycie001-belnr_mr22 IS INITIAL AND
NOT itab_zycie031[] IS INITIAL AND v_rub NE 'X'.
* >> Início da exclusã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 exclusão
PERFORM fill_date_mr22.
ENDIF.
...