CE PLUS - Nota 008430
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 22/05/2009 00:00:00
Data/Hora Última Alteração: 08/09/2010 16:37:24
Descrição da Nota: NO MODO EXIBIÇÃO, ALGUMAS FUNCIONALIDADES FICAM COM CAMPO ABERTO
Sintoma
Entrando no modo exibição, algumas funcionalidades ficam com campo aberto.
Solução
Verificar se campos deverão ficar abertos nos programas.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 08430 Data: 22/05/2009 Hora: 10:14:34
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 08430
Categoria : Erro de Programa
Prioridade : Baixa
Versão PW.CE : 7.0
Pacote : 00009
Agrupamento : 00098
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
NO MODO EXIBIÇÃO, ALGUMAS FUNCIONALIDADES FICAM COM CAMPO ABERTO
----------------------------------------------------------------------------------------------------
Palavras Chave:
EXIBIR - CAMPO ABERTO
----------------------------------------------------------------------------------------------------
Objetos da nota:
RELE F6DK969547 20090521 154218 PWSCI
REPS /PWS/MZYCI003O01
REPS /PWS/MZYCI017O01
REPS /PWS/MZYCI023F04
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003O01
...
IF v_existe_bol = 'X' AND screen-group4 = 'BOL'.
screen-input = 0.
ENDIF.
IF screen-name = '/PWS/ZYCIE006-NRSEQRE'.
screen-input = 0.
IF NOT itab_zycit132[] IS INITIAL.
screen-invisible = '1'.
ENDIF.
ENDIF.
IF screen-name = '/PWS/ZYCIE006-VLME'.
* >> Início da exclusão: MODULE SET_SCREEN
IF /pws/zycie006-kursf IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: MODULE SET_SCREEN
IF /pws/zycie006-kursf IS INITIAL .
IF NOT sy-tcode EQ '/PWS/ZYCI003_L'.
* << Fim da inclusão
screen-input = 1.
* >> Início da inclusão: MODULE SET_SCREEN
ENDIF.
* << Fim da inclusão
ELSE.
screen-input = 0.
ENDIF.
ENDIF.
MODIFY SCREEN.
ENDLOOP.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI017O01
MODULE status_0010 OUTPUT.
* >> Início da inclusão: MODULE STATUS_0010
IF sy-tcode = '/PWS/ZYCI017_E'.
itab_pf_status-fcode = 'ATUAL'.
APPEND itab_pf_status.
SET PF-STATUS '0010' EXCLUDING itab_pf_status .
ELSE.
* << Fim da inclusão
SET PF-STATUS '0010'.
* >> Início da inclusão: MODULE STATUS_0010
ENDIF.
* << Fim da inclusão
SET TITLEBAR '0010'.
ENDMODULE.
...
...
MODULE set_screen_tc_nfg OUTPUT.
LOOP AT SCREEN.
* >> Início da inclusão: MODULE SET_SCREEN_TC_NFG
IF sy-tcode NE '/PWS/ZYCI017_E'.
* << Fim da inclusão
IF screen-name = '/PWS/ZYCIE042-LGORT'.
READ TABLE itab_deposito WITH KEY ebeln = itab_zycit042-ebeln
ebelp = itab_zycit042-ebelp.
IF sy-subrc = 0.
IF itab_deposito-knttp IS INITIAL.
screen-input = 1.
ENDIF.
ENDIF.
IF NOT /pws/zycie041-mblnr_mb01 IS INITIAL.
screen-input = 0.
ENDIF.
MODIFY SCREEN.
* >> Início da inclusão: MODULE SET_SCREEN_TC_NFG
ENDIF.
* << Fim da inclusão
ENDIF.
ENDLOOP.
ENDMODULE.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F04
...
FORM set_screen_0180.
* >> Início da exclusão: FORM SET_SCREEN_0180
IF sy-tcode EQ '/PWS/ZYCIE23_E'.
* << Fim da exclusão
* >> Início da inclusão: FORM SET_SCREEN_0180
IF sy-tcode EQ '/PWS/ZYCI023_E'.
LOOP AT SCREEN.
* << Fim da inclusão
screen-input = '0'.
MODIFY SCREEN.
* >> Início da inclusão: FORM SET_SCREEN_0180
ENDLOOP.
* << Fim da inclusão
ENDIF.
ENDFORM.
...
...
FORM define_tab.
IF screen-name EQ 'TAB_MERCO'.
READ TABLE itab_zycit107 WITH KEY
land1 = itab_it-porigem
mercosul = 'X'.
IF sy-subrc NE 0.
screen-invisible = '1'.
MODIFY SCREEN.
ENDIF.
ELSE.
* >> Início da inclusão: FORM DEFINE_TAB
LOOP AT SCREEN.
IF v_acto EQ 'E'.
screen-input = 0.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
* << Fim da inclusão
LOOP AT tc_mercosul-cols INTO v_cols.
IF v_acto EQ 'E'.
v_cols-screen-input = 0.
ELSE.
IF /pws/zycie100a-tp_certif EQ '2' OR
/pws/zycie100a-tp_certif EQ '3' .
v_cols-screen-input = 1.
ELSE.
DELETE itab_zycit485 WHERE ebeln EQ itab_it-ebeln
AND ebelp EQ itab_it-ebelp.
...