CE PLUS - Nota 002298
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal
Data/Hora da Publicação: 23/10/2006 00:00:00
Data/Hora Última Alteração: 20/06/2011 13:15:43
Descrição da Nota: TEXTO MSG NF E DRAFT INCORRETO
Sintoma
Após emissão da nota fiscal, quando visualiza-se o seu Draft, a mensagem texto no campo observações
está incompleta, tendo sido emitida somente a primeira letra de cada frase, conforme print em anexo.
Cenário utilizado: embarque 0000363I06
O mesmo erro ocorre também em nota fiscal complementar.
Solução
Atualização do programa de nota fiscal para a visualização correta dos dados do Draft da nota
fiscal.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 02298 Data: 23/10/2006 Hora: 16:01:41
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 02298
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00025
Agrupamento : 00137
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
TEXTO MSG NF E DRAFT INCORRETO
----------------------------------------------------------------------------------------------------
Palavras Chave:
MENSAGENS NF - DRAFT - NOTA FISCAL
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016F01
REPS /PWS/MZYCI016TOP
REPS /PWS/MZYCI029TOP
REPS /PWS/MZYCI029F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
FORM mensagens_nf.
DATA BEGIN OF itab_zycit001_msg OCCURS 0.
DATA: nrseq LIKE /pws/zycit001-nrseq,
embarca LIKE /pws/zycit001-embarca.
DATA END OF itab_zycit001_msg.
* >> Início da exclusão: FORM MENSAGENS_NF
DATA: itab_zycit003_mark LIKE itab_zycit003 OCCURS 0 WITH HEADER LINE,
itab_texto LIKE tline OCCURS 10 WITH HEADER LINE.
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NF
DATA: itab_zycit003_mark LIKE itab_zycit003 OCCURS 0 WITH HEADER LINE.
* << Fim da inclusão
DATA: v_nrdi LIKE /pws/zycit085-nrdi ,
v_dtreg(10) TYPE c VALUE space ,
v_dificms(15) TYPE c VALUE space ,
v_landx LIKE t005t-landx ,
v_impim(15) TYPE c VALUE space ,
...
...
object = '/PWS/T369'
TABLES
lines = itab_texto.
ENDIF.
IF NOT itab_texto[] IS INITIAL.
* >> Início da exclusão: FORM MENSAGENS_NF
LOOP AT itab_texto.
CONCATENATE itab_texto-tdformat itab_texto-tdline
INTO itab_texto-tdline.
CLEAR itab_texto-tdformat.
MODIFY itab_texto.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NF
LOOP AT itab_texto into wa_texto.
* << Fim da inclusão
* >> Início da exclusão: FORM MENSAGENS_NF
LOOP AT itab_texto.
* << Fim da exclusão
v_ind = v_ind + 1.
* >> Início da exclusão: FORM MENSAGENS_NF
MOVE itab_texto-tdline TO it_zycee006-msg.
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NF
MOVE wa_texto TO it_zycee006-msg.
* << Fim da inclusão
it_zycee006-indice = v_ind.
APPEND it_zycee006.
ENDLOOP.
ENDIF.
ENDFORM.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016TOP
...
v_tot_ntgew like /pws/zycit003-ntgew,
v_urf ,
v_tot_plan LIKE /pws/zycit003-netpr,
v_tot_real LIKE /pws/zycit003-vlreal,
v_lines LIKE sy-tabix.
* >> Início da inclusão:
TYPES: BEGIN OF mytable_line,
line(256) TYPE c,
END OF mytable_line.
DATA:
itab_texto TYPE TABLE OF mytable_line,
wa_texto(256) type C.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
FORM mensagens_nf_r.
DATA BEGIN OF itab_zycit001_msg OCCURS 0.
DATA: nrseq LIKE /pws/zycit001-nrseq,
embarca LIKE /pws/zycit001-embarca.
DATA END OF itab_zycit001_msg.
* >> Início da exclusão: FORM MENSAGENS_NF_R
DATA: itab_zycit042_auxre LIKE /pws/zycit042 OCCURS 0 WITH HEADER LINE
,
itab_texto LIKE tline OCCURS 10 WITH HEADER LINE.
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NF_R
DATA: itab_zycit042_auxre LIKE /pws/zycit042 OCCURS 0 WITH HEADER LINE.
* << Fim da inclusão
DATA: BEGIN OF itab_texto_aux OCCURS 10.
DATA: tdline LIKE tline-tdline.
DATA: END OF itab_texto_aux.
DATA : v_idm TYPE i,
v_dtreg(10) TYPE c VALUE space ,
...
...
language = sy-langu
name = v_txtkey
object = '/PWS/T369'
TABLES
lines = itab_texto.
* >> Início da exclusão: FORM MENSAGENS_NF_R
IF NOT itab_texto[] IS INITIAL.
LOOP AT itab_texto.
CONCATENATE itab_texto-tdformat itab_texto-tdline
INTO itab_texto-tdline.
CLEAR itab_texto-tdformat.
MODIFY itab_texto.
ENDLOOP.
ENDIF.
* << Fim da exclusão
IF NOT itab_texto[] IS INITIAL.
* >> Início da exclusão: FORM MENSAGENS_NF_R
LOOP AT itab_texto.
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NF_R
LOOP AT itab_texto into wa_texto.
* << Fim da inclusão
v_idm = v_idm + 1.
* >> Início da exclusão: FORM MENSAGENS_NF_R
MOVE itab_texto-tdline TO it_zycee006-msg.
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NF_R
MOVE wa_texto TO it_zycee006-msg.
* << Fim da inclusão
it_zycee006-indice = v_idm.
APPEND it_zycee006.
ENDLOOP.
ENDIF.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI029F01
...
v_vlpis LIKE /pws/zycit100-vlpis ,
v_vlcofins LIKE /pws/zycit100-vlcofins,
v_tamanho(45) TYPE c,
v_ind TYPE i,
v_vldp_x(15) TYPE c,
* >> Início da exclusão: FORM MENSAGENS_NFC
itab_texto LIKE tline OCCURS 10 WITH HEADER LINE,
* << Fim da exclusão
v_txtkey LIKE thead-tdname.
v_cont = v_cont + 1.
it_zycee006-nrseq = /pws/zycie264-nrseqc.
it_zycee006-branch = /pws/zycie264-j_1bbranch.
it_zycee006-indice = v_cont.
...
...
object = '/PWS/T369'
TABLES
lines = itab_texto.
ENDIF.
IF NOT itab_texto[] IS INITIAL.
* >> Início da exclusão: FORM MENSAGENS_NFC
LOOP AT itab_texto.
CONCATENATE itab_texto-tdformat itab_texto-tdline
INTO itab_texto-tdline.
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NFC
LOOP AT itab_texto into wa_texto.
* << Fim da inclusão
* >> Início da exclusão: FORM MENSAGENS_NFC
CLEAR itab_texto-tdformat.
MODIFY itab_texto.
ENDLOOP.
LOOP AT itab_texto.
* << Fim da exclusão
v_ind = v_ind + 1.
* >> Início da exclusão: FORM MENSAGENS_NFC
MOVE itab_texto-tdline TO it_zycee006-msg.
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NFC
MOVE wa_texto TO it_zycee006-msg.
* << Fim da inclusão
it_zycee006-indice = v_ind.
APPEND it_zycee006.
ENDLOOP.
ENDIF.
ENDFORM.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI029TOP
...
i_belnr LIKE bkpf-belnr,
v_year LIKE bkpf-gjahr,
v_vldp_nfc LIKE /pws/zycit265-vldp,
v_last_date LIKE /pws/zycit004-dtemiss,
v_urf2(1) TYPE c.
* >> Início da inclusão:
TYPES: BEGIN OF mytable_line,
line(256) TYPE c,
END OF mytable_line.
DATA:
itab_texto TYPE TABLE OF mytable_line,
wa_texto(256) type C.
* << Fim da inclusão