Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Captação
Data/Hora da Publicação: 25/09/2007 00:00:00
Data/Hora Última Alteração: 22/02/2011 12:51:52
Descrição da Nota: CAPTAÇÃO - CRIAÇÃO AUTOMÁTICA DE PARCELAS DE ACC
Sintoma
Quando crio uma captação de ACC, e preencho campo Forma de cálculo, o programa deveria separar na
pasta "Período de Juros" sendo, juros de ACC até a data da entrega e os juros de ACE da data de
entrega até a data da liquidação, pois o programa não está fazendo este tratamento criando em um
unico Juros da data de crédito/desembolso até a data da liquidação.
Solução
Foi adicionado código para diferenciar os contratos de acc e ace.
7.0
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04819 Data: 25/09/2007 Hora: 19:06:37
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04819
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00003
Agrupamento : 00014
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
04808 - 00001 - 7.0 - 00003 - CAPTAÇÃO - ELIMINAÇÃO DA OBRIGATORIEDADE DA FORMA DE CALCULO PARA
----------------------------------------------------------------------------------------------------
CAPTAÇÃO - CRIAÇÃO AUTOMÁTICA DE PARCELAS DE ACC
----------------------------------------------------------------------------------------------------
Palavras Chave:
CAPTAÇÃO - CRIAÇÃO AUTOMÁTICA DE PARCELAS DE ACC
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB001F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB001F01
...
ENDIF.
ENDFORM.
FORM create_zycbt002_e.
DATA: v_data_lq LIKE /pws/zycbe001-dtliquid.
IF ( /pws/zycbe001-tpcontr(1) EQ 'T' OR
/pws/zycbe001-tpcontr(1) EQ 'A' OR
/pws/zycbe001-tpcontr(1) EQ 'E' ) AND
/pws/zycbe001-ffrcalc IS INITIAL.
EXIT.
ENDIF.
* >> Início da inclusão: FORM CREATE_ZYCBT002_E
IF NOT /pws/zycbe001-ffrcalc IS INITIAL AND
/pws/zycbe001-tpcontr(1) EQ 'A'.
PERFORM create_zycbt002_a.
ELSE.
* << Fim da inclusão
itab_zycbt002-nrparc = v_countlinej.
IF NOT /pws/zycbe001-dtinijur IS INITIAL AND
( /pws/zycbe001-tpcontr(1) EQ 'E' OR
/pws/zycbe001-tpcontr(1) EQ 'T' OR
/pws/zycbe001-tpcontr(1) EQ 'A' ).
itab_zycbt002-dtinicio = /pws/zycbe001-dtinijur.
ELSE.
CASE /pws/zycbe001-fdtjuros.
WHEN 'D'.
itab_zycbt002-dtinicio = /pws/zycbe001-dtdesem.
...
...
itab_zycbt002-txjtotal,
itab_zycbt002-txjvar,
itab_zycbt002-tptxjur,
itab_zycbt002-vlme.
APPEND itab_zycbt002.
ENDIF.
ELSE.
CLEAR: /pws/zycbe002, itab_zycbt002.
REFRESH itab_zycbt002.
ENDIF.
* >> Início da inclusão: FORM CREATE_ZYCBT002_E
ENDIF.
* << Fim da inclusão
ENDFORM.
FORM update_itab_zycbt002.
DATA:
v_lines(4) TYPE n,
v_dtliquid LIKE /pws/zycbt001-dtliquid.
IF okcode_old = 'OBJRES1' OR okcode = 'OBJRES1'.
/pws/zycbe002 = itab_zycbt002.
ENDIF.
PERFORM ver_pro USING ' '.
v_dtliquid = /pws/zycbe001-dtliquid.
...