CE PLUS - Nota 013336
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 14/11/2013 15:46:53
Data/Hora Última Alteração: 14/11/2013 15:46:53
Descrição da Nota: AO TRANSMITIR TEXTO PARA O ORIENTADOR, FICA FORA DE FORMATAÇÃO
Sintoma
Ao transmitir texto para o orientador, fica fora de formatação
Solução
Diminuir tamanho de texto em tela, para salvar no tamanho correto.
Versões Tratadas
9.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 13336 Data: 18/10/2013 Hora: 15:29:01
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 13336
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 9.0
Pacote : 00006
Agrupamento : 00166
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
03704 - 00001 - 7.0 - 00001 - TEXTOS DA DI SÓ SÃO SALVOS SE ENTRAR NO DETALHE DO ITEM
05621 - 00002 - 7.0 - 00004 - A DESCRIÇÃO DO PRIMEIRO ITEN DA ADIÇÃO É COPIADA PARA OS DEMAIS I
08867 - 00003 - 7.0 - 00010 - CARREGANDO DADOS INCORRETAMENTE QUANDO REPLICAMOS DI
08870 - 00004 - 7.0 - 00010 - ERRO AO REPLICAR DADOS DA DI
13304 - 00005 - 9.0 - 00006 - AO TRANSMITIR PARA O SISCOMEX, QUEBRA AS LINHAS DIGITADAS NA DI
----------------------------------------------------------------------------------------------------
AO TRANSMITIR TEXTO PARA O ORIENTADOR, FICA FORA DE FORMATAÇÃO
----------------------------------------------------------------------------------------------------
Palavras Chave:
DI - TEXTO - ESPECIFICAÇÃO - ORIENTADOR SISCOMEX - TRANSMISSÃO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F03
REPS /PWS/MZYCI023F02
REPS /PWS/MZYCI023F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F03
...
IF NOT s_oespec IS INITIAL.
CLEAR v_txtki.
CONCATENATE /pws/zycie085-nrseqdi itab_itc-nrseq
itab_itc-ebeln itab_itc-ebelp INTO v_txtki.
xtheadi-tdobject = '/PWS/CIDDI'.
xtheadi-tdname = v_txtki.
xtheadi-tdid = 'ZDSI'.
xtheadi-tdspras = sy-langu.
* >> Início da exclusão: FORM COMM_REPL
xtheadi-tdlinesize = 070.
* << Fim da exclusão
* >> Início da inclusão: FORM COMM_REPL
xtheadi-tdlinesize = 064.
* << Fim da inclusão
CALL FUNCTION 'READ_TEXT'
EXPORTING
client = sy-mandt
id = 'ZDSI'
language = sy-langu
name = v_txtki
object = '/PWS/CIDDI'
TABLES
lines = rtexti_aux
EXCEPTIONS
...
...
wrong_access_to_archive = 7
OTHERS = 8.
IF sy-subrc <> 0.
ELSE.
CONCATENATE /pws/zycie085-nrseqdi itab_itc-nrseq
itab_itc-ebeln itab_itc-ebelp INTO v_txtki.
xtheadi-tdobject = '/PWS/CIDDI'.
xtheadi-tdname = v_txtki.
xtheadi-tdid = 'ZDSI'.
xtheadi-tdspras = sy-langu.
* >> Início da exclusão: FORM COMM_REPL
xtheadi-tdlinesize = 070.
* << Fim da exclusão
* >> Início da inclusão: FORM COMM_REPL
xtheadi-tdlinesize = 064.
* << Fim da inclusão
CALL FUNCTION 'SAVE_TEXT'
EXPORTING
header = xtheadi
insert = 'X'
savemode_direct = 'X'
owner_specified = 'X'
TABLES
lines = rtexti_aux
EXCEPTIONS
id = 1
...
...
IF sy-subrc NE 0.
PERFORM fill_desc.
ENDIF.
xtheadi-tdobject = '/PWS/CIDDI'.
xtheadi-tdname = v_txtki.
xtheadi-tdid = 'ZDSI'.
xtheadi-tdspras = sy-langu.
* >> Início da exclusão: FORM SAVE_ESPECIFICACAO
xtheadi-tdlinesize = 072.
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE_ESPECIFICACAO
xtheadi-tdlinesize = 064.
* << Fim da inclusão
CALL FUNCTION 'SAVE_TEXT'
EXPORTING
header = xtheadi
insert = 'X'
savemode_direct = 'X'
owner_specified = 'X'
TABLES
lines = rtexti
EXCEPTIONS
id = 1
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F02
...
ELSE.
IF NOT p_text IS INITIAL.
rtexti-tdline = p_text.
APPEND rtexti.
ENDIF.
ENDIF.
xtheadi-tdobject = '/PWS/CIDDI'.
xtheadi-tdname = v_txtki.
xtheadi-tdid = 'ZDSI'.
xtheadi-tdspras = sy-langu.
* >> Início da exclusão: FORM TEXT_EDIT_BLITEM
xtheadi-tdlinesize = 132.
* << Fim da exclusão
* >> Início da inclusão: FORM TEXT_EDIT_BLITEM
xtheadi-tdlinesize = 64.
* << Fim da inclusão
CALL FUNCTION 'EDIT_TEXT'
EXPORTING
display = v_txtdisplay
header = xtheadi
save = v_txtsave
TABLES
lines = rtexti
EXCEPTIONS
id = 1
language = 2
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F01
...
MODIFY rtexti INDEX 1.
CONCATENATE /pws/zycie085-nrseqdi
itab_it-nrseq
itab_it-ebeln
itab_it-ebelp
INTO v_txtki.
xtheadi-tdobject = '/PWS/CIDDI'.
xtheadi-tdname = v_txtki.
xtheadi-tdid = 'ZDSI'.
xtheadi-tdspras = sy-langu.
* >> Início da exclusão: FORM SAVE_DATA_ITEM
xtheadi-tdlinesize = 072.
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE_DATA_ITEM
xtheadi-tdlinesize = 064.
* << Fim da inclusão
CALL FUNCTION 'SAVE_TEXT'
EXPORTING
header = xtheadi
insert = 'X'
savemode_direct = 'X'
owner_specified = 'X'
TABLES
lines = rtexti
EXCEPTIONS
id = 1
...