CE PLUS - Nota 007304
Módulo: CÂMBIO FINANCEIRO
Funcionalidade: Empréstimos
Data/Hora da Publicação: 11/09/2008 00:00:00
Data/Hora Última Alteração: 18/02/2011 14:25:39
Descrição da Nota: PROGRAMA DE EMPRESTIMO, GRAVA O PRAZO SOMENTE COMO CURTISSIMO
Sintoma
O programa de emprestimo /pws/zycb111 grava o prazo somente como curtissimo 'S' mesmo sendo longo
'L'
Solução
O programa deve fazer o calculo da data pela data final
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07304 Data: 11/09/2008 Hora: 15:30:26
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07304
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00006
Agrupamento : 00064
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01597 - 00001 - 6.0 - 00023 - EMPRÉSTIMO - NÃO ESTÁ SENDO FEITO O ESTORNO
----------------------------------------------------------------------------------------------------
PROGRAMA DE EMPRESTIMO, GRAVA O PRAZO SOMENTE COMO CURTISSIMO
----------------------------------------------------------------------------------------------------
Palavras Chave:
PROGRAMA DE EMPRESTIMO, GRAVA O PRAZO SOMENTE COMO CURTISSIMO
MESMO SENDO LONGO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCA111F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA111F01
...
OTHERS = 3.
IF sy-subrc EQ 0.
READ TABLE itab_zyglt316 INDEX 1.
ENDIF.
ENDFORM.
FORM gera_novas_parcelas.
DATA v_flag.
CLEAR: v_flag, v_nrdias.
LOOP AT itab_zycbt129p .
IF /pws/zycbe128-fassoc EQ ' '.
* >> Início da exclusão: FORM GERA_NOVAS_PARCELAS
v_nrdias = itab_zycbt129p-dtvencto - /pws/zycbe128-dtdesem.
* << Fim da exclusão
* >> Início da inclusão: FORM GERA_NOVAS_PARCELAS
v_nrdias = itab_zycbt129p-dtfinal - /pws/zycbe128-dtdesem.
* << Fim da inclusão
ELSE.
* >> Início da exclusão: FORM GERA_NOVAS_PARCELAS
v_nrdias = itab_zycbt129p-dtvencto - sy-datum.
* << Fim da exclusão
* >> Início da inclusão: FORM GERA_NOVAS_PARCELAS
v_nrdias = itab_zycbt129p-dtfinal - sy-datum.
* << Fim da inclusão
ENDIF.
PERFORM get_parameters_111.
IF itab_zycbt129p-belnr_p NE ' '.
...