CE PLUS - Nota 009430

Módulo: DOC. IMPORTAÇÃO

Funcionalidade: Nota Fiscal Remessa

Data/Hora da Publicação: 23/11/2009 00:00:00

Data/Hora Última Alteração: 04/04/2013 11:30:40

Descrição da Nota: O VALOR TOTAL DA NOTA DE REMESSA ESTÁ DIFERENTE DA GLOBAL

Sintoma

O valor total da nota fiscal de remessa está diferente da nota fiscal global.

 

 

Solução

Corrigida a montagem dos valores da nota fiscal de remessa.

 

Versões Tratadas

7.0


Pré-Requisitos

Produto:

Nota

Descrição

DIFERENÇA NO VALOR TOTAL ENTRE A NF GLOBAL E REMESSA.

Informações Complementares

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

Nota Número 09430 Data: 23/11/2009 Hora: 14:56:44

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

 

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

Nota Número              : 09430

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 8.0

Pacote                   : 00001

Agrupamento              : 00001

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

Referência às notas relacionadas:

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

 

09089  - 00001 - 8.0    - 00001  - DIFERENÇA NO VALOR TOTAL ENTRE A NF GLOBAL E REMESSA.

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

O VALOR TOTAL DA NOTA DE REMESSA ESTÁ DIFERENTE DA GLOBAL

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

Palavras Chave:

REMESSA - NOTA - FISCAL - GLOBAL - DIFERENTE - ANTIDUMPING - IPI - II

/PWS/SAPMZYCI016

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

Objetos da nota:

REPS /PWS/MZYCI016F01

 

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

Modificações efetuadas em REPS /PWS/MZYCI016F01

 

...

          ( itab_zycit100-vlseg / itab_zycit044-menge ) *

                                     itab_zycit044-qtd_item.

      ELSE.

        it_zycee007-netins =

            ( itab_zycit036_di-vlmov / itab_zycit044-menge ) *

                                        itab_zycit044-qtd_item.

      ENDIF.

    ELSEIF itab_zycit036-codigo = 'II'.

      IF /pws/zycit062-arbase EQ 'X' AND

        NOT itab_zycit036_di-vlreal IS INITIAL.

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

        it_zycee007-netins =

* << Fim da exclusão

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

        v_despesas =

* << Fim da inclusão

          ( itab_zycit100-vlii / itab_zycit044-menge ) *

                                     itab_zycit044-qtd_item.

      ELSE.

        v_despesas         = itab_zycit036-vlreal /

          itab_zycit044-menge * itab_zycit044-qtd_item.

      ENDIF.

    ELSEIF itab_zycit036-codigo = 'IPI'.

      IF /pws/zycit062-arbase EQ 'X' AND

        NOT itab_zycit036_di-vlreal IS INITIAL.

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

        it_zycee007-netins =

* << Fim da exclusão

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

        v_ipi =

* << Fim da inclusão

          ( itab_zycit100-vlipi / itab_zycit044-menge ) *

                                     itab_zycit044-qtd_item.

      ELSE.

        v_ipi              = itab_zycit036-vlreal /

          itab_zycit044-menge * itab_zycit044-qtd_item.

      ENDIF.

    ELSEIF itab_zycit036-codigo = 'ICMS'.

      IF /pws/zycit062-arbase EQ 'X' AND

        NOT itab_zycit036_di-vlreal IS INITIAL.

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

        it_zycee007-netins =

* << Fim da exclusão

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

        v_icms =

* << Fim da inclusão

          ( itab_zycit100-vlicms / itab_zycit044-menge ) *

                                     itab_zycit044-qtd_item.

      ELSE.

        v_icms              = ( itab_zycit036-vlreal /

          itab_zycit044-menge * itab_zycit044-qtd_item ).

      ENDIF.

    ENDIF.

  ENDLOOP.

  READ TABLE itab_zycit042_d WITH KEY

       nrseq = itab_zycit044-nrseq

...

 

...

       ebelp = itab_zycit044-ebelp.

  IF sy-subrc EQ 0 AND itab_zycit100-codregtripiscofi NE '3' AND

  itab_zycit100-codregtripiscofi NE '5'..

    v_vlpis         = itab_zycit100-vlpis /

    itab_zycit044-menge * itab_zycit044-qtd_item.

    v_vlcofins      = itab_zycit100-vlcofins /

    itab_zycit044-menge * itab_zycit044-qtd_item.

    v_vldp_044 = v_vldp_044 + v_vlpis.

    v_vldp_044 = v_vldp_044 + v_vlcofins.

  ENDIF.

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

  itab_zycit044-vldp = itab_zycit042_d-vldp.

* << Fim da inclusão

  v_outras = ( itab_zycit044-vldp /

             itab_zycit044-menge * itab_zycit044-qtd_item ) +

             ( itab_zycit042_d-vldpii /

             itab_zycit044-menge * itab_zycit044-qtd_item ) .

  v_outras_ic =  ( itab_zycit044-vldp /

            itab_zycit044-menge * itab_zycit044-qtd_item ) + v_vldp_044.

  it_zycee007-netoth = v_despesas + v_outras + v_ipi +

          v_vldp_044 .

  it_zycee007-netpr   = itab_zycit044-netpr.

  v_total = ( ( it_zycee007-netpr * itab_zycit044-qtd_item ) +

...