CE PLUS - Nota 003896
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: LI
Data/Hora da Publicação: 12/06/2007 00:00:00
Data/Hora Última Alteração: 23/02/2011 10:02:00
Descrição da Nota: AJUSTE NA LI PARA EXIBIR A QTDE. UM. ESTAT CORRETAMENTE
Sintoma
A LI não esta calculando corretamente o quantidade na unidade de medida estatistica.
Solução
Foi criado tratativa para passar pelo Form Converte_Um_Ncm ao exluir os itens.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 03896 Data: 12/06/2007 Hora: 13:44:12
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 03896
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00001
Agrupamento : 00170
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
00425 - 00001 - 6.0 - 00021 - NF REMESSA LEVA CAMPO REFERÊNCIA ESTÁ INCORRETO.
----------------------------------------------------------------------------------------------------
AJUSTE NA LI PARA EXIBIR A QTDE. UM. ESTAT CORRETAMENTE
----------------------------------------------------------------------------------------------------
Palavras Chave:
MODULE LOAD_DATA, CONVERTE_UM_NCM
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI020O01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020O01
...
DELETE itab_itens WHERE ebeln EQ it_zycit079-ebeln
AND ebelp EQ it_zycit079-ebelp.
CLEAR v_novo_item.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
LOOP AT it_079_del.
* >> Início da inclusão: MODULE LOAD_DATA
READ TABLE it_ekpo WITH KEY ebeln = it_079_del-ebeln
ebelp = it_079_del-ebelp.
IF sy-subrc NE 0.
SELECT SINGLE * FROM ekpo INTO it_ekpo
WHERE ebeln EQ it_079_del-ebeln
AND ebelp EQ it_079_del-ebelp.
IF sy-subrc EQ 0.
APPEND it_ekpo.
ELSE.
CONTINUE.
ENDIF.
ENDIF.
PERFORM converte_um_ncm USING it_ekpo-matnr
CHANGING it_079_del-meins
it_079_del-qtd_iten.
* << Fim da inclusão
IF /pws/zycie078-qtdest GE it_079_del-qtd_iten.
/pws/zycie078-qtdest = /pws/zycie078-qtdest -
it_079_del-qtd_iten.
ENDIF.
DELETE it_079_del WHERE ebeln EQ it_079_del-ebeln
AND ebelp EQ it_079_del-ebelp.
ENDLOOP.
ELSE.
CLEAR /pws/zycie078-qtdest.
ENDIF.
...