Sintoma

O valor da base de cálculo do imposto na nota fiscal de Remessa está menor que o valor total da nota

fiscal. Erro em Nota fiscal remessa com vários itens.

Solução

Atualizado o programa para limpar o valor para cada item e assim calcula corretamente

Informações Complementares

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

Nota Número 02563 Data: 30/11/2006 Hora: 16:48:02

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

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

Nota Número              : 02563

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00025

Agrupamento              : 00142

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

NFR VALOR DA DEPESA ESTAVA DUPLICANDO O IPI

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

Palavras Chave:

NFR - DESPESA - IPI - TOTAL NOTA

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

Objetos da nota:

REPS /PWS/MZYCI016F01

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

Modificações efetuadas em REPS /PWS/MZYCI016F01

...

  IF itab_zycit100-codregtripiscofi NE '3' AND

    itab_zycit100-codregtripiscofi NE '5'.

 v_impostos = v_impostos + itab_zycit100-vlpis + itab_zycit100-vlcofins.

  ENDIF.

ENDFORM.

FORM valores_r.

  DATA: v_outras    LIKE /pws/zycit044-vldp,

        v_vldp_044  LIKE /pws/zycit044-vldp,

        v_vlpis     LIKE /pws/zycit100-vlpis,

        v_vlcofins  LIKE /pws/zycit100-vlcofins.

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

  CLEAR: v_outras_ic, v_impostos.

* << Fim da exclusão

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

  CLEAR: v_outras_ic, v_impostos,

      v_despesas, v_ipi, v_icms.

* << Fim da inclusão

  IF /pws/zycbt007-waersb IS INITIAL.

    SELECT SINGLE * FROM /pws/zycbt007

       WHERE bukrs EQ /pws/zycie041-bukrs.

  ENDIF.

  LOOP AT itab_zycit036

    WHERE ebeln = itab_zycit044-ebeln

      AND ebelp = itab_zycit044-ebelp.

    READ TABLE itab_zycit036_di

          WITH KEY ebeln = itab_zycit036-ebeln

                   ebelp = itab_zycit036-ebelp

...