Sintoma

Incluisão de dois campos na PLI para que seja possivel informar o fabricante quando o tipo de

fornecedor for 2.

Solução

Incluisão de dois campos na PLI para que seja possivel informar o fabricante quando o tipo de

fornecedor for 2.

Informações Complementares

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

Nota Número 12308 Data: 21/06/2012 Hora: 16:00:52

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

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

Nota Número              : 12308

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 9.0

Pacote                   : 00001

Agrupamento              : 00117

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

Referência às notas relacionadas:

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

12247  - 00001 - 8.0    - 00011  - CORREÇÃO DO TRATAMENTO DO TIPO DE FORNECEDOR NA PLI

12255  - 00002 - 8.0    - 00011  - AJUSTES PARA TRANSMISSÃO SUFRAMA PLI

12300  - 00003 - 9.0    - 00001  - TRATAMENTO PARA CRIAR PLI COM CÓPIA E PLI SUBSTITUTIVA

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

INCLUSÃO DE CAMPOS PARA INFORMAR O FABRICANTE.

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

Palavras Chave:

INCLUSÃO DE CAMPOS PARA INFORMAR O FABRICANTE.

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

Objetos da nota:

DYNP /PWS/SAPMZYCI020                        0521

REPS /PWS/MZYCI020F01

REPS /PWS/MZYCI020F02

REPS /PWS/MZYCI020I01

REPS /PWS/MZYCI020O01

REPS /PWS/MZYCI020X01

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

Modificações efetuadas em DYNP /PWS/SAPMZYCI020                        0521

O Download das telas encontra-se disponível no link abaixo

http://produtos.sondait.com.br/home/PW.CE/Notas/

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

Modificações efetuadas em REPS /PWS/MZYCI020F01

...

FORM quest_gravacao.

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

  DATA: v_liref TYPE /pws/zycie078-li_ref.

* << Fim da inclusão

...

...

              v_resp_save = 'A'.

              EXIT.

            ENDIF.

          ENDIF.

        ENDIF.

        CASE /pws/zycie078-tpli.

          WHEN 'N'.

            IF /pws/zycie078-flagpli IS INITIAL.

              PERFORM comm_save.

            ELSE.

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

              IF okcode EQ 'LISUBST'.

                v_liref = /pws/zycie078-li_ref.

                CLEAR /pws/zycie078-li_ref.

* << Fim da inclusão

              PERFORM savepli.

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

                /pws/zycie078-li_ref = v_liref.

              ELSE.

                PERFORM savepli.

              ENDIF.

* << Fim da inclusão

            ENDIF.

          WHEN 'S'.

            DESCRIBE TABLE it_zycit079 LINES v_cont.

...

...

FORM field_industrializacao.

  READ TABLE it_zycit079 WITH KEY ebeln = /pws/zycie079a-ebeln

                                  ebelp = /pws/zycie079a-ebelp.

  IF sy-subrc EQ 0.

    MOVE-CORRESPONDING /pws/zycie079a TO it_zycit079.

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

    MOVE : v_frn1 TO it_zycit079-nrforn1,

           v_frn2 TO it_zycit079-nrforn2.

* << Fim da inclusão

    MODIFY it_zycit079 TRANSPORTING

                       item_drawback

                       nritem_db

                       qtd_drawback

                       vl_prod_drawback

                       destaque

                       espec_tecnica

                       ref_fabricante

                       part_number

                       mat_prima_basica

...

...

                       descfab

                       paisfab

                       codsufra

                       codtarif

                       naladi

                       aladi

                      vlmerc

                      aliqii

                      bemencomenda

                      matusado

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

                      nrforn1

                      nrforn2

* << Fim da inclusão

                      WHERE ebeln EQ /pws/zycie079a-ebeln

                        AND ebelp EQ /pws/zycie079a-ebelp.

  ENDIF.

ENDFORM.

...

...

