CE PLUS - Nota 004193
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Rotina Mensal
Data/Hora da Publicação: 17/07/2007 00:00:00
Data/Hora Última Alteração: 18/02/2011 17:17:38
Descrição da Nota: ROTINA MENSAL EXPORTAÇÃO - JUROS ACC X PRÉ
Sintoma
Ao executar a rotina mensal de exportação para um contrato com juros de ACC x Pré, o valor calculado
esta incorreto.
Solução
Trazer direto o valor da tabela /pws/zycbt062, campo VLMEJ, pois o mesmo já tem o valor correto, não
sendo necessário refazer o cálculo.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04193 Data: 17/07/2007 Hora: 11:45:04
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04193
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00002
Agrupamento : 00004
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01309 - 00001 - 6.0 - 00023 - ROTINA MENSAL EXPORTAÇÃO CONTABILIZAÇÃO SEPARADA DE ACC E ACE = S
03651 - 00002 - 7.0 - 00001 - ROTINA MENSAL DE EXPORTAÇÃO - JUROS ACC X PRÉ
----------------------------------------------------------------------------------------------------
ROTINA MENSAL EXPORTAÇÃO - JUROS ACC X PRÉ
----------------------------------------------------------------------------------------------------
Palavras Chave:
ROTINA MENSAL EXPORTAÇÃO JUROS ACC X PRÉ
/PWS/ZYCBT062 VLMEJ
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/ZYCBI003
REPS /PWS/ZYCBR003
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBI003
...
derived_2_times = 5
montante_nao_encontrado = 6
tx_juros_nao_encontrada = 7
dias_base_nao_encontrado = 8
dias_periodo_nao_encontrado = 9
me_nao_encontrada = 10
ctg_cambio_nao_encontrada = 11
dtbase_nao_encontrada = 12
OTHERS = 13.
IF sy-subrc <> 0.
* >> Início da inclusão: FORM PROCESSA_CALCULO_JUROS
IF NOT v_liq IS INITIAL.
itab_relat-vlmej = itab_zycbt062-vlmej /
( 10 ** ( itab_tcurx-currdec - 2 ) ).
ENDIF.
* << Fim da inclusão
CLEAR itab_msg.
CASE sy-subrc.
WHEN '1' OR '5'.
WRITE: p_dtate TO v_dtate.
CONCATENATE text-011 itab_zycbt009-kurst
v_dtate p_moeda
INTO itab_msg-msg SEPARATED BY space.
WHEN '2'.
itab_msg-msg = text-012.
WHEN '3'.
...
...
OTHERS = 13.
ENDIF.
itab_msg-nrseqc = itab_zycbt001-nrseqc.
itab_msg-nrcontr = itab_zycbt001-nrcontr.
itab_msg-tpcontr = itab_zycbt001-tpcontr.
itab_msg-tpmsg = 'E'.
APPEND itab_msg.
ELSE.
MOVE-CORRESPONDING itab_relat TO wa_taxa_cambial.
v_ok = 'X'.
* >> Início da inclusão: FORM PROCESSA_CALCULO_JUROS
IF NOT v_liq IS INITIAL.
itab_relat-vlmej = itab_zycbt062-vlmej /
( 10 ** ( itab_tcurx-currdec - 2 ) ).
ENDIF.
* << Fim da inclusão
IF v_nrdias = v_dias_mes.
itab_relat-vlme_mes = itab_relat-vlmej.
ELSEIF v_nrdias <> v_dias_mes.
CALL FUNCTION '/PWS/ZYCB_JUROS_CALCULA'
EXPORTING
i_vlme = v_vlmeaux
i_txj = v_txj
i_nrdiabase = v_nrdiabase
i_nrdias = v_dias_mes
i_moeda = p_moeda
...
...
itab_zycbe033-bktxt = wa_zycbt007-bktxt.
itab_zycbe033-kursf = itab_contabil-kursf.
itab_zycbe033-blart = itab_contabil-blart.
itab_zycbe033-d_gsber = itab_contabil-gsber.
itab_zycbe033-d_kostl = itab_contabil-kostl.
itab_zycbe033-d_prctr = itab_contabil-prctr.
itab_zycbe033-d_fipos = itab_contabil-fipos.
itab_zycbe033-d_fictr = itab_contabil-fictr.
itab_zycbe033-c_gsber = itab_contabil-gsber.
READ TABLE itab_zycbt001
WITH KEY nrseqc = itab_contabil-nrcorresp.
IF sy-subrc = 0.
itab_zycbe033-werks = itab_zycbt001-werks.
ENDIF.
IF NOT itab_contabil-fipos_transf IS INITIAL AND
itab_contabil-tpcontab EQ 'T'.
itab_zycbe033-d_fipos = itab_contabil-fipos_transf.
itab_zycbe033-c_fipos = itab_contabil-fipos_transf.
ENDIF.
REFRESH itab_zyglt321.
IF itab_contabil-tpcontab IS INITIAL OR
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR003
...
v_nrdias TYPE i,
v_base_dias TYPE i,
v_lin TYPE i,
v_imp TYPE i,
v_modo_bi,
v_nrparcj TYPE /pws/zycbt002-nrparc,
v_programa TYPE sy-cprog,
v_defator LIKE tcurr-ffact,
v_parafator LIKE tcurr-tfact,
v_separa TYPE c,
* >> Início da exclusão:
v_vlprov_aux LIKE /pws/zycbt004-vlme.
* << Fim da exclusão
* >> Início da inclusão:
v_vlprov_aux LIKE /pws/zycbt004-vlme,
v_liq type c.
* << Fim da inclusão
SELECTION-SCREEN BEGIN OF BLOCK a1 WITH FRAME TITLE text-001.
PARAMETERS: s_bukrs LIKE /pws/zycbt001-bukrs OBLIGATORY,
s_dtentr LIKE sy-datum OBLIGATORY.
SELECTION-SCREEN END OF BLOCK a1.
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-046.
PARAMETERS: s_rbrotm RADIOBUTTON GROUP rg1,
s_rbrotd RADIOBUTTON GROUP rg1,
s_rbrela RADIOBUTTON GROUP rg1.
SELECTION-SCREEN END OF BLOCK b2.
SELECTION-SCREEN BEGIN OF BLOCK c3 WITH FRAME TITLE text-045.
...
...
itab_relat-txjtotal = itab_zycbt062-txjtotal.
itab_relat-vlme = itab_zycbt062-vlme.
itab_relat-ftpj = 'A'.
itab_relat-waers = itab_zycbt001-waers.
READ TABLE itab_zycbt004 WITH KEY
nrseqc = itab_zycbt062-nrseq_c
tpdesp = 'J'
nrparc = '000'
dtincl = itab_zycbt062-dtincl.
PERFORM preenche_contas_pgto.
* >> Início da inclusão: FORM PREENCHE_LIQ_AND
v_liq = 'X'.
* << Fim da inclusão
PERFORM processa_calculo_juros USING itab_zycbt062-vlme
itab_zycbt062-txjtotal
itab_zycbt062-tptxjur
itab_relat-dtde
itab_relat-dtate
itab_zycbt001-waers
itab_zycbt011-ctmoed
'A'.
* >> Início da inclusão: FORM PREENCHE_LIQ_AND
clear v_liq.
* << Fim da inclusão
ENDFORM.