CE PLUS - Nota 008579
Módulo: CÂMBIO IMPORTAÇÃO
Funcionalidade: Financiamento
Data/Hora da Publicação: 23/06/2009 00:00:00
Data/Hora Última Alteração: 18/02/2011 10:00:43
Descrição da Nota: FINIMP - LONGO PRAZO - INFORMAÇÃO NO CABEÇALHO.
Sintoma
A informação no cabeçalho em relação ao Prazo do Financiamento está ficando incorreta, por exemplo:
em vez de L, está ficando S. Mas, quando salva, sai e entra novamente, fica = C. Ao dar um enter
fica = L, que seria o correto, mas já deveria ficar desde o início.
O FINIMP está gerando mensagem do mesmo erro várias vezes na Pasta de Juros (conforme o numero de
parcelas de juros, por exemplo: se faltar a informação do Tipo de Juros em 2 parcelas, o programa
irá gerar a mesma mensagem 2 vezes, ao invés de apenas uma).
Solução
Corrigido a Informação de Prazo no Cabeçalho e o FINIMP irá é modificada cada vez que aparece uma
mensagem na Pasta de Juros, informando que existe alguma das parcelas incompletas.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 08579 Data: 23/06/2009 Hora: 16:11:31
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 08579
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00010
Agrupamento : 00102
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
06290 - 00001 - 7.0 - 00005 - FINANCIAMENTO/EMPRESTIMO - JUROS E COMISSÃO COM IRRF DEDUZIDO
07218 - 00002 - 7.0 - 00006 - FINANCIAMENTO DE IMPORTAÇÃO
07346 - 00003 - 7.0 - 00007 - FINANCIAMENTO DE IMPORTAÇÃO
----------------------------------------------------------------------------------------------------
FINIMP - LONGO PRAZO - INFORMAÇÃO NO CABEÇALHO.
----------------------------------------------------------------------------------------------------
Palavras Chave:
FINIMP - LONGO PRAZO - INFORMAÇÃO NO CABEÇALHO.
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCM101F01
REPS /PWS/MZYCM101I01
REPS /PWS/MZYCM101O01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCM101F01
...
else.
if itab_zycbt113j-aliqir < 100.
itab_zycbt113j-vlir =
( itab_zycbt113j-vlme /
( ( 100 - itab_zycbt113j-aliqir ) / 100 ) )
* ( itab_zycbt113j-aliqir / 100 ).
endif.
endif.
endif.
itab_zycbt113j-txtinf = /pws/zycbe113-txtinf.
* >> Início da exclusão: FORM UPDATE_ITAB_ZYCBT113J
else.
message i015 with text-052.
* << Fim da exclusão
endif.
if /pws/zycbe113-nrdias <> itab_zycbt113j-nrdias
or /pws/zycbe113-dtfinal <> itab_zycbt113j-dtfinal.
itab_zycbt113j-dtvecto = itab_zycbt113j-dtfinal.
endif.
endif.
move mark to itab_zycbt113j-mark.
move: /pws/zycbe113-kostl to itab_zycbt113j-kostl,
/pws/zycbe113-aufnr to itab_zycbt113j-aufnr,
/pws/zycbe113-kstrg to itab_zycbt113j-kstrg,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCM101I01
...
ENDIF.
ENDMODULE.
MODULE exibir_mensagem INPUT.
DATA: lin TYPE i,
linh TYPE i,
v_nrd LIKE /pws/zycbt113-nrdias,
v_auxnr LIKE /pws/zycbt113-nrdias,
v_dinic LIKE /pws/zycbt113-dtinicio,
v_auxnrb LIKE /pws/zycbt113-dtfinal,
v_auxnrc LIKE /pws/zycbt113-nrdias,
* >> Início da exclusão: MODULE EXIBIR_MENSAGEM
v_npar TYPE i.
* << Fim da exclusão
* >> Início da inclusão: MODULE EXIBIR_MENSAGEM
v_npar type i,
v_msg(1) type c.
* << Fim da inclusão
CASE sy-dynnr.
WHEN '0102'.
IF v_periodo >= 0.
DESCRIBE TABLE itab_zycbt113p LINES lin.
IF lin = 1 AND NOT itab_zycbt113p-belnr_p IS INITIAL.
/pws/zycbe112-dtvencto = wa_zycbt112-dtvencto.
/pws/zycbe112-dtdesem = wa_zycbt112-dtdesem.
EXIT.
ENDIF.
IF lin > 0.
...
...
LOOP AT itab_zycbt113p.
IF itab_zycbt113p-nrparc NE 1 AND sy-tabix = 1.
itab_zycbt113p-nrparc = v_npar.
ELSEIF itab_zycbt113p-nrparc NE 1.
v_npar = v_npar + 1.
itab_zycbt113p-nrparc = v_npar.
ENDIF.
MODIFY itab_zycbt113p INDEX sy-tabix.
ENDLOOP.
WHEN '0103'.
* >> Início da inclusão: MODULE EXIBIR_MENSAGEM
v_msg = 'N'.
loop at itab_zycbt113j.
if itab_zycbt113j-tptxjur is initial.
v_msg = 'S'.
endif.
endloop.
if v_msg = 'S'.
message i015 with text-052.
endif.
* << Fim da inclusão
IF v_periodo >= 0.
DESCRIBE TABLE itab_zycbt113j LINES lin.
IF lin = 1 AND NOT itab_zycbt113j-belnr_p IS INITIAL.
/pws/zycbe112-dtvencto = wa_zycbt112-dtvencto.
/pws/zycbe112-dtdesem = wa_zycbt112-dtdesem.
EXIT.
ENDIF.
IF lin > 0.
IF lin > 1.
linh = lin - 1.
...
...
IF v_nrdias < wa_zyglt009-nrdias_cp.
itab_zycbt113p-ftransf = c_prazo_c.
v_descprzcontr = text-459.
ELSE.
itab_zycbt113p-ftransf = c_prazo_l.
v_descprzcontr = text-458.
ENDIF.
ENDIF.
ENDIF.
ELSE.
* >> Início da exclusão: MODULE DIAS_PRINCIPAL
IF v_nrdias < wa_zyglt009-nrdias_cp.
* << Fim da exclusão
* >> Início da inclusão: MODULE DIAS_PRINCIPAL
if v_nrdias <= wa_zyglt009-nrdias_cp.
* << Fim da inclusão
itab_zycbt113p-ftransf = c_prazo_s.
v_descprzcontr = text-460.
ELSE.
itab_zycbt113p-ftransf = c_prazo_l.
v_descprzcontr = text-459.
ENDIF.
ENDIF.
MODIFY itab_zycbt113p.
ENDLOOP.
ENDMODULE.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCM101O01
...
/pws/zycbe113-ftransf = c_prazo_c.
v_descprzcontr = text-459.
ELSE.
IF v_prazo = c_prazo_c.
/pws/zycbe113-ftransf = c_prazo_s.
ELSE.
IF nrdias > wa_zyglt009-nrdias_cp.
/pws/zycbe113-ftransf = c_prazo_l.
v_descprzcontr = text-458.
ELSEIF nrdias <= wa_zyglt009-nrdias_cp.
* >> Início da exclusão: MODULE SET-SCREEN
/pws/zycbe113-ftransf = c_prazo_c.
v_descprzcontr = text-459.
* << Fim da exclusão
* >> Início da inclusão: MODULE SET-SCREEN
/pws/zycbe113-ftransf = c_prazo_s.
v_descprzcontr = text-460.
* << Fim da inclusão
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ELSE.
CLEAR:/pws/zycbe113-ftransf, v_descprzcontr.
ENDIF.
ENDIF.
ENDIF.
...