CE PLUS - Nota 009742
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Liquidação de Contrato
Data/Hora da Publicação: 28/01/2010 00:00:00
Data/Hora Última Alteração: 18/02/2011 16:59:22
Descrição da Nota: LIQUIDAÇÃO DE CONTRATO ACC, PROGRAMA BUSCA TAXA INCORRETA
Sintoma
Na liquidação de um contrato de ACC e o programa não busca a taxa correta para contabilizar o
documento de liquidação (Taxa do faturamento). após o estorno dessa liquidação,e ao criar
novamente a liquidação, no documento de liquidação, o programa está buscando a taxa do contrato ao
invés da taxa do faturamento que é o que está parametrizada.
Solução
Feita a liquidação de um contrato de ACC e o programa buscou a taxa correta para contabilizar o
documento de liquidação (Taxa do faturamento). Feito estorno dessa liquidação, mas ao criar
novamente a liquidação, no documento de liquidação, o programa está buscando a taxa do contrato ao
invés da taxa do faturamento que é o que está parametrizado na ZYGL007 (Taxas).
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 09742 Data: 28/01/2010 Hora: 15:47:25
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 09742
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00002
Agrupamento : 00006
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
08269 - 00001 - 7.0 - 00009 - TRATAMENTO DE PROCESSOS DE EXPORTAÇÃO EM BRL-CAPTAÇAO,VINCULAÇAO
----------------------------------------------------------------------------------------------------
LIQUIDAÇÃO DE CONTRATO ACC, PROGRAMA BUSCA TAXA INCORRETA
----------------------------------------------------------------------------------------------------
Palavras Chave:
LIQUIDAÇÃO DE CONTRATO ACC, PROGRAMA BUSCA TAXA INCORRETA
----------------------------------------------------------------------------------------------------
Objetos da nota:
FUNC /PWS/ZYCB_DADOS_BI
REPS /PWS/MZYCB004F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCB_DADOS_BI
...
v_databl = v_dtemb.
elseif wa_zycet048-dtvrc eq 'DTAVERB'.
v_databl = v_dtaverb2.
elseif wa_zycet048-dtvrc eq 'DTCRUZE'.
v_databl = v_dtcruze.
endif.
endif.
endif.
endif.
when 'TXFAT'.
* >> Início da exclusão: FUNCTION /PWS/ZYCB_DADOS_BI
if i_zycbt001-waers ne i_zycbt007-waersb .
t_zycbe033-kursf = i_kursf6.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCB_DADOS_BI
if i_zycbt001-waers eq i_zycbt007-waersb.
t_zycbe033-kursf = i_zycbt001-txcneg.
* << Fim da inclusão
else.
* >> Início da exclusão: FUNCTION /PWS/ZYCB_DADOS_BI
t_zycbe033-kursf = i_zycbt001-txcneg.
endif.
* << Fim da exclusão
select single belnr dtbelnr
from /pws/zycbt030
into (v_belnr,v_dtemb)
where nrinvoic eq i_zycbt006-nrinvoic and
gsberf eq i_zycbt006-gsberf and
...
...
importing
v_year = v_year
exceptions
variante_de_exercicio = 1
data_nao_encontrada = 2
empresa_nao_encontrada = 3
period_in_not_valid = 4
period_not_assigned = 5
version_undefined = 6
others = 7.
* >> Início da exclusão: FUNCTION /PWS/ZYCB_DADOS_BI
if t_zycbe033-kursf is initial.
* << Fim da exclusão
select single kursf from bkpf into t_zycbe033-kursf
where bukrs = i_zycbt006-bukrs and
belnr = v_belnr and
gjahr = v_year.
endif.
endif.
clear v_databl.
when 'TXCONTR'.
t_zycbe033-kursf = i_zycbt001-txcneg.
clear v_databl.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004F02
...
v_databl = v_dtemb.
elseif wa_zycet048-dtvrc eq 'DTAVERB'.
v_databl = v_dtaverb2.
elseif wa_zycet048-dtvrc eq 'DTCRUZE'.
v_databl = v_dtcruze.
endif.
endif.
endif.
endif.
when 'TXFAT'.
* >> Início da exclusão: FORM VERIFICA_DATA2
if /pws/zycbe001-waers ne wa_zycbt007-waersb .
itab_zycbe033-kursf = v_kursf6.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_DATA2
if /pws/zycbe001-waers eq wa_zycbt007-waersb.
itab_zycbe033-kursf = /pws/zycbe001-txcneg.
* << Fim da inclusão
else.
* >> Início da exclusão: FORM VERIFICA_DATA2
itab_zycbe033-kursf = /pws/zycbe001-txcneg.
endif.
* << Fim da exclusão
select single belnr dtbelnr
from /pws/zycbt030
into (v_belnr,v_dtemb)
where nrinvoic eq itab_zycbt006-nrinvoic and
gsberf eq itab_zycbt006-gsberf and
...
...
importing
v_year = v_year
exceptions
variante_de_exercicio = 1
data_nao_encontrada = 2
empresa_nao_encontrada = 3
period_in_not_valid = 4
period_not_assigned = 5
version_undefined = 6
others = 7.
* >> Início da exclusão: FORM VERIFICA_DATA2
if itab_zycbe033-kursf is initial.
* << Fim da exclusão
select single kursf from bkpf into itab_zycbe033-kursf
where bukrs = itab_zycbt006-bukrs and
belnr = v_belnr and
gjahr = v_year.
endif.
endif.
clear v_databl.
when 'TXCONTR'.
itab_zycbe033-kursf = /pws/zycbe001-txcneg.
clear v_databl.
...