Sintoma

Na PLI ao colocar o processo e orgão anuente no detalhe do item para um dos itens, leva para os

demais e ainda duplica, ou triplica, dependendo da quantidade de itens.

Solução

Selecionar corretamente o orgão anuente para o item selecionado. E traduação da msg "Arquivo Gerado

com Sucesso"

Informações Complementares

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

Nota Número 10420 Data: 22/07/2010 Hora: 11:16:35

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

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

Nota Número              : 10420

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 8.0

Pacote                   : 00004

Agrupamento              : 00031

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

NA PLI AO COLOCAR ORGÃO ANUENTE PARA O ITEM DUPLICA PARA OS DEMAIS ITENS

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

Palavras Chave:

DESEMBARAÇO - PLI - ORGÃO - ANUENTE - DUPLICA - ITENS

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

Objetos da nota:

REPS /PWS/MZYCI020F01

REPS /PWS/MZYCI020F02

REPS /PWS/MZYCI020I01

REPT /PWS/SAPMZYCI020

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

Modificações efetuadas em REPS /PWS/MZYCI020F01

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

Modificações efetuadas em REPS /PWS/MZYCI020F02

...

    ENDIF.

  ENDLOOP.

  IF /pws/zycie079a IS INITIAL.

    MESSAGE i013 WITH text-019.

  ELSE.

    IF sy-dynnr EQ '0100'.

      CALL SCREEN '0200'.

    ELSEIF sy-dynnr EQ '0500'.

      REFRESH it_zycit081r.

      IF /pws/zycie078-flagpli EQ 'X'.

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

        LOOP AT it_zycit081.

* << Fim da exclusão

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

        LOOP AT it_zycit081

        WHERE ebeln = /pws/zycie079a-ebeln

          AND ebelp = /pws/zycie079a-ebelp.

* << Fim da inclusão

          it_zycit081r = it_zycit081.

          APPEND it_zycit081r.

        ENDLOOP.

      ENDIF.

      CALL SCREEN '0520'.

    ELSE.

      CALL SCREEN '0200'.

    ENDIF.

  ENDIF.

ENDFORM.

...

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

Modificações efetuadas em REPS /PWS/MZYCI020I01

...

      CLEAR okcode.

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

         /pws/zycie078-flagpli NE 'X'.

        LEAVE TO SCREEN '0100'.

      ELSEIF /pws/zycie078-tpli EQ 'N' AND

         /pws/zycie078-flagpli EQ 'X'.

        LEAVE TO SCREEN '0500'.

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

        LEAVE TO SCREEN '0400'.

      ENDIF.

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

        IF /pws/zycie078-flagpli EQ 'X'.

          CLEAR it_zycit081r.

          REFRESH it_zycit081r.

          IF /pws/zycie078-flagpli EQ 'X'.

            LOOP AT it_zycit081

            WHERE ebeln = /pws/zycie079a-ebeln

              AND ebelp = /pws/zycie079a-ebelp.

              it_zycit081r = it_zycit081.

              APPEND it_zycit081r.

            ENDLOOP.

          ENDIF.

        ENDIF.

* << Fim da inclusão

    WHEN 'PRIM'.

      PERFORM field_industrializacao.

      v_ip = 1.

      READ TABLE it_zycit079 INDEX v_ip.

      MOVE-CORRESPONDING it_zycit079 TO /pws/zycie079a.

      PERFORM load_descri_suframa.

      PERFORM load_desc_fabr.

      CLEAR v_esp.

      CLEAR rtexti.

      REFRESH rtexti.

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

      IF /pws/zycie078-flagpli EQ 'X'.

        CLEAR it_zycit081r.

        REFRESH it_zycit081r.

        IF /pws/zycie078-flagpli EQ 'X'.

          LOOP AT it_zycit081

          WHERE ebeln = /pws/zycie079a-ebeln

            AND ebelp = /pws/zycie079a-ebelp.

            it_zycit081r = it_zycit081.

            APPEND it_zycit081r.

          ENDLOOP.

        ENDIF.

      ENDIF.

