CE PLUS - Nota 012636
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 01/11/2012 15:20:54
Data/Hora Última Alteração: 01/11/2012 15:20:54
Descrição da Nota: ADIÇÃO/MERCADORIA/2, ERRO NOS CAMPOS: VALOR TOTAL E UNITÁRIO
Sintoma
O embarque tem incoterm CIF e é rodoviário, ou seja, tem frete em território nacional.
Na adição, pasta mercadoria 2, o campo valor total (A_VLRTOT) está zerado.
E na linha do pedido/item, o valor unitário (WA_ITB-VLREAL_AUX2) está errado. Está tirando o valor
do frete em território nacional e não pode.
Solução
Atualizado programa para corrigir o Valor Total e unitário em casos
rodoviário em CIF.
Versões Tratadas
9.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 12636 Data: 31/10/2012 Hora: 10:55:32
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 12636
Categoria : Erro de Programa
Prioridade : Baixa
Versão PW.CE : 9.0
Pacote : 00002
Agrupamento : 00136
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01036 - 00001 - 6.0 - 00022 - EXIBIÇÃO DE VALOR ADUANEIRO NA ADIÇÃO E DETALHE DO ITEM DIFERENTE
08231 - 00002 - 7.0 - 00009 - AJUSTE NO CALCULO DO VALOR DA MERCADORIA PARA CONFORME FEITO NA F
08788 - 00003 - 7.0 - 00010 - NA DI ESTÁ CONSIDERANDO O VALOR DO SEGURO EM DUPLICIDADE NAS ADIÇ
12153 - 00004 - 8.0 - 00011 - LEVA VALOR DE PARCELA QUANDO O PAGAMENTO É À VISTA
12627 - 00005 - 9.0 - 00002 - ERRO NO VALOR TOTAL DA PASTA CÂMBIO
----------------------------------------------------------------------------------------------------
ADIÇÃO/MERCADORIA/2, ERRO NOS CAMPOS: VALOR TOTAL E UNITÁRIO
----------------------------------------------------------------------------------------------------
Palavras Chave:
ADIÇÃO - MERCADORIA - 2 - VALOR TOTAL - VALOR UNITÁRIO
DI - CIF - RODOVIÁRIO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F01
...
CASE s_inco1_ci.
WHEN 'C&F'.
itab_it-vlreal_aux2 =
( ( ( itab_it-vlreal * itab_it-qtd_itenc3 ) +
itab_it-vldiffob + itab_it-vlfre_me ) / itab_it-qtd_itenc3 ) -
( itab_it-frn / itab_it-qtd_itenc3 ) .
WHEN 'CIF'.
itab_it-vlreal_aux2 =
( ( ( itab_it-vlreal * itab_it-qtd_itenc3 ) +
itab_it-vldiffob + itab_it-vlfre_me )
* >> Início da exclusão: FORM ADIC_LOAD
/ itab_it-qtd_itenc3 ) -
( itab_it-frn / itab_it-qtd_itenc3 ) .
* << Fim da exclusão
* >> Início da inclusão: FORM ADIC_LOAD
/ itab_it-qtd_itenc3 ).
* << Fim da inclusão
WHEN 'FOB'.
itab_it-vlreal_aux2 = itab_it-vlreal -
( itab_it-frn / itab_it-qtd_itenc3 ) .
WHEN 'C+I'.
itab_it-vlreal_aux2 = itab_it-vlreal .
ENDCASE.
ENDIF.
...
...
IF itab_it-qtd_itend IS INITIAL.
v_ttad_plan = v_ttad_plan + itab_it-netpr * itab_it-qtd_itenc3.
v_ttad_real = v_ttad_real + itab_it-vlreal * itab_it-qtd_itenc3.
ELSE.
v_ttad_plan = v_ttad_plan + itab_it-netpr * itab_it-qtd_itendc3.
v_ttad_real = v_ttad_real + itab_it-vlreal * itab_it-qtd_itendc3.
ENDIF.
ENDLOOP.
LOOP AT itab_itb.
* >> Início da inclusão: FORM ADIC_LOAD
a_vlrtot = a_vlrtot + ( ( itab_itb-qtd_iten * itab_itb-vlreal_aux2 )
+ itab_itb-frn ).
* << Fim da inclusão
a_vladu = a_vladu + itab_itb-vlmerc_ad.
a_vmler = a_vladu * itab_itb-dttaxbem.
a_qtdeest = a_qtdeest + itab_itb-qtdeumest.
a_uqtde = a_uqtde + itab_itb-unit_qtde.
a_adbase = a_adbase + itab_itb-baseantid.
...