CE PLUS - Nota 005301
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DSI
Data/Hora da Publicação: 23/11/2007 00:00:00
Data/Hora Última Alteração: 09/03/2010 11:20:55
Descrição da Nota: ERRO AO SOLICITAR CONVERSÃO PARA BRL E TRAZER TEXTOS DA /PWS/ZYCIT229.
Sintoma
O sistema está enviando a descrição basica do material para DSI, na /PWS/ZYCIT229 não tem parametro
de descrição para DSI, o sistema deveria respeitar o mesmo parametro para DI
MOEDA DO SEGURO EM BRL -
o campo ESPECIFICAÇÃO - Det. Item. Também não exibe textos quando dá duplo click neste campo.
Solução
Atualização do programa de DSI para que o sistema leve corretamente a taxa de BRL e leve os textos
do ítem de acordo com a parametrização.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 05301 Data: 23/11/2007 Hora: 16:57:02
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 05301
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00003
Agrupamento : 00024
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
ERRO AO SOLICITAR CONVERSÃO PARA BRL E TRAZER TEXTOS DA /PWS/ZYCIT229.
----------------------------------------------------------------------------------------------------
Palavras Chave:
CONVERSÃO PARA BRL - TEXTOS /PWS/ZYCIT229 - DSI
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI058F01
REPS /PWS/MZYCI058F02
REPS /PWS/MZYCI058F03
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI058F01
...
CHANGING p_taxa.
CLEAR: p_taxa, v_msgfre.
DATA: v_moeda LIKE tcurc-/pws/codmo,
v_msgd(10),
v_linhas TYPE i.
IF /pws/zycbt007 IS INITIAL.
SELECT SINGLE *
FROM /pws/zycbt007
WHERE bukrs EQ /pws/zycie085-bukrs.
ENDIF.
* >> Início da inclusão: FORM TAXA_CONVERTE
move /pws/zycbt007 to wa_zycbt007.
if p_waers eq wa_zycbt007-waersb.
p_taxa = 1.
exit.
endif.
* << Fim da inclusão
SELECT SINGLE /pws/codmo FROM tcurc INTO v_moeda WHERE
waers = p_waers.
IF sy-subrc EQ 0 AND NOT p_waers EQ /pws/zycbt007-waersb.
REFRESH itab_zycit174.
SELECT SINGLE * FROM t001 WHERE bukrs = /pws/zycie085-bukrs.
SELECT * FROM /pws/zycit174 INTO TABLE itab_zycit174 WHERE
codconver = v_moeda AND
vigen_inicio <= p_data AND
vigen_fim >= p_data AND
land1 = t001-land1.
...
...
IF sy-tcode NE '/PWS/ZYCI023_E'.
v_changed = '1'.
ENDIF.
ENDIF.
ENDFORM.
FORM data_dele.
DELETE FROM /pws/zycit085 WHERE nrseqdi = /pws/zycie085-nrseqdi.
DELETE FROM /pws/zycit095 WHERE nrseqdi = /pws/zycie085-nrseqdi.
DELETE FROM /pws/zycit100 WHERE nrseqdi = /pws/zycie085-nrseqdi.
DELETE FROM /pws/zycit049 WHERE nrseq = /pws/zycie085-nrseqdi.
* >> Início da exclusão: FORM DATA_DELE
IF v_dit = 'N'.
* << Fim da exclusão
DELETE FROM /pws/zycit086 WHERE nrseqdi = /pws/zycie085-nrseqdi.
DELETE FROM /pws/zycit087 WHERE nrseqdi = /pws/zycie085-nrseqdi.
DELETE FROM /pws/zycit096 WHERE nrseqdi = /pws/zycie085-nrseqdi.
DELETE FROM /pws/zycit114 WHERE nrseqdi = /pws/zycie085-nrseqdi.
DELETE FROM /pws/zycit115 WHERE nrseqdi = /pws/zycie085-nrseqdi.
DELETE FROM /pws/zycit116 WHERE nrseqdi = /pws/zycie085-nrseqdi.
DELETE FROM /pws/zycit118 WHERE nrseqdi = /pws/zycie085-nrseqdi.
DELETE FROM /pws/zycit121 WHERE nrseqdi = /pws/zycie085-nrseqdi.
DELETE FROM /pws/zycit124 WHERE nrseqdi = /pws/zycie085-nrseqdi.
DELETE FROM /pws/zycit049 WHERE nrseq = /pws/zycie085-nrseqdi.
PERFORM delete_text.
* >> Início da exclusão: FORM DATA_DELE
ENDIF.
* << Fim da exclusão
COMMIT WORK.
LEAVE PROGRAM.
ENDFORM.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI058F02
...
IF v_dit = 'S'.
/pws/zycie093-prepaid = /pws/zycie093-vlfre.
ENDIF.
CLEAR /pws/zycie093-collect.
ENDIF.
ENDFORM.
FORM load_blwa.
PERFORM load_waers USING itab_it-waers CHANGING t_msis t_mdes.
ENDFORM.
FORM read_text_blitem CHANGING p_text.
* >> Início da exclusão: FORM READ_TEXT_BLITEM
CALL FUNCTION 'READ_TEXT'
EXPORTING
client = sy-mandt
id = 'ZDSI' "Constante
language = sy-langu
name = v_txtki
object = '/PWS/CIDI' "Objeto Fixo
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.
* << Fim da exclusão: FORM READ_TEXT_BLITEM
* >> Início da inclusão: FORM READ_TEXT_BLITEM
PERFORM fill_desc.
* << Fim da inclusão: FORM READ_TEXT_BLITEM
CLEAR: p_text.
IF NOT rtexti[] IS INITIAL.
READ TABLE rtexti INDEX 1.
p_text = rtexti-tdline.
ELSE.
IF sy-dynnr NE '0400'.
* >> Início da inclusão: FORM READ_TEXT_BLITEM
IF NOT itab_it-especificacao IS INITIAL.
p_text = itab_it-especificacao.
ELSE.
* << Fim da inclusão: FORM READ_TEXT_BLITEM
p_text = itab_it-descr.
* >> Início da inclusão: FORM READ_TEXT_BLITEM
ENDIF.
* << Fim da inclusão: FORM READ_TEXT_BLITEM
ENDIF.
ENDIF.
* >> Início da exclusão: FORM READ_TEXT_BLITEM
ELSE.
IF sy-dynnr NE '0400'.
p_text = itab_it-descr.
ELSE.
IF NOT itab_it-especificacao IS INITIAL.
IF rtexti[] IS INITIAL.
rtexti-tdformat = space.
rtexti-tdline = itab_it-especificacao.
APPEND rtexti.
ENDIF.
/pws/zycie100a-especificacao = itab_it-especificacao.
ELSE.
/pws/zycie100a-especificacao = rtexti-tdline.
itab_it-especificacao = rtexti-tdline.
MODIFY itab_it TRANSPORTING especificacao
WHERE ebeln = itab_it-ebeln
AND ebelp = itab_it-ebelp.
ENDIF.
ENDIF.
ENDIF.
* << Fim da exclusão: FORM READ_TEXT_BLITEM
ENDFORM. " read_text_blitem
FORM text_edit_blitem CHANGING p_text.
DELETE ADJACENT DUPLICATES FROM rtexti COMPARING tdline.
READ TABLE rtexti INDEX 1.
IF sy-subrc = 0.
...
...
ELSE.
p_text = rtexti-tdline.
ENDIF.
ENDIF.
ELSE.
IF NOT p_text IS INITIAL.
rtexti-tdline = p_text.
APPEND rtexti.
ENDIF.
ENDIF.
* >> Início da exclusão: FORM TEXT_EDIT_BLITEM
xtheadi-tdobject = '/PWS/CIDDI'.
* << Fim da exclusão
* >> Início da inclusão: FORM TEXT_EDIT_BLITEM
xtheadi-tdobject = '/PWS/CIDI'.
* << Fim da inclusão
xtheadi-tdname = v_txtki.
xtheadi-tdid = 'ZDSI'.
xtheadi-tdspras = sy-langu.
xtheadi-tdlinesize = 072.
* >> Início da inclusão: FORM TEXT_EDIT_BLITEM
DATA: v_spras LIKE ekko-spras.
SORT itab_zycit229 BY codseq.
READ TABLE itab_ekpo WITH KEY ebeln = itab_zycit003-ebeln
ebelp = itab_zycit003-ebelp.
IF NOT itab_zycit229[] IS INITIAL.
LOOP AT itab_zycit229.
CLEAR: v_name, v_texto, itab_makt, itab_stxl, v_spras.
FREE: itab_makt, itab_stxl.
IF itab_zycit229-spras NE space.
v_spras = itab_zycit229-spras.
ELSE.
SELECT SINGLE spras FROM ekko INTO v_spras
WHERE ebeln = itab_zycit003-ebeln.
ENDIF.
IF itab_zycit229-txtdesc = '01'.
SELECT SINGLE * FROM makt INTO itab_makt
WHERE matnr = itab_ekpo-matnr
AND spras = v_spras.
IF sy-subrc = 0.
rtexti-tdformat = '*'.
rtexti-tdline = itab_makt-maktx.
APPEND rtexti.
ELSE.
IF NOT itab_ekpo-txz01 IS INITIAL.
rtexti-tdformat = '*'.
rtexti-tdline = itab_ekpo-txz01.
APPEND rtexti.
ELSE.
READ TABLE itab_ekpo INDEX 1.
rtexti-tdformat = '*'.
rtexti-tdline = itab_ekpo-txz01.
APPEND rtexti.
ENDIF.
ENDIF.
ELSEIF itab_zycit229-txtdesc = '02'.
SELECT SINGLE * FROM stxl INTO itab_stxl
WHERE relid = 'TX' AND
tdobject = 'MATERIAL' AND
tdname = itab_ekpo-matnr AND
tdid = 'BEST' AND
tdspras = v_spras AND
srtf2 = 0.
IF sy-subrc = 0.
v_name = itab_ekpo-matnr.
PERFORM read_text_especif CHANGING v_texto.
ENDIF.
ELSEIF itab_zycit229-txtdesc = '03'.
SELECT SINGLE * FROM stxl INTO itab_stxl
WHERE relid = 'TX' AND
tdobject = 'MATERIAL' AND
tdname = itab_ekpo-matnr AND
tdid = 'GRUN' AND
tdspras = v_spras AND
srtf2 = 0.
IF sy-subrc = 0.
v_name = itab_ekpo-matnr.
PERFORM read_text_especif CHANGING v_texto.
ENDIF.
ELSEIF itab_zycit229-txtdesc = '13'.
CONCATENATE itab_it-ebeln itab_it-ebelp INTO v_name.
SELECT SINGLE * FROM stxl INTO itab_stxl
WHERE relid = 'TX' AND
tdobject = 'EKPO' AND
tdname = v_name AND
tdid = 'F02' AND
tdspras = v_spras AND
srtf2 = 0.
IF sy-subrc = 0.
PERFORM read_text_especif CHANGING v_texto.
ENDIF.
ELSEIF itab_zycit229-txtdesc = '04'.
CONCATENATE itab_it-ebeln itab_it-ebelp INTO v_name.
SELECT SINGLE * FROM stxl INTO itab_stxl
WHERE relid = 'TX' AND
tdobject = 'EKPO' AND
tdname = v_name AND
tdid = 'F01' AND
tdspras = v_spras AND
srtf2 = 0.
IF sy-subrc = 0.
PERFORM read_text_especif CHANGING v_texto.
ELSE.
MOVE itab_zycit003-descr TO itab_it-especificacao.
MODIFY itab_it TRANSPORTING especificacao
WHERE ebeln EQ itab_zycit003-ebeln
AND ebelp EQ itab_zycit003-ebelp.
ENDIF.
ELSEIF itab_zycit229-txtdesc = '05'.
CONCATENATE itab_it-ebeln itab_it-ebelp INTO v_name.
SELECT SINGLE * FROM stxl INTO itab_stxl
WHERE relid = 'TX' AND
tdobject = 'EKPO' AND
tdname = v_name AND
tdid = 'F03' AND
tdspras = v_spras AND
srtf2 = 0.
IF sy-subrc = 0.
PERFORM read_text_especif CHANGING v_texto.
ENDIF.
ELSEIF itab_zycit229-txtdesc = '06'.
CONCATENATE itab_it-ebeln itab_it-ebelp INTO v_name.
SELECT SINGLE * FROM stxl INTO itab_stxl
WHERE relid = 'TX' AND
tdobject = 'EKPO' AND
tdname = v_name AND
tdid = 'F04' AND
tdspras = v_spras AND
srtf2 = 0.
IF sy-subrc = 0.
PERFORM read_text_especif CHANGING v_texto.
ENDIF.
ELSEIF itab_zycit229-txtdesc = '07'.
CONCATENATE itab_it-ebeln itab_it-ebelp INTO v_name.
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.
PERFORM read_text_especif CHANGING v_texto.
ENDIF.
ELSEIF itab_zycit229-txtdesc = '09'.
SELECT SINGLE werks FROM ekpo INTO v_werks WHERE
ebeln = itab_it-ebeln AND
ebelp = itab_it-ebelp.
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-071 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
ebeln = itab_it-ebeln AND
ebelp = itab_it-ebelp.
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-114 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 = '*'.
CONCATENATE text-052 itab_zycit003-ebeln
INTO rtexti-tdline SEPARATED BY space.
APPEND rtexti.
ELSEIF itab_zycit229-txtdesc = '12'.
rtexti-tdformat = '*'.
CONCATENATE text-115 itab_zycit003-ebelp
INTO rtexti-tdline SEPARATED BY space.
APPEND rtexti.
ENDIF.
ENDLOOP.
ENDIF.
SORT rtexti BY tdline.
DELETE ADJACENT DUPLICATES FROM rtexti COMPARING tdline.
* << 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/MZYCI058F03
...
ENDIF.
ENDIF.
ENDIF.
ENDFORM.
FORM text_item_fill.
CLEAR: rtexti, xtheadi.
REFRESH: rtexti.
CONCATENATE /pws/zycie085-nrseqdi itab_it-nrseq itab_it-ebeln
itab_it-ebelp INTO v_txtki.
PERFORM fill_desc.
* >> Início da exclusão: FORM TEXT_ITEM_FILL
xtheadi-tdobject = '/PWS/CIDDI'.
xtheadi-tdname = v_txtki.
xtheadi-tdid = 'ZDSI'.
xtheadi-tdspras = sy-langu.
xtheadi-tdlinesize = 070.
CALL FUNCTION 'READ_TEXT'
EXPORTING
client = sy-mandt
id = 'ZDSI'
language = sy-langu
name = v_txtki
object = '/PWS/CIDI'
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
ENDFORM.
FORM text_adic_fill.
CLEAR: rtexti, xtheadi.
REFRESH: rtexti.
CONCATENATE /pws/zycie085-nrseqdi itab_itb-nrseq itab_itb-ebeln
itab_itb-ebelp INTO v_txtki.
CALL FUNCTION 'READ_TEXT'
EXPORTING
client = sy-mandt
id = 'ZDSI'
...
...
ittxt2-line = it_words_app-word.
APPEND ittxt2.
ENDLOOP.
ENDIF.
ENDLOOP.
MOVE: ittxt2[] TO ittxt1[].
CALL METHOD editor2->set_text_as_r3table EXPORTING table = ittxt1[].
LEAVE TO SCREEN 0.
ENDFORM.
FORM read_text_especif CHANGING p_text.
* >> Início da exclusão: FORM READ_TEXT_ESPECIF
READ TABLE itab_stxl INDEX 1.
* << Fim da exclusão
CALL FUNCTION 'READ_TEXT'
EXPORTING
client = sy-mandt
id = itab_stxl-tdid
language = itab_stxl-tdspras
name = v_name
object = itab_stxl-tdobject
archive_handle = 0
local_cat = ' '
TABLES
...
...
rtexti-tdline = rtextesp-tdline.
APPEND rtexti.
ENDLOOP.
ENDIF.
ENDFORM.
FORM fill_desc.
* >> Início da inclusão: FORM FILL_DESC
IF /pws/zycie085-dtuserc IS INITIAL AND
sy-tcode EQ '/PWS/ZYCI023_C' .
/pws/zycie085-dtuserc = sy-datum .
ENDIF.
* << Fim da inclusão
* >> Início da exclusão: FORM FILL_DESC
CLEAR rtexti. REFRESH rtexti.
CALL FUNCTION 'READ_TEXT'
EXPORTING
client = sy-mandt
id = 'ZDSI'
language = sy-langu
name = v_txtki
object = '/PWS/CIDDI'
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.
* << Fim da exclusão
DATA: v_spras LIKE ekko-spras.
* >> Início da exclusão: FORM FILL_DESC
IF rtexti IS INITIAL.
* << Fim da exclusão
SORT itab_zycit229 BY codseq.
READ TABLE itab_ekpo WITH KEY ebeln = itab_zycit003-ebeln
ebelp = itab_zycit003-ebelp.
IF NOT itab_zycit229[] IS INITIAL.
LOOP AT itab_zycit229.
CLEAR: v_name, v_texto, itab_makt, itab_stxl, v_spras.
FREE: itab_makt, itab_stxl.
IF itab_zycit229-spras NE space.
v_spras = itab_zycit229-spras.
ELSE.
SELECT SINGLE spras FROM ekko INTO v_spras
WHERE ebeln = itab_zycit003-ebeln.
ENDIF.
IF itab_zycit229-txtdesc = '01'.
SELECT SINGLE * FROM makt INTO itab_makt
* >> Início da exclusão: FORM FILL_DESC
WHERE matnr = itab_ekpo-ematn
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DESC
WHERE matnr = itab_ekpo-matnr
* << Fim da inclusão
AND spras = v_spras.
IF sy-subrc = 0.
rtexti-tdformat = '*'.
rtexti-tdline = itab_makt-maktx.
APPEND rtexti.
ELSE.
IF NOT itab_ekpo-txz01 IS INITIAL.
rtexti-tdformat = '*'.
rtexti-tdline = itab_ekpo-txz01.
APPEND rtexti.
...
...
ELSEIF itab_zycit229-txtdesc = '03'.
SELECT SINGLE * FROM stxl INTO itab_stxl
WHERE relid = 'TX' AND
tdobject = 'MATERIAL' AND
tdname = itab_ekpo-matnr AND
tdid = 'GRUN' AND
tdspras = v_spras AND
srtf2 = 0.
IF sy-subrc = 0.
v_name = itab_ekpo-matnr.
* >> Início da inclusão: FORM FILL_DESC
PERFORM read_text_especif CHANGING v_texto.
ENDIF.
ELSEIF itab_zycit229-txtdesc = '13'.
CONCATENATE itab_it-ebeln itab_it-ebelp INTO v_name.
SELECT SINGLE * FROM stxl INTO itab_stxl
WHERE relid = 'TX' AND
tdobject = 'EKPO' AND
tdname = v_name AND
tdid = 'F02' AND
tdspras = v_spras AND
srtf2 = 0.
IF sy-subrc = 0.
* << Fim da inclusão
PERFORM read_text_especif CHANGING v_texto.
ENDIF.
ELSEIF itab_zycit229-txtdesc = '04'.
CONCATENATE itab_it-ebeln itab_it-ebelp INTO v_name.
SELECT SINGLE * FROM stxl INTO itab_stxl
WHERE relid = 'TX' AND
tdobject = 'EKPO' AND
tdname = v_name AND
tdid = 'F01' AND
tdspras = v_spras AND
srtf2 = 0.
IF sy-subrc = 0.
PERFORM read_text_especif CHANGING v_texto.
ELSE.
MOVE itab_zycit003-descr TO itab_it-especificacao.
MODIFY itab_it TRANSPORTING especificacao
WHERE ebeln EQ itab_zycit003-ebeln
AND ebelp EQ itab_zycit003-ebelp.
* >> Início da exclusão: FORM FILL_DESC
rtexti-tdformat = '*'.
rtexti-tdline = itab_zycit003-descr.
APPEND rtexti.
* << Fim da exclusão
ENDIF.
ELSEIF itab_zycit229-txtdesc = '05'.
CONCATENATE itab_it-ebeln itab_it-ebelp INTO v_name.
SELECT SINGLE * FROM stxl INTO itab_stxl
WHERE relid = 'TX' AND
tdobject = 'EKPO' AND
tdname = v_name AND
tdid = 'F03' AND
tdspras = v_spras AND
srtf2 = 0.
...
...
INTO rtexti-tdline SEPARATED BY space.
APPEND rtexti.
ENDIF.
ENDLOOP.
ELSE.
READ TABLE itab_ekpo WITH KEY ebeln = itab_it-ebeln
ebelp = itab_it-ebelp.
rtexti-tdformat = '*'.
rtexti-tdline = itab_ekpo-txz01.
APPEND rtexti.
* >> Início da inclusão: FORM FILL_DESC
ENDIF.
* << Fim da inclusão
* >> Início da exclusão: FORM FILL_DESC
ENDIF.
* << Fim da exclusão
IF itab_it-especificacao IS INITIAL.
* >> Início da exclusão: FORM FILL_DESC
IF NOT rtexti[] IS INITIAL.
* << Fim da exclusão
READ TABLE rtexti INDEX 1.
* >> Início da inclusão: FORM FILL_DESC
itab_it-especificacao = rtexti-tdline.
ENDIF.
* << Fim da inclusão
* >> Início da exclusão: FORM FILL_DESC
itab_it-especificacao = rtexti-tdline.
ELSE.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DESC
IF itab_it-especificacao IS INITIAL.
* << Fim da inclusão
READ TABLE itab_zycit003 WITH KEY ebeln = itab_it-ebeln
ebelp = itab_it-ebelp.
itab_it-especificacao = itab_zycit003-descr.
ENDIF.
* >> Início da exclusão: FORM FILL_DESC
ENDIF.
* << Fim da exclusão
ENDFORM. " fill_desc
FORM adic_li_data.
DATA: local_it_109 LIKE /pws/zycie109 OCCURS 0 WITH HEADER LINE.
LOOP AT it_alist.
REFRESH: local_it_109.
SELECT * FROM /pws/zycit109 INTO TABLE local_it_109 WHERE
nrseqli = it_alist-nrseqli AND
tpli = 'N'.
IF sy-subrc EQ 0.
LOOP AT local_it_109.
itab_zycit114-nrseqdi = /pws/zycie085-nrseqdi.
...