CE PLUS - Nota 004825
Módulo: DOC. EXPORTAÇÃO
Funcionalidade: Variação Cambial
Data/Hora da Publicação: 26/09/2007 00:00:00
Data/Hora Última Alteração: 04/03/2010 11:04:13
Descrição da Nota: PARAMETRIZAÇÃO DA VARIAÇÃO CAMBIAL
Sintoma
Tornar Parametrizável a chamada do Programa da Variação Cambial na Tabela de Parâmetros
/PWS/ZYCET079.
Solução
Desenvolvimento para tornar Parametrizável a chamada do Programa da Variação Cambial na Tabela de
Parâmetros /PWS/ZYCET079.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04825 Data: 26/09/2007 Hora: 10:41:44
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04825
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00003
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
Texto Rápido:
PARAMETRIZAÇÃO DA VARIAÇÃO CAMBIAL
----------------------------------------------------------------------------------------------------
Palavras Chave:
PARAMETRIZAÇÃO VARIAÇÃO CAMBIAL /PWS/ZYCET079
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/ZYCER007
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCER007
...
AT SELECTION-SCREEN ON BLOCK 2.
IF p_nffmes IS INITIAL AND p_nfaver IS INITIAL.
MESSAGE e001 WITH text-030.
ELSEIF NOT p_nffmes IS INITIAL AND p_dtate IS INITIAL.
MESSAGE e001 WITH text-031.
ELSEIF NOT p_nfaver IS INITIAL AND p_nffmes IS INITIAL
AND p_dtate IS INITIAL.
MESSAGE e001 WITH text-031.
ENDIF.
INITIALIZATION.
* >> Início da inclusão:
DATA: itab_zycet079 LIKE /pws/zycet079 OCCURS 10 WITH HEADER LINE,
v_func LIKE /pws/zycet079-func.
SELECT * FROM /pws/zycet079
INTO TABLE itab_zycet079
WHERE codmod EQ 'X'.
READ TABLE itab_zycet079 WITH KEY func = 'VAR'.
IF sy-subrc EQ 0 AND itab_zycet079-transacao NE '/PWS/ZYCER007'.
AUTHORITY-CHECK OBJECT 'S_TCODE' ID 'TCD' FIELD
itab_zycet079-transacao.
IF sy-subrc EQ 0.
CALL TRANSACTION itab_zycet079-transacao.
LEAVE PROGRAM.
ELSE.
MESSAGE e261(sf) WITH itab_zycet079-transacao.
ENDIF.
ENDIF.
* << Fim da inclusão
SET TITLEBAR '001'.
START-OF-SELECTION.
PERFORM seleciona_dados.
PERFORM processa_dados.
PERFORM imprime_dados.
SET PF-STATUS '001'.
TOP-OF-PAGE.
PERFORM cabecalho.
END-OF-PAGE.
ULINE.
...