Sintoma

Abertura de exit para tratativa de botoes específicos (ANA002)

Solução

Abertura de exit para tratativa de botoes específicos (ANA002)

Informações Complementares

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

Nota Número 04785 Data: 21/09/2007 Hora: 13:58:14

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

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

Nota Número              : 04785

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00003

Agrupamento              : 00015

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

ABERTURA DE EXIT PARA TRATATIVA DE BOTOES ESPECÍFICOS (ANA)

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

Palavras Chave:

EXIT ANA BOTÕES ESPCIFICOS ANA002

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

Objetos da nota:

DYNP /PWS/SAPMZYCI059                        0100

REPS /PWS/MZYCI059F03

REPS /PWS/MZYCI059I01

REPS /PWS/MZYCI059O01

REPS /PWS/MZYCI059TOP

REPS /PWS/SAPMZYCI059

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

Modificações efetuadas em DYNP /PWS/SAPMZYCI059                        0100

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

Modificações efetuadas em REPS /PWS/MZYCI059F03

...

  w_sort-spos      =  3.

  w_sort-fieldname = 'EBELN'.

  w_sort-up        = 'X'.

  APPEND w_sort TO i_sort.

  CLEAR w_sort.

  w_sort-spos      =  4.

  w_sort-fieldname = 'EBELP'.

  w_sort-up        = 'X'.

  APPEND w_sort TO i_sort.

ENDFORM.

* >> Início da inclusão:

FORM status_custom.

     data   v_icone      TYPE iconname.

  CLEAR: myevent.

  REFRESH: myevent_tab.

  SELECT * FROM /pws/zyglt376 INTO TABLE itab_zyglt376

    WHERE programa = sy-repid.

  CLEAR: e_subrc.

  PERFORM verifica_exit USING 'D'

                              '/PWS/SAPMZYCI059'

                              'ANA003'.

  CLEAR itab_zyglt100 .

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

  IF sy-subrc EQ 0.

    "Verifica se a Exit está ativa.

    IF NOT itab_zyglt100-zexit_ativa IS INITIAL.

      PERFORM (itab_zyglt100-formulario)

         IN PROGRAM (itab_zyglt100-programa)

           TABLES itab_zyglt376

           CHANGING e_subrc.

      IF e_subrc NE 0.

        EXIT.

      ENDIF.

    ENDIF.

  ENDIF.

  IF sy-binpt IS INITIAL.

    myevent-eventid = cl_gui_toolbar=>m_id_function_selected.

    myevent-appl_event = 'X'.

    APPEND myevent TO myevent_tab.

    CREATE OBJECT evt_receiver_e.

    CREATE OBJECT toolbar_container EXPORTING

                                      container_name = tool_container.

    CREATE OBJECT toolbar EXPORTING parent = toolbar_container.

    CALL METHOD toolbar->set_registered_events

         EXPORTING events = myevent_tab.

    LOOP AT itab_zyglt376 .

      CLEAR v_icone.

      IF NOT itab_zyglt376-icon IS INITIAL.

        CALL FUNCTION 'ICON_CREATE'

             EXPORTING

                  name                  = itab_zyglt376-icon

             IMPORTING

                  result                = v_icone

             EXCEPTIONS

                  icon_not_found        = 1

                  outputfield_too_short = 2

                  OTHERS                = 3.

        IF sy-subrc NE 0.

          CONTINUE.

        ENDIF.

      ELSEIF itab_zyglt376-text IS INITIAL.

        CONTINUE.

      ENDIF.

      CALL METHOD toolbar->add_button

         EXPORTING

             fcode     = itab_zyglt376-fcode

             icon      = v_icone

             butn_type = itab_zyglt376-butn_type

             text      = itab_zyglt376-text

             quickinfo = itab_zyglt376-info.

    ENDLOOP.

    CREATE OBJECT v_submenu.

    CALL METHOD v_submenu->add_function

        EXPORTING fcode = itab_zyglt376-fcode

                  text  = itab_zyglt376-text.

    SET HANDLER evt_receiver_e->on_function_selected

               FOR toolbar.

  ENDIF.

ENDFORM.

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/MZYCI059I01

