Sintoma

Necessário acrescentar o campo NCM como chave na tabela /PWS/ZYCIT218

Solução

Atualizado progrmas para acrescentar o campo NCM como chave na tabela /PWS/ZYCIT218

Informações Complementares

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

Nota Número 12222 Data: 21/05/2012 Hora: 15:52:24

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

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

Nota Número              : 12222

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 8.0

Pacote                   : 00011

Agrupamento              : 00115

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

Referência às notas relacionadas:

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

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

NECESSÁRIO ACRESCENTAR O CAMPO NCM COMO CHAVE NA TABELA /PWS/ZYCIT218

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

Palavras Chave:

NCM - CODIGO SUFRAMA - ZYCIT218 - PARAMETRO - PLI - PEXPAM - PPB

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

Objetos da nota:

REPS /PWS/MZYCI020F01

REPS /PWS/MZYCI020F02

REPS /PWS/MZYCI020I01

REPS /PWS/ZYCIR090

REPS /PWS/ZYCIR091

TABD /PWS/ZYCIT218

TOBJ /PWS/ZYCIT218S

TOBJ /PWS/ZYCIT241S

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

Modificações efetuadas em REPS /PWS/MZYCI020F01

...

FORM descrtpli.

  IF NOT /pws/zycie079a-codsufra IS INITIAL.

    SELECT SINGLE produto FROM /pws/zycit218 INTO v_codsufra

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

               WHERE codigo = /pws/zycie079a-codsufra.

* << Fim da exclusão

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

               WHERE codigo = /pws/zycie079a-codsufra

               and   steuc  = /pws/zycie079a-steuc1.

* << Fim da inclusão

  ELSE.

    MOVE space TO v_codsufra.

  ENDIF.

ENDFORM.

...

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

Modificações efetuadas em REPS /PWS/MZYCI020F02

...

    IF NOT /pws/zycie079a-codsufra IS INITIAL AND

       /pws/zycie079a-aliqii IS INITIAL AND

       sy-tcode = '/PWS/ZYCI020_I'.

      CLEAR: v_tp_cra, v_aliqii.

      SELECT SINGLE tp_cra FROM /pws/zycit218

             INTO v_tp_cra

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

             WHERE codigo = /pws/zycie079a-codsufra.

* << Fim da exclusão

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

             WHERE codigo = /pws/zycie079a-codsufra

             and   steuc  = /pws/zycie079a-steuc1.

* << Fim da inclusão

      IF v_tp_cra EQ '2'.

        SELECT SINGLE aliqii FROM /pws/zycit000

          INTO v_aliqii

          WHERE land1 = t001-land1.

        /pws/zycie079a-aliqii = v_aliqii.

      ELSEIF v_tp_cra EQ '4'.

        /pws/zycie079a-aliqii = '0'.

      ENDIF.

    ENDIF.

...

...

            PERFORM seleciona_ppb TABLES   itab_zycit338

                                  CHANGING v_destaque

                                           v_fator

                                           v_zum

                                           v_codsufra.

            IF NOT it_zycit079-codsufra IS INITIAL

               AND v_incentivo IS INITIAL.

              SELECT SINGLE * FROM /pws/zycit218

                WHERE incent_zfm EQ 'X'

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

                  AND codigo     EQ v_codsufra.

* << Fim da exclusão

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

                  AND codigo     EQ v_codsufra

                  and steuc      eq it_zycit079-steuc1.

* << Fim da inclusão

              IF sy-subrc EQ 0.

                MESSAGE w061 WITH text-428.

                v_incentivo = 'X'.

              ENDIF.

            ENDIF.

            PERFORM cota_suframa USING itab_itens-j_1bnbm

                                       v_destaque

...

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

Modificações efetuadas em REPS /PWS/MZYCI020I01

...

 SELECT SINGLE tp_cra FROM /pws/zycit218

           INTO v_tp_cra

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

           WHERE codigo = /pws/zycie079a-codsufra.

* << Fim da exclusão

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

           WHERE codigo = /pws/zycie079a-codsufra

           and steuc   =  /pws/zycie079a-steuc1.

* << Fim da inclusão

    IF v_tp_cra EQ '2'.

      SELECT SINGLE aliqii FROM /pws/zycit000

        INTO v_aliqii

        WHERE land1 = t001-land1.

      /pws/zycie079a-aliqii = v_aliqii.

    ELSEIF v_tp_cra EQ '4'.

      /pws/zycie079a-aliqii = '0'.

    ENDIF.

  ENDIF.

ENDMODULE.

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

Modificações efetuadas em REPS /PWS/ZYCIR090

...

    IF NOT itab_t005[] IS INITIAL.

      SELECT * FROM t005t INTO TABLE itab_t005t

     FOR ALL ENTRIES IN itab_t005

     WHERE land1 EQ itab_t005-land1.                    "#EC CI_GENBUFF

    ENDIF.

    IF NOT itab_zycit198[] IS INITIAL.

      SELECT * FROM /pws/zycit218 INTO TABLE itab_zycit218

      FOR ALL ENTRIES IN itab_zycit198

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

      WHERE codigo EQ itab_zycit198-codprod.

* << Fim da exclusão

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

      WHERE codigo EQ itab_zycit198-codprod

      and steuc    eq itab_zycit198-ncmcod.

* << Fim da inclusão

    ENDIF.

  ELSE.

    v_sair = 'S'.

    MESSAGE s015 WITH text-038 text-039.

    EXIT.

  ENDIF.

ENDFORM.

...

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

Modificações efetuadas em REPS /PWS/ZYCIR091

...

FORM seleciona_dados.

  SELECT * FROM /pws/zycit289 INTO TABLE itab_zycit289

         WHERE nrseqp EQ /pws/zycie289-nrseqp.

  READ TABLE itab_zycit289 INDEX 1.

  SELECT SINGLE descrip FROM /pws/zycit290 INTO v_desc_tipoprod

         WHERE codprod  = itab_zycit289-codprod

         AND   tipoprod = itab_zycit289-tipoprod.

  SELECT SINGLE produto FROM /pws/zycit218 INTO v_desc_codprod

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

         WHERE codigo = itab_zycit289-codprod.

* << Fim da exclusão

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

         WHERE codigo = itab_zycit289-codprod

         and steuc    = itab_zycit289-ncmcod.

* << Fim da inclusão

...

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

Modificações efetuadas em TABD /PWS/ZYCIT218

*Sinalizar o campo STEUC como chave e mover ele para ficar embaixo do campo CODIGO.

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

Modificações efetuadas em TOBJ /PWS/ZYCIT218S

Gerar visão de atualização de tabela /PWS/ZYCIT218 novamente.

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

Modificações efetuadas em TOBJ /PWS/ZYCIT241S

Gerar visão de atualização de tabela /PWS/ZYCIT241 novamente.