CE PLUS - Nota 001651
Módulo: DOC. EXPORTAÇÃO
Funcionalidade: Parâmetros
Data/Hora da Publicação: 28/06/2006 00:00:00
Data/Hora Última Alteração: 22/02/2011 11:23:17
Descrição da Nota: CAMPOS OCULTOS EM TABELA DE PARÂMETROS GERAIS
Sintoma
Necessidade de ocultar os campos "Envia Embarque para Câmbio" (/PWS/ZYCET037-ENVIA_C), "Agrupa T30"
(/PWS/ZYCET037-AGRUPA_T30) e "Embarque Automático" (/PWS/ZYCET037-EMBAUTR) das pastas de
Contabilização de Embarque e de Dados Gerais
Necessidade também de mensagem de parâmetros obsoletos em pasta de Embarque.
Solução
Ocultar os campos no programa de controle de Parâmetros Gerais e incluir mensagem de aviso em pasta
de Embarque.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 01651 Data: 28/06/2006 Hora: 16:01:43
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 01651
Categoria : Melhoria
Prioridade : Baixa
Versão PW.CE : 6.0
Pacote : 00024
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
Texto Rápido:
CAMPOS OCULTOS EM TABELA DE PARÂMETROS GERAIS
----------------------------------------------------------------------------------------------------
Palavras Chave:
GERAIS; PARÂMETROS; TABELA; OCULTOS; CAMPOS
----------------------------------------------------------------------------------------------------
Objetos da nota:
DYNP /PWS/SAPMZYCE037 1140
DYNP /PWS/SAPMZYCE037 1210
REPS /PWS/MZYCE037F01
REPS /PWS/MZYCE037F02
REPS /PWS/MZYCE037O01
REPS /PWS/SAPMZYCE037
REPT /PWS/SAPMZYCE037
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCE037 1140
* >> Modificações em Lógica de Processamento de tela 1140
PROCESS BEFORE OUTPUT.
* >> Início da exclusão: TELA 1140
MODULE: set_screen_standard,
verifica_embautr.
* << Fim da exclusão
* >> Início da inclusão: TELA 1140
MODULE: set_screen_standard.
* << Fim da inclusão
PROCESS AFTER INPUT.
PROCESS ON HELP-REQUEST.
FIELD /pws/zycet037-path MODULE help_campos.
FIELD /pws/zycet037-fdtdoc MODULE help_campos.
FIELD /pws/zycet037-kurrf MODULE help_campos.
* >> Início da exclusão: TELA 1140
FIELD /pws/zycet037-embautr MODULE help_campos.
* << Fim da exclusão
*--------------------------------------------------------------------------------------------------*
* >> Modificações em layout de tela 1140
EXCLUIR CAMPO: /PWS/ZYCET037-EMBAUTR (Campo de Entrada/Saída)
EXCLUIR CAMPO: /PWS/ZYCET037-EMBAUTR (Texto)
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCE037 1210
* >> Modificações em Lógica de Processamento de tela 1210
PROCESS BEFORE OUTPUT.
MODULE: set_screen_standard.
PROCESS AFTER INPUT.
PROCESS ON HELP-REQUEST.
* >> Início da exclusão: TELA 1210
FIELD /pws/zycet037-envia_c MODULE help_campos.
FIELD /pws/zycet037-agrupa_t30 MODULE help_campos.
* << Fim da exclusão
FIELD /pws/zycet037-agrup_fat_rec MODULE help_campos.
FIELD /pws/zycet037-agrup_sem_rec MODULE help_campos.
FIELD /pws/zycet037-rec_camb MODULE help_campos.
FIELD /pws/zycet037-doc_camb MODULE help_campos.
*--------------------------------------------------------------------------------------------------*
* >> Modificações em layout de tela 1210
EXCLUIR CAMPO: /PWS/ZYCET037-ENVIA_C (Campo de Entrada/Saída)
EXCLUIR CAMPO: /PWS/ZYCET037-ENVIA_C (Texto)
EXCLUIR CAMPO: /PWS/ZYCET037-AGRUPA_T30 (Campo de Entrada/Saída)
EXCLUIR CAMPO: /PWS/ZYCET037-AGRUPA_T30 (Texto)
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE037F01
...
CLEAR: /pws/zycet037, wa_zycet037, v_bukrs, ginit.
MESSAGE i016 WITH text-013.
CALL SCREEN '1000'.
ENDIF.
ENDFORM.
* >> Início da exclusão: FORM VERIFICA_EMBAUTR
FORM verifica_embautr.
SELECT SINGLE *
FROM /pws/zyglt320
WHERE modulo EQ 'DE'
AND programa EQ '/PWS/SAPMZYCE037'
AND tela EQ '1140'
AND campo EQ 'EMBAUTR'.
IF sy-subrc = 0.
CASE /pws/zyglt320-flag.
WHEN 'F'.
LOOP AT SCREEN.
IF gmodify = 'S'.
IF screen-name = '/PWS/ZYCET037-EMBAUTR'.
screen-input = 1.
ENDIF.
ELSE.
screen-input = 0.
ENDIF.
MODIFY SCREEN.
ENDLOOP.
WHEN 'O'.
LOOP AT SCREEN.
IF gmodify = 'S'.
IF screen-name = '/PWS/ZYCET037-EMBAUTR'.
screen-required = 1.
screen-input = 1.
ENDIF.
ELSE.
screen-input = 0.
ENDIF.
MODIFY SCREEN.
ENDLOOP.
WHEN 'H'.
LOOP AT SCREEN.
IF gmodify = 'S'.
IF screen-name = '/PWS/ZYCET037-EMBAUTR'.
screen-input = 0.
screen-invisible = 1.
ENDIF.
ELSE.
IF screen-name = '/PWS/ZYCET037-EMBAUTR'.
screen-invisible = 1.
ENDIF.
ENDIF.
MODIFY SCREEN.
ENDLOOP.
ENDCASE.
ENDIF.
ENDFORM.
* << Fim da exclusão
FORM ativa.
IF sy-dynnr = '1150'.
ts_emb-activetab = gtab3.
ELSEIF sy-dynnr = '1130'.
ts_cont-activetab = gtab4.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE037F02
...
PERFORM get_information USING sy-langu
text-047
10
3
'/PWS/Z_ZYCET037_KURRF_TXT'.
* >> Início da exclusão: FORM HELP_GERAL_DADOSGERAIS
WHEN '/PWS/ZYCET037-EMBAUTR'.
PERFORM get_information USING sy-langu
text-047
10
3
'/PWS/Z_ZYCET037_EMBAUTR_TXT'.
* << Fim da exclusão
ENDCASE.
ENDFORM.
...
FORM help_geral_agrup.
CASE v_campo.
* >> Início da exclusão: FORM HELP_GERAL_AGRUP
WHEN '/PWS/ZYCET037-ENVIA_C'.
PERFORM get_information USING sy-langu
text-047
10
3
'/PWS/Z_ZYCET037_ENVIA_C_TXT'.
WHEN '/PWS/ZYCET037-AGRUPA_T30'.
PERFORM get_information USING sy-langu
text-047
10
3
'/PWS/Z_ZYCET037_AGRUPA_T30'.
* << Fim da exclusão
WHEN '/PWS/ZYCET037-AGRUP_FAT_REC'.
PERFORM get_information USING sy-langu
text-047
10
3
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE037O01
MODULE set_screen_standard OUTPUT.
* >> Início da inclusão: MODULE SET_SCREEN_STANDARD
IF sy-dynnr EQ '1300'.
MESSAGE s016 WITH text-005.
ENDIF.
* << Fim da inclusão
LOOP AT SCREEN.
IF screen-group1 EQ 'AC'.
screen-input = '0'.
IF gmodify = 'S'.
screen-input = '1'.
...
ELSE.
SET PF-STATUS '0001'.
SET TITLEBAR '0001'.
ENDIF.
ENDMODULE.
* >> Início da exclusão: MODULE VERIFICA_EMBAUTR
MODULE verifica_embautr OUTPUT.
PERFORM verifica_embautr.
ENDMODULE.
* << Fim da exclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/SAPMZYCE037
* >> Não houve modificações relevantes neste include <<
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCE037
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 005
Texto: (33 caracteres)
"Parâmetros de Embarque obsoletos!"
Comprimento máximo: 33