Sintoma

Ao verificar pré-crítica da PLI, reclama da falta do PPB.

Solução

Ajustar seleção de parâmetros.

Informações Complementares

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

Nota Número 08854 Data: 19/08/2009 Hora: 15:51:51

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

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

Nota Número              : 08854

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 7.0

Pacote                   : 00010

Agrupamento              : 00110

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

AO VERIFICAR PRÉ-CRÍTICA DA PLI, RECLAMA DA FALTA DO PPB.

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

Palavras Chave:

PRÉ-CRÍTICA - PLI - PPB - SISCOMEX

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

Objetos da nota:

REPS /PWS/MZYCI020F02

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

Modificações efetuadas em REPS /PWS/MZYCI020F02

...

  IF /pws/zycie078-tpli EQ 'N'

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

    IF NOT itab_itens-matnr IS INITIAL.

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

        SELECT *

          FROM /pws/zycit338

          INTO TABLE itab_zycit338

          WHERE matnr EQ itab_itens-matnr.

        IF sy-subrc EQ 0.

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

          v_destaque = it_zycit079-destaque.

          v_fator = it_zycit079-fator   .

* << Fim da exclusão

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

          READ TABLE itab_zycit338 INDEX 1.

          IF sy-subrc EQ 0.

            it_zycit079-destaque = v_destaque = itab_zycit338-destaque.

            v_fator = itab_zycit338-fator   .

* << Fim da inclusão

          v_zum  =  it_zycit079-zum     .

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

          v_codsufra = v_codsufra.

* << Fim da exclusão

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

            it_zycit079-codsufra = v_codsufra = itab_zycit338-codsufra.

* << Fim da inclusão

          PERFORM seleciona_ppb TABLES   itab_zycit338

                                CHANGING v_destaque

                                         v_fator

...

...

          SELECT SINGLE * FROM /pws/zycit219

              WHERE codigo   EQ itab_zycit338-codsufra AND

                    ncm      EQ v_ncm

                AND destaque EQ v_destaque.

          IF sy-subrc EQ 0 AND /pws/zycit219-flagdest EQ 'X'.

            MOVE: '999'              TO it_anu2-codncm,

            /pws/zycie078-nrseqli   TO it_anu2-nrseqli,

            it_zycit079-ebeln  TO it_anu2-ebeln,

            it_zycit079-ebelp  TO it_anu2-ebelp.

            APPEND it_anu2.

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

            ENDIF.

* << Fim da inclusão

          ENDIF.

        ELSE.

          MESSAGE w061 WITH text-321

            text-320 text-432.

        ENDIF.

      ELSE.

        it_zycit079-codsufra = '0000'.

        it_zycit079-destaque = '0001'.

      ENDIF.

    ELSE.

...