CE PLUS - Nota 001113
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Fatura Despesas
Data/Hora da Publicação: 30/03/2006 00:00:00
Data/Hora Última Alteração: 20/06/2011 12:11:56
Descrição da Nota: PROGRAMA CHECA CATEGORIA DE MOEDA EQUIVOCADAMENTE.
Sintoma
Para contabilizar a fatura P, o programa busca a taxa da DI (/PWS/ZYCIT085-UKURSFOB), porém está
checando na OB08 a categoria da moeda parametrizada na /PWS/ZYCIT000-KURST. Não deve checar a
categoria da moeda, pois não estamos buscando a taxa da OB08 e sim a taxa da DI.
Para todas as moedas a categoria é a M, porém para o EURO a categoria é EURX, só é possível
parametrizar um tipo de categoria.
Solução
Atualizado para não deve checar a categoria da moeda quando fatura P.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 01113 Data: 30/03/2006 Hora: 09:58:21
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 01113
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00023
Agrupamento : 00107
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
PROGRAMA CHECA CATEGORIA DE MOEDA EQUIVOCADAMENTE.
----------------------------------------------------------------------------------------------------
Palavras Chave:
MOEDA - OB08 - ZYCIT000-KURST - CATEGORIA DA MOEDA
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI003F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F01
...
itab_zycbe033-dmbtr = /pws/zycie006-vlfre_clp .
ELSE.
IF /pws/zycie006-frpagto = 'P'.
IF /pws/zycie006-tpfatura = '01' .
v_ukurs = /pws/zycit085-ukursfob.
* >> Início da exclusão: FORM FILL_DATE_F-43_F-02
IF /pws/zycit000-kurst IS INITIAL.
v_kurst = 'M'.
ELSE.
v_kurst = /pws/zycit000-kurst.
ENDIF.
CALL FUNCTION '/PWS/ZYCE_MONTANTE_CONVERTE'
EXPORTING
i_montante = '10'
i_demoeda = /pws/zycie006-waers
i_paramoeda = /pws/zycbt007-waersb
i_ctmoeda = v_kurst
i_dtbase = sy-datum
IMPORTING
e_defator = v_fator
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 <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ELSE.
IF v_fator NE 1.
v_ukurs = v_ukurs * v_fator.
ENDIF.
ENDIF.
* << Fim da exclusão
ELSEIF /pws/zycie006-tpfatura = '02'.
v_ukurs = /pws/zycit085-ukursfre.
ELSEIF /pws/zycie006-tpfatura = '03'.
v_ukurs = /pws/zycit085-ukursseg.
ENDIF.
...