CE PLUS - Nota 004617
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal
Data/Hora da Publicação: 04/09/2007 00:00:00
Data/Hora Última Alteração: 09/03/2010 10:27:28
Descrição da Nota: NOTA FISCAL
Sintoma
Quando cria a NF global de um embarque em que o item não é cadastrado o sistema não está preenchendo
a descrição do item na NF, como o item não é cadastrado a descrição deverá ser buscada na descrição
do item da DI/DSI. Descrição obrigatória na J1B1N. Este erro só ocorre quando tem DSI.
Solução
Ao salvar a DSI o programa deve preencher o campo Especificação tabela /PWS/ZYCIT100.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04617 Data: 04/09/2007 Hora: 16:15:57
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04617
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00003
Agrupamento : 00013
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
NOTA FISCAL
----------------------------------------------------------------------------------------------------
Palavras Chave:
J1B1N; ITEM NÃO CADASTRADO SAP; SEM MATERIAL; DESCRIÇÃO
ITEM DI/DSI; ESPECIFICAÇÃO /PWS/ZYCIT100-ESPECIFICACAO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI058F03
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI058F03
...
APPEND rtexti.
ENDIF.
ENDLOOP.
ELSE.
READ TABLE itab_ekpo WITH KEY ebeln = itab_it-ebeln
ebelp = itab_it-ebelp.
rtexti-tdformat = '*'.
rtexti-tdline = itab_ekpo-txz01.
APPEND rtexti.
ENDIF.
* >> Início da exclusão: FORM FILL_DESC
* READ TABLE rtexti INDEX 1.
* CLEAR rtexti-tdformat.
* itab_it-especificacao = rtexti-tdline.
* MODIFY rtexti INDEX 1.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DESC
IF itab_it-especificacao IS INITIAL.
IF NOT rtexti[] IS INITIAL.
READ TABLE rtexti INDEX 1.
itab_it-especificacao = rtexti-tdline.
ELSE.
READ TABLE itab_zycit003 WITH KEY ebeln = itab_it-ebeln
ebelp = itab_it-ebelp.
itab_it-especificacao = itab_zycit003-descr.
ENDIF.
ENDIF.
* << Fim da inclusão
ENDFORM.
FORM adic_li_data.
DATA: local_it_109 LIKE /pws/zycie109 OCCURS 0 WITH HEADER LINE.
LOOP AT it_alist.
REFRESH: local_it_109.
SELECT * FROM /pws/zycit109 INTO TABLE local_it_109 WHERE
nrseqli = it_alist-nrseqli AND
tpli = 'N'.
IF sy-subrc EQ 0.
LOOP AT local_it_109.
...