CE PLUS - Nota 002850
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: LI
Data/Hora da Publicação: 10/01/2007 00:00:00
Data/Hora Última Alteração: 08/03/2010 16:35:50
Descrição da Nota: O SISTEMA NAO RECUPERA TEXTOS DO PEDIDO DE COMPRA
Sintoma
LI / Detalhe do Item / campo Especificação.
O sistema não está recuperando o texto: Texto do pedido de compra, no campo especificação da LI em
LI / Detalhe do Item / campo Especificação, conforme parametrizado na tabela /PWS/ZYCIT229.
Solução
Limpar o campo especificação da LI .atualizar os textos ao entrar na LI
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 02850 Data: 10/01/2007 Hora: 11:20:06
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 02850
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 6.0
Pacote : 00026
Agrupamento : 00146
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
O SISTEMA NAO RECUPERA TEXTOS DO PEDIDO DE COMPRA
----------------------------------------------------------------------------------------------------
Palavras Chave:
CAMPO ESPECIFICAÇÃO - TEXTOS DO PEDIDO DE COMPRA - LI - /PWS/ZYCIT229
PARÂMETROS DE TEXTOS
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI020F02
REPS /PWS/MZYCI020I01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020F02
...
IF v_resposta EQ 'J'.
wa_zycit136-stasis = 'A'.
wa_zycit136-dtenvf = sy-datum .
MODIFY /pws/zycit136 FROM wa_zycit136.
ENDIF.
ENDIF.
ENDIF.
ENDFORM.
FORM fill_desc.
IF v_esp IS INITIAL.
* >> Início da inclusão: FORM FILL_DESC
CLEAR rtexti.
REFRESH rtexti.
* << Fim da inclusão
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.
LOOP AT itab_zycit229.
CLEAR: v_name, v_texto, itab_makt, itab_stxl, v_spras.
...
...
WHERE relid = 'TX' AND
tdobject = 'MATERIAL' AND
tdname = it_ekpo-matnr AND
tdid = 'GRUN' AND
tdspras = v_spras.
IF sy-subrc = 0.
v_name = it_ekpo-matnr.
PERFORM read_text_especif CHANGING v_texto.
ENDIF.
ELSEIF itab_zycit229-txtdesc = '04'.
* >> Início da exclusão: FORM FILL_DESC
CONCATENATE /pws/zycie079a-ebeln /pws/zycie079a-ebelp INTO v_name.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DESC
CONCATENATE it_zycit079-ebeln it_zycit079-ebelp INTO v_name.
* << Fim da inclusão
IF NOT v_name IS INITIAL AND v_name NE '00000'.
SELECT SINGLE * FROM stxl INTO itab_stxl
WHERE relid = 'TX' AND
tdobject = 'EKPO' AND
tdname = v_name AND
tdid = 'F01' AND
tdspras = v_spras.
IF sy-subrc = 0.
PERFORM read_text_especif CHANGING v_texto.
ENDIF.
ENDIF.
ELSEIF itab_zycit229-txtdesc = '05'.
* >> Início da exclusão: FORM FILL_DESC
CONCATENATE /pws/zycie079a-ebeln /pws/zycie079a-ebelp INTO v_name.
IF NOT v_name IS INITIAL AND v_name NE '00000'.
* << Fim da exclusão
SELECT SINGLE * FROM stxl INTO itab_stxl
* >> Início da exclusão: FORM FILL_DESC
WHERE relid = 'TX' AND
tdobject = 'EKPO' AND
tdname = v_name AND
tdid = 'F05' AND
tdspras = v_spras AND
srtf2 = 0.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DESC
WHERE relid = 'TX' AND
tdobject = 'MATERIAL' AND
tdname = it_ekpo-matnr AND
tdid = 'BEST' AND
tdspras = v_spras.
* << Fim da inclusão
IF sy-subrc = 0.
* >> Início da inclusão: FORM FILL_DESC
v_name = it_ekpo-matnr.
* << Fim da inclusão
PERFORM read_text_especif CHANGING v_texto.
ENDIF.
* >> Início da exclusão: FORM FILL_DESC
ENDIF.
* << Fim da exclusão
ELSEIF itab_zycit229-txtdesc = '06'.
* >> Início da exclusão: FORM FILL_DESC
CONCATENATE /pws/zycie079a-ebeln /pws/zycie079a-ebelp INTO v_name.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DESC
CONCATENATE it_zycit079-ebeln it_zycit079-ebelp INTO v_name.
* << Fim da inclusão
IF NOT v_name IS INITIAL AND v_name NE '00000'.
SELECT SINGLE * FROM stxl INTO itab_stxl
WHERE relid = 'TX' AND
tdobject = 'EKPO' AND
tdname = v_name AND
* >> Início da exclusão: FORM FILL_DESC
tdid = 'F05' AND
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DESC
tdid = 'F04' AND
* << Fim da inclusão
tdspras = v_spras AND
srtf2 = 0.
IF sy-subrc = 0.
PERFORM read_text_especif CHANGING v_texto.
ENDIF.
ENDIF.
ELSEIF itab_zycit229-txtdesc = '07'.
* >> Início da exclusão: FORM FILL_DESC
CONCATENATE /pws/zycie079a-ebeln /pws/zycie079a-ebelp INTO v_name.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DESC
CONCATENATE it_zycit079-ebeln it_zycit079-ebelp INTO v_name.
* << Fim da inclusão
IF NOT v_name IS INITIAL AND v_name NE '00000'.
SELECT SINGLE * FROM stxl INTO itab_stxl
WHERE relid = 'TX' AND
tdobject = 'EKPO' AND
tdname = v_name AND
tdid = 'F05' AND
tdspras = v_spras AND
srtf2 = 0.
IF sy-subrc = 0.
* >> Início da inclusão: FORM FILL_DESC
PERFORM read_text_especif CHANGING v_texto.
ELSE.
v_name = it_ekpo-infnr.
SELECT SINGLE * FROM stxl INTO itab_stxl
WHERE relid = 'TX' AND
tdobject = 'EINA' AND
tdname = v_name AND
tdid = 'AT' AND
tdspras = v_spras AND
srtf2 = 0.
IF sy-subrc IS INITIAL.
* << Fim da inclusão
PERFORM read_text_especif CHANGING v_texto.
* >> Início da inclusão: FORM FILL_DESC
ENDIF.
* << Fim da inclusão
ENDIF.
ENDIF.
ELSEIF itab_zycit229-txtdesc = '09'.
SELECT SINGLE werks FROM ekpo INTO v_werks WHERE
* >> Início da exclusão: FORM FILL_DESC
ebeln = /pws/zycie079a-ebeln AND
ebelp = /pws/zycie079a-ebelp.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DESC
ebeln = it_zycit079-ebeln AND
ebelp = it_zycit079-ebelp.
* << Fim da inclusão
IF sy-subrc EQ 0.
SELECT SINGLE name1 FROM t001w INTO v_name WHERE
werks = v_werks.
IF sy-subrc EQ 0.
rtexti-tdformat = '*'.
CONCATENATE text-169 v_name
INTO rtexti-tdline SEPARATED BY space.
APPEND rtexti.
ENDIF.
ENDIF.
ELSEIF itab_zycit229-txtdesc = '10'.
SELECT SINGLE werks FROM ekpo INTO v_werks WHERE
* >> Início da exclusão: FORM FILL_DESC
ebeln = /pws/zycie079a-ebeln AND
ebelp = /pws/zycie079a-ebelp.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DESC
ebeln = it_zycit079-ebeln AND
ebelp = it_zycit079-ebelp.
* << Fim da inclusão
IF sy-subrc EQ 0.
SELECT SINGLE stras ort01 regio FROM t001w INTO wa_ender
WHERE werks = v_werks.
IF sy-subrc EQ 0.
rtexti-tdformat = '*'.
CONCATENATE text-170 wa_ender-stras wa_ender-ort01
wa_ender-regio
INTO rtexti-tdline SEPARATED BY space.
APPEND rtexti.
ENDIF.
ENDIF.
ELSEIF itab_zycit229-txtdesc = '11'.
rtexti-tdformat = '*'.
* >> Início da exclusão: FORM FILL_DESC
CONCATENATE text-172 /pws/zycie079a-ebeln
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DESC
CONCATENATE text-172 it_zycit079-ebeln
* << Fim da inclusão
INTO rtexti-tdline SEPARATED BY space.
APPEND rtexti.
ELSEIF itab_zycit229-txtdesc = '12'.
rtexti-tdformat = '*'.
* >> Início da exclusão: FORM FILL_DESC
CONCATENATE text-171 /pws/zycie079a-ebelp
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DESC
CONCATENATE text-171 it_zycit079-ebelp
* << Fim da inclusão
INTO rtexti-tdline SEPARATED BY space.
APPEND rtexti.
ENDIF.
ENDLOOP.
READ TABLE rtexti INDEX 1.
CLEAR rtexti-tdformat.
v_esp = rtexti-tdline.
MODIFY rtexti INDEX 1.
PERFORM save_txt_2.
ENDIF.
...
...
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 rtextesp INDEX 1.
MOVE rtextesp-tdline TO p_v_texto.
* >> Início da exclusão: FORM READ_TEXT_ESPECIF
CLEAR rtexti. REFRESH rtexti.
* << Fim da exclusão
LOOP AT rtextesp.
rtexti-tdformat = '*'.
rtexti-tdline = rtextesp-tdline.
APPEND rtexti.
ENDLOOP.
ENDIF.
ENDFORM.
FORM authority_empresa.
IF sy-tcode EQ '/PWS/ZYCI020_C'.
AUTHORITY-CHECK OBJECT 'F_BKPF_BUK' ID 'BUKRS'
...
...
LOOP AT it_zycit080.
IF it_zycit080-lifnr EQ /pws/zycie080-lifnr AND
NOT it_zycit080-nrforn IS INITIAL.
CLEAR v_nrforn.
MOVE: it_zycit080-nrforn TO v_nrforn.
ENDIF.
ENDLOOP.
MOVE: v_nrforn TO /pws/zycie080-nrforn.
ENDFORM.
FORM load_v_esp.
* >> Início da exclusão: FORM LOAD_V_ESP
CONCATENATE /pws/zycie079a-nrseqli /pws/zycie079a-ebeln
/pws/zycie079a-ebelp INTO
v_txtki.
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.
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_V_ESP
PERFORM fill_desc.
* << Fim da inclusão
* >> Início da exclusão: FORM LOAD_V_ESP
IF sy-subrc EQ 0.
READ TABLE rtexti INDEX 1.
v_esp = rtexti-tdline.
ELSE.
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_V_ESP
IF v_esp IS INITIAL.
* << Fim da inclusão
PERFORM load_descri_suframa.
ENDIF.
ENDFORM.
FORM carrega_embarque.
IF NOT /pws/zycie001-nrseq IS INITIAL.
SELECT SINGLE * FROM /pws/zycit001 INTO /pws/zycie001
WHERE nrseq EQ /pws/zycie001-nrseq.
IF sy-subrc EQ 0.
MOVE /pws/zycie001-nrseq TO /pws/zycie078-nrseq.
IF NOT /pws/zycie078-nrseq IS INITIAL.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020I01
...
WHEN 'CLI'.
GET CURSOR FIELD v_field.
IF v_field = 'V_ESP'.
PERFORM atualiza_v_esp.
PERFORM preenche_v_esp.
ENDIF.
WHEN 'BACK'.
PERFORM atualiza_v_esp.
PERFORM field_industrializacao.
CLEAR: /pws/zycie079a,
* >> Início da exclusão: MODULE USER_COMMAND_0200
rtexti.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0200
rtexti,
v_esp.
* << Fim da inclusão
REFRESH rtexti.
CLEAR okcode.
IF /pws/zycie078-tpli EQ 'N' AND
/pws/zycie078-flagpli NE 'X'.
LEAVE TO SCREEN '0100'.
ELSEIF /pws/zycie078-tpli EQ 'N' AND
/pws/zycie078-flagpli EQ 'X'.
LEAVE TO SCREEN '0500'.
ELSEIF /pws/zycie078-tpli EQ 'S'.
LEAVE TO SCREEN '0400'.
...