CE PLUS - Nota 006164

Módulo: CÂMBIO IMPORTAÇÃO

Funcionalidade: Financiamento

Data/Hora da Publicação: 13/03/2008 00:00:00

Data/Hora Última Alteração: 04/03/2010 14:11:25

Descrição da Nota: FINANCIAMENTO

Sintoma

 

Na criação de financiamento utilizando linha de crédito no exterior, os campos Aliq. IR e Tipo de

Juros da table control "Período Juros" do financiamento não estão trazendo os dados do registro da

linha de crédito, quando o flag "Utiliza Linha Financ." estiver marcado, os campos são ALIQIR e

TPTAXA1 da tabela /PWS/ZYCBt114 e o campo "Tx Juros Fixa" está sendo multiplicado por 100 na table

control, ou seja o campo TXJFIXA da linha de crédito está sendo convertido na exibição na table

control do financiamento.

 

Solução

 

Alterado domínio de dados /PWS/ZYGLD060 e include /PWS/MZYCM101F01, para que o programa grave

corretamente a taxa de juros fixo na tabela /PWS/ZYCBT114 e busque os valores Aliq. IR, Tipo de

Juros e Taxa de Juros Fixo da /PWS/ZYCBT114 corretamente no financiamento.

Versões Tratadas

7.0

Informações Complementares

 

----------------------------------------------------------------------------------------------------

Nota Número 06164 Data: 13/03/2008 Hora: 11:07:23

----------------------------------------------------------------------------------------------------

 

----------------------------------------------------------------------------------------------------

Nota Número              : 06164

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00004

Agrupamento              : 00037

----------------------------------------------------------------------------------------------------

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

 

----------------------------------------------------------------------------------------------------

FINANCIAMENTO

----------------------------------------------------------------------------------------------------

Palavras Chave:

FINANCIAMENTO

 

----------------------------------------------------------------------------------------------------

Objetos da nota:

DOMD /PWS/ZYGLD060

REPS /PWS/MZYCM101F01

 

----------------------------------------------------------------------------------------------------

Modificações efetuadas em DOMD /PWS/ZYGLD060

 

------------------------------------------------------------------------

Domínio modificado: /PWS/ZYGLD060

Rotina de conversão: EXCRT

 

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCM101F01

 

...

    IF NOT /pws/zycbe112-flinha IS INITIAL AND

       NOT /pws/zycbe112-nrlinha IS INITIAL AND

       /pws/zycbe113-txjfixa IS INITIAL.

      /pws/zycbe113-txjfixa = wa_zycbt114-txjfixa.

    ENDIF.

    IF NOT /pws/zycbe112-flinha IS INITIAL AND

       NOT /pws/zycbe112-nrlinha IS INITIAL AND

       /pws/zycbe113-tptxjur IS INITIAL.

      /pws/zycbe113-tptxjur = wa_zycbt114-tptaxa1.

    ENDIF.

* >> Início da inclusão: FORM UPDATE_ITAB_ZYCBT113J

    IF NOT wa_zycbt114-txjfixa IS INITIAL.

      itab_zycbt113j-txjfixa = wa_zycbt114-txjfixa.

    ELSE.

* << Fim da inclusão

    itab_zycbt113j-txjfixa  = /pws/zycbe113-txjfixa.

* >> Início da inclusão: FORM UPDATE_ITAB_ZYCBT113J

    ENDIF.

* << Fim da inclusão

    itab_zycbt113j-txjvar   = /pws/zycbe113-txjvar.

    itab_zycbt113j-txjtotal =

      ( itab_zycbt113j-txjfixa + itab_zycbt113j-txjvar ).

* >> Início da inclusão: FORM UPDATE_ITAB_ZYCBT113J

    IF NOT wa_zycbt114-tptaxa1 IS INITIAL.

      itab_zycbt113j-tptxjur = wa_zycbt114-tptaxa1.

    ELSE.

* << Fim da inclusão

    itab_zycbt113j-tptxjur  = /pws/zycbe113-tptxjur.

* >> Início da inclusão: FORM UPDATE_ITAB_ZYCBT113J

    ENDIF.

* << Fim da inclusão

    itab_zycbt113j-tpjurv   = /pws/zycbe113-tpjurv.

* >> Início da inclusão: FORM UPDATE_ITAB_ZYCBT113J

    IF NOT wa_zycbt114-aliqir IS INITIAL.

      itab_zycbt113j-aliqir = wa_zycbt114-aliqir.

    ELSE.

* << Fim da inclusão

    itab_zycbt113j-aliqir   = /pws/zycbe113-aliqir.

* >> Início da inclusão: FORM UPDATE_ITAB_ZYCBT113J

    ENDIF.

* << Fim da inclusão

    IF NOT itab_zycbt113j-tptxjur IS INITIAL.

      SELECT SINGLE * FROM /pws/zycbt010

        WHERE tptxjur = itab_zycbt113j-tptxjur.

      v_vlmeamj = /pws/zycbe112-vlme.

      LOOP AT itab_zycbt113p WHERE

                    dtfinal <= itab_zycbt113j-dtinicio.

...