CE PLUS - Nota 009381
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: LI
Data/Hora da Publicação: 13/11/2009 00:00:00
Data/Hora Última Alteração: 23/02/2011 10:05:56
Descrição da Nota: O VALOR TOTAL DA MERCADORIA NO LOCAL DE EMBARQUE ESTÁ ERRADO
Sintoma
Quando a LI possui mais de 1 pedido o valor total da mercadoria no local de embarque está sendo
calculado incorretamente.
Solução
Corrigido tratamento das condições dos pedidos.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 09381 Data: 13/11/2009 Hora: 17:08:37
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 09381
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00001
Agrupamento : 00001
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
04896 - 00001 - 7.0 - 00003 - O PREÇO UNITÁRIO DA LI ESTÁ SENDO O FOB MESMO COM INCOTERM DIFERE
----------------------------------------------------------------------------------------------------
O VALOR TOTAL DA MERCADORIA NO LOCAL DE EMBARQUE ESTÁ ERRADO
----------------------------------------------------------------------------------------------------
Palavras Chave:
VALOR - MERCADORIA - LOCAL - EMBARQUE - PEDIDO - CONDIÇÕES - PREÇO - LI
/PWS/SAPMZYCI020
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI020F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020F01
...
FORM verifica_vltotal_local_emb.
* >> Início da inclusão: FORM VERIFICA_VLTOTAL_LOCAL_EMB
DATA: itab_komv_aux LIKE itab_komv OCCURS 0 WITH HEADER LINE.
* << Fim da inclusão
...
...
WHERE dimid = 'MASS'.
IF NOT it_zycit079_a[] IS INITIAL.
SELECT knumv ebeln FROM ekko
INTO CORRESPONDING FIELDS OF TABLE itab_komk_aux
FOR ALL ENTRIES IN it_zycit079_a
WHERE ebeln = it_zycit079_a-ebeln.
MOVE itab_komk_aux[] TO itab_komk[].
ENDIF.
FREE itab_komv.
LOOP AT itab_komk.
* >> Início da inclusão: FORM VERIFICA_VLTOTAL_LOCAL_EMB
REFRESH itab_komv.
* << Fim da inclusão
CALL FUNCTION 'RV_KONV_SELECT'
EXPORTING
comm_head_i = itab_komk
general_read = 'X'
TABLES
tkomv = itab_komv
EXCEPTIONS
OTHERS = 1.
READ TABLE itab_komk_aux WITH KEY knumv = itab_komk-knumv.
itab_komv-ebeln = itab_komk_aux-ebeln.
MODIFY itab_komv TRANSPORTING ebeln
* >> Início da exclusão: FORM VERIFICA_VLTOTAL_LOCAL_EMB
WHERE knumv = itab_komv-knumv.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_VLTOTAL_LOCAL_EMB
WHERE knumv = itab_komk-knumv.
APPEND LINES OF itab_komv TO itab_komv_aux.
* << Fim da inclusão
ENDLOOP.
* >> Início da inclusão: FORM VERIFICA_VLTOTAL_LOCAL_EMB
REFRESH itab_komv.
itab_komv[] = itab_komv_aux[].
* << Fim da inclusão
SELECT SINGLE * FROM t001 WHERE bukrs EQ /pws/zycie078-bukrs.
SELECT * FROM /pws/zycit030
INTO TABLE itab_zycit030
WHERE codigo EQ 'FOB'
AND land1 EQ t001-land1
...