CE PLUS - Nota 004896
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: LI
Data/Hora da Publicação: 03/10/2007 00:00:00
Data/Hora Última Alteração: 03/09/2012 17:03:51
Descrição da Nota: O PREÇO UNITÁRIO DA LI ESTÁ SENDO O FOB MESMO COM INCOTERM DIFERENTE.
Sintoma
Na LI, pasta mercadoria, subpasta 1, o campo preço (NETPR) deverá ser conforme o incoterm. Neste
caso, está levando o valor unitário FOB e deveria levar o valor unitário CFR.
Solução
selecionado o valor unitário da mercadoria de acordo com o incoterm.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04896 Data: 03/10/2007 Hora: 15:19:28
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04896
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00003
Agrupamento : 00015
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
03906 - 00001 - 7.0 - 00002 - CÁLCULO INCORRETO DO VALOR FOB DA MERCADORIA NO LOCAL DE EMBARQUE
----------------------------------------------------------------------------------------------------
O PREÇO UNITÁRIO DA LI ESTÁ SENDO O FOB MESMO COM INCOTERM DIFERENTE.
----------------------------------------------------------------------------------------------------
Palavras Chave:
PREÇO UNITÁRIO - LI - VALOR FOB - NETPR
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI020F01
REPS /PWS/MZYCI020I01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020F01
...
SELECT * FROM /pws/zycit030
INTO TABLE itab_zycit030
* >> Início da exclusão: FORM VERIFICA_ITENS
WHERE codigo = 'FOB'
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_ITENS
WHERE codigo = /pws/zycit031-inco1_ci
* << Fim da inclusão
AND land1 = t001-land1
AND bukrs = /pws/zycie078-bukrs.
...
...
ELSE.
it_zycit079-qtdest = it_zycit079-qtd_iten * it_zycit079-fator.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
CONCATENATE /pws/zycie079-steuc1(4) /pws/zycie079-steuc1+5(2)
/pws/zycie079-steuc1+8(2) INTO /pws/zycie079-ncm.
MODIFY it_zycit079.
ENDLOOP.
* >> Início da exclusão: FORM VERIFICA_ITENS
CLEAR /pws/zycie078-vltot.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_ITENS
CLEAR /pws/zycie078-vlmerc.
* << Fim da inclusão
PERFORM verifica_vltotal_local_emb.
...
...
SELECT SINGLE * FROM t001 WHERE bukrs EQ /pws/zycie078-bukrs.
SELECT * FROM /pws/zycit030
INTO TABLE itab_zycit030
* >> Início da exclusão: FORM VERIFICA_VLTOTAL_LOCAL_EMB
WHERE codigo EQ /pws/zycit031-inco1_ci
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_VLTOTAL_LOCAL_EMB
WHERE codigo EQ 'FOB'
* << Fim da inclusão
AND land1 EQ t001-land1
AND bukrs EQ /pws/zycie078-bukrs.
...
...
v_vlmerc = v_vlmerc + itab_zycit030_aux-valor .
ELSE.
v_vlmerc = v_vlmerc - itab_zycit030_aux-valor.
ENDIF.
AT END OF codigo.
it_zycit079_a-netpr = v_vlmerc.
ENDAT.
ENDLOOP.
FREE itab_zycit030_aux.
ENDIF.
* >> Início da exclusão: FORM VERIFICA_VLTOTAL_LOCAL_EMB
/pws/zycie078-vltot = /pws/zycie078-vltot +
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_VLTOTAL_LOCAL_EMB
/pws/zycie078-vlmerc = /pws/zycie078-vlmerc +
* << Fim da inclusão
it_zycit079_a-netpr * it_zycit079_a-qtd_iten.
ENDLOOP.
ENDFORM.
...
...
LOOP AT it_zycit079.
v_tabix = sy-tabix.
IF /pws/zycie078-drawback EQ '1'.
READ TABLE itab_itens_aux WITH KEY ebeln = it_zycit079-ebeln
ebelp = it_zycit079-ebelp.
IF sy-subrc EQ 0.
READ TABLE it_zycit245 WITH KEY nrseqd = /pws/zycie078-nrseqd.
IF sy-subrc EQ 0.
IF /pws/zycie078-tipodb = 'G'.
it_zycit245-sdocomp_t = it_zycit245-netpr_t -
* >> Início da exclusão: FORM VERIFICA_SALDO_DRAWBACK
/pws/zycie078-vlmerc.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_SALDO_DRAWBACK
/pws/zycie078-vltot.
* << Fim da inclusão
IF v_salvo_drawback IS INITIAL.
it_zycit245-vinculado = it_zycit245-vinculado +
/pws/zycie078-qtdest.
it_zycit245-vlvinc = it_zycit245-vlvinc +
v_vlfobli.
ENDIF.
MODIFY it_zycit245 TRANSPORTING sdocomp_t vinculado vlvinc
WHERE nrseqd = /pws/zycie078-nrseqd.
MOVE it_zycit079[] TO it_zycit079_aux4[].
ELSE.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020F01
DATA: v_netpr LIKE /pws/zycie001-netpr.
* >> Início da exclusão: MODULE calc_total INPUT
CLEAR /pws/zycie078-vlmerc.
* << Fim da exclusão
* >> Início da inclusão: MODULE calc_total INPUT
CLEAR /pws/zycie078-vltot.
* << Fim da inclusão
IF NOT it_zycit079[] IS INITIAL.
LOOP AT it_zycit079.
CLEAR v_netpr.
PERFORM trata_decimais USING it_zycit079-waers
CHANGING it_zycit079-netpr.
v_netpr = it_zycit079-qtd_iten * it_zycit079-netpr.
* >> Início da exclusão: MODULE calc_total INPUT
/pws/zycie078-vlmerc = v_netpr + /pws/zycie078-vlmerc.
* << Fim da exclusão
* >> Início da inclusão: MODULE calc_total INPUT
/pws/zycie078-vltot = v_netpr + /pws/zycie078-vltot.
* << Fim da inclusão
IF NOT it_zycit079-waers IS INITIAL.
/pws/zycie078-waers = it_zycit079-waers.
ENDIF.
ENDLOOP.
ENDIF.
...
...
READ TABLE it_zycit003_aux2 WITH KEY
ebeln = it_zycit079-ebeln
ebelp = it_zycit079-ebelp.
READ TABLE it_zycit245 WITH KEY codcomp =
it_zycit003_aux2-matnr.
MOVE:
it_zycit245-nritem+2 TO it_zycit079-item_drawback,
* >> Início da exclusão: MODULE user_command_0810 INPUT
/pws/zycie078-vltot TO it_zycit079-vl_prod_drawback.
* << Fim da exclusão
* >> Início da inclusão: MODULE user_command_0810 INPUT
/pws/zycie078-vlmerc TO it_zycit079-vl_prod_drawback.
* << Fim da inclusão
it_zycit079-qtd_drawback =
( it_zycit079-qtd_iten * /pws/zycie078-qtdest ) / v_qtdtot.
MODIFY it_zycit079 INDEX 1.
ENDIF.
ENDLOOP.