Sintoma

Abertura de Exits na PLI para alterar dados que vão para o pop-up para selecionar o PPB.

e para modificar dados na tabela de itens da PLI /pws/zycit079.

Solução

Criada a exit nos perform verifica_itens e seleciona_ppb

Informações Complementares

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

Nota Número 02745 Data: 22/12/2006 Hora: 09:25:34

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

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

Nota Número              : 02745

Categoria                : Melhoria

Prioridade               : Baixa

Versão PW.CE             : 6.0

Pacote                   : 00026

Agrupamento              : 00145

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

EXIT PARA PLI

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

Palavras Chave:

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

Objetos da nota:

REPS /PWS/MZYCI020F01

REPS /PWS/MZYCI020F02

REPS /PWS/MZYCI020TOP

REPS /PWS/MZYCI020X01

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

Modificações efetuadas em REPS /PWS/MZYCI020F01

...

          ENDIF.

        ENDIF.

      ENDIF.

    ENDIF.

    CONCATENATE /pws/zycie079-steuc1(4) /pws/zycie079-steuc1+5(2)

    /pws/zycie079-steuc1+8(2) INTO /pws/zycie079-ncm.

    MODIFY it_zycit079.

  ENDLOOP.

  CLEAR /pws/zycie078-vlmerc.

  PERFORM verifica_vltotal_local_emb.

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

  PERFORM verifica_exit USING 'D'

                              '/PWS/SAPMZYCI020'

                              'PLI003'.

  CLEAR itab_zyglt100 .

  READ TABLE itab_zyglt100 WITH KEY

                   zexit = 'PLI003' 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 FOUND.

    ENDIF.

  ENDIF.

* << Fim da inclusão

ENDFORM.

FORM atualiza_v_esp.

  READ TABLE rtexti INDEX 1.

  IF sy-subrc = 0.

    IF rtexti-tdline(70) NE v_esp(70).

      rtexti-tdline = v_esp.

      MODIFY rtexti INDEX 1.

      PERFORM save_txt_2.

    ENDIF.

  ELSE.

...

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

Modificações efetuadas em REPS /PWS/MZYCI020F02

...

      CLEAR v_netpr.

    ENDAT.

  ENDLOOP.

  FREE it_zycit287_aux.

ENDFORM.

FORM seleciona_ppb TABLES   p_itab_zycit338 STRUCTURE itab_zycit338

                   CHANGING it_zycit079-destaque

                            it_zycit079-fator

                            it_zycit079-zum

                            it_zycit079-codsufra.

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

  DATA: value(132)  TYPE c,

        v_linhe(02) TYPE c,

        BEGIN OF f_tab OCCURS 10.

          INCLUDE STRUCTURE help_value.

  DATA: END OF f_tab,

        BEGIN OF v_tab OCCURS 200,

          value(40) TYPE c,

        END OF v_tab.

  DATA: BEGIN OF return_tab OCCURS 10.

          INCLUDE STRUCTURE help_vtab.

  DATA: END OF return_tab.

* << Fim da exclusão

  CLEAR  : v_tab, f_tab, v_linha.

  REFRESH: v_tab, f_tab.

  DESCRIBE TABLE itab_zycit338 LINES v_linha.

  IF NOT itab_zycit338[] IS INITIAL AND v_linha > 1.

    LOOP AT itab_zycit338.

      MOVE: p_itab_zycit338-matnr      TO v_tab-value. APPEND v_tab.

      MOVE: p_itab_zycit338-codsufra   TO v_tab-value. APPEND v_tab.

      MOVE: p_itab_zycit338-destaque   TO v_tab-value. APPEND v_tab.

      MOVE: p_itab_zycit338-unit_estat TO v_tab-value. APPEND v_tab.

      MOVE: p_itab_zycit338-fator      TO v_tab-value. APPEND v_tab.

...

...

    APPEND f_tab.

    CLEAR f_tab.

    MOVE: '/PWS/ZYCIT338' TO f_tab-tabname   ,

          'FATOR'         TO f_tab-fieldname ,

          'X'             TO f_tab-selectflag.

    APPEND f_tab.

    CLEAR f_tab.

    MOVE: '/PWS/ZYCIT338' TO f_tab-tabname  ,

          'TEXT_COMPL'    TO f_tab-fieldname.

    APPEND f_tab.

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

    e_subrc = '0' .

    PERFORM verifica_exit USING 'D'

                                '/PWS/SAPMZYCI003'

                                'PLI004'.

    CLEAR itab_zyglt100 .

    READ TABLE itab_zyglt100 WITH KEY

                     zexit = 'PLI004' 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 FOUND.

      ENDIF.

    ENDIF.

    IF e_subrc = 0.

