Módulo: CÂMBIO IMPORTAÇÃO
Funcionalidade: Despesas
Data/Hora da Publicação: 05/04/2006 00:00:00
Data/Hora Última Alteração: 18/02/2011 09:30:38
Descrição da Nota: TEXTO INFORMATIVO - PARAMETRIZAR /PWS/ZYGL007
Sintoma
Campo texto informativo não estava respeitando os parametros da tabela /pws/zygl007
Solução
Ajustado para verificar os parametros da 007.
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 01158 Data: 05/04/2006 Hora: 16:19:22
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 01158
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00023
Agrupamento : 00108
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
TEXTO INFORMATIVO - PARAMETRIZAR /PWS/ZYGL007
----------------------------------------------------------------------------------------------------
Palavras Chave:
TEXTO INFORMATIVO - PARAMETRIZAR /PWS/ZYGL007
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB105F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB105F01
...
IF sy-subrc = 0.
v_status_s = 0.
ENDIF.
ENDFORM.
FORM texto_informativo.
* >> Início da exclusão: FORM TEXTO_INFORMATIVO
IF /pws/zycbe118-codmod EQ 'I'.
CALL FUNCTION '/PWS/ZYCM_FLAG_TEXTO'
EXPORTING
v_bukrs = /pws/zycbe118-bukrs
IMPORTING
v_flag_texto = v_obrig.
ELSEIF /pws/zycbe118-codmod EQ 'F'.
* << Fim da exclusão
CALL FUNCTION '/PWS/ZYCA_FLAG_TEXTO'
EXPORTING
v_bukrs = /pws/zycbe118-bukrs
IMPORTING
v_flag_texto = v_obrig.
* >> Início da exclusão: FORM TEXTO_INFORMATIVO
ENDIF.
* << Fim da exclusão
LOOP AT SCREEN.
IF screen-name EQ '/PWS/ZYCBE118-TXTINF'.
IF v_obrig EQ 'X' AND
/pws/zycbe118-txtinf IS INITIAL.
screen-required = '1'.
...