CE PLUS - Nota 005440
Módulo: DOC. EXPORTAÇÃO
Funcionalidade: Registro de Exportação (RE)
Data/Hora da Publicação: 12/12/2007 00:00:00
Data/Hora Última Alteração: 04/03/2010 13:33:47
Descrição da Nota: DESCRIÇÃO DA MERCADORIA INCORRETA
Sintoma
A descrição da mercadoria do RE estava incorreta, quando usado o código 08 (quantidade + descrição
do material).
Solução
Nova determinação da quantidade.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 05440 Data: 12/12/2007 Hora: 13:45:16
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 05440
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00003
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
Texto Rápido:
DESCRIÇÃO DA MERCADORIA INCORRETA
----------------------------------------------------------------------------------------------------
Palavras Chave:
RE DESCRIÇÃO 08
----------------------------------------------------------------------------------------------------
Objetos da nota:
FUNC /PWS/ZYCE_DESCRICAO_MATERIAL
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCE_DESCRICAO_MATERIAL
...
v_tdname+22 = itab_vbak-vtweg.
ENDIF.
CLEAR wa_thead.
wa_thead-tdobject = 'MVKE'.
wa_thead-tdname = v_tdname.
wa_thead-tdid = '0001'.
wa_thead-tdspras = sy-langu.
wa_thead-tdlinesize = 075.
PERFORM chama_editortxt TABLES itab_tline
USING wa_thead.
* >> Início da inclusão: FUNCTION /PWS/ZYCE_DESCRICAO_MATERIAL
READ TABLE itab_zycet092
WITH KEY codnrseq = itab_zycet118-codnrseq.
IF sy-subrc = 0.
WRITE itab_zycet092-fkimg UNIT itab_zycet092-vrkme
TO linha LEFT-JUSTIFIED.
CONCATENATE linha itab_zycet092-vrkme INTO linha
SEPARATED BY space.
READ TABLE itab_tline INDEX 1.
CONCATENATE linha itab_tline-tdline
INTO itab_tline-tdline
SEPARATED BY space.
MODIFY itab_tline INDEX 1.
IF sy-subrc <> 0.
APPEND itab_tline.
ENDIF.
ENDIF.
* << Fim da inclusão
CLEAR itab_zycet078.
DO 9 TIMES VARYING linha FROM itab_zycet078-linha1
NEXT itab_zycet078-linha2.
READ TABLE itab_tline INDEX sy-index
TRANSPORTING tdline.
IF sy-subrc = 0.
linha = itab_tline-tdline.
ENDIF.
ENDDO.
* >> Início da inclusão: FUNCTION /PWS/ZYCE_DESCRICAO_MATERIAL
itab_zycet092-dsmerc = itab_zycet078-linha1.
MODIFY itab_zycet092 TRANSPORTING dsmerc
WHERE codnrseq = itab_zycet118-codnrseq.
itab_zycet118-dsmerc = itab_zycet078-linha1.
MODIFY itab_zycet118 TRANSPORTING dsmerc.
* << Fim da inclusão
READ TABLE itab_zycet078
WITH KEY nrseqre = itab_zycet118-nrseqre
codnrseq = itab_zycet118-codnrseq.
IF sy-subrc = 0.
MODIFY itab_zycet078
TRANSPORTING linha1
linha2
linha3
linha4
linha5
...
...
AND codnrseq = itab_zycet118-codnrseq.
ELSE.
itab_zycet078-nrseqre = itab_zycet118-nrseqre.
itab_zycet078-codnrseq = itab_zycet118-codnrseq.
APPEND itab_zycet078.
ENDIF.
CLEAR itab_tline. REFRESH itab_tline. FREE itab_tline.
ENDLOOP.
WHEN OTHERS.
IF itab_zycet092[] IS INITIAL.
* >> Início da exclusão: FUNCTION /PWS/ZYCE_DESCRICAO_MATERIAL
CLEAR: v_volum, v_qtd.
* << Fim da exclusão
SORT itab_zycet118 BY nrseqre codnrseq matnr.
LOOP AT itab_zycet118.
v_tabix = sy-tabix.
READ TABLE itab_vbak
WITH KEY vbeln = itab_zycet118-vbeln_va.
CHECK sy-subrc = 0.
CLEAR v_tdname.
v_tdname = itab_zycet118-matnr.
v_tdname+18 = itab_vbak-vkorg.
v_tdname+22 = itab_vbak-vtweg.
CLEAR wa_thead.
wa_thead-tdobject = 'MVKE'.
wa_thead-tdname = v_tdname.
wa_thead-tdid = '0001'.
wa_thead-tdspras = sy-langu.
wa_thead-tdlinesize = 075.
REFRESH itab_tline_aux.
PERFORM chama_editortxt TABLES itab_tline_aux
USING wa_thead.
* >> Início da inclusão: FUNCTION /PWS/ZYCE_DESCRICAO_MATERIAL
WRITE itab_zycet118-fkimg UNIT itab_zycet118-vrkme
TO linha LEFT-JUSTIFIED.
CONCATENATE linha itab_zycet118-vrkme INTO linha
SEPARATED BY space.
* << Fim da inclusão
* >> Início da exclusão: FUNCTION /PWS/ZYCE_DESCRICAO_MATERIAL
LOOP AT itab_tline_aux.
READ TABLE itab_vbrp WITH KEY vbeln =
itab_zycet118-vbeln_vf
posnr =
itab_zycet118-posnr.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCE_DESCRICAO_MATERIAL
READ TABLE itab_tline_aux INDEX 1.
* << Fim da inclusão
* >> Início da exclusão: FUNCTION /PWS/ZYCE_DESCRICAO_MATERIAL
IF sy-subrc = 0.
WRITE itab_vbrp-volum UNIT itab_vbrp-voleh TO v_volum.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCE_DESCRICAO_MATERIAL
CONCATENATE linha itab_tline_aux-tdline
INTO itab_tline_aux-tdline
SEPARATED BY space.
MODIFY itab_tline_aux INDEX 1.
IF sy-subrc <> 0.
APPEND itab_tline_aux.
* << Fim da inclusão
ENDIF.
* >> Início da exclusão: FUNCTION /PWS/ZYCE_DESCRICAO_MATERIAL
WRITE itab_zycet118-fkimg UNIT itab_zycet118-vrkme TO
v_qtd.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCE_DESCRICAO_MATERIAL
LOOP AT itab_tline_aux WHERE NOT tdline IS initial.
* << Fim da inclusão
READ TABLE itab_zycet078 WITH KEY nrseqre =
itab_zycet118-nrseqre
codnrseq =
itab_zycet118-codnrseq.
IF sy-subrc = 4.
CLEAR itab_zycet078.
MOVE: itab_zycet118-nrseqre TO itab_zycet078-nrseqre,
itab_zycet118-codnrseq TO itab_zycet078-codnrseq.
WRITE itab_tline_aux-tdline TO itab_zycet078-linha1.
itab_zycet118-dsmerc = itab_zycet078-linha1.
* >> Início da exclusão: FUNCTION /PWS/ZYCE_DESCRICAO_MATERIAL
WRITE itab_zycet118-fkimg UNIT
itab_zycet118-vrkme TO v_qtd.
SHIFT v_qtd LEFT DELETING LEADING space.
SHIFT v_volum LEFT DELETING LEADING space.
WRITE itab_tline_aux-tdline TO itab_zycet078-linha2.
CONCATENATE v_qtd itab_zycet118-vrkme
v_volum itab_vbrp-voleh INTO
itab_zycet078-linha2 SEPARATED BY space.
* << Fim da exclusão
APPEND itab_zycet078.
MODIFY itab_zycet118 INDEX v_tabix.
ELSE.
v_index = sy-tabix.
* >> Início da exclusão: FUNCTION /PWS/ZYCE_DESCRICAO_MATERIAL
WRITE itab_zycet118-fkimg UNIT itab_zycet118-vrkme TO
v_qtd.
SHIFT v_qtd LEFT DELETING LEADING space.
SHIFT v_volum LEFT DELETING LEADING space.
* << Fim da exclusão
IF itab_zycet078-linha3 IS INITIAL.
WRITE itab_tline_aux-tdline TO itab_zycet078-linha3.
* >> Início da exclusão: FUNCTION /PWS/ZYCE_DESCRICAO_MATERIAL
CONCATENATE v_qtd itab_zycet118-vrkme
v_volum itab_vbrp-voleh INTO
itab_zycet078-linha4 SEPARATED BY space.
* << Fim da exclusão
ELSEIF itab_zycet078-linha5 IS INITIAL.
WRITE itab_tline_aux-tdline TO itab_zycet078-linha5.
* >> Início da exclusão: FUNCTION /PWS/ZYCE_DESCRICAO_MATERIAL
CONCATENATE v_qtd itab_zycet118-vrkme
v_volum itab_vbrp-voleh INTO
itab_zycet078-linha6 SEPARATED BY space.
* << Fim da exclusão
ELSEIF itab_zycet078-linha7 IS INITIAL.
WRITE itab_tline_aux-tdline TO itab_zycet078-linha7.
* >> Início da exclusão: FUNCTION /PWS/ZYCE_DESCRICAO_MATERIAL
CONCATENATE v_qtd itab_zycet118-vrkme
v_volum itab_vbrp-voleh INTO
itab_zycet078-linha8 SEPARATED BY space.
* << Fim da exclusão
ELSEIF itab_zycet078-linha9 IS INITIAL.
WRITE itab_tline_aux-tdline TO itab_zycet078-linha9.
ENDIF.
* >> Início da exclusão: FUNCTION /PWS/ZYCE_DESCRICAO_MATERIAL
CONCATENATE v_qtd itab_zycet118-vrkme
v_volum itab_vbrp-voleh INTO
itab_zycet078-linha9 SEPARATED BY space.
* << Fim da exclusão
MODIFY itab_zycet078 INDEX v_index.
* >> Início da exclusão: FUNCTION /PWS/ZYCE_DESCRICAO_MATERIAL
ENDIF.
ENDLOOP.
ENDLOOP.
* << Fim da exclusão
ENDIF.
* >> Início da exclusão: FUNCTION /PWS/ZYCE_DESCRICAO_MATERIAL
CLEAR: itvolum, v_volum, v_qtd. REFRESH: itvolum.
LOOP AT itab_zycet092.
LOOP AT itab_zycet118
WHERE seqagrupado = itab_zycet092-codnrseq.
READ TABLE itab_vbrp
WITH KEY vbeln = itab_zycet118-vbeln_vf
posnr = itab_zycet118-posnr.
IF sy-subrc = 0.
MOVE: itab_zycet092-codnrseq TO itvolum-codnrseq,
itab_vbrp-volum TO itvolum-volum,
itab_vbrp-voleh TO itvolum-voleh.
COLLECT itvolum.
ENDIF.
* << Fim da exclusão
ENDLOOP.
ENDLOOP.
* >> Início da exclusão: FUNCTION /PWS/ZYCE_DESCRICAO_MATERIAL
LOOP AT itab_zycet092.
v_tabix = sy-tabix.
LOOP AT itab_zycet118 WHERE seqagrupado =
itab_zycet092-codnrseq.
LOOP AT itab_tline_aux WHERE matnr = itab_zycet118-matnr.
READ TABLE itvolum
WITH KEY codnrseq = itab_zycet092-codnrseq.
IF sy-subrc = 0.
WRITE itvolum-volum UNIT itvolum-voleh TO v_volum.
* << Fim da exclusão
ENDIF.
* >> Início da exclusão: FUNCTION /PWS/ZYCE_DESCRICAO_MATERIAL
WRITE itab_zycet092-fkimg UNIT itab_zycet092-vrkme TO v_qtd.
READ TABLE itab_zycet078
WITH KEY nrseqre = itab_zycet092-nrseqre
codnrseq = itab_zycet092-codnrseq.
IF sy-subrc = 4.
CLEAR itab_zycet078.
MOVE: itab_zycet092-nrseqre TO itab_zycet078-nrseqre,
itab_zycet092-codnrseq TO itab_zycet078-codnrseq.
WRITE itab_tline_aux-tdline TO itab_zycet078-linha1.
SHIFT v_qtd LEFT DELETING LEADING space.
SHIFT v_volum LEFT DELETING LEADING space.
CONCATENATE v_qtd itab_zycet092-vrkme
v_volum itab_vbrp-voleh INTO
itab_zycet078-linha2 SEPARATED BY space.
APPEND itab_zycet078.
itab_zycet092-dsmerc = itab_zycet078-linha1.
MODIFY itab_zycet092 INDEX v_tabix.
ELSE.
v_index = sy-tabix.
SHIFT v_qtd LEFT DELETING LEADING space.
SHIFT v_volum LEFT DELETING LEADING space.
IF itab_zycet078-linha3 IS INITIAL.
WRITE itab_tline_aux-tdline TO itab_zycet078-linha3.
CONCATENATE v_qtd itab_zycet118-vrkme
v_volum itab_vbrp-voleh INTO
itab_zycet078-linha4 SEPARATED BY space.
ELSEIF itab_zycet078-linha5 IS INITIAL.
WRITE itab_tline_aux-tdline TO itab_zycet078-linha5.
CONCATENATE v_qtd itab_zycet118-vrkme
v_volum itab_vbrp-voleh INTO
itab_zycet078-linha6 SEPARATED BY space.
ELSEIF itab_zycet078-linha7 IS INITIAL.
WRITE itab_tline_aux-tdline TO itab_zycet078-linha7.
CONCATENATE v_qtd itab_zycet118-vrkme
v_volum itab_vbrp-voleh INTO
itab_zycet078-linha8 SEPARATED BY space.
ELSEIF itab_zycet078-linha9 IS INITIAL.
WRITE itab_tline_aux-tdline TO itab_zycet078-linha9.
ENDIF.
ENDIF.
MODIFY itab_zycet078 INDEX v_index.
ENDLOOP.
ENDLOOP.
ENDLOOP.
LOOP AT itab_zycet118.
v_index = sy-tabix.
LOOP AT itab_zycet092
WHERE codnrseq = itab_zycet118-seqagrupado.
READ TABLE itab_zycet078
WITH KEY codnrseq = itab_zycet118-seqagrupado
nrseqre = itab_zycet092-nrseqre.
IF sy-subrc = 0.
itab_zycet118-dsmerc = itab_zycet078-linha1.
MODIFY itab_zycet118 INDEX v_index.
ENDIF.
ENDLOOP.
ENDLOOP.
* << Fim da exclusão
ENDCASE.
WHEN '09'.
LOOP AT itab_zycet118.
CLEAR: v_tdname.
CALL FUNCTION 'CONVERSION_EXIT_MATN1_INPUT'
EXPORTING
input = itab_zycet118-matnr
IMPORTING
output = v_tdname
EXCEPTIONS
...