CE PLUS - Nota 002706
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 15/12/2006 00:00:00
Data/Hora Última Alteração: 20/06/2011 13:49:02
Descrição da Nota: AJUSTE NO FOB E DUMP AO GERAR DI
Sintoma
O valor fob da carga 2 não está igual ao da planilha.
A diferença está no último item (vide valor aduaneiro).
Dump ao gerar DI (anexo). Existe duas faturas com moedas diferentes (uma em JPY e a outra em ESP)
O peso líquido da DI veio da fatura e deve vir do embarque (campo peso liquido desembarcado -
NTGEWD).
Solução
atualizado o programa para quando for granel fazer o calculo corretamente
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 02706 Data: 15/12/2006 Hora: 09:41:17
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 02706
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00025
Agrupamento : 00144
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
02453 - 00002 - 6.0 - 00025 - O VALOR DO RATEIO DO FRETE NA DI GRANEL ESTÁ CALCULADO ERRADO.
02658 - 00001 - 6.0 - 00025 - DI
----------------------------------------------------------------------------------------------------
AJUSTE NO FOB E DUMP AO GERAR DI
----------------------------------------------------------------------------------------------------
Palavras Chave:
FOB - DI - DUMP
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F01
REPS /PWS/ZYCIR006
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F01
...
IF itab_zycit001-inco1 EQ 'DDU'.
IF NOT v_dif_frn IS INITIAL.
t_vmle = t_vmle + ( /pws/zycie003-ntgew / v_ntgew ) * v_dif_frn.
ENDIF.
ELSE.
IF NOT v_dif_frn IS INITIAL.
t_vmle = t_vmle + ( /pws/zycie003-ntgew / v_ntgew ) * v_dif_frn.
ENDIF.
t_ivmle2 = t_vmle2 * /pws/zycie100a-dttaxbem.
ENDIF.
* >> Início da exclusão: FORM LOAD_IFRE
IF s_inco1_ci NE 'FOB'.
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_IFRE
IF s_inco1_ci NE 'FOB' and
v_ntgewd is initial.
.
* << Fim da inclusão
IF NOT /pws/zycie093-ternacion IS INITIAL.
v_ternacion = /pws/zycie093-ternacion.
PERFORM trata_decimais USING /pws/zycie085-waersfre
v_ternacion .
IF /pws/zycie085-waersfob NE /pws/zycie093-waersfre .
PERFORM: calc_conv_moeda:
USING /pws/zycie093-waersfre
/pws/zycie085-waersfob
CHANGING v_ternacion.
t_vmle = t_vmle - ( ( /pws/zycie003-ntgew / v_tntgew )
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCIR006