CE PLUS - Nota 006147
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DSI
Data/Hora da Publicação: 11/03/2008 00:00:00
Data/Hora Última Alteração: 22/02/2011 14:59:14
Descrição da Nota: EXIT AO SELECIONAR TAXA DA DSI
Sintoma
Exit ao selecionar taxa da DSI.
Solução
Criada a chamada de exit DSI002
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 06147 Data: 11/03/2008 Hora: 15:52:54
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 06147
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00004
Agrupamento : 00037
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
04165 - 00001 - 7.0 - 00002 - NECESSÁRIO CHAMADA DE EXIT NAS TELAS DA DSI
----------------------------------------------------------------------------------------------------
EXIT AO SELECIONAR TAXA DA DSI
----------------------------------------------------------------------------------------------------
Palavras Chave:
EXIT - CHAMADA DE EXIT - /PWS/ZYGLT100 - DSI - /PWS/ZYCIT174
----------------------------------------------------------------------------------------------------
Objetos da nota:
DYNP /PWS/SAPMZYCI058 0234
REPS /PWS/MZYCI058F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI058 0234
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI058F01
...
s_pgban s_pgage /pws/zycie095-banks.
ENDIF.
ENDFORM.
FORM taxa_converte USING p_waers
p_data
CHANGING p_taxa.
* >> Início da exclusão: FORM TAXA_CONVERTE
CLEAR: p_taxa, v_msgfre.
* << Fim da exclusão
DATA: v_moeda LIKE tcurc-/pws/codmo,
v_msgd(10),
v_linhas TYPE i.
* >> Início da inclusão: FORM TAXA_CONVERTE
e_subrc = '0'.
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI058'
'DSI002'.
CLEAR: itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY zexit = 'DSI002' BINARY SEARCH.
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario) IN PROGRAM
(itab_zyglt100-programa) IF FOUND.
ENDIF.
ENDIF.
IF e_subrc = '0'.
* << Fim da inclusão
CLEAR: p_taxa, v_msgfre.
IF /pws/zycbt007 IS INITIAL.
SELECT SINGLE *
FROM /pws/zycbt007
WHERE bukrs EQ /pws/zycie085-bukrs.
ENDIF.
MOVE /pws/zycbt007 TO wa_zycbt007.
IF p_waers EQ wa_zycbt007-waersb.
p_taxa = 1.
EXIT.
ENDIF.
...
...
ENDIF.
ENDIF.
ELSE.
CONCATENATE p_data+6(2) '/' p_data+4(2) '/' p_data+0(4)
INTO v_msgd.
CONCATENATE p_waers text-022 p_data INTO
s_msg1 SEPARATED BY space.
IF NOT /pws/zycie085-dttax IS INITIAL
AND NOT p_waers EQ wa_zycbt007-waersb.
MESSAGE s015 WITH text-021 s_msg1.
* >> Início da inclusão: FORM TAXA_CONVERTE
ENDIF.
* << Fim da inclusão
ENDIF.
ENDIF.
ENDFORM.
FORM refresh_all.
IF NOT /pws/zycie085-waersfob IS INITIAL.
PERFORM: taxa_converte USING /pws/zycie085-waersfob
/pws/zycie085-dttax
CHANGING /pws/zycie085-ukursfob.
ENDIF.
IF NOT /pws/zycie085-waersfre IS INITIAL.
...