FORM load_desc_fabr.

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

  IF /pws/zycie079a-fabric EQ 1

     OR /pws/zycie079a-fabric EQ '2'.

* << Fim da exclusão

    SELECT SINGLE * FROM ekko

           WHERE ebeln EQ /pws/zycie079a-ebeln.

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

    IF /pws/zycie079a-fabric EQ 1.

* << Fim da exclusão

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

  IF /pws/zycie079a-fabric EQ 1 .

* << Fim da inclusão

      /pws/zycie079a-lifnr = ekko-lifnr.

    ENDIF.

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

  ENDIF.

* << Fim da exclusão

  IF NOT /pws/zycie079a-lifnr IS INITIAL.

    SELECT SINGLE name1 land1 FROM lfa1

           INTO (/pws/zycie079a-descfab,/pws/zycie079a-paisfab)

           WHERE lifnr EQ /pws/zycie079a-lifnr.

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

    IF /pws/zycie079a-fabric EQ 2.

* << Fim da exclusão

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

    IF /pws/zycie079a-fabric EQ 2 .

* << Fim da inclusão

      CLEAR lfa1.

      lfa1-lifnr = ekko-lifnr.

      SELECT SINGLE name1 land1 FROM lfa1

             INTO (lfa1-name1,lfa1-land1)

             WHERE lifnr EQ lfa1-lifnr.

    ENDIF.

  ELSEIF /pws/zycie079a-fabric NE '3'.

    CLEAR: /pws/zycie079a-descfab,

           /pws/zycie079a-paisfab.

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

  ENDIF.

  IF /pws/zycie079a-fabric EQ 3.

    CLEAR lfa1.

    lfa1-lifnr = ekko-lifnr.

    SELECT SINGLE name1 land1 FROM lfa1

           INTO (lfa1-name1,lfa1-land1)

           WHERE lifnr EQ lfa1-lifnr.

* << Fim da inclusão

  ENDIF.

ENDFORM.

...

...

    LOOP AT p_it_zycit079.

      CLEAR /pws/zycie080.

      IF p_it_zycit079-fabric EQ '1'.

        MOVE: p_zycie078-nrseqli TO /pws/zycie080-nrseqli,

              p_it_zycit079-lifnr TO /pws/zycie080-lifnr,

              p_it_zycit079-ebeln TO /pws/zycie080-ebeln,

              p_it_zycit079-ebelp TO /pws/zycie080-ebelp.

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

        IF ( v_tcode EQ '/PWS/ZYCI020_I' OR

             v_tcode EQ '/PWS/ZYCI020_G' ) AND

             NOT p_it_zycit079-nrforn1 IS INITIAL.

          MOVE p_it_zycit079-nrforn1 TO /pws/zycie080-nrforn.

        ELSE.

* << Fim da inclusão

        PERFORM gera_nrforn.

        IF v_exit = 'S'.

          EXIT.

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

          ENDIF.

* << Fim da inclusão

        ENDIF.

        READ TABLE it_lfa1 WITH KEY lifnr = /pws/zycie080-lifnr.

        IF sy-subrc EQ 0.

          READ TABLE it_adrc WITH KEY addrnumber = it_lfa1-adrnr.

...

...

        /pws/zycie080-compl       = it_adrc-city2.

        MODIFY /pws/zycit080 FROM /pws/zycie080.

        MOVE-CORRESPONDING /pws/zycie080 TO /pws/zycit080.

        CLEAR /pws/zycie080.

        MOVE: p_zycie078-nrseqli TO /pws/zycie080-nrseqli,

              p_it_zycit079-lifnr TO /pws/zycie080-lifnr,

              p_it_zycit079-ebeln TO /pws/zycie080-ebeln,

              p_it_zycit079-ebelp TO /pws/zycie080-ebelp.

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

        IF ( v_tcode EQ '/PWS/ZYCI020_I' OR

             v_tcode EQ '/PWS/ZYCI020_G' ) AND

             NOT p_it_zycit079-nrforn1 IS INITIAL.

          MOVE p_it_zycit079-nrforn1 TO /pws/zycie080-nrforn.

        ELSE.

