CE PLUS - Nota 002467
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Embarque
Data/Hora da Publicação: 17/11/2006 00:00:00
Data/Hora Última Alteração: 20/06/2011 13:27:19
Descrição da Nota: SISTEMA SOLICITA QUE SEJA CRIADA LI PARA ITEM QUE JÁ POSSUI VINCULAÇÃO
Sintoma
o sistema está soilcitando que seja criada LI para item com LI vinculada. Este é um processo de
Drawback e todos os itens já possuem LI criadas para ele e que já estão vinculadas ao embarque e
também vinculadas a um Ato Concessório. Esta mensagem de solicitação aparece toda vez que eu clico
em salvar o embarque.
Solução
Atualização no programa de embarque para verificar se item possui LI antes de emitir mensagem de
obrigatoriedade.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 02467 Data: 17/11/2006 Hora: 10:17:54
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 02467
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 6.0
Pacote : 00025
Agrupamento : 00140
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
SISTEMA SOLICITA QUE SEJA CRIADA LI PARA ITEM QUE JÁ POSSUI VINCULAÇÃO
----------------------------------------------------------------------------------------------------
Palavras Chave:
LI - EMBARQUE - VINCULAÇÃO LI - OBRIGATORIEDADE LI
DRAWBACK
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI001F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001F02
...
SELECT ebeln ekorg ekgrp FROM ekko INTO TABLE itab_ekko_aux
FOR ALL ENTRIES IN itab_zycit003
WHERE ebeln EQ itab_zycit003-ebeln.
ENDIF.
LOOP AT itab_zycit003.
* >> Início da inclusão: FORM SELECAO_LEGISLACAO
if itab_zycit003-NRSEQLI is initial.
* << Fim da inclusão
READ TABLE itab_t604f WITH KEY steuc = itab_zycit003-j_1bnbm
obrigli = 'X'.
IF sy-subrc = 0.
MOVE: 'X' TO itab_zycit354-liobrig.
v_grava = 'X'.
...
...
READ TABLE itab_zycit234 WITH KEY matnr = itab_zycit003-matnr
obrigli = 'X'.
IF sy-subrc = 0.
MOVE: 'X' TO itab_zycit354-liobrig.
v_grava = 'X'.
* >> Início da inclusão: FORM SELECAO_LEGISLACAO
ENDIF.
* << Fim da inclusão
ENDIF.
ENDIF.
READ TABLE itab_zycit234 WITH KEY matnr = itab_zycit003-matnr.
IF sy-subrc = 0.
IF NOT itab_zycit234-datade IS INITIAL.
...
...
CLEAR: v_ped, v_item.
CONCATENATE text-216 itab_zycit003-ebeln INTO v_ped
SEPARATED BY space.
CONCATENATE text-217 itab_zycit003-ebelp INTO v_item
SEPARATED BY space.
* >> Início da exclusão: FORM LOG_MENSAGENS
IF itab_zycit354-liobrig EQ 'X'.
* << Fim da exclusão
* >> Início da inclusão: FORM LOG_MENSAGENS
IF itab_zycit354-liobrig EQ 'X'
and itab_zycit003-nrseqli is initial.
* << Fim da inclusão
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = '/PWS/ZYCIM'
msgty = 'W'
msgv1 = v_ped
...