Sintoma

Há um erro no sequencial interno da PLI, ou seja existe somente 3 PLI porem o sequencial está no

48I05, outro problema é que na pré-critica, está pedindo o numero do registro do Drawback porem já

está preenchido.

Solução

Ajustado a verificação do preenchimento do numero do Ato Drawback na

pré-critica da PLI.

Informações Complementares

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

Nota Número 00480 Data: 16/12/2005 Hora: 16:44:45

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

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

Nota Número              : 00480

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00021

Agrupamento              : 00091

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

AJUSTE NO SEQUENCIAL DA LI E REGISTRO DE DRAWBACK NA PRÉ-CRÍTICA

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

Palavras Chave:

LI - PRÉ CRÍTICA - SEQUENCIAL - REGISTRO DRAWBACK

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

Objetos da nota:

REPS /PWS/MZYCI020F02

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

Modificações efetuadas em REPS /PWS/MZYCI020F02

...

  ENDIF.

ENDFORM.

FORM salva_itemncm.

  DATA: v_tpli  LIKE /pws/zycit078-tpli ,

        v_vltot LIKE /pws/zycit078-vltot,

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

        v_idx   LIKE sy-tabix.

* << Fim da exclusão

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

        v_idx   LIKE sy-tabix,

        v_ncm_t like /pws/zycie078-steuc1.

* << Fim da inclusão

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

  CLEAR  : it_zycit079_aux2, v_vltot.

* << Fim da exclusão

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

  CLEAR  : it_zycit079_aux2, v_vltot, v_ncm_t.

* << Fim da inclusão

  REFRESH: it_zycit079_aux2.

  v_tpli = 'N'.

  LOOP AT it_zycit079_ncm.

    v_idx = sy-tabix.

    READ TABLE it_zycit079 WITH KEY

...

...

                   WHERE ebeln EQ it_zycit079_ncm-ebeln

                     AND ebelp EQ it_zycit079_ncm-ebelp.

    ENDIF.

    v_vltot =  v_vltot + ( it_zycit079_ncm-netpr *

                it_zycit079_ncm-qtd_iten  ).

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

    v_ncm_t = it_zycit079_ncm-steuc1.

* << Fim da inclusão

    PERFORM criar_texto_ncm.

    it_zycit079_ncm-tpli = v_tpli.

    MODIFY it_zycit079_ncm INDEX v_idx.

  ENDLOOP.

  DELETE FROM /pws/zycit079 WHERE nrseqli = /pws/zycie078c-nrseqli.

  MODIFY /pws/zycit079 FROM TABLE it_zycit079_ncm.

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

  UPDATE /pws/zycit078 SET vltot = v_vltot

* << Fim da exclusão

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

  UPDATE /pws/zycit078 SET vltot  = v_vltot

                           steuc1 = v_ncm_t

* << Fim da inclusão

               WHERE nrseqli = /pws/zycie078c-nrseqli.

  LOOP AT it_zycit079.

    UPDATE /pws/zycit079 SET numli  = it_zycit079-numli

                 WHERE nrseqli = it_zycit079-nrseqli

                   AND tpli    = v_tpli

...