CE PLUS - Nota 011350
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: LI
Data/Hora da Publicação: 25/07/2011 00:00:00
Data/Hora Última Alteração: 10/08/2011 13:39:37
Descrição da Nota: VALOR FOB NA LI ESTÁ SENDO CALCULADA INCORRETAMENTE.
Sintoma
Valor FOB na LI está sendo calculada incorretamente.
Solução
Atualizado valor do calculo do valor FOB para incoterms Custo e Frete.
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 11350 Data: 25/07/2011 Hora: 09:43:56
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 11350
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 8.0
Pacote : 00008
Agrupamento : 00079
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
10836 - 00001 - 8.0 - 00006 - FAVOR ABRIR O CAMPO VALOR TOTAL LOCAL DE EMBARQUE NA LI.
----------------------------------------------------------------------------------------------------
VALOR FOB NA LI ESTÁ SENDO CALCULADA INCORRETAMENTE.
----------------------------------------------------------------------------------------------------
Palavras Chave:
VALOR FOB - LI - CALCULAR CONDITIONS
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI020F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020F01
...
FORM verifica_vltotal_local_emb.
data: v_vlmerc_aux LIKE /pws/zycit003-netpr.
* << Fim da inclusão
...
...
AT END OF codigo.
it_zycit079_a-netpr = v_vlmerc.
READ TABLE it_zycit079 WITH KEY
nrseqli = it_zycit079_a-nrseqli
tpli = it_zycit079_a-tpli
ebeln = it_zycit079_a-ebeln
ebelp = it_zycit079_a-ebelp.
IF sy-subrc = 0.
it_zycit079-vlmerc = v_vlmerc * it_zycit079_a-menge.
* >> Início da inclusão: FORM VERIFICA_VLTOTAL_LOCAL_EMB
v_vlmerc_aux = v_vlmerc_aux +
( it_zycit079_a-netpr * it_zycit079_a-menge ) .
* << Fim da inclusão
MODIFY it_zycit079 TRANSPORTING vlmerc
WHERE nrseqli = it_zycit079_a-nrseqli
AND tpli = it_zycit079_a-tpli
AND ebeln = it_zycit079_a-ebeln
AND ebelp = it_zycit079_a-ebelp.
ENDIF.
ENDAT.
ENDLOOP.
FREE itab_zycit030_aux.
ENDIF.
ENDIF.
IF /pws/zycie078-vlmerc IS INITIAL.
* >> Início da exclusão: FORM VERIFICA_VLTOTAL_LOCAL_EMB
/pws/zycie078-vlmerc = /pws/zycie078-vlmerc +
it_zycit079_a-netpr * it_zycit079_a-qtd_iten.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_VLTOTAL_LOCAL_EMB
/pws/zycie078-vlmerc = v_vlmerc_aux.
* << Fim da inclusão
ENDIF.
ENDLOOP.
ENDFORM.
...