Sintoma

necessário compartilhar okcode com programa específico, para tratamento no relatório dependendo do

evento solicitado.

Solução

Não foi criada exit somente declarada as variaveis no include X

Informações Complementares

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

Nota Número 02021 Data: 01/09/2006 Hora: 09:11:08

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

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

Nota Número              : 02021

Categoria                : Melhoria

Prioridade               : Baixa

Versão PW.CE             : 6.0

Pacote                   : 00024

Agrupamento              : 00129

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

EXIT DE EVENTO NO EMBARQUE

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

Palavras Chave:

EXIT - ESPECÍFICO - TRATAMENTO DE BOTÕES - EVENTOS

OKCODE - SY-UCOMM - COMANDOS

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

Objetos da nota:

REPS /PWS/MZYCI001I01

REPS /PWS/MZYCI001TOP

REPS /PWS/MZYCI001X01

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

Modificações efetuadas em REPS /PWS/MZYCI001I01

...

  ENDIF.

ENDMODULE.

MODULE user_command_0050 INPUT.

  DATA: v_flag2, v_fat, v_errodb.

  DATA:v_cont1 TYPE n.

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

data:

         e_exec_okcode.

* << Fim da exclusão

  e_subrc = 0.

  CLEAR v_flag2.

  CLEAR v_cont1.

  CLEAR: r_okcode, e_exec_okcode.

  CALL METHOD cl_gui_cfw=>dispatch.

...

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

Modificações efetuadas em REPS /PWS/MZYCI001TOP

...

  tc_status    TYPE TABLEVIEW USING SCREEN 800,

  tc_dlegais   TYPE TABSTRIP,

  tc_da        TYPE TABLEVIEW USING SCREEN 111,

  tc_selda     TYPE TABLEVIEW USING SCREEN 003.

DATA:

* >> Início da exclusão:

  okcode          LIKE sy-ucomm,

* << Fim da exclusão

  v_okcode(1)     TYPE c VALUE 0,

  v_status_s      VALUE 1 ,

  wa_cols        TYPE cxtab_column,

  v_resposta,

  mark,

...

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

Modificações efetuadas em REPS /PWS/MZYCI001X01

...

        j_1bmatuse LIKE ekpo-j_1bmatuse,

        knttp      LIKE ekpo-knttp,

        werks      LIKE ekpo-werks,

      END OF it_ekpo_aux1.

  data: e_subrc like sy-subrc.

* >> Início da inclusão:

DATA:  okcode          LIKE sy-ucomm,

       e_exec_okcode                .

* << Fim da inclusão

DATA: END OF COMMON PART a.