CE PLUS - Nota 012427
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 14/08/2012 00:00:00
Data/Hora Última Alteração: 17/08/2012 16:01:31
Descrição da Nota: ERRO NOS TEXTOS PARAMETRIZADOS NA /PWS/ZYCIT104 NA DI
Sintoma
Alguns textos parametrizados na /pws/zycit104, não aparece corretamente na DI. Traz apenas a
informação do processo:
Exemplo:
Texto 500, 502 (Incoterm e Local embarque)
Solução
Atualizado programa para trazer o texto parametrizado na tabela /pws/zycit104 por completo na DI.
Versões Tratadas
9.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 12427 Data: 14/08/2012 Hora: 10:01:51
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 12427
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 9.0
Pacote : 00001
Agrupamento : 00124
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
11172 - 00001 - 8.0 - 00007 - TEXTO PRÉ-CONFIGURADO NA TABELA /PWS/ZYCIT104
----------------------------------------------------------------------------------------------------
ERRO NOS TEXTOS PARAMETRIZADOS NA /PWS/ZYCIT104 NA DI
----------------------------------------------------------------------------------------------------
Palavras Chave:
DI - COMPLEMENTARES - TEXTOS - /PWS/ZYCIT104
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F03
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F03
...
WHEN 'INCO1'.
LOOP AT itab_it
WHERE NOT inco1 IS initial.
it_words_app-word = itab_it-inco1.
COLLECT it_words_app.
ENDLOOP.
* >> Início da inclusão: FORM FILL_TEXT_COMPL
CLEAR: it_words-word.
LOOP AT it_words_app.
IF it_words-word IS INITIAL.
it_words-word = it_words_app-word.
ELSE.
CONCATENATE it_words-word '-' it_words_app-word
INTO it_words-word SEPARATED BY space.
ENDIF.
ENDLOOP.
CLEAR: it_words_app, it_words_app[].
* << Fim da inclusão
WHEN 'DESCR2'.
...
...
IF it_words_app[] IS INITIAL.
CLEAR v_txta.
IF v_word EQ 'X'.
LOOP AT it_words.
MOVE it_words-word TO v_txta.
ittxt2-line = v_txta(66).
APPEND ittxt2.
ENDLOOP.
ELSE.
* >> Início da inclusão: FORM FILL_TEXT_COMPL
CLEAR: v_txta.
* << Fim da inclusão
LOOP AT it_words.
* >> Início da inclusão: FORM FILL_TEXT_COMPL
IF v_txta IS INITIAL.
* << Fim da inclusão
v_txta = it_words-word.
* >> Início da inclusão: FORM FILL_TEXT_COMPL
ELSE.
CONCATENATE v_txta it_words-word INTO v_txta
SEPARATED BY space.
ENDIF.
* << Fim da inclusão
ENDLOOP.
v_lena = strlen( v_txta ).
ittxt2-line = v_txta(66).
APPEND ittxt2.
IF v_lena > 66.
ittxt2-line = v_txta+66(34).
APPEND ittxt2.
ENDIF.
ENDIF.
ELSE.
...