CE PLUS - Nota 005076
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 25/10/2007 00:00:00
Data/Hora Última Alteração: 22/02/2011 13:50:41
Descrição da Nota: RATEIO DO FRETE NA ANA
Sintoma
O programa esta rateando o frete corretamente.
Solução
Atualização do programa para considerar o peso liquido para realziar o rateio do frete.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 05076 Data: 25/10/2007 Hora: 11:43:48
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 05076
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00003
Agrupamento : 00018
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
04399 - 00001 - 7.0 - 00002 - AJUSTES NOS CALCULOS DE IMPOSTOS E NO RATEIO DOS VALORES DA ANA
----------------------------------------------------------------------------------------------------
RATEIO DO FRETE NA ANA
----------------------------------------------------------------------------------------------------
Palavras Chave:
RATEIO FRETE ANA PELO LIQUIDO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI059F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI059F01
...
ENDIF.
ENDIF.
IF NOT v_tcfr IS INITIAL.
IF s_inco1_ci EQ 'C&F' OR
s_inco1_ci EQ 'CIF'.
IF NOT v_usd IS INITIAL.
v_fat = /pws/zycie003-vlfre_fat *
/pws/zycie085-ukursfob / v_usd.
ENDIF.
ENDIF.
* >> Início da exclusão: FORM LOAD_IFRE
t_ivfre = ( ( t_ivmle2 + v_fat ) / v_tcfr ) * s_frvr.
v_tot_fre = ( ( t_ivmle2 + v_fat )
/ v_tcfr ) * v_frete_nm.
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_IFRE
t_ivfre = ( /pws/zycie003-ntgew / v_tntgew ) * s_frvr.
v_tot_fre = ( /pws/zycie003-ntgew / v_tntgew ) * v_frete_nm.
* << Fim da inclusão
IF s_inco1_ci EQ 'C&F' OR
s_inco1_ci EQ 'CIF'.
t_vmle2 = ( ( t_ivfre * v_usd ) / /pws/zycie085-ukursfob ) +
( ( itab_it-vlfob * v_usd ) / /pws/zycie085-ukursfob ).
ENDIF.
ENDIF.
IF /pws/zycie003-qtd_itend IS INITIAL.
CASE s_inco1_ci.
WHEN 'C&F'.
t_vldif = /pws/zycie003-vlfre_fat - v_tot_fre.
...