Sintoma

Ao entrar no complemento do boleto via link de outro programa, não esta sendo executada a função do

botão específico.

Solução

Fazer sempre carregar a tabela de exit¿s /pws/zyglt100, para conseguir ler a de botões específicos.

Informações Complementares

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

Nota Número 04252 Data: 24/07/2007 Hora: 10:32:49

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

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

Nota Número              : 04252

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00002

Agrupamento              : 00005

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

COMPLEMENTO DO BOLETO - AJUSTE EXIT BOTÕES ESPECÍFICOS

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

Palavras Chave:

COMPLEMENTO DO BOLETO AJUSTE EXIT BOTÕES ESPECÍFICOS

/PWS/ZYGLT100

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

Objetos da nota:

REPS /PWS/MZYCB110I01

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

Modificações efetuadas em REPS /PWS/MZYCB110I01

...

    MODIFY itab_zycbt031_tc INDEX v_conta TRANSPORTING v_vlmi.

  ENDIF.

  DATA: e_subrc       LIKE sy-subrc,

        e_exec_okcode.

  CLEAR: r_okcode, e_exec_okcode, v_syrepid.

  CALL METHOD cl_gui_cfw=>dispatch.

  IF NOT r_okcode IS INITIAL.

    ok_code = r_okcode.

  ENDIF.

  CLEAR itab_zyglt100.

* >> Início da exclusão: MODULE USER_COMMAND_0200

  IF itab_zyglt100[] IS INITIAL.

* << Fim da exclusão

    v_syrepid = sy-repid.

    CALL FUNCTION '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'

         EXPORTING

              i_codmod                = 'E'

              i_func                  = v_syrepid

         TABLES

              itab_zyglt100           = itab_zyglt100

         EXCEPTIONS

              i_codmod_nao_encontrado = 1

              i_func_nao_encontrado   = 2

              i_zexit_nao_encontrado  = 3

              OTHERS                  = 4.

* >> Início da exclusão: MODULE USER_COMMAND_0200

  ENDIF.

* << Fim da exclusão

  READ TABLE itab_zyglt100 WITH KEY zexit = 'CMP001' BINARY SEARCH.

  IF sy-subrc EQ 0.

    IF NOT itab_zyglt100-zexit_ativa IS INITIAL.

      PERFORM (itab_zyglt100-formulario)

              IN PROGRAM (itab_zyglt100-programa)

              USING      ok_code

              CHANGING   e_subrc.

      IF e_subrc NE 0.

        EXIT.

      ENDIF.

...