CE PLUS - Nota 003831
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: LI
Data/Hora da Publicação: 01/06/2007 00:00:00
Data/Hora Última Alteração: 09/03/2010 09:44:53
Descrição da Nota: NÃO CRIA TEXTOS DA LI ENQUANTO NÃO NAVEGA PELOS ITENS.
Sintoma
Transmissão LI para o Siscomex - não está transmitindo o campo Especificação para o siscomex se o
usuário não navegar em todos os itens anteriormente a transmissão.
Solução
criar textos dos itens ao criar LI.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 03831 Data: 01/06/2007 Hora: 17:32:38
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 03831
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00027
Agrupamento : 00168
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
NÃO CRIA TEXTOS DA LI ENQUANTO NÃO NAVEGA PELOS ITENS.
----------------------------------------------------------------------------------------------------
Palavras Chave:
LI - TEXTOS DOS ITENS - NAVEGAR PELOS ITENS
CAMPO ESPECIFICAÇÃO.
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI020F01
REPS /PWS/MZYCI020F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020F01
...
ebeln = it_zycit079-ebeln.
v_ncm = itab_itens_aux-j_1bnbm.
ENDIF.
MOVE: v_ncm TO /pws/zycie078-steuc1,
v_ncm TO wa_zycit078-steuc1.
IF NOT v_exit IS INITIAL.
EXIT.
ENDIF.
LOOP AT it_zycit079.
MOVE-CORRESPONDING it_zycit079 TO /pws/zycie079a.
* >> Início da exclusão: FORM SAVE
IF sy-subrc EQ 0.
* << Fim da exclusão
PERFORM: load_meins,
load_especificacao,
load_moeda_det,
fill_desc.
IF /pws/zycie078-flagpli EQ 'X'.
CONCATENATE it_zycit079-nrseqli it_zycit079-ebeln
it_zycit079-ebelp INTO v_txtki.
PERFORM preenche_thead USING wa_thead 'CE01'.
CALL FUNCTION 'SAVE_TEXT'
EXPORTING
...
...
savemode_direct = 'X'
owner_specified = 'X'
TABLES
lines = rtexti
EXCEPTIONS
id = 1
language = 2
name = 3
object = 4
OTHERS = 5.
* >> Início da exclusão: FORM SAVE
ENDIF.
* << Fim da exclusão
ENDIF.
ENDLOOP.
IF /pws/zycie078-tpli EQ 'S'.
IF /pws/zycie078-classific EQ '2'.
CLEAR: /pws/zycie078-steuc1,
wa_zycit078-steuc1.
ENDIF.
ENDIF.
IF /pws/zycie078-zum IS INITIAL.
SELECT SINGLE /pws/zum
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020F02
...
ENDIF.
ENDIF.
ENDFORM.
FORM fill_desc.
if /pws/zycie078-dtuserc is initial and
( sy-tcode eq '/PWS/ZYCI020_C' or
sy-tcode eq '/PWS/ZYCI020_I' OR
SY-TCODE EQ '/PWS/ZYCI020_P' ) .
/pws/zycie078-dtuserc = sy-datum .
endif.
* >> Início da exclusão: FORM FILL_DESC
IF v_esp IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DESC
clear rtexti.
CONCATENATE it_zycit079-nrseqli it_zycit079-ebeln
it_zycit079-ebelp INTO v_txtki.
PERFORM preenche_thead USING wa_thead 'CE01'.
CALL FUNCTION 'READ_TEXT'
EXPORTING
client = sy-mandt
id = 'ZTLI'
language = sy-langu
name = v_txtki
object = '/PWS/ITLI'
TABLES
lines = RTEXTI
EXCEPTIONS
id = 1
language = 2
name = 3
not_found = 4
object = 5
reference_check = 6
wrong_access_to_archive = 7
OTHERS = 8.
IF sy-subrc = 0.
READ TABLE rtexti INDEX 1.
ENDIF.
IF rtexti IS INITIAL.
* << Fim da inclusão
CLEAR rtexti.
REFRESH rtexti.
IF itab_zycit229[] IS INITIAL.
SELECT * FROM /pws/zycit229 INTO TABLE itab_zycit229
WHERE codeven EQ 'LI'.
ENDIF.
SORT itab_zycit229 BY codseq.
READ TABLE it_ekpo WITH KEY ebeln = it_zycit079-ebeln
ebelp = it_zycit079-ebelp.
DATA: v_spras LIKE ekko-spras.
...
...
ENDIF.
ENDLOOP.
if not /PWS/ZYCIE078-NRSEQD is initial.
perform verifica_generico.
endif.
READ TABLE rtexti INDEX 1.
CLEAR rtexti-tdformat.
v_esp = rtexti-tdline.
MODIFY rtexti INDEX 1.
PERFORM save_txt_2.
* >> Início da inclusão: FORM FILL_DESC
ENDIF.
IF v_esp IS INITIAL.
READ TABLE rtexti INDEX 1.
v_esp = rtexti-tdline.
* << Fim da inclusão
ENDIF.
ENDFORM.
FORM read_text_especif CHANGING p_v_texto.
READ TABLE itab_stxl INDEX 1.
CALL FUNCTION 'READ_TEXT'
EXPORTING
client = sy-mandt
id = itab_stxl-tdid
language = itab_stxl-tdspras
name = v_name
...