* << Fim da inclusão

        PERFORM gera_nrforn.

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

        ENDIF.

* << Fim da inclusão

        READ TABLE it_lfa1 WITH KEY lifnr = /pws/zycie080-lifnr.

        IF sy-subrc EQ 0.

          READ TABLE it_adrc WITH KEY addrnumber = it_lfa1-adrnr.

        ENDIF.

        /pws/zycie080-tipoforn  = 'F'.

        /pws/zycie080-name1       = it_adrc-name1.

...

...

        MODIFY /pws/zycit080 FROM /pws/zycie080.

        MOVE-CORRESPONDING /pws/zycie080 TO /pws/zycit080.

      ELSEIF p_it_zycit079-fabric EQ '2'.

        MOVE: p_zycie078-nrseqli TO /pws/zycie080-nrseqli,

              p_it_zycit079-ebeln TO /pws/zycie080-ebeln,

              p_it_zycit079-ebelp TO /pws/zycie080-ebelp.

        READ TABLE it_ekko WITH KEY ebeln = p_it_zycit079-ebeln.

        /pws/zycie080-lifnr = it_ekko-lifnr.

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

        IF ( v_tcode EQ '/PWS/ZYCI020_I' OR

             v_tcode EQ '/PWS/ZYCI020_G' ) AND

             NOT p_it_zycit079-nrforn2 IS INITIAL.

          MOVE p_it_zycit079-nrforn2 TO /pws/zycie080-nrforn.

        ELSE.

* << Fim da inclusão

        PERFORM gera_nrforn.

        IF v_exit = 'S'.

          EXIT.

        ENDIF.

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

        ENDIF.

* << Fim da inclusão

        READ TABLE it_lfa1 WITH KEY lifnr = /pws/zycie080-lifnr.

        IF sy-subrc EQ 0.

          READ TABLE it_adrc WITH KEY addrnumber = it_lfa1-adrnr.

...

...

        /pws/zycie080-compl       = it_adrc-city2.

        MODIFY /pws/zycit080 FROM /pws/zycie080.

        MOVE-CORRESPONDING /pws/zycie080 TO /pws/zycit080.

        CLEAR /pws/zycie080.

        MOVE: p_zycie078-nrseqli TO /pws/zycie080-nrseqli,

              p_it_zycit079-lifnr TO /pws/zycie080-lifnr,

              p_it_zycit079-ebeln TO /pws/zycie080-ebeln,

              p_it_zycit079-ebelp TO /pws/zycie080-ebelp.

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

        IF ( v_tcode EQ '/PWS/ZYCI020_I' OR

             v_tcode EQ '/PWS/ZYCI020_G' ) AND

             NOT p_it_zycit079-nrforn1 IS INITIAL.

          MOVE p_it_zycit079-nrforn1 TO /pws/zycie080-nrforn.

        ELSE.

* << Fim da inclusão

        PERFORM gera_nrforn.

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

        ENDIF.

* << Fim da inclusão

        READ TABLE it_lfa1 WITH KEY lifnr = /pws/zycie080-lifnr.

        IF sy-subrc EQ 0.

          READ TABLE it_adrc WITH KEY addrnumber = it_lfa1-adrnr.

        ENDIF.

        /pws/zycie080-tipoforn  = 'F'.

        /pws/zycie080-name1       = it_adrc-name1.

...

