CE PLUS - Nota 000871
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Encerramento Contábil
Data/Hora da Publicação: 14/02/2006 00:00:00
Data/Hora Última Alteração: 20/06/2011 12:06:11
Descrição da Nota: VERIFICAÇÃO DE AUTORIZAÇÃO PARA EXECUTAR BATCH VIA SHFT F9.
Sintoma
Exit para tratamento na saída da NF e preenchimento de campos no recebimento.
Solução
Foi crida a exit RCB008.
Versões Tratadas
6.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 00871 Data: 14/02/2006 Hora: 09:37:49
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 00871
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00022
Agrupamento : 00100
----------------------------------------------------------------------------------------------------
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.
----------------------------------------------------------------------------------------------------
VERIFICAÇÃO DE AUTORIZAÇÃO PARA EXECUTAR BATCH VIA SHFT F9.
----------------------------------------------------------------------------------------------------
Palavras Chave:
AUTORIZAÇÃO - BATCH - INPUT - SHIFT - F9 - ENCERRAMENTO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI010I01
REPT /PWS/SAPMZYCI010
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI010I01
...
LEAVE TO SCREEN 0.
ELSEIF sy-tcode EQ '/PWS/ZYCI010_E'.
SET SCREEN '0005'.
ENDIF.
WHEN 'MODO'.
* >> Início da inclusão: MODULE USER_COMMAND_0003
DATA: v_autoriza TYPE feld.
CALL FUNCTION '/PWS/ZYGL_AUTORIZA_MODO_BATCH'
EXPORTING
codmod = 'D'
usuario = sy-uname
func = 'ENC'
IMPORTING
autoriza = v_autoriza.
IF v_autoriza = 'X'.
* << Fim da inclusão
PERFORM modo_batch_input.
* >> Início da inclusão: MODULE USER_COMMAND_0003
ELSE.
MESSAGE w013 WITH text-080 text-081.
ENDIF.
* << Fim da inclusão
WHEN 'SELE'.
PERFORM trata_sele.
WHEN 'ENCER'.
PERFORM encerramento.
WHEN 'ENCERC'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCI010
Foram inseridos os textos abaixo:
080 Usuario não tem autorização
081 para Executar Via Shif F9.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI037I01
...
CASE sy-ucomm.
WHEN 'SELE'.
PERFORM comm_drilldown.
WHEN 'RESU'.
PERFORM comm_resumo.
WHEN 'ENCERC'.
WHEN 'BKLAS'.
PERFORM load_doc_class_aval.
WHEN 'MODO'.
* >> Início da inclusão: MODULE USER_COMMAND_0100
DATA: v_autoriza TYPE feld.
CALL FUNCTION '/PWS/ZYGL_AUTORIZA_MODO_BATCH'
EXPORTING
codmod = 'D'
usuario = sy-uname
func = 'ADT'
IMPORTING
autoriza = v_autoriza.
IF v_autoriza = 'X'.
* << Fim da inclusão
PERFORM modo_batch_input.
* >> Início da inclusão: MODULE USER_COMMAND_0100
ELSE.
MESSAGE w013 WITH text-073 text-074.
ENDIF.
* << Fim da inclusão
WHEN 'ENCER'.
PERFORM encerramento.
ENDCASE.
ENDMODULE. " user_command_0100 INPUT
...
FOR ALL ENTRIES IN it_zycit201
WHERE nrseqenc = it_zycit201-nrseqenc.
ENDIF.
WHEN 'MODO'.
* >> Início da inclusão: MODULE USER_COMMAND_0050
DATA: v_autoriza TYPE feld.
CALL FUNCTION '/PWS/ZYGL_AUTORIZA_MODO_BATCH'
EXPORTING
codmod = 'D'
usuario = sy-uname
func = 'ENC'
IMPORTING
autoriza = v_autoriza.
IF v_autoriza = 'X'.
* << Fim da inclusão
PERFORM modo_batch_input.
* >> Início da inclusão: MODULE USER_COMMAND_0050
ELSE.
MESSAGE w013 WITH text-080 text-081.
ENDIF.
* << Fim da inclusão
WHEN 'BACK'.
CLEAR: /pws/zycie202, sy-ucomm.
LEAVE TO SCREEN 0 .
ENDCASE.
CLEAR sy-ucomm.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCI037
Foram inseridos os textos abaixo:
ID Chave Comprimento Txt.
I 073 27 Usuario não tem autorização
I 074 26 para Executar Via Shif F9.