Sintoma

Ao acessar a pasta NCM-Sufixo da ANA são exibidos dados que não pertencem a ANA.

Solução

Ajustado programa para atualizar o sequencial na tabela de imposto quando necessário.

Informações Complementares

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

Nota Número 10755 Data: 22/11/2010 Hora: 15:08:53

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

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

Nota Número              : 10755

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 8.0

Pacote                   : 00005

Agrupamento              : 00049

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

ANA ESTÁ GRAVANDO OS IMPOSTOS COM O SEQUENCIAL ERRADO.

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

Palavras Chave:

ANA - CRIAR - IMPOSTOS - SALVAR - ALTERAR - SEQUENCIAL

/PWS/SAPMZYCI059

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

Objetos da nota:

REPS /PWS/MZYCI059F01

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

Modificações efetuadas em REPS /PWS/MZYCI059F01

...

                       ebeln = itab_it-ebeln AND

                       ebelp = itab_it-ebelp.

      ENDIF.

      MOVE: itab_zycit003[] TO itab_zycit003a[].

      PERFORM: fill_itabit.

    ENDIF.

  ENDIF.

  LOOP AT itab_zycit403.

    READ TABLE itab_it   WITH KEY ebeln  = itab_zycit403-ebeln

                                  ebelp  = itab_zycit403-ebelp.

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

    IF sy-subrc NE 0.

      DELETE itab_zycit403 WHERE ebeln = itab_zycit403-ebeln

                             AND ebelp = itab_zycit403-ebelp.

      CONTINUE.

    ENDIF.

* << Fim da inclusão

    READ TABLE itab_zycit003 WITH KEY ebeln = itab_zycit403-ebeln

                                     ebelp  = itab_zycit403-ebelp.

    READ TABLE itab_adic INTO wa_adic

                         WITH KEY ebeln  = itab_zycit403-ebeln

                                  ebelp  = itab_zycit403-ebelp

                                  codigo = itab_zycit403-codigo.

    IF sy-subrc NE 0.

      MOVE: itab_zycit403-ebeln      TO wa_adic-ebeln,

            itab_zycit403-ebelp      TO wa_adic-ebelp,

            itab_it-j_1bnbm          TO wa_adic-j_1bnbm,

...

...

    MODIFY itab_zycit096 TRANSPORTING nrseqdi

                         WHERE nrseqdi = v_nrseq_ant.

    itab_zycit115-nrseqdi = /pws/zycie085-nrseqdi.

    MODIFY itab_zycit115 TRANSPORTING nrseqdi

                         WHERE nrseqdi = v_nrseq_ant.

    itab_it-nrseqdi       = /pws/zycie085-nrseqdi.

    MODIFY itab_it       TRANSPORTING nrseqdi

                            WHERE nrseqdi = v_nrseq_ant.

    itab_zycit100-nrseqdi = /pws/zycie085-nrseqdi.

    MODIFY itab_zycit100 TRANSPORTING nrseqdi

                            WHERE nrseqdi = v_nrseq_ant.

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

    itab_zycit403-nrseqdi = /pws/zycie085-nrseqdi.

    MODIFY itab_zycit403 TRANSPORTING nrseqdi

                            WHERE nrseqdi = v_nrseq_ant.

* << Fim da inclusão

  ENDIF.

ENDFORM.

...