CE PLUS - Nota 011791
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: LI
Data/Hora da Publicação: 16/12/2011 17:10:14
Data/Hora Última Alteração: 16/12/2011 17:10:14
Descrição da Nota: ERRO NO VALOR DA MERCADORIA AO VINCULAR SCHEDULE AGREEMENT
Sintoma
Ao vincular Schedule Agreement a LI o valor da mercadoria está diferente do informado no programa de
remessa.
Solução
Ajustado programa para utilizar a tabela KOMV caso não encontre registros na tabela A016.
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 11791 Data: 16/12/2011 Hora: 17:04:08
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 11791
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00010
Agrupamento : 00097
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote Descrição Breve
10468 - 00001 - 8.0 - 00004 - AJUSTE PREENCHIMENTO ESPECIFICAÇÃO TÉCNICA E VALOR NO LOCAL EMBARQ
----------------------------------------------------------------------------------------------------
Texto Rápido:
ERRO NO VALOR DA MERCADORIA AO VINCULAR SCHEDULE AGREEMENT
----------------------------------------------------------------------------------------------------
Palavras Chave:
LI - VALOR - MERCADORIA - SCHEDULE - AGREEMENT -
/PWS/SAPMZYCI020
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI020F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020F01
...
knumh = itab_a016-knumh AND
krech IN ('C','B') AND
loevm_ko = space .
LOOP AT itab_konp.
READ TABLE itab_a016 WITH KEY knumh = itab_konp-knumh.
itab_konp-ebeln = itab_a016-evrtn.
itab_konp-ebelp = itab_a016-evrtp.
MODIFY itab_konp TRANSPORTING ebeln ebelp.
ENDLOOP.
ELSE.
* >> Início da exclusão: FORM VERIFICA_ITENS
MESSAGE i015 WITH text-433.
* << Fim da exclusão
ENDIF.
ENDIF.
ENDIF.
IF NOT itab_itens_aux[] IS INITIAL.
SELECT * FROM ekpo INTO TABLE it_ekpo
FOR ALL ENTRIES IN itab_itens_aux
WHERE ebeln = itab_itens_aux-ebeln.
ENDIF.
SELECT * FROM /pws/zycit287
INTO TABLE it_zycit287
...
...
( itab_itens_aux-menge - it_zycit079-menge ).
MOVE itab_itens_aux-menge TO it_zycit079-menge.
ENDIF.
IF itab_itens_aux-loekz EQ 'L'.
MESSAGE w061 WITH text-014
itab_itens_aux-ebeln itab_itens_aux-ebelp
text-015.
ENDIF.
LOOP AT itab_zycit030.
MOVE-CORRESPONDING itab_zycit030 TO itab_zycit030_aux.
* >> Início da exclusão: FORM VERIFICA_ITENS
IF itab_itens_aux-bstyp = 'L'.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_ITENS
IF itab_itens_aux-bstyp = 'L'
AND NOT itab_konp[] IS INITIAL.
* << Fim da inclusão
LOOP AT itab_konp WHERE ebeln = it_zycit079-ebeln AND
ebelp = it_zycit079-ebelp AND
kschl = itab_zycit030-kschl.
PERFORM retorna_decimais USING itab_konp-konwa
CHANGING itab_konp-kbetr.
IF itab_konp-krech EQ 'B'.
itab_zycit030_aux-valor = itab_konp-kbetr /
it_zycit079-menge .
APPEND itab_zycit030_aux.
ELSE.
...
...
ENDIF.
ENDIF.
ENDLOOP.
ELSE.
CLEAR v_ebelp.
CONCATENATE '0' it_zycit079-ebelp INTO v_ebelp.
LOOP AT itab_komv
WHERE kposn EQ v_ebelp
AND kschl EQ itab_zycit030-kschl
AND ebeln EQ it_zycit079-ebeln.
* >> Início da exclusão: FORM VERIFICA_ITENS
IF NOT it_zycit079-menge IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_ITENS
IF itab_itens_aux-bstyp = 'L' AND
NOT itab_komv-kbetr IS INITIAL AND
NOT itab_komv-kpein IS INITIAL.
itab_zycit030_aux-valor = itab_komv-kbetr
/ itab_komv-kpein.
APPEND itab_zycit030_aux.
ELSEIF NOT it_zycit079_a-menge IS INITIAL.
* << Fim da inclusão
itab_zycit030_aux-valor = itab_komv-kwert /
it_zycit079-menge .
* >> Início da inclusão: FORM VERIFICA_ITENS
APPEND itab_zycit030_aux.
* << Fim da inclusão
ENDIF.
* >> Início da exclusão: FORM VERIFICA_ITENS
APPEND itab_zycit030_aux.
* << Fim da exclusão
ENDLOOP.
...