CE PLUS - Nota 010151
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 13/05/2010 00:00:00
Data/Hora Última Alteração: 22/02/2011 14:13:52
Descrição da Nota: RATEAR FRETE INTERNACIONAL DE ACORDO COM O PARAMETRIZADO.
Sintoma
O frete internacional não esta sendo rateado de acordo com o parametrizado.
Solução
Ajustado programa para realizar o rateio do frete internacional de acordo com o parametrizado.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 10151 Data: 13/05/2010 Hora: 16:38:31
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 10151
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00003
Agrupamento : 00021
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
05076 - 00001 - 7.0 - 00003 - RATEIO DO FRETE NA ANA
----------------------------------------------------------------------------------------------------
RATEAR FRETE INTERNACIONAL DE ACORDO COM O PARAMETRIZADO.
----------------------------------------------------------------------------------------------------
Palavras Chave:
ANA - FRETE - INTERNACIONAL - RATEIO - PARAMETRO - PESO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI059F01
REPS /PWS/MZYCI059X01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI059F01
...
FORM load_ifre USING p_tipo.
DATA v_fat LIKE /pws/zycie003-vlfre_fat.
* >> Início da inclusão: FORM LOAD_IFRE
DATA v_vlrealr TYPE /pws/zycie085-vlfob.
IF wa_zycit039f-land1 NE t001-land1.
CLEAR: wa_zycit039f.
SELECT SINGLE * FROM /pws/zycit039 INTO wa_zycit039f
WHERE codigo EQ 'FRETEI'
AND land1 EQ t001-land1.
wa_zycit039f-land1 = t001-land1.
ENDIF.
* << Fim da inclusão
SELECT SINGLE qtd_iten FROM /pws/zycit003 INTO /pws/zycie003-qtd_iten
WHERE nrseq EQ /pws/zycie003-nrseq
AND ebeln EQ /pws/zycie003-ebeln
AND ebelp EQ /pws/zycie003-ebelp.
IF NOT /pws/zycie003-qtd_itend IS INITIAL.
t_vmle3 = t_vmle_d2 = t_vmle = /pws/zycie003-vlreal *
/pws/zycie003-qtd_itend.
v_it_plan = /pws/zycie003-netpr * /pws/zycie003-qtd_itend.
ELSE.
t_vmle3 = t_vmle_d2 = t_vmle = /pws/zycie003-vlreal *
...
...
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 = ( /pws/zycie003-ntgew / v_tntgew ) * s_frvr.
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_IFRE
IF wa_zycit039f-divabs EQ 'X'.
DESCRIBE TABLE itab_it LINES v_line.
t_ivfre = s_frvr / v_line.
v_tot_fre = v_frete_nm / v_line.
ELSEIF wa_zycit039f-vlreal EQ 'X'.
v_vlrealr = t_vmle * itab_it-dttaxbem.
t_ivfre = ( v_vlrealr / v_tmle ) * s_frvr.
v_tot_fre = ( v_vlrealr / v_tmle ) * v_frete_nm.
ELSEIF wa_zycit039f-proporplan EQ 'X'.
t_ivfre = ( v_it_plan / v_tot_plan ) * s_frvr.
v_tot_fre = ( v_it_plan / v_tot_plan ) * v_frete_nm.
ELSE.
t_ivfre = ( /pws/zycie003-ntgew / v_tntgew ) * s_frvr.
* << Fim da inclusão
v_tot_fre = ( /pws/zycie003-ntgew / v_tntgew ) * v_frete_nm.
* >> Início da inclusão: FORM LOAD_IFRE
ENDIF.
* << 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.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI059X01
...
* >> Início da inclusão:
DATA wa_zycit039f TYPE /pws/zycit039.
* << Fim da inclusão
DATA: END OF COMMON PART.