CE PLUS - Nota 000991
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Captação
Data/Hora da Publicação: 08/03/2006 00:00:00
Data/Hora Última Alteração: 18/02/2011 15:07:11
Descrição da Nota: PRORROGAÇÃO DA DATA DE LIQUIDAÇÃO PARA CONTRATOS DE PRÉ PAGAMENTO
Sintoma
Ao prorrogar a data de liquidação do contrato de pre pagamento no ambiente DEV 130, o programa não
realiza efetivamente a prorrogação e elimina a informação referente ao numero de dias da ultima
parcela de principal.Detalhes do teste no arquivo em anexo.
Solução
Foram efetuadas consistências para quando a Prorrogação da Data da Liquidação for efetuada o
programa calcular o número de dias da última parcela de principal.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 00991 Data: 08/03/2006 Hora: 14:39:25
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 00991
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00023
Agrupamento : 00104
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
PRORROGAÇÃO DA DATA DE LIQUIDAÇÃO PARA CONTRATOS DE PRÉ PAGAMENTO
----------------------------------------------------------------------------------------------------
Palavras Chave:
CAPTAÇÃO PRORROGAÇÃO DATA DE LIQUIDAÇÃO PRÉ PAGAMENTO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB001F01
REPS /PWS/MZYCB001O01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB001F01
...
itab_zycbt002p-nrdias =
( itab_zycbt002p-dtfinal - itab_zycbt002p-dtinicio ).
ENDIF.
ENDIF.
ENDIF.
* >> Início da exclusão: FORM DIAS_PRINCIPAL
READ TABLE itab_zycbt003 WITH KEY nrparc = itab_zycbt002p-nrparc.
* << Fim da exclusão
* >> Início da inclusão: FORM DIAS_PRINCIPAL
sort itab_zycbt003 by dtpror descending.
read table itab_zycbt003 with key tppror = 'L'.
* << Fim da inclusão
IF sy-subrc = 0.
IF itab_zycbt003-dtpror IS INITIAL.
v_dtfinal = /pws/zycbe001-dtliquid.
ELSE.
v_dtfinal = itab_zycbt003-dtpror.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB001O01
...
DESCRIBE TABLE itab_zycbt002p LINES v_linha.
IF v_linha > 0.
LOOP AT itab_zycbt002p.
IF sy-tabix EQ v_linha.
itab_zycbt002p-dtfinal = v_dtpror.
* >> Início da exclusão: MODULE ATUALIZA_PRORROGACAO
CLEAR itab_zycbt002p-nrdias.
* << Fim da exclusão
* >> Início da inclusão: MODULE ATUALIZA_PRORROGACAO
itab_zycbt002p-nrdias = itab_zycbt002p-dtfinal -
itab_zycbt002p-dtinicio.
* << Fim da inclusão
MODIFY itab_zycbt002p INDEX v_linha.
ENDIF.
ENDLOOP.
ENDIF.
ENDIF.
...