CE PLUS - Nota 001276
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Reports
Data/Hora da Publicação: 04/05/2006 00:00:00
Data/Hora Última Alteração: 20/06/2011 12:16:17
Descrição da Nota: TIVEMOS UM PROBLEMA AQUI NO RELATÓRIO DE DRAFT DA DI (/PWS/ZYCIR331)
Sintoma
Tivemos um problema aqui no relatório de draft da DI (/pws/zycir331) que o sistema não estava
levando a descrição dos itens para este, ou seja, ele levava somente a última descrição do item por
adição. Se tivéssemos 4 itens na adição o sistema levava apenas a descrição do último item.
Solução
Ajustado Loop da itab_zycit100 e read com a itab_zycit003.
Versões Tratadas
6.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 01276 Data: 04/05/2006 Hora: 15:59:58
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 01276
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00023
Agrupamento : 00112
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01201 - 00001 - 6.0 - 00023 - DUMP NO RELATORIO DRAFT DA DI.
----------------------------------------------------------------------------------------------------
TIVEMOS UM PROBLEMA AQUI NO RELATÓRIO DE DRAFT DA DI (/PWS/ZYCIR331)
----------------------------------------------------------------------------------------------------
Palavras Chave:
DRAFT - DI - DESCRIÇÃO - ITENS - ADIÇÃO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/ZYCIR331
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCIR331
...
INCLUDE STRUCTURE /pws/zycit094.
DATA: END OF itab_zycit094.
DATA:BEGIN OF itab_zycit174 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit174.
DATA: END OF itab_zycit174.
* >> Início da inclusão:
DATA: BEGIN OF itab_ekpo OCCURS 0.
DATA: ebelp LIKE ekpo-ebelp,
ebeln LIKE ekpo-ebeln,
mfrpn LIKE ekpo-mfrpn.
DATA: END OF itab_ekpo.
* << Fim da inclusão
CONTROLS: tc_zycit085 TYPE TABLEVIEW USING SCREEN 0001.
DATA: s_opcb(18),
s_tpdecl(20),
v_obs(8000),
v_add TYPE i,
...
...
SELECT * FROM /pws/zycit003
INTO TABLE itab_zycit003
FOR ALL ENTRIES IN itab_zycit100
WHERE nrseq EQ itab_zycit100-nrseq
AND ebelp EQ itab_zycit100-ebelp
* >> Início da inclusão: FORM SEL_DADOS
AND ebeln EQ itab_zycit100-ebeln.
SELECT ebelp ebeln mfrpn FROM ekpo
INTO TABLE itab_ekpo
FOR ALL ENTRIES IN itab_zycit100
WHERE ebelp EQ itab_zycit100-ebelp
* << Fim da inclusão
AND ebeln EQ itab_zycit100-ebeln.
SELECT nrseq embarca paispa j_1bbranch inco1 refdespachante
tpdecl nrseqref
FROM /pws/zycit001
INTO TABLE itab_zycit001
...
...
077 '/',
079 text-192 INTENSIFIED OFF,
120 '|'.
ENDCASE.
CLEAR /pws/zycit080.
* >> Início da inclusão: FORM PAG3
CONDENSE itab_zycit003-lifnrfabr.
* << Fim da inclusão
IF NOT itab_zycit003-lifnrfabr IS INITIAL.
PERFORM load_forn USING itab_zycit003-lifnrfabr '800'.
PERFORM select_pais USING /pws/zycit080-landa.
ENDIF.
READ TABLE itab_t005 WITH KEY spras = 'P'.
...
...
ENDLOOP.
WRITE: /001 '|',
120 '|'.
ULINE.
v_pag = v_pag + 1.
* >> Início da inclusão: FORM PAG3
WRITE: /001 '|',
002 text-200 INTENSIFIED OFF,
120 '|',
/001 '|',
003 text-201 INTENSIFIED OFF,
016 text-202 INTENSIFIED OFF,
058 text-203 INTENSIFIED OFF,
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,
058 itab_ekpo-mfrpn,
120 '|'.
ENDLOOP.
WRITE: /001 '|',
120 '|'.
ULINE.
* << Fim da inclusão
WRITE: /001 '|',
* >> Início da exclusão: FORM PAG3
002 itab_zycit100-especificacao,
* << Fim da exclusão
100 text-197 INTENSIFIED OFF,
...