Sintoma

Exibe no relatório todas as empresas.

Solução

Incluir Authority-Check

Informações Complementares

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

Nota Número 06907 Data: 03/07/2008 Hora: 10:52:34

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

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

Nota Número              : 06907

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 7.0

Pacote                   : 00006

Agrupamento              : 00054

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

Referência às notas relacionadas:

Número - Ordem - Versão - Pacote - Descrição Breve

06858  - 00001 - 7.0    - 00006  - INCLUSÃO DE AUTHORITY CHECK EM PROGRAMAS E RELATÓRIOS.

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

AUTHORITY-CHECK EM REPORT

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

Palavras Chave:

AUTHORITY-CHECK

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

Objetos da nota:

REPS /PWS/ZYCBR111

REPS /PWS/ZYCBR115

REPS /PWS/ZYCBR120

REPS /PWS/ZYCBR145

REPS /PWS/ZYGLR041

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

Modificações efetuadas em REPS /PWS/ZYCBR111

...

  ENDLOOP.

ENDFORM.

FORM authority_check .

  CHECK NOT itab_dados[] IS INITIAL.

  SELECT bukrs butxt

         INTO TABLE t_t001

         FROM t001

         FOR ALL ENTRIES IN itab_dados

         WHERE butxt EQ itab_dados-empresa.

  LOOP AT itab_dados.

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

     v_tabix = sy-tabix.

* << Fim da inclusão

    READ TABLE t_t001 WITH KEY butxt = itab_dados-empresa.

    CHECK sy-subrc EQ 0.

    AUTHORITY-CHECK OBJECT 'F_BKPF_BUK'

                    ID     'BUKRS'

                    FIELD  t_t001-bukrs

                    ID     'ACTVT'

                    FIELD  '03'.

    IF sy-subrc NE 0.

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

      DELETE itab_dados INDEX v_tabix.

* << Fim da inclusão

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

      DELETE itab_dados INDEX sy-tabix.

* << Fim da exclusão

    ENDIF.

  ENDLOOP.

  CLEAR:  t_t001, v_tabix.

  REFRESH t_t001.

ENDFORM.

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

Modificações efetuadas em REPS /PWS/ZYCBR115

...

  REFRESH: t_lfa1, t_kna1, t_zycbt064, t_boleto.

ENDFORM.

FORM authority_check .

  CHECK NOT itab_resultado[] IS INITIAL.

  SELECT bukrs butxt

         INTO TABLE t_t001

         FROM t001

         FOR ALL ENTRIES IN itab_resultado

         WHERE butxt EQ itab_resultado-empresa.

  LOOP AT itab_resultado.

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

    v_tabix = sy-tabix.

* << Fim da inclusão

    READ TABLE t_t001 WITH KEY butxt = itab_resultado-empresa.

    CHECK sy-subrc EQ 0.

    AUTHORITY-CHECK OBJECT 'F_BKPF_BUK'

                    ID     'BUKRS'

                    FIELD  t_t001-bukrs

                    ID     'ACTVT'

                    FIELD  '03'.

    IF sy-subrc NE 0.

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

      DELETE itab_resultado INDEX v_tabix.

* << Fim da inclusão

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

      DELETE itab_resultado INDEX sy-tabix.

* << Fim da exclusão

    ENDIF.

  ENDLOOP.

  CLEAR:  t_t001, v_tabix.

  REFRESH t_t001.

ENDFORM.

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

Modificações efetuadas em REPS /PWS/ZYCBR120

...

  ENDIF.

ENDFORM.

FORM authority_check .

  CHECK NOT itab_dados[] IS INITIAL.

  SELECT bukrs butxt

         INTO TABLE t_t001

         FROM t001

         FOR ALL ENTRIES IN itab_dados

         WHERE butxt EQ itab_dados-empresa.

  LOOP AT itab_dados.

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

    v_tabix = sy-tabix.

