Sintoma

O embarque de nacionalização de RECOF está calculando incorretamente os valores dos tributos na DI.

Solução

Atualização do embarque de nacionalização de RECOF.

Informações Complementares

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

Nota Número 06755 Data: 13/06/2008 Hora: 07:52:28

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

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

Nota Número              : 06755

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00005

Agrupamento              : 00051

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

Referência às notas relacionadas:

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

04866  - 00001 - 7.0    - 00003  - PERMITIR NACIONALIZAÇÃO DE DI 01, DE ACORDO COM FUNDAMENTAÇÃO LEG

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

NACIONALIZAÇÃO DE RECOF (SEGURO DESTACADO NA FATURA)

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

Palavras Chave:

EMBARQUE NACIONALIZAÇÃO RECOF SEGURO FATURA

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

Objetos da nota:

REPS /PWS/MZYCI001F03

REPS /PWS/MZYCI001F01

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

Modificações efetuadas em REPS /PWS/MZYCI001F01

...

    ENDIF.

    SELECT * FROM /pws/zycit013

      INTO TABLE itab_zycit013

      FOR ALL ENTRIES IN itab_zycit003 WHERE

      ebeln = itab_zycit003-ebeln AND

      ebelp = itab_zycit003-ebelp.

    PERFORM carrega_saldo.

    PERFORM lock_pedido.

  ENDIF.

  LOOP AT itab_zycit003.

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

    IF /pws/zycie001-regime NE '16' .

* << Fim da inclusão

    READ TABLE itab_zycit013 WITH KEY ebeln = itab_zycit003-ebeln

                                      ebelp = itab_zycit003-ebelp.

    MOVE: itab_zycit013-slqtde TO itab_zycit003-slqtde,

          itab_zycit013-menge  TO itab_zycit003-menge,

          itab_zycit013-uebto  TO itab_zycit003-uebto,

          itab_zycit013-uebtk  TO itab_zycit003-uebtk,

          'X'                  TO itab_zycit003-noinitial.

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

    ENDIF.

* << Fim da inclusão

    PERFORM calc_saldo.

    MODIFY itab_zycit003.

  ENDLOOP.

  PERFORM mask.

  REFRESH itab_zycit003_aux2.

  MOVE itab_zycit003[] TO itab_zycit003_aux2[].

  IF sy-tcode NE '/PWS/ZYCI001_E'.

    LOOP AT itab_zycit003.

      CALL FUNCTION '/PWS/ZYCI_ENQUEUE_ZYCIT013'

       EXPORTING

...

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

Modificações efetuadas em REPS /PWS/MZYCI001F03

...

         itab_zycit003_da-naladi         TO    itab_zycit003-naladi,

         itab_zycit003_da-naladincca     TO    itab_zycit003-naladincca,

         itab_zycit003_da-netpr          TO    itab_zycit003-netpr,

         itab_zycit003_da-nrdrawback     TO    itab_zycit003-nrdrawback,

         itab_zycit003_da-nrli           TO    itab_zycit003-nrli,

         itab_zycit003_da-nrseqli        TO    itab_zycit003-nrseqli,

        itab_zycit003_da-orgemiss_al    TO    itab_zycit003-orgemiss_al,

            itab_da-qtd_nac       TO    itab_zycit003-qtd_iten  ,

         itab_zycit003_da-qtdeumest      TO    itab_zycit003-qtdeumest,

         itab_zycit003_da-tipo_al        TO    itab_zycit003-tipo_al,

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

         itab_zycit003_da-vlseg_fat      TO    itab_zycit003-vlseg_fat,

* << Fim da inclusão

         itab_zycit003_da-vlfre_fat      TO    itab_zycit003-vlfre_fat,

         itab_zycit003_da-werks          TO    itab_zycit003-werks,

        itab_zycit003_da-ad_anoemiss    TO    itab_zycit003-ad_anoemiss,

         itab_zycit003_da-ad_extarif     TO    itab_zycit003-ad_extarif,

         itab_zycit003_da-ad_numero      TO    itab_zycit003-ad_numero,

        itab_zycit003_da-ad_orgemiss    TO    itab_zycit003-ad_orgemiss,

         itab_zycit003_da-ad_tipo        TO    itab_zycit003-ad_tipo,

        itab_zycit003_da-anoemiss_al    TO    itab_zycit003-anoemiss_al,

         itab_zycit003_da-aplicacao      TO    itab_zycit003-aplicacao,

         itab_zycit003_da-bednr          TO    itab_zycit003-bednr,

...