CE PLUS - Nota 004693
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Liquidação de Fatura
Data/Hora da Publicação: 12/09/2007 00:00:00
Data/Hora Última Alteração: 22/02/2011 11:57:45
Descrição da Nota: LIQUIDAÇÃO COM ARBITRAGEM- DOCUMENTO DE PROVISÃO NA MOEDA DO CONTRATO
Sintoma
Erro na liquidação com arbitragem. O programa está gerando os documentos de provisão com a moeda da
fatura (EUR) e está errado, pois o correto é efetuar o lançamento na moeda do contrato (USD). Os
valores que estão sendo lançados na F-02 estão corretos, mas a moeda está incorreta.
Solução
Alterado o programa para buscar a moeda da tabela /pws/zycbt001.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04693 Data: 12/09/2007 Hora: 16:26:36
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04693
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00002
Agrupamento : 00012
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
04124 - 00001 - 7.0 - 00002 - LIQUIDAÇÃO - DIVISÕES DIFERENTES DA FATURA E DO CONTRATO
----------------------------------------------------------------------------------------------------
LIQUIDAÇÃO COM ARBITRAGEM- DOCUMENTO DE PROVISÃO NA MOEDA DO CONTRATO
----------------------------------------------------------------------------------------------------
Palavras Chave:
LIQUIDAÇÃO COM ARBITRAGEM - DOCUMENTO DE PROVISÃO NA MOEDA DO CONTRATO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB004F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004F02
...
itab_zycbt032,
itab_zycbt034.
REFRESH: itab_zycbe033,
itab_zycbt032,
itab_zycbt034.
itab_zycbe033-cpochv = /pws/zycbt001-nrseqc.
itab_zycbe033-tcode = 'F-02'.
itab_zycbe033-tabela = '/PWS/ZYCBT006'.
PERFORM busca_contas_provisao.
itab_zycbe033-budat = v_dtcalcjur.
* >> Início da exclusão: FORM F_02_PROVISAO_JUROS_DIF
itab_zycbe033-bukrs = itab_zycbt006-bukrs.
itab_zycbe033-waers = itab_zycbt006-waers.
* << Fim da exclusão
* >> Início da inclusão: FORM F_02_PROVISAO_JUROS_DIF
itab_zycbe033-bukrs = /pws/zycbt001-bukrs.
itab_zycbe033-waers = /pws/zycbt001-waers.
* << Fim da inclusão
itab_zycbe033-wrbtr = itab_periodos_j-vlme.
IF wa_zycbt007-fdtdoc = 'L'.
itab_zycbe033-bldat = itab_zycbe033-budat.
ELSE.
itab_zycbe033-bldat = sy-datum.
ENDIF.
itab_zycbe033-brnch = /pws/zycbt001-j_1bbranch.
itab_zycbe033-bktxt = wa_zycbt007-bktxt.
PERFORM seleciona_taxa.
itab_zycbe033-blart = /pws/zycbt011-blart.
...
...
IF sy-subrc = 0.
v_cpochv = /pws/zycbt001-nrseqc.
READ TABLE itab_zycbt032 WITH KEY tcode = 'F-02'
tabela = '/PWS/ZYCBT006'
cpochv = v_cpochv
tpmsg = 'S'.
IF sy-subrc = 0.
READ TABLE itab_zycbe033 INDEX 1.
CLEAR /pws/zycbt154.
/pws/zycbt154-tpcontr = /pws/zycbt001-tpcontr.
* >> Início da exclusão: FORM F_02_PROVISAO_JUROS_DIF
/pws/zycbt154-bukrs = itab_zycbt006-bukrs.
* << Fim da exclusão
* >> Início da inclusão: FORM F_02_PROVISAO_JUROS_DIF
/pws/zycbt154-bukrs = /pws/zycbt001-bukrs.
/pws/zycbt154-waers = /pws/zycbt001-waers.
* << Fim da inclusão
/pws/zycbt154-gsber = itab_zycbt006-gsberf.
* >> Início da exclusão: FORM F_02_PROVISAO_JUROS_DIF
/pws/zycbt154-waers = itab_zycbt006-waers.
* << Fim da exclusão
/pws/zycbt154-d_newko = itab_zycbe033-d_newko.
/pws/zycbt154-c_newko = itab_zycbe033-c_newko.
/pws/zycbt154-nrcorresp = /pws/zycbt001-nrseqc.
/pws/zycbt154-kursf = itab_zycbe033-kursf.
/pws/zycbt154-dtcont = v_dtcalcjur.
/pws/zycbt154-dtpagext = /pws/zycbe006-dtpagext.
...