CE PLUS - Nota 001240
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Fatura Despesas
Data/Hora da Publicação: 25/04/2006 00:00:00
Data/Hora Última Alteração: 20/06/2011 12:28:34
Descrição da Nota: AUTHORITY-CHECK PARA A EMPRESA.
Sintoma
Atualizado acesso a transação de criar fatura por fora do embarque, com restrição,
criação da consistência do AUTHORITY-CHECK para a empresa em branco.
Solução
Inserido AUTHORITY-CHECK.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 01240 Data: 25/04/2006 Hora: 11:18:03
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 01240
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00023
Agrupamento : 00110
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
AUTHORITY-CHECK PARA A EMPRESA.
----------------------------------------------------------------------------------------------------
Palavras Chave:
AUTHORITY-CHECK - EMPRESA - FATURA - EMBARQUE
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI003F02
REPS /PWS/MZYCI003I01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F02
...
ENDLOOP.
CLEAR v_tabix.
ENDFORM.
FORM verifica_nrfat.
DATA: wa_zycit006 LIKE /pws/zycit006.
* >> Início da inclusão: FORM VERIFICA_NRFAT
IF sy-tcode = '/PWS/ZYCI003_C'.
* << Fim da inclusão
IF NOT /pws/zycie006-lifnr IS INITIAL.
SELECT SINGLE * FROM lfb1 WHERE
lifnr EQ /pws/zycie006-lifnr.
IF sy-subrc EQ 0 AND lfb1-reprf EQ 'X'.
SELECT SINGLE * FROM t169p
...
...
ENDIF.
ENDIF.
IF v_flag = 'X'.
MESSAGE e013 WITH text-163 text-164.
EXIT.
* >> Início da inclusão: FORM VERIFICA_NRFAT
ENDIF.
* << Fim da inclusão
ENDIF.
ENDIF.
ENDIF.
ENDFORM.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003I01
...
PERFORM executa_batch_input.
ENDCASE.
ENDMODULE.
MODULE authority_empresa OUTPUT.
IF sy-tcode EQ '/PWS/ZYCI003_C'.
* >> Início da inclusão: MODULE AUTHORITY_EMPRESA
if not /pws/zycie006-bukrs is initial.
* << Fim da inclusão
AUTHORITY-CHECK OBJECT 'F_BKPF_BUK' ID 'BUKRS'
DUMMY
ID 'ACTVT' FIELD '01'.
IF sy-subrc NE 0.
AUTHORITY-CHECK OBJECT 'F_BKPF_BUK' ID 'BUKRS' FIELD
...
...
ID 'ACTVT' FIELD '01'.
IF sy-subrc NE 0.
MESSAGE e083(f5) WITH /pws/zycie006-bukrs.
ENDIF.
ENDIF.
* >> Início da inclusão: MODULE AUTHORITY_EMPRESA
ENDIF.
* << Fim da inclusão
ELSEIF sy-tcode EQ '/PWS/ZYCI003_A'.
AUTHORITY-CHECK OBJECT 'F_BKPF_BUK' ID 'BUKRS'
DUMMY
ID 'ACTVT' FIELD '02'.
IF sy-subrc NE 0.
...