* << Fim da inclusão

    WHEN 'ANTE'.

      PERFORM field_industrializacao.

      IF v_ip > 1.

        v_ip = v_ip - 1.

        READ TABLE it_zycit079 INDEX v_ip.

        MOVE-CORRESPONDING it_zycit079 TO /pws/zycie079a.

        PERFORM load_descri_suframa.

        PERFORM load_desc_fabr.

        CLEAR v_esp.

        CLEAR rtexti.

        REFRESH rtexti.

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

        IF /pws/zycie078-flagpli EQ 'X'.

          CLEAR it_zycit081r.

          REFRESH it_zycit081r.

          IF /pws/zycie078-flagpli EQ 'X'.

            LOOP AT it_zycit081

            WHERE ebeln = /pws/zycie079a-ebeln

              AND ebelp = /pws/zycie079a-ebelp.

              it_zycit081r = it_zycit081.

              APPEND it_zycit081r.

            ENDLOOP.

          ENDIF.

* << Fim da inclusão

      ENDIF.

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

      ENDIF.

* << Fim da inclusão

    WHEN 'PROX'.

      PERFORM field_industrializacao.

      DESCRIBE TABLE it_zycit079 LINES v_line.

      IF v_ip < v_line.

        v_ip = v_ip + 1.

        READ TABLE it_zycit079 INDEX v_ip.

        MOVE-CORRESPONDING it_zycit079 TO /pws/zycie079a.

        PERFORM load_descri_suframa.

        PERFORM load_desc_fabr.

        CLEAR v_esp.

        CLEAR rtexti.

        REFRESH rtexti.

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

        IF /pws/zycie078-flagpli EQ 'X'.

          CLEAR it_zycit081r.

          REFRESH it_zycit081r.

          IF /pws/zycie078-flagpli EQ 'X'.

            LOOP AT it_zycit081

            WHERE ebeln = /pws/zycie079a-ebeln

              AND ebelp = /pws/zycie079a-ebelp.

              it_zycit081r = it_zycit081.

              APPEND it_zycit081r.

            ENDLOOP.

          ENDIF.

        ENDIF.

* << Fim da inclusão

      ENDIF.

    WHEN 'ULTI'.

      PERFORM field_industrializacao.

      DESCRIBE TABLE it_zycit079 LINES v_ip.

      READ TABLE it_zycit079 INDEX v_ip.

      MOVE-CORRESPONDING it_zycit079 TO /pws/zycie079a.

      PERFORM load_descri_suframa.

      PERFORM load_desc_fabr.

      CLEAR v_esp.

      CLEAR rtexti.

      REFRESH rtexti.

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

      IF /pws/zycie078-flagpli EQ 'X'.

        CLEAR it_zycit081r.

        REFRESH it_zycit081r.

        IF /pws/zycie078-flagpli EQ 'X'.

          LOOP AT it_zycit081

          WHERE ebeln = /pws/zycie079a-ebeln

            AND ebelp = /pws/zycie079a-ebelp.

            it_zycit081r = it_zycit081.

            APPEND it_zycit081r.

          ENDLOOP.

        ENDIF.

      ENDIF.

* << Fim da inclusão

    WHEN 'FORN'.

      CALL SCREEN '0504'.

    WHEN 'REP_PLI'.

      PERFORM desmarca_todos.

      READ TABLE it_zycit079 WITH KEY

            ebeln = /pws/zycie079a-ebeln

            ebelp = /pws/zycie079a-ebelp.

      it_zycit079-mark = 'X'.

      MODIFY it_zycit079 TRANSPORTING mark

      WHERE ebeln = /pws/zycie079a-ebeln

...

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

Modificações efetuadas em REPT /PWS/SAPMZYCI020

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

Incluído símbolo de texto:

Idioma: EN

Símbolo: 512

Texto: (27 caracteres)

"File Generated with Success"

Comprimento máximo: 30

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

Modificado símbolo de texto:

Idioma: PT

Símbolo: 512

Texto: (26 caracteres)

"Arquivo Gerado com Sucesso"

Comprimento máximo: 30

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

Incluído símbolo de texto:

Idioma: ES

Símbolo: 512

Texto: (26 caracteres)

"Archivo generado con éxito"

Comprimento máximo: 30