CE PLUS - Nota 006646
Módulo: CÂMBIO FINANCEIRO
Funcionalidade: Empréstimos
Data/Hora da Publicação: 29/05/2008 00:00:00
Data/Hora Última Alteração: 03/03/2010 17:43:24
Descrição da Nota: EMPRESTIMO - DIAS COMISSAO
Sintoma
O programa calcula automaticamente o quantidade de dias de uma comissao de livre/valor e não deixa o
usuario alterar o prazo.
Solução
adicionado tratamento para que o programa faca a verificação correta.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 06646 Data: 29/05/2008 Hora: 11:37:02
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 06646
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00005
Agrupamento : 00049
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
EMPRESTIMO - DIAS COMISSAO
----------------------------------------------------------------------------------------------------
Palavras Chave:
EMPRESTIMO - DIAS COMISSAO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCA111F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA111F01
...
itab_zycbt129c-dtinicio = v_dtfinal.
ENDIF.
ELSE.
IF /pws/zycbe129-nrparc = 1.
/pws/zycbe129-dtinicio = itab_zycbt129c-dtinicio =
/pws/zycbe128-dtdesem.
ELSE.
itab_zycbt129c-dtinicio = /pws/zycbe129-dtinicio.
ENDIF.
ENDIF.
* >> Início da exclusão: FORM UPDATE_ITAB_ZYCBT129C
IF /pws/zycbe129-nrparc = '001' AND /pws/zycbe128-nrparc = '001'.
* << Fim da exclusão
* >> Início da inclusão: FORM UPDATE_ITAB_ZYCBT129C
IF /pws/zycbe129-nrparc = '001' AND
/pws/zycbe128-nrparc = '001' AND
/pws/zycbe128-fpagto_c NE 'L' AND
/pws/zycbe128-tpcomis NE 'V'.
* << Fim da inclusão
/pws/zycbe129-nrdias = nrdias.
ENDIF.
IF NOT /pws/zycbe128-tpcomis = 'F'.
IF /pws/zycbe129-nrdias IS INITIAL.
itab_zycbt129c-dtfinal = /pws/zycbe129-dtfinal.
IF NOT /pws/zycbe129-dtfinal IS INITIAL.
itab_zycbt129c-nrdias =
( itab_zycbt129c-dtfinal - itab_zycbt129c-dtinicio ).
v_diasc = v_diasc + itab_zycbt129c-dtinicio.
ENDIF.
...