CE PLUS - Nota 008149
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal Remessa
Data/Hora da Publicação: 09/03/2009 00:00:00
Data/Hora Última Alteração: 23/02/2011 09:18:53
Descrição da Nota: VALOR DE FRETE E SEGURO COM DIFERENÇA DE CENTAVOS
Sintoma
Valor de frete e seguro da nota fiscal de remessa está diferente da nota fiscal global.
Solução
Realizado ajuste para utilizar os valores já gravados na tabela /pws/zycit036 para frete e seguro.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 08149 Data: 09/03/2009 Hora: 14:39:24
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 08149
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00008
Agrupamento : 00088
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
04681 - 00001 - 7.0 - 00003 - NOTA FISCAL DE REMESSA COM FRETE EM MOEDA COM 5 CASAS DECIMAIS
----------------------------------------------------------------------------------------------------
VALOR DE FRETE E SEGURO COM DIFERENÇA DE CENTAVOS
----------------------------------------------------------------------------------------------------
Palavras Chave:
FRETE - SEGURO - NOTA - FISCAL - REMESSA - ARREDONDAMENTO - RATEIO
/PWS/SAPMZYCI016
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
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
codigo = itab_zycit036-codigo.
IF itab_zycit036-codigo = 'FRETEI'.
* >> Início da exclusão: FORM VALORES_R
IF itab_zycit036_di-waers_real = /pws/zycbt007-waersb.
* << Fim da exclusão
it_zycee007-netfre =
* >> Início da exclusão: FORM VALORES_R
( ( itab_zycit036_di-vlreal ) /
itab_zycit044-menge * itab_zycit044-qtd_item ).
ELSE.
it_zycee007-netfre =
( ( itab_zycit036_di-vlreal * wa_zycit085-ukursfre ) /
itab_zycit044-menge * itab_zycit044-qtd_item ).
ENDIF.
* << Fim da exclusão
* >> Início da inclusão: FORM VALORES_R
( itab_zycit036_di-vlmov / itab_zycit044-menge ) *
itab_zycit044-qtd_item.
* << Fim da inclusão
ELSEIF itab_zycit036-codigo = 'SEGURO'.
* >> Início da exclusão: FORM VALORES_R
IF itab_zycit036_di-waers_real = /pws/zycbt007-waersb.
it_zycee007-netins =
( ( itab_zycit036_di-vlreal ) /
itab_zycit044-menge * itab_zycit044-qtd_item ).
ELSE.
* << Fim da exclusão
it_zycee007-netins =
* >> Início da exclusão: FORM VALORES_R
( ( itab_zycit036_di-vlreal * wa_zycit085-ukursseg ) /
itab_zycit044-menge * itab_zycit044-qtd_item ).
ENDIF.
* << Fim da exclusão
* >> Início da inclusão: FORM VALORES_R
( itab_zycit036_di-vlmov / itab_zycit044-menge ) *
itab_zycit044-qtd_item.
* << Fim da inclusão
ELSEIF itab_zycit036-codigo = 'II'.
v_despesas = itab_zycit036-vlreal /
itab_zycit044-menge * itab_zycit044-qtd_item.
ELSEIF itab_zycit036-codigo = 'IPI'.
v_ipi = itab_zycit036-vlreal /
itab_zycit044-menge * itab_zycit044-qtd_item.
ELSEIF itab_zycit036-codigo = 'ICMS'.
...