CE PLUS - Nota 003690
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 16/05/2007 00:00:00
Data/Hora Última Alteração: 22/02/2011 13:41:23
Descrição da Nota: ERRO AO CARREGAR TEXTOS DE MATERIAL NA DI
Sintoma
O draft da Di não estava exibindo os dados por completo dos textos da DI do campo especificação.
Também não estava respeitando a ordem das mensagens.
Solução
Atualização no programa da DI para gravar todos os textos parametrizados na tabela de parâmetro de
mensagem para DI e LI (ZYCIT229).
Foi aumentado o campo de descrição do material.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 03690 Data: 16/05/2007 Hora: 15:17:11
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 03690
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00001
Agrupamento : 00169
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01276 - 00001 - 6.0 - 00023 - TIVEMOS UM PROBLEMA AQUI NO RELATÓRIO DE DRAFT DA DI (/PWS/ZYCIR3
02557 - 00002 - 6.0 - 00025 - ERRO AO CARREGAR DESCRIÇÃO DE MATERIAIS NA NOTA FISCAL
03633 - 00003 - 7.0 - 00001 - DESCRIÇÃO DO ÍTEM GENÉRICO NA DI E LI, DETALHE DO ITEM
----------------------------------------------------------------------------------------------------
ERRO AO CARREGAR TEXTOS DE MATERIAL NA DI
----------------------------------------------------------------------------------------------------
Palavras Chave:
TEXTOS DE MATERIAL - DI - /PWS/ZYCIT229
TEXTOS REPETIDOS - NÃO GRAVADOS
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F03
REPS /PWS/ZYCIR331
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F03
...
id = 1
language = 2
name = 3
not_found = 4
object = 5
reference_check = 6
wrong_access_to_archive = 7
OTHERS = 8.
ENDIF.
IF sy-subrc = 0.
* >> Início da exclusão: FORM READ_TEXT_ESPECIF
REFRESH rtexti.
* << Fim da exclusão
LOOP AT rtextesp.
rtexti-tdformat = '*'.
rtexti-tdline = rtextesp-tdline.
APPEND rtexti.
ENDLOOP.
ELSE.
CALL FUNCTION 'READ_TEXT'
EXPORTING
client = sy-mandt
id = 'ZDSI'
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCIR331
...
120 '|'.
ENDLOOP.
ENDFORM.
FORM pag3.
DATA: v_nrseqli LIKE /pws/zycit003-nrseqli,
v_qtdeumest LIKE /pws/zycit003-qtdeumest,
v_vmle LIKE t_zycit085-vlfob,
v_foba LIKE /pws/zycit100-vlfob,
v_fretea LIKE /pws/zycit100-vlfre,
v_sega LIKE /pws/zycit100-vlseg,
* >> Início da exclusão: FORM PAG3
v_index TYPE i.
* << Fim da exclusão
* >> Início da inclusão: FORM PAG3
v_index TYPE i.
* << Fim da inclusão
SKIP.
ULINE.
CLEAR v_index.
LOOP AT itab_zycit116 WHERE nrseqdi = t_zycit085-nrseqdi.
v_index = v_index + 1.
CLEAR : itab_zycit263, itab_zycit006, v_nrseqli, v_qtdeumest,
v_plf, v_vmle, v_frete, v_seg , v_foba, v_fretea, v_sega,
v_vlicms, itab_t005, itab_t005t.
LOOP AT itab_zycit100 WHERE adicao = itab_zycit116-adicao.
CLEAR itab_zycit177.
...
...
120 '|'.
ULINE.
v_pag = v_pag + 1.
ULINE.
WRITE: /001 '|',
002 text-200 INTENSIFIED OFF,
120 '|',
/001 '|',
003 text-201 INTENSIFIED OFF,
016 text-204 INTENSIFIED OFF,
* >> Início da exclusão: FORM PAG3
058 text-203 INTENSIFIED OFF,
* << Fim da exclusão
* >> Início da inclusão: FORM PAG3
077 text-203 INTENSIFIED OFF,
* << Fim da inclusão
120 '|',
/001 '|',
120 '|'.
LOOP AT itab_zycit100 WHERE adicao = itab_zycit116-adicao.
CLEAR: itab_zycit003,itab_ekpo.
READ TABLE itab_zycit003 WITH KEY ebeln = itab_zycit100-ebeln
ebelp = itab_zycit100-ebelp.
READ TABLE itab_ekpo WITH KEY ebeln = itab_zycit100-ebeln
ebelp = itab_zycit100-ebelp.
WRITE: /001 '|',
003 itab_zycit003-matnr,
016 itab_zycit100-especificacao,
* >> Início da exclusão: FORM PAG3
058 itab_ekpo-mfrpn,
* << Fim da exclusão
* >> Início da inclusão: FORM PAG3
077 itab_ekpo-mfrpn,
* << Fim da inclusão
120 '|'.
ENDLOOP.
WRITE: /001 '|',
120 '|'.
ULINE.
WRITE: /001 '|',
100 text-197 INTENSIFIED OFF,
v_pag INTENSIFIED OFF,
120 '|'.
ULINE.
...