CE PLUS - Nota 005564
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 04/01/2008 00:00:00
Data/Hora Última Alteração: 09/03/2010 11:26:49
Descrição da Nota: A DESCRIÇÃO DOS ITENS DE UMA ADIÇÃO DA DI ESTÃO INCORRETOS
Sintoma
O programa da DI na aba itens da DI detalhes dos itens ele apresentava incorreto a descrição do item
do pedido
Solução
Atualizada DI para utilizar a mesma itab para montar o item e a descrição, evitando que a descrição
do primeiro item seja replcada para os demais na mesma adição
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 05564 Data: 04/01/2008 Hora: 16:27:10
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 05564
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00004
Agrupamento : 00028
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
A DESCRIÇÃO DOS ITENS DE UMA ADIÇÃO DA DI ESTÃO INCORRETOS
----------------------------------------------------------------------------------------------------
Palavras Chave:
DESCRIÇÃO ITENS - ADIÇÃO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F03
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F03
...
object = 5
reference_check = 6
wrong_access_to_archive = 7
OTHERS = 8.
IF sy-subrc = 0.
READ TABLE rtexti INDEX 1.
ENDIF.
DATA: v_spras LIKE ekko-spras.
IF rtexti IS INITIAL.
SORT itab_zycit229 BY codseq.
* >> Início da exclusão: FORM FILL_DESC
READ TABLE itab_ekpo WITH KEY ebeln = itab_zycit003-ebeln
ebelp = itab_zycit003-ebelp.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DESC
READ TABLE itab_ekpo WITH KEY ebeln = itab_it-ebeln
ebelp = itab_it-ebelp.
* << Fim da inclusão
IF NOT itab_zycit229[] IS INITIAL.
LOOP AT itab_zycit229.
CLEAR: v_name, v_texto, itab_makt, itab_stxl, v_spras.
FREE: itab_makt, itab_stxl.
IF itab_zycit229-spras NE space.
v_spras = itab_zycit229-spras.
ELSE.
SELECT SINGLE spras FROM ekko INTO v_spras
* >> Início da exclusão: FORM FILL_DESC
WHERE ebeln = itab_zycit003-ebeln.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DESC
WHERE ebeln = itab_it-ebeln.
* << Fim da inclusão
ENDIF.
IF itab_zycit229-txtdesc = '01'.
SELECT SINGLE * FROM makt INTO itab_makt
WHERE matnr = itab_ekpo-matnr
AND spras = v_spras.
IF sy-subrc = 0.
rtexti-tdformat = '*'.
rtexti-tdline = itab_makt-maktx.
APPEND rtexti.
ELSE.
...
...
IF sy-subrc EQ 0.
rtexti-tdformat = '*'.
CONCATENATE text-114 wa_ender-stras wa_ender-ort01
wa_ender-regio
INTO rtexti-tdline SEPARATED BY space.
APPEND rtexti.
ENDIF.
ENDIF.
ELSEIF itab_zycit229-txtdesc = '11'.
rtexti-tdformat = '*'.
* >> Início da exclusão: FORM FILL_DESC
CONCATENATE text-052 itab_zycit003-ebeln
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DESC
CONCATENATE text-052 itab_it-ebeln
* << Fim da inclusão
INTO rtexti-tdline SEPARATED BY space.
APPEND rtexti.
ELSEIF itab_zycit229-txtdesc = '12'.
rtexti-tdformat = '*'.
* >> Início da exclusão: FORM FILL_DESC
CONCATENATE text-115 itab_zycit003-ebelp
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DESC
CONCATENATE text-115 itab_it-ebelp
* << Fim da inclusão
INTO rtexti-tdline SEPARATED BY space.
APPEND rtexti.
ENDIF.
ENDLOOP.
ELSE.
READ TABLE itab_ekpo WITH KEY ebeln = itab_it-ebeln
ebelp = itab_it-ebelp.
rtexti-tdformat = '*'.
rtexti-tdline = itab_ekpo-txz01.
APPEND rtexti.
...