Sintoma

Na transação de Exibir LI os seguintes ícones não devem aparecer: Eliminar item, modificar e

transmissão.

Solução

Inibir os botões conforme solicitado.

Informações Complementares

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

Nota Número 13761 Data: 28/02/2014 Hora: 09:40:19

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

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

Nota Número              : 13761

Categoria                : Erro de Programa

Prioridade               : Baixa

Versão PW.CE             : 9.0

Pacote                   : 00007

Agrupamento              : 00170

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

Referência às notas relacionadas:

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

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

INIBIR BOTÕES NA TRANSAÇÃO DE EXIBIR LI - /PWS/ZYCI020_E

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

Palavras Chave:

/PWS/ZYCI020_E - EXIBIR - LI - BOTÕES - ELIMINAR ITEM - MODIFICAR

TRANSMISSÃO

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

Objetos da nota:

REPS /PWS/MZYCI020O01

REPS /PWS/MZYCI020F01

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

Modificações efetuadas em REPS /PWS/MZYCI020O01

...

    it_code-fcode = 'TRANSM'   . APPEND it_code.

    it_code-fcode = 'VINCULATO'. APPEND it_code.

* >> Início da inclusão: MODULE STATUS_0100

    it_code-fcode = 'ENVIOLI'. APPEND it_code.

* << Fim da inclusão

    SET PF-STATUS '0100' EXCLUDING it_code.

  ELSEIF v_tcode EQ '/PWS/ZYCI020_A' OR

         v_tcode EQ '/PWS/ZYCI020_N' OR

         v_tcode EQ '/PWS/ZYCI020_U'.

...

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

Modificações efetuadas em REPS /PWS/MZYCI020F01

...

      IF screen-name EQ 'BTN_PED'.

        screen-input = '0' .

        MODIFY SCREEN.

      ENDIF.

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

      IF screen-name EQ '%#AUTOTEXT001'.

        screen-input = '0'.

        MODIFY SCREEN.

      ENDIF.

      IF screen-name EQ '%#AUTOTEXT002'.

        screen-input = '0'.

        MODIFY SCREEN.

      ENDIF.

* << Fim da inclusão

    ELSEIF v_tcode EQ '/PWS/ZYCI020_C' OR

           v_tcode EQ '/PWS/ZYCI020_A' OR

           v_tcode EQ '/PWS/ZYCI020_P' OR

           v_tcode EQ '/PWS/ZYCI020_N' OR

           v_tcode EQ '/PWS/ZYCI020_I' OR

           v_tcode EQ '/PWS/ZYCI020_G' OR

           v_tcode EQ '/PWS/ZYCI020_T' OR

           v_tcode EQ '/PWS/ZYCI020_U'.

...

...

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

      ELSEIF sy-tcode EQ '/PWS/ZYCI020_L'.

* << Fim da exclusão

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

      ELSEIF sy-tcode EQ '/PWS/ZYCI020_L'

          OR sy-tcode EQ '/PWS/ZYCI020_E'.

* << Fim da inclusão

        top_editmode = '1'.

        CALL METHOD editor2->set_readonly_mode EXPORTING

              readonly_mode = top_editmode.

      ELSE.

        IF ( NOT v_nrpli IS INITIAL AND

             NOT v_dtreg IS INITIAL ) .

          top_editmode = '1'.

          CALL METHOD editor2->set_readonly_mode EXPORTING

                readonly_mode = top_editmode.

        ELSE.

...