...

        MODIFY /pws/zycit080 FROM /pws/zycie080.

        MOVE-CORRESPONDING /pws/zycie080 TO /pws/zycit080.

      ELSEIF p_it_zycit079-fabric EQ '3'.

        MOVE: p_zycie078-nrseqli TO /pws/zycie080-nrseqli,

              p_it_zycit079-ebeln TO /pws/zycie080-ebeln,

              p_it_zycit079-ebelp TO /pws/zycie080-ebelp.

        READ TABLE it_ekko WITH KEY ebeln = p_it_zycit079-ebeln.

        /pws/zycie080-lifnr = it_ekko-lifnr.

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

        IF ( v_tcode EQ '/PWS/ZYCI020_I' OR

             v_tcode EQ '/PWS/ZYCI020_G' ) AND

             NOT p_it_zycit079-nrforn2 IS INITIAL.

          MOVE p_it_zycit079-nrforn2 TO /pws/zycie080-nrforn.

        ELSE.

* << Fim da inclusão

        PERFORM gera_nrforn.

        IF v_exit = 'S'.

          EXIT.

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

          ENDIF.

* << Fim da inclusão

        ENDIF.

        READ TABLE it_lfa1 WITH KEY lifnr = /pws/zycie080-lifnr.

        IF sy-subrc EQ 0.

          READ TABLE it_adrc WITH KEY addrnumber = it_lfa1-adrnr.

...

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

Modificações efetuadas em REPS /PWS/MZYCI020F02

...

    CLEAR: /pws/zycie078-nrpli,

    /pws/zycie078-dtreg,

    /pws/zycie078-dtvencto,

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

    /pws/zycie078-dtdef.

* << Fim da exclusão

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

    /pws/zycie078-dtdef,

    v_nrpli    ,

    v_dtreg    .

* << Fim da inclusão

    LOOP AT it_zycit079.

      CLEAR:  /pws/zycie079-numli,

              /pws/zycie079-nrli ,

              it_zycit079-numli,

              it_zycit079-nrli .

      IF NOT it_zycit079-nrseqli IS INITIAL AND

         it_zycit079-slqtde < it_zycit079-qtd_iten.

        it_zycit079-qtd_iten = it_zycit079-slqtde.

        it_zycit079-slqtde = 0.

      ELSE.

...

...

FORM  gera_nrforn.

  DATA:  v_nrforn LIKE /pws/zycit080-nrforn.

  CLEAR:   it_zycit080, v_exit.

  REFRESH: it_zycit080.

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

  SELECT lifnr nrforn FROM /pws/zycit080

         INTO TABLE it_zycit080

         WHERE lifnr = /pws/zycie080-lifnr.             "#EC CI_NOFIRST

  READ TABLE it_zycit080 WITH KEY lifnr =  /pws/zycie080-lifnr.

  IF sy-subrc EQ 0 AND NOT it_zycit080-nrforn IS INITIAL.

    /pws/zycie080-nrforn = it_zycit080-nrforn.

  ELSE.

* << Fim da inclusão

  SELECT MAX( nrforn ) INTO (v_nrforn)

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

  FROM /pws/zycit080.                                   "#EC CI_NOWHERE

* << Fim da exclusão

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

   FROM /pws/zycit080.                                  "#EC CI_NOWHERE

* << Fim da inclusão

  IF v_nrforn <= 32766.

    v_nrforn = v_nrforn + 1.

  ELSE.

    MESSAGE e015 WITH text-220 text-221.

    v_exit = 'S'.

    EXIT.

  ENDIF.

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

  SELECT lifnr nrforn FROM /pws/zycit080

         INTO TABLE it_zycit080

         WHERE lifnr = /pws/zycie080-lifnr.             "#EC CI_NOFIRST

  LOOP AT it_zycit080.

    IF it_zycit080-lifnr EQ /pws/zycie080-lifnr AND

       NOT it_zycit080-nrforn IS INITIAL.               "#EC CI_NOFIRST

      CLEAR v_nrforn.

      MOVE: it_zycit080-nrforn TO v_nrforn.

* << Fim da exclusão

    ENDIF.

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

  ENDLOOP.

  MOVE: v_nrforn TO /pws/zycie080-nrforn.

* << Fim da exclusão

ENDFORM.

...

...

