CE PLUS - Nota 010193
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal
Data/Hora da Publicação: 26/05/2010 00:00:00
Data/Hora Última Alteração: 23/02/2011 09:23:21
Descrição da Nota: VALOR DAS DESPESAS RATEADAS PELO VALOR CIF.
Sintoma
O valor das despesas rateadas pelo valor CIF estão sendo lançadas erradas na nota fiscal em
processos que possuam itens com moedas diferentes.
Solução
Ajustado programa para converter o valor da mercadoria para a mesma moeda da DI para realizar o
rateio das despesas.
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 10193 Data: 26/05/2010 Hora: 09:04:54
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 10193
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 8.0
Pacote : 00003
Agrupamento : 00023
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
09965 - 00001 - 8.0 - 00003 - VALOR DAS DESPESAS NA NOTA ESTA DIFERENTE DAS MENSAGENS E DI.
----------------------------------------------------------------------------------------------------
VALOR DAS DESPESAS RATEADAS PELO VALOR CIF.
----------------------------------------------------------------------------------------------------
Palavras Chave:
RATEIO - DESPESA - VALOR - REALIZADO - CIF - NOTA - FISCAL - GLOBAL
/PWS/SAPMZYCI016
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
CHANGING v_vlfre .
PERFORM retorna_decimais
USING /pws/zycit085-waersfob
CHANGING v_vlfre.
ENDIF.
PERFORM taxa_converte USING /pws/zycit085-waersfob
/pws/zycit085-dttax
CHANGING v_taxa_desp.
IF NOT v_taxa_desp IS INITIAL.
itab_zycit100-vlfre = itab_zycit100-vlfre / v_taxa_desp.
* >> Início da inclusão: FORM SELECIONA_DESPESAS
IF itab_zycit100-waersbem NE /pws/zycit085-waersfob.
itab_zycit100-vlfob =
( itab_zycit100-vlfob * itab_zycit100-dttaxbem )
/ v_taxa_desp.
ENDIF.
* << Fim da inclusão
itab_zycit100-vlseg = itab_zycit100-vlseg /
/pws/zycit085-ukursseg.
PERFORM retorna_decimais:
USING /pws/zycit085-waersseg
CHANGING itab_zycit100-vlseg,
USING /pws/zycit085-waersfob
CHANGING itab_zycit100-vlfre.
ENDIF.
v_vldp = itab_zycit049_a-vlreal *
( ( itab_zycit100-vlfob +
...