Sintoma

Os dados da tela de seleção das exportações não estavam disponíveis para a exit CO01

Solução

Os dados da tela se seleção foram incluidos na parte comum do programa.

Informações Complementares

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

Nota Número 04159 Data: 12/07/2007 Hora: 09:07:07

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

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

Nota Número              : 04159

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00002

Agrupamento              : 00003

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

Referência às notas relacionadas:

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

01691  - 00001 - 6.0    - 00024  - AJUSTES REFERENTES A RASTREIO DE LOTE EFETUADO NOS PROGRAMAS DE D

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

DISPONIBILIZAR OS DADOS DA TELA DE SELEÇÃO

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

Palavras Chave:

TELA DE SELEÇÃO EXPORTAÇÕES EXIT CO01

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

Objetos da nota:

REPS /PWS/MZYCI064F03

REPS /PWS/MZYCI064X01

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

Modificações efetuadas em REPS /PWS/MZYCI064F03

...

  DATA: v_comisag LIKE /pws/zycet066-vlagente,

        v_waersag LIKE /pws/zycet066-waers   ,

        v_nrre_temp(14)                      ,

        v_ncm_lista(10).

  DATA: BEGIN OF itab_lote OCCURS 0   .

  DATA: vbeln TYPE lips-vbeln,

        posnr TYPE lips-posnr,

        charg TYPE lips-charg,

        qtd   TYPE /pws/zycit279-menge.

  DATA: END OF itab_lote.

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

t_matnr[] = p_matnr[].

* << Fim da inclusão

  PERFORM verifica_exit USING 'D'

                              '/PWS/SAPMZYCI064'

                              'COI001'.

  e_subrc = 0.

  CLEAR itab_zyglt100 .

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

  IF sy-subrc EQ 0.

    IF NOT itab_zyglt100-zexit_ativa IS INITIAL.

      PERFORM (itab_zyglt100-formulario) IN PROGRAM

          (itab_zyglt100-programa)

...

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

Modificações efetuadas em REPS /PWS/MZYCI064X01

...

      gjahr  LIKE rseg-gjahr ,

      buzei  LIKE rseg-buzei ,

      docnum LIKE j_1bnflin-docnum,

      itmnum LIKE j_1bnflin-itmnum.

DATA: END OF itab_sel_doc.

DATA: itab_j_1bnflin_sort LIKE j_1bnflin

                                    OCCURS 0 WITH HEADER LINE.

DATA: wa_zycit258      LIKE /pws/zycie258     ,

      wa_itab_det_exp  LIKE itab_det_exp ,

      wa_itab_di_final LIKE itab_di_final.

* >> Início da inclusão:

data: begin of t_matnr occurs 0.

data: SIGN      type c,

      OPTION(2) type c,

      LOW       type mara-matnr,

      HIGH      type mara-matnr.

data: end of t_matnr .

* << Fim da inclusão

DATA: END OF COMMON PART.

SELECTION-SCREEN BEGIN OF SCREEN 0312 AS WINDOW TITLE text-098.

SELECT-OPTIONS p_matnr FOR mara-matnr OBLIGATORY.

PARAMETERS: p_dtexp1 LIKE /pws/zycee116-dtincl,

            p_dtexp2 LIKE /pws/zycee116-dtincl.

SELECTION-SCREEN END OF SCREEN 0312.