* << Fim da inclusão

    READ TABLE t_t001 WITH KEY butxt = itab_dados-empresa.

    CHECK sy-subrc EQ 0.

    AUTHORITY-CHECK OBJECT 'F_BKPF_BUK'

                    ID     'BUKRS'

                    FIELD  t_t001-bukrs

                    ID     'ACTVT'

                    FIELD  '03'.

    IF sy-subrc NE 0.

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

      DELETE itab_dados INDEX v_tabix.

* << Fim da inclusão

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

      DELETE itab_dados INDEX sy-tabix.

* << Fim da exclusão

    ENDIF.

  ENDLOOP.

  CLEAR:  t_t001, v_tabix.

  REFRESH t_t001.

ENDFORM.

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

Modificações efetuadas em REPS /PWS/ZYCBR145

...

      itab_dados-BUKRS       = itab_zycbt006-bukrs.

      itab_dados-WAERS       = itab_zycbt006-waers.

      itab_dados-t6_dtpagto  = itab_zycbt006-dtpagto.

      itab_dados-t6_VLME     = itab_zycbt006-vlme.

      itab_dados-t6_STATUS   = itab_zycbt006-status.

      itab_dados-t6_DTPAGEXT = itab_zycbt006-dtpagext.

      append itab_dados.

      clear itab_dados.

    endloop.

  endif.

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

  LOOP AT itab_dados.

    AUTHORITY-CHECK OBJECT 'F_BKPF_BUK'

                    ID     'BUKRS'

                    FIELD  itab_dados-bukrs

                    ID     'ACTVT'

                    FIELD  '03'.

    IF sy-subrc NE 0.

      DELETE itab_dados INDEX sy-tabix.

    ENDIF.

  ENDLOOP.

* << Fim da inclusão

ENDFORM.

FORM f4_for_variant.

  DATA locl_variant LIKE disvariant.

  CLEAR exit.

  CALL FUNCTION 'REUSE_ALV_VARIANT_F4'

    EXPORTING

      is_variant = g_variant

      i_save     = 'A'

    IMPORTING

      e_exit     = exit

...

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

Modificações efetuadas em REPS /PWS/ZYGLR041

...

            p_l_liso RADIOBUTTON GROUP rg2.

SELECTION-SCREEN END OF BLOCK b5.

INITIALIZATION.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_varian.

  PERFORM f4_for_variant.

START-OF-SELECTION.

  PERFORM clear_vars.

  PERFORM trata_input.

  PERFORM seleciona_dados.

  PERFORM processar_dados.

* >> Início da inclusão:

 PERFORM authority_check.

* << Fim da inclusão

  IF NOT v_empresa IS INITIAL.

    v_tela = '0501'.

  ELSE.

    v_tela = '0502'.

  ENDIF.

  IF itab_mensagem[] IS INITIAL.

    MESSAGE i015(/pws/zycbm)

    WITH 'Não há dados para esse critério de seleção.'(010).

  ELSE.

    CALL SCREEN '500'.

...

...

      ENDIF.

    ENDIF.

  ENDLOOP.

  LOOP AT itab_moeda INTO wa_moeda WHERE destino = '30'.

    v_30 = v_30 + wa_moeda-vlr_usd.

  ENDLOOP.

  LOOP AT itab_moeda INTO wa_moeda WHERE destino = '70'.

    v_70 = v_70 + wa_moeda-vlr_usd.

  ENDLOOP.

ENDFORM.

* >> Início da inclusão:

FORM authority_check .

  CHECK NOT itab_mensagem[] IS INITIAL.

  LOOP AT itab_mensagem INTO wa_mensagem.

    AUTHORITY-CHECK OBJECT 'F_BKPF_BUK'

                    ID     'BUKRS'

                    FIELD  wa_mensagem-bukrs

                    ID     'ACTVT'

                    FIELD  '03'.

    IF sy-subrc NE 0.

      DELETE itab_mensagem INDEX sy-tabix.

    ENDIF.

  ENDLOOP.

endform.

* << Fim da inclusão