Sintoma

Na PLI  a busca das informações da tabela /PWS/ZYCIT219 ora ocorre através do campo STEUC (NCM com

pontos - formato 9999.99.99) ora ocorre através do campo NCM (formato 99999999). Isso implica em

determinados pontos do programa o processamento não encontrar o registro, pois na tabela 219 o NCM

está cadastrado em um determinado formato e apenas uma vez.

Solução

Nas Três primeiras rotinas o select é feito pelo NCM, essas rotinas foram alteradas para selecionar

com o STEUC1.

Informações Complementares

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

Nota Número 13048 Data: 10/06/2013 Hora: 10:36:48

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

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

Nota Número              : 13048

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 9.0

Pacote                   : 00004

Agrupamento              : 00156

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

Referência às notas relacionadas:

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

00866  - 00001 - 6.0    - 00022  - PROBLEMAS AO GERAR O SEQUENCIAL DE LI NA PLI.

12157  - 00002 - 8.0    - 00011  - AO ENTRAR NA PLI DÁ DUMP.

12158  - 00003 - 8.0    - 00011  - DUMP AO CARREGAR PLI

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

12259  - 00005 - 8.0    - 00011  - AAJUSTES PARA TRATAMENTO DE TRANSMISSÃO PLI

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

PLI - SELECT NA TABELA /PWS/ZYCIT219 POR STEUC1 E NCM

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

Palavras Chave:

PLI - SELECT - /PWS/ZYCIT219 - STEUC1 - NCM

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

Objetos da nota:

REPS /PWS/MZYCI020O01

REPS /PWS/MZYCI020I01

REPS /PWS/MZYCI020F01

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

Modificações efetuadas em REPS /PWS/MZYCI020O01

...

    IF NOT /pws/zycie079-fator IS INITIAL.

      v_fator = /pws/zycie079-fator.

      REPLACE ',' WITH '.' INTO v_fator.

      SELECT SINGLE * FROM /pws/zycit338

             WHERE matnr EQ it_ekpo-matnr

                AND codsufra EQ it_zycit079-codsufra.

      IF sy-subrc EQ 0.

        SELECT SINGLE * FROM /pws/zycit219

            WHERE codigo   EQ /pws/zycit338-codsufra AND

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

                  ncm      EQ /pws/zycie079-steuc1

              AND destaque EQ /pws/zycie079-destaque.

        IF sy-subrc NE 0.

          SELECT SINGLE * FROM /pws/zycit219

              WHERE codigo   EQ /pws/zycit338-codsufra AND

* << Fim da inclusão

                  ncm      EQ /pws/zycie079-ncm

              AND destaque EQ /pws/zycie079-destaque.

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

        ENDIF.

* << Fim da inclusão

        IF sy-subrc EQ 0.

          IF /pws/zycit219-flagppb NE 'X'.

            /pws/zycie079-qtdest = /pws/zycie079-qtd_iten *

               v_fator.

          ELSEIF /pws/zycit219-flagppb EQ 'X'.

...

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

Modificações efetuadas em REPS /PWS/MZYCI020I01

...

          WHEN OTHERS.

            top_editmode = '1'.

        ENDCASE.

        CALL METHOD editor2->set_readonly_mode EXPORTING

             readonly_mode = top_editmode.

      ENDIF.

      PERFORM carrega_compl_salvo.

      PERFORM lock_record.

      LOOP AT it_zycit079.

        SELECT SINGLE * FROM /pws/zycit219

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

          WHERE codigo   EQ it_zycit079-codsufra

            AND ncm      EQ it_zycit079-steuc1

            AND destaque EQ it_zycit079-destaque.

        IF sy-subrc NE 0.

          SELECT SINGLE * FROM /pws/zycit219

* << Fim da inclusão

            WHERE codigo   EQ it_zycit079-codsufra AND

                  ncm      EQ it_zycit079-ncm

              AND destaque EQ it_zycit079-destaque.

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

        ENDIF.

* << Fim da inclusão

        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-tpli        TO it_anu2-tpli,

...

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

Modificações efetuadas em REPS /PWS/MZYCI020F01

...

    IF NOT it_zycit079-qtd_iten IS INITIAL AND

       NOT it_zycit079-fator IS INITIAL.

      SELECT SINGLE * FROM /pws/zycit338

             WHERE matnr    EQ it_ekpo-matnr

               AND codsufra EQ it_zycit079-codsufra.

      IF sy-subrc EQ 0.

        REPLACE ',' WITH '.' INTO it_zycit079-fator.

        SELECT SINGLE * FROM /pws/zycit219

            WHERE codigo   EQ /pws/zycit338-codsufra

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

            AND ncm      EQ it_zycit079-steuc1

            AND destaque EQ it_zycit079-destaque.

        IF sy-subrc NE 0.

          SELECT SINGLE * FROM /pws/zycit219

              WHERE codigo   EQ /pws/zycit338-codsufra

* << Fim da inclusão

              AND ncm      EQ it_zycit079-ncm

              AND destaque EQ it_zycit079-destaque.

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

        ENDIF.

* << Fim da inclusão

        IF sy-subrc EQ 0.

          IF /pws/zycit219-flagppb NE 'X'.

            it_zycit079-qtdest =

                      it_zycit079-qtd_iten * it_zycit079-fator.

          ELSEIF /pws/zycit219-flagppb EQ 'X'.

...