CE PLUS - Nota 013208
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: LI
Data/Hora da Publicação: 29/08/2013 16:37:14
Data/Hora Última Alteração: 29/08/2013 16:37:14
Descrição da Nota: TRATAMENTO PARA BLOQUEIOS DE CAMPOS DA PLI
Sintoma
1) Na LI, quando for feito o cancelamento (botão X), limpar na tabela /pws/zycit079, o campo
/pws/zycit079-NUMLI, em registros de itens de PLI que estejam preenchidos com o /pws/zycit078-
NRSEQLI da LI que está sendo cancelada
2) Na PLI, fechar todos os campos para não permitir alteração de dados e não permitir
cancelamento (pelo item ou pelo botão ¿X¿) quando ao menos um dos itens da PLI tenha LI criada
(/pws/zycit079-NUMLI preenchido) e a LI não esteja cancelada. Para encontrar a LI do item, pesquisar
a LI na /pws/zycit078 com o campo /pws/zycit079-NUMLI e verificar campo /pws/zycit078-STATUS <>
¿CAN¿.
3) Caso existam itens sem a LI criada (/pws/zycit079-NUMLI em branco), deixar somente os campos
das telas detalhe este item habilitados para alteração e manter os da capa fechados.
4) Se todos os itens da PLI estiverem sem LI criada (/pws/zycit079-NUMLI em branco), liberar
para alteração todos os campos de todas as pastas da PLI.
5) Se todos os itens da PLI tiverem LI criada (/pws/zycit079-NUMLI preenchido), e a todas as
LI¿s estiverem canceladas liberar para alteração todos os campos de todas as pastas da PLI.
Obs.: este item (4) é uma conseqüência da verificação do item 2.
Solução
Novo tratamento para fechar campos da PLI quando esta estiver vinculada à uma LI que não esteja
cancelada.
Versões Tratadas
9.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 13208 Data: 29/08/2013 Hora: 15:18:09
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 13208
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 9.0
Pacote : 00005
Agrupamento : 00162
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
12255 - 00001 - 8.0 - 00011 - AJUSTES PARA TRANSMISSÃO SUFRAMA PLI
12259 - 00002 - 8.0 - 00011 - AAJUSTES PARA TRATAMENTO DE TRANSMISSÃO PLI
12300 - 00004 - 9.0 - 00001 - TRATAMENTO PARA CRIAR PLI COM CÓPIA E PLI SUBSTITUTIVA
13034 - 00005 - 9.0 - 00004 - PLI NÃO ABRE PASTA COMPLEMENTAR
13177 - 00006 - 9.0 - 00005 - ERRO NO CAMPO QTDEST DA TABELA /PWS/ZTCIT078
----------------------------------------------------------------------------------------------------
TRATAMENTO PARA BLOQUEIOS DE CAMPOS DA PLI
----------------------------------------------------------------------------------------------------
Palavras Chave:
BLOQUEIOS - FECHAR CAMPOS - PLI
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI020F01
REPS /PWS/MZYCI020F02
REPS /PWS/MZYCI020I01
REPS /PWS/MZYCI020O01
REPS /PWS/MZYCI020X01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020F01
...
FORM salva_item.
* >> Início da inclusão: FORM SALVA_ITEM
DATA: lt_zycit079_a TYPE /pws/zycit079 OCCURS 0 WITH HEADER LINE.
* << Fim da inclusão
...
...
ENDLOOP.
IF NOT /pws/zycie078-numpli IS INITIAL.
READ TABLE it_zycit079 INDEX 1.
CLEAR: lt_zycit079, lt_zycit079[].
SELECT * FROM /pws/zycit079 INTO TABLE lt_zycit079
WHERE nrseqli = /pws/zycie078-numpli
AND numli = /pws/zycie078-nrseqli.
UPDATE /pws/zycit079 SET nrli = it_zycit079-nrli
WHERE nrseqli = /pws/zycie078-numpli
AND numli = /pws/zycie078-nrseqli.
* >> Início da inclusão: FORM SALVA_ITEM
IF NOT /pws/zycie078-descrcan IS INITIAL.
CLEAR: lt_zycit079_a, lt_zycit079_a[].
SELECT * FROM /pws/zycit079 INTO TABLE lt_zycit079_a
WHERE nrseqli = /pws/zycie078-numpli
AND numli = /pws/zycie078-nrseqli.
LOOP AT lt_zycit079_a.
UPDATE /pws/zycit079 SET numli = space
WHERE nrseqli = lt_zycit079_a-nrseqli
AND tpli = lt_zycit079_a-tpli
AND ebeln = lt_zycit079_a-ebeln
AND ebelp = lt_zycit079_a-ebelp.
ENDLOOP.
ENDIF.
* << Fim da inclusão
LOOP AT lt_zycit079.
* >> Início da inclusão: FORM SALVA_ITEM
IF NOT /pws/zycie078-descrcan IS INITIAL.
CLEAR: lt_zycit079-numli.
ENDIF.
* << Fim da inclusão
lt_zycit079-nrli = it_zycit079-nrli.
MOVE-CORRESPONDING lt_zycit079 TO /pws/zycit079.
PERFORM carrega_log USING '/PWS/ZYCIT079' 'U'
' ' '/PWS/SAPMZYCI020' /pws/zycie078-nrseqli.
...
...
wa_thead-tdobject = '/PWS/ZYCI'.
wa_thead-tdname = v_txtki.
wa_thead-tdid = '0338'.
wa_thead-tdspras = sy-langu.
wa_thead-tdlinesize = 132.
* >> Início da exclusão: FORM PREENCHE_V_ESP
IF NOT /pws/zycie078-nrpli IS INITIAL AND
NOT /pws/zycie078-dtreg IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: FORM PREENCHE_V_ESP
IF ( gv_status EQ 'P' AND NOT /pws/zycie079a-numli IS INITIAL )
OR gv_status EQ 'F'.
* << Fim da inclusão
CALL FUNCTION 'EDIT_TEXT'
EXPORTING
display = 'X'
header = wa_thead
TABLES
lines = rtexti338
EXCEPTIONS
id = 1
language = 2
linesize = 3
...
...
IF sy-subrc EQ 0.
screen-input = '0' .
ELSE.
screen-input = '1' .
ENDIF.
ENDIF.
ENDIF.
ENDIF.
IF ( screen-group1 EQ 'OC1' OR
screen-group1 EQ 'FAB' ) .
* >> Início da exclusão: FORM MODO_EXIB
IF ( sy-tcode EQ '/PWS/ZYCI020_G' OR
sy-tcode EQ '/PWS/ZYCI020_I' OR
sy-tcode EQ '/PWS/ZYCI020_C' OR
* << Fim da exclusão
* >> Início da inclusão: FORM MODO_EXIB
IF sy-tcode EQ '/PWS/ZYCI020_G' OR
sy-tcode EQ '/PWS/ZYCI020_I'.
IF gv_status EQ 'F'.
screen-input = 0 .
ELSEIF gv_status EQ 'P'.
IF ( screen-name EQ '/PWS/ZYCIE109-CODNCM' OR
screen-name EQ '/PWS/ZYCIE079A-ALADI' OR
screen-name EQ '/PWS/ZYCIE079A-CODTARIF' OR
screen-name EQ '/PWS/ZYCIE079A-NALADI' OR
screen-name EQ '/PWS/ZYCIE081-NRANUENTE' OR
screen-name EQ '/PWS/ZYCIE081-ORGAO' OR
screen-name EQ '/PWS/ZYCIE079A-BEMENCOMENDA' OR
screen-name EQ '/PWS/ZYCIE079A-MATUSADO' ) AND
/pws/zycie079a-numli IS INITIAL.
screen-input = 1.
ELSE.
screen-input = 0 .
ENDIF.
ENDIF.
ELSE.
IF ( sy-tcode EQ '/PWS/ZYCI020_C' OR
* << Fim da inclusão
sy-tcode EQ '/PWS/ZYCI020_A') AND
( NOT v_nrpli IS INITIAL OR
NOT v_dtreg IS INITIAL ) .
IF ( sy-tcode EQ '/PWS/ZYCI020_C' OR
sy-tcode EQ '/PWS/ZYCI020_A') AND
NOT /pws/zycie078-numpli IS INITIAL.
screen-input = 0 .
ELSE.
screen-input = 0 .
ENDIF.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM MODO_EXIB
ENDIF.
* << Fim da inclusão
MODIFY SCREEN.
ENDLOOP.
IF ( sy-tcode EQ '/PWS/ZYCI020_G' OR
sy-tcode EQ '/PWS/ZYCI020_I' ) AND
* >> Início da exclusão: FORM MODO_EXIB
( NOT v_nrpli IS INITIAL OR
NOT v_dtreg IS INITIAL ) .
* << Fim da exclusão
* >> Início da inclusão: FORM MODO_EXIB
( gv_status EQ 'P' OR gv_status EQ 'F' ).
* << Fim da inclusão
LOOP AT tc_item_pli-cols INTO wa_cols.
wa_cols-screen-input = 0.
MODIFY tc_item_pli-cols FROM wa_cols.
ENDLOOP.
ENDIF.
...
...
ELSEIF wa_cols-screen-name EQ '/PWS/ZYCIE079-STEUC1'.
IF v_ncmdf NE 'X'.
wa_cols-invisible = 1.
ELSE.
wa_cols-invisible = 0.
ENDIF.
MODIFY tc_item-cols FROM wa_cols.
ENDIF.
IF ( sy-tcode EQ '/PWS/ZYCI020_G' OR
sy-tcode EQ '/PWS/ZYCI020_I' ) AND
* >> Início da exclusão: FORM MODO_EXIB
( NOT v_nrpli IS INITIAL OR
NOT v_dtreg IS INITIAL ) .
* << Fim da exclusão
* >> Início da inclusão: FORM MODO_EXIB
( gv_status EQ 'P' OR gv_status EQ 'F' ).
* << Fim da inclusão
wa_cols-screen-input = 0.
MODIFY tc_item-cols FROM wa_cols.
ENDIF.
ENDLOOP.
WHEN '0120' .
* >> Início da inclusão: FORM MODO_EXIB
IF ( sy-tcode EQ '/PWS/ZYCI020_G' OR
sy-tcode EQ '/PWS/ZYCI020_I' ).
IF gv_status EQ 'P' OR gv_status EQ 'F' OR
NOT /pws/zycie078-descrcan IS INITIAL.
top_editmode = '1'.
CALL METHOD editor2->set_readonly_mode EXPORTING
readonly_mode = top_editmode.
ELSE.
top_editmode = '0'.
CALL METHOD editor2->set_readonly_mode EXPORTING
readonly_mode = top_editmode.
ENDIF.
ELSEIF sy-tcode EQ '/PWS/ZYCI020_L'.
top_editmode = '1'.
CALL METHOD editor2->set_readonly_mode EXPORTING
readonly_mode = top_editmode.
ELSE.
* << Fim da inclusão
IF ( NOT v_nrpli IS INITIAL AND
NOT v_dtreg IS INITIAL ) .
top_editmode = '1'.
CALL METHOD editor2->set_readonly_mode EXPORTING
readonly_mode = top_editmode.
ELSE.
top_editmode = '0'.
CALL METHOD editor2->set_readonly_mode EXPORTING
readonly_mode = top_editmode.
* >> Início da inclusão: FORM MODO_EXIB
ENDIF.
* << Fim da inclusão
ENDIF.
WHEN '0502'.
LOOP AT SCREEN.
IF screen-name EQ 'BTN_DLIT'.
IF ( sy-tcode EQ '/PWS/ZYCI020_G' OR
sy-tcode EQ '/PWS/ZYCI020_I' ) AND
* >> Início da exclusão: FORM MODO_EXIB
( NOT v_nrpli IS INITIAL OR
NOT v_dtreg IS INITIAL ) .
* << Fim da exclusão
* >> Início da inclusão: FORM MODO_EXIB
( gv_status EQ 'P' OR gv_status EQ 'F' ).
* << Fim da inclusão
screen-input = '0'.
MODIFY SCREEN.
ENDIF.
ENDIF.
ENDLOOP.
ENDCASE.
ENDFORM.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020F02
...
IF ( sy-tcode EQ '/PWS/ZYCI020_G' OR
sy-tcode EQ '/PWS/ZYCI020_I' ) AND
* >> Início da exclusão: FORM SET_SCREEN_0521
( NOT v_nrpli IS INITIAL OR
NOT v_dtreg IS INITIAL ) .
* << Fim da exclusão
* >> Início da inclusão: FORM SET_SCREEN_0521
( screen-name EQ '/PWS/ZYCIE079A-VLMERC' OR
screen-name EQ '/PWS/ZYCIE079A-NCM_PF' OR
screen-name EQ '/PWS/ZYCIE079A-DESTAQUE' OR
screen-name EQ '/PWS/ZYCIE079A-FABRIC' OR
screen-name EQ '/PWS/ZYCIE079A-LIFNR' OR
screen-name EQ 'V_FRN1' OR
screen-name EQ 'V_FRN2' OR
screen-name EQ '/PWS/ZYCIE079A-REF_FABRICANTE' OR
screen-name EQ '/PWS/ZYCIE079A-ALIQII' OR
screen-name EQ '/PWS/ZYCIE079A-PART_NUMBER' OR
screen-name EQ '/PWS/ZYCIE079A-MAT_PRIMA_BASICA' ).
IF /pws/zycie079a-numli IS INITIAL.
IF /pws/zycie079a-fabric EQ '3' AND
screen-name EQ '/PWS/ZYCIE079A-LIFNR' .
* << Fim da inclusão
screen-input = 0 .
* >> Início da inclusão: FORM SET_SCREEN_0521
ELSE.
screen-input = 1 .
ENDIF.
ELSE.
screen-input = 0 .
ENDIF.
* << Fim da inclusão
ENDIF.
...
...
* >> Início da inclusão:
FORM regra_bloqueio_campos.
DATA: BEGIN OF lt_zycit078 OCCURS 0,
nrseqli TYPE /pws/zycit078-nrseqli,
numpli TYPE /pws/zycit078-numpli,
status TYPE /pws/zycit078-status,
END OF lt_zycit078.
CLEAR: gv_status, lt_zycit078, lt_zycit078[].
LOOP AT it_zycit079 WHERE numli <> ' '.
gv_status = 'X'.
EXIT.
ENDLOOP.
IF gv_status IS INITIAL.
gv_status = 'A'.
ELSE.
CLEAR: gv_status.
SELECT nrseqli numpli status
FROM /pws/zycit078
INTO TABLE lt_zycit078
WHERE numpli = /pws/zycie078-nrseqli.
LOOP AT lt_zycit078 WHERE status <> 'CAN'.
gv_status = 'X'.
EXIT.
ENDLOOP.
IF gv_status IS INITIAL.
gv_status = 'A'.
ELSE.
CLEAR: gv_status.
LOOP AT lt_zycit078 WHERE status <> 'VAL'.
gv_status = 'P'.
EXIT.
ENDLOOP.
IF gv_status IS INITIAL.
gv_status = 'F'.
ENDIF.
ENDIF.
ENDIF.
ENDFORM.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020I01
...
INTO TABLE it_zycit199
WHERE nrseqp EQ wa_zycit197-nrseqp
AND item EQ /pws/zycie078-item
AND matmodelo EQ /pws/zycie078-modelo.
SELECT * FROM /pws/zycit203
INTO TABLE it_zycit203
WHERE nrseqp EQ wa_zycit197-nrseqp
AND item EQ /pws/zycie078-item.
ENDIF.
ENDIF.
* >> Início da inclusão: MODULE USER_COMMAND_0002
PERFORM regra_bloqueio_campos.
* << Fim da inclusão
IF editor2 IS INITIAL.
WRITE sy-repid TO vrepid.
CREATE OBJECT editcontainer2 EXPORTING
container_name = 'C_COM'.
CREATE OBJECT editor2 EXPORTING
parent = editcontainer2
wordwrap_mode = cl_gui_textedit=>wordwrap_at_fixed_position
wordwrap_position = 65
max_number_chars = 100000.
CLEAR: ittxt1. REFRESH: ittxt1.
LOOP AT ittxt2.
MOVE ittxt2-line TO ittxt1-line.
APPEND ittxt1.
ENDLOOP.
CALL METHOD editor2->set_text_as_r3table EXPORTING
table = ittxt1[].
CASE sy-tcode.
* >> Início da inclusão: MODULE USER_COMMAND_0002
WHEN '/PWS/ZYCI020_I' OR '/PWS/ZYCI020_G'.
IF gv_status EQ 'P' OR gv_status EQ 'F'.
top_editmode = '1'.
ELSE.
top_editmode = '0'.
ENDIF.
* << Fim da inclusão
WHEN '/PWS/ZYCI020_C' OR '/PWS/ZYCI020_A' OR
* >> Início da exclusão: MODULE USER_COMMAND_0002
'/PWS/ZYCI020_P' OR '/PWS/ZYCI020_N' OR
'/PWS/ZYCI020_I' OR '/PWS/ZYCI020_G'.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0002
'/PWS/ZYCI020_P' OR '/PWS/ZYCI020_N'.
* << Fim da inclusão
IF ( v_nrpli IS INITIAL AND
v_dtreg IS INITIAL ) .
...
...
WHEN 'PED'.
PERFORM atualiza_variaveis.
CALL SELECTION-SCREEN '0300'.
* >> Início da inclusão: MODULE USER_COMMAND_0500
PERFORM regra_bloqueio_campos.
* << Fim da inclusão
WHEN 'COPY'.
PERFORM comm_copy_pli.
WHEN 'CANCEL'.
PERFORM comm_cancelpli.
WHEN 'LISUBST'.
PERFORM comm_lisubst_pli.
WHEN 'DET'.
CLEAR: v_executou.
PERFORM comm_detli.
WHEN 'DTLI'.
WHEN 'OBLI'.
PERFORM observacao_li.
WHEN 'DLIT'.
PERFORM deleta_itens.
* >> Início da inclusão: MODULE USER_COMMAND_0500
PERFORM regra_bloqueio_campos.
* << Fim da inclusão
...
...
WHEN 'SVLI'.
PERFORM comm_savepli.
PERFORM save_li.
/pws/zycie078-flagpli = 'X'.
PERFORM comm_savepli.
* >> Início da inclusão: MODULE USER_COMMAND_0500
PERFORM regra_bloqueio_campos.
* << Fim da inclusão
WHEN 'EXCLI'.
/pws/zycie078-flagpli = 'X'.
PERFORM exclui_li.
PERFORM comm_savepli.
* >> Início da inclusão: MODULE USER_COMMAND_0500
PERFORM regra_bloqueio_campos.
* << Fim da inclusão
WHEN 'POSI_PLI'.
v_prog = 'PLI'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020O01
...
MODIFY SCREEN.
ENDIF.
IF ( sy-tcode EQ '/PWS/ZYCI020_G' OR
sy-tcode EQ '/PWS/ZYCI020_I' ) AND
* >> Início da exclusão: MODULE SET_SCREEN_501
( NOT v_nrpli IS INITIAL OR
NOT v_dtreg IS INITIAL ) .
IF screen-name NE '/PWS/ZYCIE078-NRPLI' AND
screen-name NE '/PWS/ZYCIE078-DTREG'.
* << Fim da exclusão
* >> Início da inclusão: MODULE SET_SCREEN_501
( gv_status EQ 'P' OR gv_status EQ 'F' ).
* << Fim da inclusão
screen-input = '0'.
* >> Início da exclusão: MODULE SET_SCREEN_501
ELSE.
screen-input = '1' .
ENDIF.
* << Fim da exclusão
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDIF.
...
...
IF screen-group2 EQ 'FL1'.
screen-input = '0'.
MODIFY SCREEN.
ENDIF.
ENDIF.
IF ( sy-tcode EQ '/PWS/ZYCI020_G' OR
sy-tcode EQ '/PWS/ZYCI020_I' ) AND
* >> Início da exclusão: MODULE SET_SCREEN_503
( NOT v_nrpli IS INITIAL OR
NOT v_dtreg IS INITIAL ) .
* << Fim da exclusão
* >> Início da inclusão: MODULE SET_SCREEN_503
( gv_status EQ 'P' OR gv_status EQ 'F' ).
* << Fim da inclusão
screen-input = 0.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDIF.
ENDMODULE.
...
...
IF ( sy-tcode EQ '/PWS/ZYCI020_G' OR
sy-tcode EQ '/PWS/ZYCI020_I' ) AND
* >> Início da exclusão: MODULE SET_SCREEN_505
( NOT v_nrpli IS INITIAL OR
NOT v_dtreg IS INITIAL ) .
* << Fim da exclusão
* >> Início da inclusão: MODULE SET_SCREEN_505
( gv_status EQ 'P' OR gv_status EQ 'F' ).
* << Fim da inclusão
screen-input = 0.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDIF.
ENDMODULE.
...
...
CALL METHOD editor2->set_text_as_r3table EXPORTING
table = ittxt1[].
CASE sy-tcode.
* >> Início da inclusão: MODULE CARREGA_EDITOR
WHEN '/PWS/ZYCI020_I' OR '/PWS/ZYCI020_G'.
IF ( gv_status EQ 'P' OR gv_status EQ 'F' ).
top_editmode = '1'.
ELSE.
top_editmode = '0'.
ENDIF.
* << Fim da inclusão
WHEN '/PWS/ZYCI020_C' OR '/PWS/ZYCI020_A' OR
* >> Início da exclusão: MODULE CARREGA_EDITOR
'/PWS/ZYCI020_P' OR '/PWS/ZYCI020_N' OR
'/PWS/ZYCI020_I' OR '/PWS/ZYCI020_G'.
* << Fim da exclusão
* >> Início da inclusão: MODULE CARREGA_EDITOR
'/PWS/ZYCI020_P' OR '/PWS/ZYCI020_N'.
* << Fim da inclusão
IF ( v_nrpli IS INITIAL AND
v_dtreg IS INITIAL ) .
...
...
MODULE set_screen_pli OUTPUT.
* >> Início da inclusão: MODULE SET_SCREEN_PLI
IF sy-tcode NE '/PWS/ZYCI020_L'.
* << Fim da inclusão
IF it_zycit079-cancel EQ 'X'.
LOOP AT SCREEN.
IF screen-name EQ '/PWS/ZYCIE079-QTD_ITEN' OR
screen-name EQ '/PWS/ZYCIE079-NTGEW' OR
screen-name EQ '/PWS/ZYCIE079-FATOR' OR
screen-name EQ '/PWS/ZYCIE079-SUBS_EXIGENCIA'.
screen-input = 0.
* >> Início da inclusão: MODULE SET_SCREEN_PLI
ENDIF.
IF gv_status EQ 'P' AND it_zycit079-numli IS INITIAL AND
screen-name EQ '/PWS/ZYCIE079-CANCEL'.
screen-input = 1.
ENDIF.
MODIFY SCREEN.
ENDLOOP.
ELSEIF gv_status EQ 'P' AND it_zycit079-numli IS INITIAL.
LOOP AT SCREEN.
IF screen-name EQ '/PWS/ZYCIE079-QTD_ITEN' OR
screen-name EQ '/PWS/ZYCIE079-NTGEW' OR
screen-name EQ '/PWS/ZYCIE079-FATOR' OR
screen-name EQ '/PWS/ZYCIE079-SUBS_EXIGENCIA' OR
screen-name EQ '/PWS/ZYCIE079-CANCEL'.
screen-input = 1.
* << Fim da inclusão
ENDIF.
MODIFY SCREEN.
ENDLOOP.
* >> Início da inclusão: MODULE SET_SCREEN_PLI
ENDIF.
* << Fim da inclusão
ENDIF.
ENDMODULE.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020X01
...
* >> Início da inclusão:
DATA: gv_status.
* << Fim da inclusão
DATA: END OF COMMON PART.