* << Fim da inclusão

    CALL FUNCTION 'HELP_VALUES_GET_WITH_TABLE_EXT'

     EXPORTING

       titel                             = text-425

     IMPORTING

       index                             = v_index

       select_value                      = value

      TABLES

       fields                            = f_tab

       select_values                     = return_tab

       valuetab                          = v_tab

...

...

    MOVE return_tab-value TO it_zycit079-destaque.

    READ TABLE return_tab WITH KEY tabname   = '/PWS/ZYCIT338'

                                   fieldname = 'FATOR'.

    MOVE return_tab-value TO it_zycit079-fator.

    READ TABLE return_tab WITH KEY tabname   = '/PWS/ZYCIT338'

                                   fieldname = 'UNIT_ESTAT'.

    MOVE return_tab-value TO it_zycit079-zum.

    READ TABLE return_tab WITH KEY tabname   = '/PWS/ZYCIT338'

                                   fieldname = 'CODSUFRA'.

    MOVE return_tab-value TO it_zycit079-codsufra.

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

    ENDIF.

* << Fim da inclusão

  ELSE.

    READ TABLE p_itab_zycit338 INDEX 1.

    IF sy-subrc EQ 0.

      MOVE: p_itab_zycit338-destaque   TO it_zycit079-destaque,

            p_itab_zycit338-fator      TO it_zycit079-fator,

            p_itab_zycit338-unit_estat TO it_zycit079-zum,

            p_itab_zycit338-codsufra   TO it_zycit079-codsufra.

    ENDIF.

  ENDIF.

ENDFORM.

...

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

Modificações efetuadas em REPS /PWS/MZYCI020TOP

...

      v_descfabric LIKE dd07t-ddtext,

      v_desctipimp LIKE dd07t-ddtext,

      v_descregtri LIKE /pws/zycit167-descricao,

      v_descfunleg LIKE /pws/zycit177-descr,

      v_descmotivo LIKE /pws/zycit169-descricao,

      v_descmotivofunleg LIKE /pws/zycit141-descricao,

      v_descrnaladi LIKE /pws/zycet142-descnala,

      okcode       LIKE sy-ucomm              ,

      mark                                    ,

      v_indice     LIKE sy-tabix              ,

* >> Início da exclusão:

      v_index      LIKE sy-tabix              ,

* << Fim da exclusão

      v_kposn_fob  LIKE komv-kposn            ,

      v_cod_pais   LIKE t005-/pws/codpa,

      v_cod_pais2   LIKE t005-/pws/codpa,

      v_codpaisori LIKE t005-/pws/codpa,

      v_codpaispro LIKE t005-/pws/codpa,

      v_cnpj(18)   TYPE c,

      v_cgc        LIKE j_1bwfield-cgc_number,

      v_total      LIKE /pws/zycit079-qtd_iten,

      v_esp(254)    TYPE c,

      v_esp2(132)   TYPE c,

...

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

Modificações efetuadas em REPS /PWS/MZYCI020X01

...

DATA: itab_zycit263 LIKE /pws/zycit263 OCCURS 0 WITH HEADER LINE.

DATA: BEGIN OF itab_steuc OCCURS 0,

        steuc  LIKE /pws/zycit079-steuc1,

      END OF itab_steuc.

data: begin of itab_ekpo occurs 0.

data:   ebeln type ekpo-ebeln,

        ebelp type ekpo-ebelp,

        menge type ekpo-menge,

        bstyp type ekpo-bstyp.

data: end of itab_ekpo.

* >> Início da inclusão:

Data: v_index      LIKE sy-tabix              .

  DATA: value(132)  TYPE c,

        v_linhe(02) TYPE c,

        BEGIN OF f_tab OCCURS 10.

          INCLUDE STRUCTURE help_value.

  DATA: END OF f_tab,

        BEGIN OF v_tab OCCURS 200,

          value(40) TYPE c,

        END OF v_tab.

  DATA: BEGIN OF return_tab OCCURS 10.

          INCLUDE STRUCTURE help_vtab.

  DATA: END OF return_tab.

* << Fim da inclusão

DATA: END OF COMMON PART.