FORM set_screen_0521.

  LOOP AT SCREEN.

    IF screen-name EQ '/PWS/ZYCIE079A-FABRIC'.

      screen-input = 1.

    ENDIF.

    CASE /pws/zycie079a-fabric.

      WHEN '1'.

        IF screen-name EQ '/PWS/ZYCIE079A-LIFNR' OR

           screen-name EQ '/PWS/ZYCIE079A-DESCFAB' OR

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

           screen-name EQ '/PWS/ZYCIE079A-PAISFAB'.

* << Fim da exclusão

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

           screen-name EQ '/PWS/ZYCIE079A-PAISFAB' .

          screen-input = 0.

        ENDIF.

        IF screen-name EQ 'V_FRN2' OR

           screen-name EQ 'T_VFRN2' .

* << Fim da inclusão

          screen-input = 0.

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

          screen-invisible = 1.

* << Fim da inclusão

        ENDIF.

      WHEN '2'.

        IF screen-name EQ '/PWS/ZYCIE079A-LIFNR'.

          screen-input = 1.

        ENDIF.

        IF screen-name EQ '/PWS/ZYCIE079A-DESCFAB' OR

           screen-name EQ '/PWS/ZYCIE079A-PAISFAB'.

          screen-input = 0.

        ENDIF.

      WHEN '3'.

        IF  screen-name EQ '/PWS/ZYCIE079A-PAISFAB'.

          screen-input = 1.

        ENDIF.

        IF screen-name EQ '/PWS/ZYCIE079A-LIFNR' OR

           screen-name EQ '/PWS/ZYCIE079A-DESCFAB'.

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

          screen-input = 0.

        ENDIF.

        IF screen-name EQ 'V_FRN1' OR

           screen-name EQ 'T_FRN1' .

* << Fim da inclusão

          screen-input = 0.

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

          screen-invisible = 1.

* << Fim da inclusão

        ENDIF.

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

      WHEN ' ' .

        IF screen-name EQ 'V_FRN2' OR

           screen-name EQ 'T_VFRN2' .

          screen-input = 0.

          screen-invisible = 1.

        ENDIF.

* << Fim da inclusão

    ENDCASE.

    IF v_tcode EQ '/PWS/ZYCI020_L'.

      screen-input = 0.

    ENDIF.

    IF screen-group1 EQ 'FOR' AND

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

       /pws/zycie079a-fabric NE '2'.

* << Fim da exclusão

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

       /pws/zycie079a-fabric EQ '1'.

* << Fim da inclusão

      screen-invisible = '1'.

    ENDIF.

    IF ( sy-tcode EQ '/PWS/ZYCI020_G' OR

         sy-tcode EQ '/PWS/ZYCI020_I' ) AND

       ( NOT v_nrpli IS INITIAL OR

         NOT v_dtreg IS INITIAL ) .

      screen-input = 0 .

    ENDIF.

    MODIFY SCREEN.

  ENDLOOP.

...

...

  WHILE sy-subrc NE 0.

     perform find_nrseqc_pli.

  ENDWHILE.

  MOVE-CORRESPONDING /pws/zycie078c TO /pws/zycit078.

  v_tcode = v_tcode2.

  wa_zycit078-nrseqli     = /pws/zycie078-nrseqli.

  wa_zycit078-nrlisuba     = wa_zycit078_aux2-nrli.

  wa_zycit078-nrseqlisuba  = wa_zycit078_aux2-nrseqli.

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

  UPDATE /pws/zycit078 SET nrseqlisub  = /pws/zycie078-nrseqli

  WHERE nrseqli = wa_zycit078_aux2-nrseqli.

  MOVE-CORRESPONDING wa_zycit078_aux2 TO /pws/zycit078.

