CE PLUS - Nota 014203
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Embarque
Data/Hora da Publicação: 06/10/2014 15:12:46
Data/Hora Última Alteração: 06/10/2014 15:12:46
Descrição da Nota: ERRO NA MENSAGEM DE CONSISTÊNCIA DE NCM NO EMBARQUE
Sintoma
Erro na Mensagem de consistência de NCM no embarque
Solução
Atualizado programa para buscar a NCM do material para processos LATAM
Versões Tratadas
9.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 14203 Data: 11/09/2014 Hora: 11:17:50
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 14203
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 9.0
Pacote : 00008
Agrupamento : 00174
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
14092 - 00001 - 9.0 - 00008 - EMBARQUE: ATUALIZAÇÃO DE NCM E ALÍQUOTAS
----------------------------------------------------------------------------------------------------
ERRO NA MENSAGEM DE CONSISTÊNCIA DE NCM NO EMBARQUE
----------------------------------------------------------------------------------------------------
Palavras Chave:
MENSAGEM - CONSISTÊNCIA - NCM - EMBARQUE - AR - LATAM
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI001F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001F01
...
FORM verifica_itens.
* >> Início da inclusão: FORM VERIFICA_ITENS
DATA v_steuc TYPE marc-steuc.
* << Fim da inclusão
...
...
IF sy-subrc = 0.
CLEAR itab_ekpa.
READ TABLE itab_ekpa WITH KEY ebeln = itab_zycit003-ebeln.
ENDIF.
ENDIF.
IF itab_ekpa-lifn2 IS INITIAL.
MOVE itab_itens_aux-lifnr TO itab_zycit003-lifnr.
ELSE.
MOVE itab_ekpa-lifn2 TO itab_zycit003-lifnr.
ENDIF.
* >> Início da inclusão: FORM VERIFICA_ITENS
IF t001-land1 EQ 'BR'.
* << Fim da inclusão
IF itab_itens_aux-j_1bnbm NE itab_zycit003-j_1bnbm.
MOVE: itab_itens_aux-j_1bnbm TO itab_zycit003-j_1bnbm.
IF itab_zycit003-nrseqli IS INITIAL AND
itab_zycit100[] IS INITIAL.
PERFORM atualiza_impostos.
ELSE.
lv_ncm = 'X'.
* >> Início da inclusão: FORM VERIFICA_ITENS
ENDIF.
ENDIF.
ELSE.
SELECT SINGLE steuc FROM marc INTO v_steuc
WHERE matnr = itab_zycit003-matnr
AND werks = itab_zycit003-werks.
IF v_steuc NE itab_zycit003-j_1bnbm.
lv_ncm = 'X' .
* << Fim da inclusão
ENDIF.
ENDIF.
...