CE PLUS - Nota 011823
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 04/01/2012 15:12:43
Data/Hora Última Alteração: 04/01/2012 15:12:43
Descrição da Nota: PREENCHER INCOTERM DO ITEM
Sintoma
Ao acessar a DI de um processo antigo o campo Incoterm não está preenchido no detalhe do item.
Solução
Ajustado programa de DI para ao identificar que o campo inco1 da tabela /pws/zycit003 está em branco
preencha o campo de acordo com o pedido.
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 11823 Data: 03/01/2012 Hora: 16:10:07
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 11823
Categoria : Erro de Programa
Prioridade : Baixa
Versão PW.CE : 8.0
Pacote : 00010
Agrupamento : 00100
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
11157 - 00001 - 8.0 - 00007 - LEGISLAÇÃO PARA DESENVOLVIMENTO DE ICMS ST NA DI E NF.
----------------------------------------------------------------------------------------------------
PREENCHER INCOTERM DO ITEM
----------------------------------------------------------------------------------------------------
Palavras Chave:
DI - PREENCHER - INCOTERM - ITEM - PROCESSO - ANTIGO
/PWS/SAPMZYCI023
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F01
...
* >> Início da exclusão: FORM FILL_ITABIT
IF NOT itab_it[] IS INITIAL.
SELECT ebeln inco1 FROM ekko INTO TABLE itab_inco
FOR ALL ENTRIES IN itab_it
WHERE ebeln EQ itab_it-ebeln.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_ITABIT
IF NOT itab_zycit003[] IS INITIAL.
SELECT DISTINCT ebeln inco1 FROM ekko
INTO TABLE itab_inco
FOR ALL ENTRIES IN itab_zycit003
WHERE ebeln EQ itab_zycit003-ebeln.
LOOP AT itab_zycit003 WHERE inco1 EQ space.
CLEAR itab_inco.
READ TABLE itab_inco WITH KEY ebeln = itab_zycit003-ebeln.
itab_zycit003-inco1 = itab_inco-inco1.
MODIFY itab_zycit003 TRANSPORTING inco1
WHERE ebeln EQ itab_zycit003-ebeln.
UPDATE /pws/zycit003
SET inco1 = itab_zycit003-inco1
WHERE nrseq EQ itab_zycit003-nrseq
AND ebeln EQ itab_zycit003-ebeln.
ENDLOOP.
* << Fim da inclusão
ENDIF.
IF NOT itab_zycit003[] IS INITIAL.
SELECT * FROM /pws/zycit001 INTO TABLE itab_zycit001
FOR ALL ENTRIES IN itab_zycit003
WHERE nrseq = itab_zycit003-nrseq.
SELECT * FROM /pws/zycit107 INTO TABLE itab_zycit107
FOR ALL ENTRIES IN itab_zycit003
WHERE land1 = itab_zycit003-porigem.
READ TABLE itab_zycit003 INDEX 1.
IF sy-subrc EQ 0.
...