* << Fim da inclusão

  MOVE: space TO wa_zycit078-nrli,

        space TO wa_zycit078-dtuserc,

        space TO wa_zycit078-usernamec,

        space TO wa_zycit078-dtusera,

        space TO wa_zycit078-usernamea,

        space TO wa_zycit078-nrseqdi,

        space TO wa_zycit078-nrdi,

        space TO wa_zycit078-adicao,

        space TO wa_zycit078-dtregdi.

  IF /pws/zycie078-tpli EQ 'N'.

    MESSAGE s015 WITH text-042.

  ELSEIF /pws/zycie078-tpli EQ 'S'.

    MESSAGE s015 WITH text-041.

  ENDIF.

  DELETE it_zycit079 WHERE numli NE /pws/zycie078-li_ref.

  PERFORM gera_seq_novoreg.

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

  LOOP AT it_zycit079.

    it_zycit079-nrseqli = /pws/zycie078-nrseqli.

    MODIFY it_zycit079.

  ENDLOOP.

* << Fim da inclusão

  SELECT * FROM /pws/zycit079

  INTO TABLE it_zycit079_ncm

  WHERE nrseqli = /pws/zycie078-li_ref.

  PERFORM: atual_tabelas,

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

           gera_novoreg ,

           limpa_tabncm .

* << Fim da exclusão

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

           gera_novoreg .

  CLEAR: /pws/zycie078-nrpli,

  /pws/zycie078-dtreg,

  /pws/zycie078-dtvencto,

  /pws/zycie078-dtdef.

* << Fim da inclusão

  it_zycit079-numli =  /pws/zycie078c-nrseqli.

  MODIFY it_zycit079 TRANSPORTING numli

  WHERE nrseqli = /pws/zycie078-nrseqli.

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

  MOVE /pws/zycie078 TO wa_zycit078_aux2.

  PERFORM  limpa_tabncm .

  CLEAR v_plisub.

* << Fim da inclusão

ENDFORM.

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

Modificações efetuadas em REPS /PWS/MZYCI020I01

...

MODULE user_command_0002 INPUT.

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

  CLEAR: v_frn1, v_frn2.

* << Fim da inclusão

...

...

      LOOP AT it_zycit079.

        READ TABLE it_zycit092 WITH KEY ebeln = it_zycit079-ebeln

                                          ebelp = it_zycit079-ebelp.

        IF sy-subrc EQ 0.

          MOVE: it_zycit092-slqtde TO it_zycit079-slqtde,

                it_zycit092-menge  TO it_zycit079-menge.

          IF it_zycit079-ncm IS INITIAL.

            CONCATENATE it_zycit079-steuc1(4) it_zycit079-steuc1+5(2)

            it_zycit079-steuc1+8(2) INTO it_zycit079-ncm.

          ENDIF.

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

          IF NOT /pws/zycie078-aplicpli EQ '2'.

* << Fim da exclusão

            IF it_zycit079-codsufra EQ '0000'.

              SELECT SINGLE matnr INTO v_matnr FROM ekpo

              WHERE ebeln EQ it_zycit079-ebeln

              AND   ebelp EQ it_zycit079-ebelp.

              IF sy-subrc EQ 0.

                SELECT SINGLE * FROM /pws/zycit338

                       WHERE matnr EQ v_matnr.

                IF sy-subrc EQ 0.

                  it_zycit079-codsufra = /pws/zycit338-codsufra.

                ENDIF.

              ENDIF.

            ENDIF.

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

          ELSE.

            it_zycit079-codsufra = '0000'.

            it_zycit079-destaque = '0001'.

          ENDIF.

* << Fim da exclusão

          MODIFY it_zycit079.

        ENDIF.

      ENDLOOP.

      MOVE it_zycit079[] TO it_zycit079_aux2[].

      IF NOT /pws/zycie078-numpexpam IS INITIAL.

        MOVE it_zycit079[] TO it_zycit079_aux4[].

      ENDIF.

      LOOP AT it_zycit079.

        MOVE-CORRESPONDING it_zycit079 TO /pws/zycie079.

      ENDLOOP.

