Sintoma

Ao clicar no botão para verificar alterações com o ato concessório indeferido ocorre DUMP.

Solução

Ajusatdo programa para desabilitar o botão quando o ato concessólrio não estiver deferido.

Informações Complementares

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

Nota Número 08623 Data: 02/07/2009 Hora: 10:18:21

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

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

Nota Número              : 08623

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00010

Agrupamento              : 00103

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

Texto Rápido:

DESABILITA BOTÃO VERIFICAR ALTERAÇÕES QUANDO ATO NÃO ESTÁ DEFERIDO

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

Palavras Chave:

ATO - CONCESSÓRIO - BOTÃO - DESABILITAR - DEFERIDO

/PWS/SAPMZYCI040

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

Objetos da nota:

REPS /PWS/MZYCI040F02

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

Modificações efetuadas em REPS /PWS/MZYCI040F02

...

FORM trata_botoes2.

  CLEAR itab_botoes2. REFRESH itab_botoes2.

  IF v_tcode2 EQ '/PWS/ZYCI040_C'.

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

    IF /pws/zycie244-aditivo IS INITIAL.

* << Fim da exclusão

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

    IF /pws/zycie244-aditivo IS INITIAL OR

       /pws/zycie244-status NE 'D'.

* << Fim da inclusão

      itab_botoes2-bname = 'VFALT'.

      APPEND itab_botoes2.

    ENDIF.

    itab_botoes2-bname = 'EXCL'.

    APPEND itab_botoes2.

    itab_botoes2-bname = 'ATUALIZ'.

    APPEND itab_botoes2.

    itab_botoes2-bname = 'ENCER'.

    APPEND itab_botoes2.

    itab_botoes2-bname = 'TRANS'.

...

...

      ENDIF.

    ELSE.

      itab_botoes2-bname = 'MALL'.

      APPEND itab_botoes2.

      itab_botoes2-bname = 'DALL'.

      APPEND itab_botoes2.

      itab_botoes2-bname = 'EXCLM'.

      APPEND itab_botoes2.

    ENDIF.

  ELSEIF v_tcode2 EQ '/PWS/ZYCI040_A'.

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

    IF /pws/zycie244-aditivo IS INITIAL.

* << Fim da exclusão

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

    IF /pws/zycie244-aditivo IS INITIAL OR

       /pws/zycie244-status NE 'D'.

* << Fim da inclusão

      itab_botoes2-bname = 'VFALT'.

      APPEND itab_botoes2.

    ENDIF.

    IF /pws/zycie244-nrforecast IS INITIAL AND

       /pws/zycie244-nrcompos   IS INITIAL.

      IF pressed_tab_2a EQ 'FS_CABEC2'.

        itab_botoes2-bname = 'MALL'.

        APPEND itab_botoes2.

        itab_botoes2-bname = 'DALL'.

        APPEND itab_botoes2.

...