Sintoma

Ao entrar no programa de despesas - Exibir e clicar no botão "Boleto", o programa

está chamando o programa de processar boleto e permitindo que o usuário gere o

boleto, sendo que não deveria chamar o processar boleto, pois o usuário não tem permissão para a

transação.

Solução

A verificação foi adicionada.

Informações Complementares

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

Nota Número 01909 Data: 10/08/2006 Hora: 09:22:00

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

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

Nota Número              : 01909

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00024

Agrupamento              : 00126

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

DESPESAS - PERMISSÃO BOLETO

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

Palavras Chave:

DESPESAS - PERMISSÃO BOLETO

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

Objetos da nota:

MESS /PWS/ZYCBM303

REPS /PWS/MZYCB105F01

REPS /PWS/MZYCB105TOP

REPS /PWS/SAPMZYCB105

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

Modificações efetuadas em MESS /PWS/ZYCBM303

* >> Início da inclusão: FORM FECHA_CAMBIO

303 Sem autorização para a transação /PWS/ZYCBR102.

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/MZYCB105F01

...

            answer                = v_resp

       EXCEPTIONS

            text_not_found        = 1

            OTHERS                = 2.

  IF v_resp EQ '1'.

* >> Início da inclusão: FORM FECHA_CAMBIO

       AUTHORITY-CHECK OBJECT 'S_TCODE' ID 'TCD' FIELD '/PWS/ZYCBR102'.

       IF SY-SUBRC EQ 0.

* << Fim da inclusão

    v_estorno = 'X'.

    MODIFY /pws/zycbt118 FROM /pws/zycbe118.

    PERFORM processa_boleto.

* >> Início da inclusão: FORM FECHA_CAMBIO

  ELSE.

     MESSAGE e303.

  ENDIF.

* << Fim da inclusão

  ELSE.

    EXIT.

  ENDIF.

ENDFORM.

FORM processa_boleto.

...

...

       EXCEPTIONS

            text_not_found        = 1

            OTHERS                = 2.

  IF v_resp EQ '1'.

    v_estorno = 'X'.

* >> Início da exclusão: FORM FECHA_CAMBIO_TC

    PERFORM processa_boleto_tc.

* << Fim da exclusão

* >> Início da inclusão: FORM FECHA_CAMBIO_TC

    PERFORM processa_boleto.

* << Fim da inclusão

  ELSE.

    EXIT.

  ENDIF.

ENDFORM.

FORM processa_boleto_tc.

...

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

Modificações efetuadas em REPS /PWS/MZYCB105TOP

PROGRAM  /pws/sapmzycb105 MESSAGE-ID /pws/zycbm.

* >> Início da inclusão:

INCLUDE /PWS/MZYCB105X01.

* << Fim da inclusão

INCLUDE /pws/zygli100.

DATA: itab_zyglt100 LIKE /pws/zyglt100 OCCURS 0 WITH HEADER LINE.

TABLES:

  /pws/zyglt364,

  /pws/zyglt214,

...

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

Modificações efetuadas em REPS /PWS/SAPMZYCB105

INCLUDE /pws/mzycb105top.

* >> Início da exclusão:

INCLUDE /PWS/MZYCB105X01.

* << Fim da exclusão

INCLUDE /pws/mzycb105o01.

INCLUDE /pws/mzycb105i01.

INCLUDE /pws/mzycb105f01.

INCLUDE /PWS/MZYCB105H01.