...

...

        LOOP AT ittxt2.

          MOVE ittxt2-line TO ittxt1-line.

          APPEND ittxt1.

        ENDLOOP.

        CALL METHOD editor2->set_text_as_r3table EXPORTING

             table = ittxt1[].

        CASE sy-tcode.

          WHEN '/PWS/ZYCI020_C'  OR '/PWS/ZYCI020_A'  OR

               '/PWS/ZYCI020_P' OR '/PWS/ZYCI020_N' OR

               '/PWS/ZYCI020_I' OR '/PWS/ZYCI020_G'.

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

            IF ( v_nrpli IS INITIAL AND

                 v_dtreg IS INITIAL ) .

* << Fim da inclusão

            top_editmode = '0'.

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

            ELSE.

              top_editmode = '1'.

            ENDIF.

* << Fim da inclusão

          WHEN OTHERS.

            top_editmode = '1'.

        ENDCASE.

        CALL METHOD editor2->set_readonly_mode EXPORTING

...

...

* >> Início da inclusão:

MODULE load_forn INPUT.

  IF NOT /pws/zycie079a-lifnr IS INITIAL.

    SELECT SINGLE nrforn FROM /pws/zycit080

    INTO v_frn1

    WHERE lifnr EQ /pws/zycie079a-lifnr.

  ENDIF.

ENDMODULE.

MODULE load_desc_fabr INPUT.

  PERFORM load_desc_fabr.

ENDMODULE.

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/MZYCI020O01

...

* >> Início da inclusão:

MODULE propoe_nrforn OUTPUT.

  IF NOT /pws/zycie079a-lifnr IS INITIAL.

    IF v_frn1 IS INITIAL.

      SELECT SINGLE nrforn FROM /pws/zycit080

      INTO v_frn1

      WHERE ebeln EQ /pws/zycie079a-ebeln

      AND   ebelp EQ /pws/zycie079a-ebelp

      AND   nrseqli EQ /pws/zycie078-nrseqli

      AND   lifnr EQ /pws/zycie079a-lifnr.

      IF sy-subrc NE 0 .

        SELECT SINGLE nrforn FROM /pws/zycit080

        INTO v_frn1

        WHERE lifnr EQ /pws/zycie079a-lifnr.

      ENDIF.

    ENDIF.

  ELSE.

    CLEAR v_frn1.

  ENDIF.

  IF NOT lfa1-lifnr IS INITIAL.

    IF v_frn2 IS INITIAL.

      SELECT SINGLE nrforn FROM /pws/zycit080

      INTO v_frn2

      WHERE ebeln EQ /pws/zycie079a-ebeln

      AND   ebelp EQ /pws/zycie079a-ebelp

      AND   nrseqli EQ /pws/zycie078-nrseqli

      AND   lifnr EQ lfa1-lifnr.

      IF sy-subrc NE 0 .

        SELECT SINGLE nrforn FROM /pws/zycit080

        INTO v_frn2

        WHERE lifnr EQ lfa1-lifnr.

      ENDIF.

    ENDIF.

  ELSE.

    CLEAR v_frn2.

  ENDIF.

ENDMODULE.

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/MZYCI020X01

...

DATA: BEGIN OF it_zycit079 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit079.

DATA: uebto  LIKE ekpo-uebto,

      uebtk  LIKE ekpo-uebtk,

      noinitial,

* >> Início da inclusão:

      nrforn1 type /pws/zycit080-nrforn ,

      nrforn2 type /pws/zycit080-nrforn ,

* << Fim da inclusão

      mark.

DATA: END OF it_zycit079.

...

...

* >> Início da inclusão:

data: itab_zycit080 type /pws/zycit080 occurs 0 with header line.

datA: v_frn1 type /pws/zycit080-nrforn,

      v_frn2 type /pws/zycit080-nrforn.

* << Fim da inclusão

DATA: END OF COMMON PART.