CE PLUS - Nota 004213
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 19/07/2007 00:00:00
Data/Hora Última Alteração: 09/03/2010 10:08:15
Descrição da Nota: DECLARAÇÃO DE IMPORTAÇÃO - CAMPO ITEM ADIÇÃO SISCOMEX
Sintoma
Não está gravando o campo "item adi sisco" na tabela /PWS/ZYCIT100.
Solução
Incluir tratamento para gerar sequencial e gravar este campo Item Adição SISCOMEX na Tabela
/PWS/ZYCIT100.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04213 Data: 19/07/2007 Hora: 17:17:47
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04213
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00002
Agrupamento : 00004
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
DECLARAÇÃO DE IMPORTAÇÃO - CAMPO ITEM ADIÇÃO SISCOMEX
----------------------------------------------------------------------------------------------------
Palavras Chave:
ADIÇÃO; SISCOMEX; TABELA /PWS/ZYCIT100
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F01
...
DELETE FROM /pws/zycit200 WHERE id = /pws/zycie085-nrseqdi.
MODIFY /pws/zycit200 FROM TABLE itab_zycit200.
DELETE FROM /pws/zycit100 WHERE nrseqdi = /pws/zycie085-nrseqdi.
CLEAR: itab_zycit100.
REFRESH: itab_zycit100.
LOOP AT itab_it.
MOVE-CORRESPONDING itab_it TO itab_zycit100.
APPEND itab_zycit100.
ENDLOOP.
MODIFY /pws/zycit100 FROM TABLE itab_zycit100.
* >> Início da inclusão: FORM SAVE_DATA
CLEAR a_ip.
LOOP AT itab_zycit100.
v_tabix = sy-tabix.
ON CHANGE OF itab_zycit100-adicao.
CLEAR a_ip.
ENDON.
IF itab_zycit100-item_adi_sisc IS INITIAL.
itab_zycit100-item_adi_sisc = a_ip = a_ip + 1.
UPDATE /pws/zycit100 SET
item_adi_sisc = itab_zycit100-item_adi_sisc
WHERE nrseqdi = itab_zycit100-nrseqdi
AND nrseq = itab_zycit100-nrseq
AND ebeln = itab_zycit100-ebeln
AND ebelp = itab_zycit100-ebelp
AND adicao = itab_zycit100-adicao.
MODIFY itab_zycit100 INDEX v_tabix.
ENDIF.
ENDLOOP.
* << Fim da inclusão
...