CE PLUS - Nota 004627
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Rotina Mensal
Data/Hora da Publicação: 05/09/2007 00:00:00
Data/Hora Última Alteração: 18/02/2011 17:17:19
Descrição da Nota: ROTINA MENSAL EM JPY
Sintoma
Ao rodar a rotina mensal para um contrato em JPY, no 1º relatório da rotina nas linhas: "Subtotal
dos Juros Tipo Contrato A" e "Total Geral Moeda - Juros JPY" o valor da coluna "Valor MI", está
vindo errado.
Solução
Foi adicionado código para que exista o tratamento da moeda.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04627 Data: 05/09/2007 Hora: 11:41:56
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04627
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00002
Agrupamento : 00011
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01441 - 00001 - 6.0 - 00023 - ROTINA MENSAL EXPORTAÇÃO - VALOR MI SUBTOTAL E TOTAL
----------------------------------------------------------------------------------------------------
ROTINA MENSAL EM JPY
----------------------------------------------------------------------------------------------------
Palavras Chave:
ROTINA MENSAL EM JPY
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/ZYCBI003
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBI003
...
EXIT.
ENDIF.
ENDLOOP.
IF itab_relat-tpcontab IS INITIAL.
itab_sub_tipo-tpcontab = itab_relat-tpcontab.
itab_sub_tipo-tpcontr = itab_relat-tpcontr.
itab_sub_tipo-waers = itab_relat-waers.
itab_sub_tipo-vlmej = itab_relat-vlmej.
itab_sub_tipo-vlme_mes = itab_relat-vlme_mes.
IF <fs_itab_relat> IS ASSIGNED.
* >> Início da exclusão: FORM EXIBE_RELATORIO
itab_sub_tipo-vlmij = itab_relat-vlmej * <fs_itab_relat>-txc.
* << Fim da exclusão
* >> Início da inclusão: FORM EXIBE_RELATORIO
PERFORM calcula_vlmi USING <fs_itab_relat>-tpcontr
<fs_itab_relat>-waers
itab_relat-vlmej
<fs_itab_relat>-txc
CHANGING itab_sub_tipo-vlmij.
* << Fim da inclusão
ELSE.
itab_sub_tipo-vlmi_mes = itab_relat-vlmi_mes.
ENDIF.
itab_sub_tipo-vlmeir = itab_relat-vlmeir.
COLLECT itab_sub_tipo.
itab_total-tpcontab = itab_relat-tpcontab.
itab_total-waers = itab_relat-waers.
itab_total-vlmej = itab_relat-vlmej.
IF <fs_itab_relat> IS ASSIGNED.
* >> Início da exclusão: FORM EXIBE_RELATORIO
itab_total-vlmij = itab_relat-vlmej * <fs_itab_relat>-txc.
* << Fim da exclusão
* >> Início da inclusão: FORM EXIBE_RELATORIO
PERFORM calcula_vlmi USING <fs_itab_relat>-tpcontr
<fs_itab_relat>-waers
itab_relat-vlmej
<fs_itab_relat>-txc
CHANGING itab_total-vlmij.
* << Fim da inclusão
ELSE.
itab_total-vlmij = itab_relat-vlmij.
ENDIF.
itab_total-vlmeir = itab_relat-vlmeir.
itab_total-vlme_mes = itab_relat-vlme_mes.
itab_total-vlmi_mes = itab_relat-vlmi_mes.
COLLECT itab_total.
IF wa_zycbt007-fprovisao IS INITIAL.
IF itab_relat-tpcontr(1) EQ 'A'.
CLEAR: itab_total_ac-slacc, itab_total_ac-slace.
...