CE PLUS - Nota 004574
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Fatura Despesas
Data/Hora da Publicação: 30/08/2007 00:00:00
Data/Hora Última Alteração: 30/08/2010 14:50:12
Descrição da Nota: TRATAMENTO DE CASAS DECIMAIS PARA A MOEDA DA FATURA DE DESPESAS
Sintoma
Quando é criada uma fatura de despesas, 04, com a moeda clp pu jpy que não tem casas decimais dá
erro e o sistema não deixa criar.
Solução
Ajustar o tratamento das casas decimais no calculo do total das despesas.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04574 Data: 30/08/2007 Hora: 11:17:31
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04574
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00002
Agrupamento : 00010
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
TRATAMENTO DE CASAS DECIMAIS PARA A MOEDA DA FATURA DE DESPESAS
----------------------------------------------------------------------------------------------------
Palavras Chave:
CASAS - DECIMAIS - FATURA - DESPESAS - MOEDA
/PWS/SAPMZYCI003
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI003F01
REPS /PWS/MZYCI003F02
REPS /PWS/MZYCI003X01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F01
...
ENDIF.
CALL FUNCTION '/PWS/ZYCB_MONTANTE_CONVERTE'
EXPORTING
i_montante = '1'
i_demoeda = /pws/zycie006-waers
i_paramoeda = wa_zycbt007-waersb
i_ctmoeda = v_kurst
i_dtbase = v_data_conv
IMPORTING
e_txc = v_kursf
* >> Início da inclusão: FORM BUSCA_TAXA_DIA
e_defator = v_defator
e_parafator = v_parafator
* << Fim da inclusão
EXCEPTIONS
i_demoeda_nao_encontrado = 1
i_paramoeda_nao_encontrado = 2
i_ctmoeda_nao_encontrado = 3
i_dtbase_nao_encontrada = 4
taxa_nao_encontrada = 5
fator_nao_encontrado = 6
i_montante_nao_encontrado = 7
OTHERS = 8.
IF sy-subrc EQ 2 OR sy-subrc EQ 3.
...
...
FORM soma_despesa.
CLEAR v_tot_desp.
LOOP AT itab_zycit047 WHERE nrseq = /pws/zycie006-nrseq AND
nrfat = /pws/zycie006-nrfat.
* >> Início da inclusão: FORM SOMA_DESPESA
PERFORM trata_decimais USING /pws/zycie006-waers
CHANGING itab_zycit047-vldp.
* << Fim da inclusão
v_tot_desp = v_tot_desp + itab_zycit047-vldp.
ENDLOOP.
ENDFORM.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F02
...
LOOP AT itab_zycit047.
MOVE: itab_zycit047-tpdesp TO itab_desp_funcao-tpdesp,
itab_zycit047-vldp TO itab_desp_funcao-netpr,
itab_zycit047-waers TO itab_desp_funcao-waers.
IF /pws/zycie006-waers NE /pws/zycbt007-waersb.
PERFORM busca_taxa_dia.
IF v_kursf IS INITIAL.
MESSAGE e015 WITH text-001.
v_erro_tax = 'X'.
ELSE.
* >> Início da exclusão: FORM VISUALIZA_RATEIO
itab_desp_funcao-netpr = itab_desp_funcao-netpr * v_kursf.
* << Fim da exclusão
* >> Início da inclusão: FORM VISUALIZA_RATEIO
itab_desp_funcao-netpr =
( ( itab_desp_funcao-netpr * v_kursf ) / v_parafator )
/ v_defator.
* << Fim da inclusão
ENDIF.
ENDIF.
APPEND itab_desp_funcao.
ENDLOOP.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003X01
...
DATA:
* >> Início da inclusão:
v_defator TYPE tcurr-ffact,
v_parafator TYPE tcurr-ffact,
* << Fim da inclusão
data end of common part.
...