CE PLUS - Nota 008981
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Liquidação de Fatura
Data/Hora da Publicação: 12/04/2012 15:55:31
Data/Hora Última Alteração: 12/04/2012 15:55:31
Descrição da Nota: LIQUIDAÇÃO - VALORES INCORRETOS QUANDO FOR MOEDA JPY
Sintoma
Ao criar um câmbio e vincular várias faturas, sendo que uma delas foi vinculada apenas o valor
parcial, o Batch Input não converteu os valores em BRL corretamente, não considerando o fatir de
conversão que é de 100 para 1, e converteu 1 para 1, devido a este problema a contabilização de
liquidação não pode ser concluída, pois ocorre uma diferença demasiada para a compensação. Outro
erro ocorre no momento em que é excluído da table control da liquidação as faturas em USD, o
programa inclui casas no número inteiro (antes da vírgula), dois zeros e grava o valor errado no
campo Saldo a pagar(SLPAGAR), pois o processo é JPY e não é permitido casas decimais, ao entrarmos
na "liquidação - criar" o programa inclui duas casas a mais no número inteiro e o valor fica errado.
Solução
Feito a correção o programa efetuou a liquidação com sucesso, convertendo corretamente os valores em
JPY para BRL respeitando o fator de conversão, e ao entrar no "liquidação-modificar" o programa não
alterou os valores em USD que sofreram arbitragem.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 08981 Data: 09/09/2009 Hora: 14:33:14
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 08981
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00010
Agrupamento : 00112
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
02101 - 00001 - 6.0 - 00025 - LIQUIDAÇÃO DE FATURAS - ARBITRAGEM - CASAS DECIMAIS
02946 - 00002 - 6.0 - 00026 - PARÂMETRO /PWS/ZYGL007 CFM SIM - DUMP VERSÃO 4.7 OU SUPERIOR
03776 - 00003 - 7.0 - 00001 - LIQUIDAÇÃO - DATA PAGAMENTO NO EXTERIOR
07760 - 00004 - 7.0 - 00007 - DA-LIQUIDAÇÃO E VINCULAÇÃO LIQ. AUTOMÁT - NORMAL/ARBITRAGEM/PERFO
----------------------------------------------------------------------------------------------------
LIQUIDAÇÃO - VALORES INCORRETOS QUANDO FOR MOEDA JPY
----------------------------------------------------------------------------------------------------
Palavras Chave:
LIQUIDAÇÃO - VALORES INCORRETOS QUANDO FOR MOEDA JPY
----------------------------------------------------------------------------------------------------
Objetos da nota:
MERG F6DK971518 20090909 132338 PWSCB
RELE F6DK971529 20090909 132350 PWSCB
REPS /PWS/MZYCB004F01
REPS /PWS/MZYCB004F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em MERG F6DK971518 20090909 132338 PWSCB
----------------------------------------------------------------------------------------------------
Modificações efetuadas em RELE F6DK971529 20090909 132350 PWSCB
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004F02
...
and nrparc = itab_zycbt006-nrparc
and dtincl = itab_zycbt006-dtincl
and nrinvoic = itab_zycbt006-nrinvoic
and gsberf = itab_zycbt006-gsberf
and dtvincul = itab_zycbt006-dtvincul
and dtvencto = itab_zycbt006-dtvencto
and dtpagto = itab_zycbt006-dtpagto
and dtpagext = itab_zycbt006-dtpagext
and nrparcf = itab_zycbt006-nrparcf.
v_vlme_sl = itab_zycbt006-vlme * itab_zycbt005_ant-parid.
* >> Início da inclusão: FORM ATUALIZA_TABELAS_TRANSP2
if itab_zycbt005_ant-waers_c = 'JPY' or
itab_zycbt005_ant-waers = 'JPY'.
v_vlme_sl = ( itab_zycbt006-vlme * itab_zycbt005_ant-parid )
* ( 10 ** ( 0 - 2 ) ).
endif.
* << Fim da inclusão
itab_zycbt006-v_vldif_arb = itab_zycbt006-v_vldif *
itab_zycbt005_ant-parid.
* >> Início da inclusão: FORM ATUALIZA_TABELAS_TRANSP2
if itab_zycbt005_ant-waers_c = 'JPY' or
itab_zycbt005_ant-waers = 'JPY'.
itab_zycbt006-v_vldif_arb = ( itab_zycbt006-v_vldif *
itab_zycbt005_ant-parid )
* ( 10 ** ( 0 - 2 ) ).
endif.
* << Fim da inclusão
v_slpagar001 = v_slpagar001 + itab_zycbt006-v_vldif_arb.
modify itab_zycbt006.
update /pws/zycbt005 set slpagar = slpagar + v_vlme_sl
belnr = itab_zycbt005_ant-belnr
dtbelnr = itab_zycbt005_ant-dtbelnr
where nrseqc = itab_zycbt006-nrseqc
and tpdesp = itab_zycbt006-tpdesp
and nrparc = itab_zycbt006-nrparc
and dtincl = itab_zycbt006-dtincl
and nrinvoic = itab_zycbt006-nrinvoic
...
...
empresa_nao_encontrada = 3
period_in_not_valid = 4
period_not_assigned = 5
version_undefined = 6
others = 7.
select single kursf from bkpf
into bkpf-kursf
where belnr eq itab_zycbt006-belnr_d
and bukrs eq itab_zycbt006-bukrs
and gjahr eq v_year.
* >> Início da inclusão: FORM CALCULA_DIFERENCA_REAIS
if /pws/zycbe001-waers = 'JPY'.
v_reais_c = ( itab_zycbt006-vlme * itab_zycbt005-parid )
* ( 10 ** ( 0 - 2 ) ).
else.
* << Fim da inclusão
v_reais_c = ( itab_zycbt006-vlme * itab_zycbt005-parid )
/ ( 10 ** ( tcurx-currdec - 2 ) ).
* >> Início da inclusão: FORM CALCULA_DIFERENCA_REAIS
endif.
* << Fim da inclusão
v_reais_c = ( ( bkpf-kursf / v_defator )
* v_parafator ) * v_reais_c.
clear bkpf.
clear itab_zycbt084.
read table itab_zycbt084 with key
...