...

        ENDIF.

      ENDIF.

  ENDCASE.

ENDMODULE.

MODULE load_cpnj INPUT.

  PERFORM load_cnpj USING    /pws/zycie085-j_1bbranch

 /pws/zycie085-bukrs

                    CHANGING s_cnpj.

ENDMODULE.

MODULE user_command_0100 INPUT.

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

  DATA: v_flag2, v_fat, v_errodb.

  DATA:v_cont1 TYPE n.

  e_subrc = 0.

  CLEAR v_flag2.

  CLEAR v_cont1.

  CLEAR:  e_exec_okcode.

  CALL METHOD cl_gui_cfw=>dispatch.

  IF NOT r_okcode IS INITIAL.

    ok_code = r_okcode.

  ENDIF.

  PERFORM verifica_exit USING 'D'

                              '/PWS/SAPMZYCI059'

                              'ANA002'.

  CLEAR itab_zyglt100 .

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

  IF sy-subrc EQ 0.

    IF NOT itab_zyglt100-zexit_ativa IS INITIAL.

      PERFORM (itab_zyglt100-formulario) IN PROGRAM

          (itab_zyglt100-programa).

      IF e_subrc NE 0.

        EXIT.

      ENDIF.

    ENDIF.

  ENDIF.

  IF e_exec_okcode IS INITIAL.

* << Fim da inclusão

  CASE ok_code.

    WHEN 'DETA'.

      PERFORM: comm_deta.

    WHEN 'SAVE'.

      PERFORM: comm_save.

    WHEN 'REFR'.

      PERFORM: refresh_all.

      CLEAR v_mudou.

    WHEN 'MODI'.

      PERFORM: comm_modi.

...

...

    WHEN 'TRANSM'.

      PERFORM: comm_send,

               send.

    WHEN 'VERIFY'.

      PERFORM: verify_transm.

    WHEN 'MODO'.

      PERFORM modo_batch_input.

    WHEN 'VISUA'.

      PERFORM visualiza_rateio.

  ENDCASE.

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

  CLEAR ok_code.

* << Fim da exclusão

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

  ENDIF.

  CLEAR: ok_code, r_okcode.

* << Fim da inclusão

ENDMODULE.

MODULE modi_data86 INPUT.

  itab_zycit086-mandt     = sy-mandt.

  itab_zycit086-nrseqdi   = /pws/zycie085-nrseqdi.

  IF itab_zycit086-tipo = /pws/zycie086-tipo OR

     itab_zycit086-tipo IS INITIAL.

    itab_zycit086-instrucao = /pws/zycie086-instrucao.

  ELSE.

    CLEAR: itab_zycit086-instrucao.

  ENDIF.

...

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

Modificações efetuadas em REPS /PWS/MZYCI059O01

...

  if /pws/zycie403-valorusdp <= 0 and  /pws/zycie403-valorusdg <= 0 and

      /pws/zycie403-valorusda <= 0.

      message i039 with text-235.

      clear: /pws/zycie100a-ajuste.

  endif.

  if /pws/zycie403-base <= 0.

      clear: /pws/zycie100a-ajuste.

      message i039 with text-235.

  endif.

endmodule.

* >> Início da inclusão:

module status_custom_0100 output.

  PERFORM status_custom.

endmodule.

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/MZYCI059TOP

PROGRAM /pws/sapmzyci059 MESSAGE-ID /pws/zycim.

* >> Início da inclusão:

INCLUDE /PWS/MZYCI059OO.

INCLUDE /pws/zygl_bot  .

* << Fim da inclusão

INCLUDE /PWS/MZYCI059X01.

CONTROLS:

  ts_des   TYPE TABSTRIP,

  ts_carga TYPE TABSTRIP,

  ts_sdes  TYPE TABSTRIP,

  ts_scarg TYPE TABSTRIP,

  ts_sbens TYPE TABSTRIP,

  ts_aforn TYPE TABSTRIP,

  ts_amerc TYPE TABSTRIP,

  ts_aval  TYPE TABSTRIP,

...

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

Modificações efetuadas em REPS /PWS/SAPMZYCI059