CE PLUS - Nota 001537
Módulo: CÂMBIO IMPORTAÇÃO
Funcionalidade: Financiamento
Data/Hora da Publicação: 07/06/2006 00:00:00
Data/Hora Última Alteração: 18/02/2011 09:39:15
Descrição da Nota: FINANCIAMENTO COM LINHA DE CRÉDITO AGRUPAR FATURAS
Sintoma
Quando criava um financiamento utilizando uma linha de crédito não conseguia agrupar faturas
corretamente e o programa permitia que criasse um financiamento com valor maior que o saldo da linha
e com valor menor do que o mínimo desembolso da linha, não exibia mensagem de erro e nem limpava o
valor do campo.
Solução
Aplicar ajustes contidos nessa nota.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 01537 Data: 07/06/2006 Hora: 09:38:03
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 01537
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00024
Agrupamento : 00119
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
FINANCIAMENTO COM LINHA DE CRÉDITO AGRUPAR FATURAS
----------------------------------------------------------------------------------------------------
Palavras Chave:
FINANCIAMENTO COM LINHA DE CRÉDITO AGRUPAR FATURAS
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCM101F01
REPS /PWS/MZYCM101I01
REPT /PWS/SAPMZYCM101
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCM101F01
...
CHECK v_ind_lifin IS INITIAL.
CHECK v_ind_texto IS INITIAL.
PERFORM ver_vlprinc.
PERFORM ver_juros.
CHECK v_ind_valor IS INITIAL.
* >> Início da inclusão: FORM SAVE_CHANGES
IF /pws/zycbe112-flinha = 'X' AND
NOT /pws/zycbe112-nrlinha IS INITIAL.
* << Fim da inclusão
IF NOT wa_zycbt114-dtvencto IS INITIAL AND
/pws/zycbe112-belnr IS INITIAL.
IF /pws/zycbe112-dtincl > wa_zycbt114-dtvencto.
CLEAR /pws/zycbe112-dtincl.
MESSAGE e015 WITH text-027 text-028.
...
...
IF wa_zycbt114-vlmin > /pws/zycbe112-vlme AND
wa_zycbt114-saldo > wa_zycbt114-vlmin.
CLEAR /pws/zycbe112-vlme.
MESSAGE e015 WITH text-112 text-113.
EXIT.
* >> Início da inclusão: FORM SAVE_CHANGES
ENDIF.
* << Fim da inclusão
ENDIF.
ENDIF.
PERFORM save_zycbt112.
PERFORM salvar_dados_adicionais.
PERFORM salvar_agrupar_processos.
...
...
INTO TABLE itab_zycbt112l
WHERE nrseq NOT LIKE '5%'
AND flinha EQ 'X'
AND nrlinha EQ /pws/zycbe112-nrlinha
AND status NE 'E'.
* >> Início da inclusão: FORM BUSCA_CAMPOS_LINHA
DELETE itab_zycbt112l WHERE nrseq = /pws/zycbe112-nrseq.
* << Fim da inclusão
CLEAR v_valor.
LOOP AT itab_zycbt112l.
ADD itab_zycbt112l-vlme TO v_valor.
ENDLOOP.
wa_zycbt114-saldo = wa_zycbt114-vlme - v_valor.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCM101I01
...
WHEN 'CS'.
PERFORM drill_down_cabecalho.
WHEN 'DESP'.
PERFORM call_zycb105_l.
WHEN 'SAVE'.
* >> Início da inclusão: MODULE USER_COMMAND_0100
IF /pws/zycbe112-flinha = 'X' AND
NOT /pws/zycbe112-nrlinha IS INITIAL.
IF wa_zycbt114-saldo LT /pws/zycbe112-vlme.
CLEAR /pws/zycbe112-vlme.
MESSAGE e015 WITH text-029.
EXIT.
ENDIF.
ENDIF.
* << Fim da inclusão
IF /pws/zycbe112-tpcomis EQ 'F'.
DESCRIBE TABLE itab_zycbt113c LINES v_li.
IF v_li > 1.
MESSAGE i015 WITH text-178 text-179.
EXIT.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCM101