CE PLUS - Nota 007904
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 13/01/2009 00:00:00
Data/Hora Última Alteração: 22/02/2011 14:02:01
Descrição da Nota: DUMP NA FUNÇÃO /PWS/ZYCI_TEXTO_DETALHE_ITEM
Sintoma
Dump ao acessar a DI.
Solução
Atualização da busca dos textos do pedido na DI.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07904 Data: 13/01/2009 Hora: 15:18:17
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07904
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00008
Agrupamento : 00081
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
06593 - 00001 - 7.0 - 00005 - DESENVOLVIMENTO DE FUNÇÃO PARA TRATAR TEXTOS DESCRITIVOS DI/LI
----------------------------------------------------------------------------------------------------
DUMP NA FUNÇÃO /PWS/ZYCI_TEXTO_DETALHE_ITEM
----------------------------------------------------------------------------------------------------
Palavras Chave:
DI DUMP TEXTOS DETALHE ITEM ARQUIVAMENTO DE PEDIDOS
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F03
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F03
...
IF rtexti IS INITIAL.
SORT itab_zycit229 BY codseq.
READ TABLE itab_ekpo WITH KEY ebeln = itab_it-ebeln
ebelp = itab_it-ebelp.
CALL FUNCTION '/PWS/ZYCI_TEXTO_DETALHE_ITEM'
EXPORTING
ebeln = itab_it-ebeln
ebelp = itab_it-ebelp
codeven = 'DI'
TABLES
* >> Início da exclusão: FORM FILL_DESC
rtext = rtexti.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DESC
rtext = rtexti
EXCEPTIONS
item_not_found = 1
OTHERS = 2.
* << Fim da inclusão
IF sy-subrc <> 0.
ENDIF.
READ TABLE itab_zycit003 WITH KEY ebeln = itab_it-ebeln
ebelp = itab_it-ebelp.
IF sy-subrc EQ 0 AND
NOT itab_zycit003-nrseqli IS INITIAL.
SELECT SINGLE * FROM /pws/zycit078 INTO wa_zycit078 WHERE
nrseqli = itab_zycit003-nrseqli
AND ( tpli = 'N' OR tpli = 'S' ).
IF sy-subrc EQ 0 AND NOT wa_zycit078-nrseqd IS INITIAL.
...