CE PLUS - Nota 008018
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: LSI
Data/Hora da Publicação: 06/02/2009 00:00:00
Data/Hora Última Alteração: 23/02/2011 09:09:45
Descrição da Nota: DUMP AO SELECIONAR O TEXTO DO PEDIDO
Sintoma
DUMP ao selecionar os textos do pedido
Solução
Atualização da chamado da função de busca dos detalhes dos itens.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 08018 Data: 06/02/2009 Hora: 14:28:36
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 08018
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00008
Agrupamento : 00084
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
06611 - 00001 - 7.0 - 00005 - ALTERAÇÃO PARA UTILIZAR NOVA FUNÇÃO PARA BUSCAR TEXTOS
06624 - 00002 - 3.0 - 00004 - AJUSTE NO CADASTRO LIMITE BANCO /PWS/ZYVDT003
06648 - 00003 - 7.0 - 00005 - ATUALIZAR SELEÇÃO DE TEXTOS DO CAMPO ESPECIFICAÇÃO DA DA
----------------------------------------------------------------------------------------------------
DUMP AO SELECIONAR O TEXTO DO PEDIDO
----------------------------------------------------------------------------------------------------
Palavras Chave:
LI LSI DSI DA DUMP AO SELECIONAR OS TEXTOS DO PEDIDO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI020F02
REPS /PWS/MZYCI058F03
REPS /PWS/MZYCI070F03
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020F02
...
IF rtexti IS INITIAL.
CLEAR rtexti.
REFRESH rtexti.
CALL FUNCTION '/PWS/ZYCI_TEXTO_DETALHE_ITEM'
EXPORTING
ebeln = it_zycit079-ebeln
ebelp = it_zycit079-ebelp
codeven = 'LI'
TABLES
rtext = rtexti
* >> Início da exclusão: FORM FILL_DESC
.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DESC
EXCEPTIONS
item_not_found = 1
OTHERS = 2.
* << Fim da inclusão
IF sy-subrc <> 0.
ENDIF.
IF NOT /pws/zycie078-nrseqd IS INITIAL.
PERFORM verifica_generico.
ENDIF.
READ TABLE rtexti INDEX 1.
CLEAR rtexti-tdformat.
v_esp = rtexti-tdline.
MODIFY rtexti INDEX 1.
PERFORM save_txt_2.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI058F03
...
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_zycit003-ebeln
ebelp = itab_zycit003-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.
ENDIF.
IF itab_it-especificacao IS INITIAL.
READ TABLE rtexti INDEX 1.
itab_it-especificacao = rtexti-tdline.
ENDIF.
IF itab_it-especificacao IS INITIAL.
READ TABLE itab_zycit003 WITH KEY ebeln = itab_it-ebeln
ebelp = itab_it-ebelp.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI070F03
...
ENDIF.
DATA: v_spras LIKE ekko-spras.
IF rtexti IS INITIAL.
CALL FUNCTION '/PWS/ZYCI_TEXTO_DETALHE_ITEM'
EXPORTING
ebeln = itab_zycit003-ebeln
ebelp = itab_zycit003-ebelp
codeven = 'DI'
TABLES
rtext = rtexti
* >> Início da exclusão: FORM FILL_DESC
.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DESC
EXCEPTIONS
item_not_found = 1
OTHERS = 2.
* << Fim da inclusão
IF sy-subrc <> 0.
ENDIF.
ENDIF.
IF itab_it-especificacao IS INITIAL.
READ TABLE rtexti INDEX 1.
itab_it-especificacao = rtexti-tdline.
ENDIF.
IF itab_it-especificacao IS INITIAL.
READ TABLE itab_zycit003 WITH KEY ebeln = itab_it-ebeln
ebelp = itab_it-ebelp.
...