CE PLUS - Nota 006770
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 13/06/2008 00:00:00
Data/Hora Última Alteração: 22/02/2011 13:57:37
Descrição da Nota: EMITE MENSAGEM DE TAXA MESMO SEM MOEDA DO SEGURO
Sintoma
Na DI, inclui o seguro na moeda USD e depois apaguei WAERSSEG. O sistema não apagou /PWS/CODMO
(número da moeda). E no momento de salvar a DI aparece a seguinte mensagem: "Atenção!! não existe
taxa de conversão de para BRL no dia ..."
Favor limpar o campo /PWS/CODMO quando não existir moeda informada no campo WAERSSEG.
Solução
Verificando se há moeda preenchido no campo antes de emitir mensagem.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 06770 Data: 13/06/2008 Hora: 15:24:22
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 06770
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00005
Agrupamento : 00051
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
03477 - 00011 - 7.0 - 00001 - TAXA DE CONVERSÃO PARA MOEDA LOCAL NA DI/DA
----------------------------------------------------------------------------------------------------
EMITE MENSAGEM DE TAXA MESMO SEM MOEDA DO SEGURO
----------------------------------------------------------------------------------------------------
Palavras Chave:
ERRO - MENSAGEM - TAXA - SEGURO - MOEDA - DI
----------------------------------------------------------------------------------------------------
Objetos da nota:
DYNP /PWS/SAPMZYCI023 0132
REPS /PWS/MZYCI023F01
REPS /PWS/MZYCI023F02
REPS /PWS/SAPMZYCI023
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI023 0132
No layout da tela 0132, retirar o flag do
SET PARAMETER e GET PARAMETER do campo /PWS/ZYCIE085-WAERSSEG
Nome
Ctg. Linha Coluna CmprDf CmVis Altura Format Dict Modif At.Des.Só At
Gr1 Gr2 Gr3 Gr4 SPA GPA ID parâm Cód.F TCmp TpoLoopExbLoop
Outros atributos
*DE:
/PWS/ZYCIE085-WAERSSEG
I/O 19 19 5 5 1 CUKY X Off
AC SPA GPA FWS
Chave externa, Botão EntrsPoss.stand.
*PARA:
/PWS/ZYCIE085-WAERSSEG
I/O 19 19 5 5 1 CUKY X Off
AC FWS
Chave externa, Botão EntrsPoss.stand.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F01
...
FORM save_data.
IF v_required EQ '1'.
CHECK NOT /pws/zycie085-dttax IS INITIAL.
ENDIF.
IF NOT /pws/zycie085-dttax IS INITIAL AND NOT v_nottax IS INITIAL.
MESSAGE i013 WITH text-231 text-232.
EXIT.
ENDIF.
PERFORM verifica_nrdi.
IF v_dit = 'N'.
* >> Início da exclusão: FORM SAVE_DATA
PERFORM: taxa_converte USING /pws/zycie085-waersfob
/pws/zycie085-dttax
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE_DATA
PERFORM: taxa_converte USING
/pws/zycie085-waersfob /pws/zycie085-dttax
* << Fim da inclusão
CHANGING /pws/zycie085-ukursfob.
PERFORM: taxa_converte USING /pws/zycie085-waersfre
/pws/zycie085-dttax
CHANGING /pws/zycie085-ukursfre.
PERFORM: taxa_converte USING /pws/zycie085-waersseg
/pws/zycie085-dttax
CHANGING /pws/zycie085-ukursseg.
ENDIF.
PERFORM visualiza_rateio.
IF v_resp NE 'S'
...
...
FORM taxa_converte USING p_waers
p_data
CHANGING p_taxa.
CLEAR: p_taxa, v_msgfre.
DATA: v_moeda LIKE tcurc-/pws/codmo,
v_msgd(10),
v_linhas TYPE i.
* >> Início da inclusão: FORM TAXA_CONVERTE
IF NOT p_waers IS INITIAL.
* << Fim da inclusão
IF p_waers EQ wa_zycbt007-waersb.
p_taxa = 1.
EXIT.
ENDIF.
SELECT SINGLE /pws/codmo FROM tcurc INTO v_moeda WHERE
waers = p_waers.
IF sy-subrc EQ 0.
REFRESH itab_zycit174.
SELECT * FROM /pws/zycit174 INTO TABLE itab_zycit174 WHERE
codconver = v_moeda AND
...
...
MESSAGE i015 WITH text-233 '/PWS/ZYCIT174' text-234 p_data.
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.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F02
...
FORM load_waers USING p_waers
CHANGING p_s_cm
p_s_desc.
SELECT SINGLE /pws/codmo FROM tcurc INTO p_s_cm
WHERE waers = p_waers.
IF sy-subrc EQ 0.
SELECT SINGLE ltext FROM tcurt INTO p_s_desc
WHERE spras = sy-langu AND
waers = p_waers.
* >> Início da inclusão: FORM LOAD_WAERS
ELSE.
CLEAR : p_s_cm, p_s_desc.
* << Fim da inclusão
ENDIF.
ENDFORM.
...