CE PLUS - Nota 008096
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Liquidação de Contrato
Data/Hora da Publicação: 20/02/2009 00:00:00
Data/Hora Última Alteração: 18/02/2011 16:58:43
Descrição da Nota: LIQUIDAÇÃO DE ACC COM PRÉ PAGTO - PROBLEMA C/NUMERO DE PARCELA
Sintoma
O programa não incluia o campo de parcela na gravação da tabela 004.
Solução
Inclusão da rotina para incluir na tabela 004 o numero de parcelas .
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 08096 Data: 20/02/2009 Hora: 17:21:25
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 08096
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00008
Agrupamento : 00086
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
02946 - 00001 - 6.0 - 00026 - PARÂMETRO /PWS/ZYGL007 CFM SIM - DUMP VERSÃO 4.7 OU SUPERIOR
----------------------------------------------------------------------------------------------------
LIQUIDAÇÃO DE ACC COM PRÉ PAGTO - PROBLEMA C/NUMERO DE PARCELA
----------------------------------------------------------------------------------------------------
Palavras Chave:
LIQUIDAÇÃO DE ACC COM PRÉ PAGTO - PROBLEMA C/NUMERO DE PARCELA
NA GRAVAÇÃO DA TABELA 004
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB014F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB014F01
...
dtliquid EQ '00000000' ) AND
( nrparc EQ 0 OR
nrparc EQ ' ' OR
nrparc EQ '000' ).
ENDIF.
CLEAR /pws/zycbt004.
SELECT SINGLE *
FROM /pws/zycbt001
INTO wa_zycbt001_aux
WHERE nrseqc = itab_zycbt062-nrseq_c.
* >> Início da inclusão: FORM GRAVA_ZYCBT004
Select *
from /pws/zycbt004
into /pws/zycbt004
where nrseqc = itab_zycbt062-nrseq_c
and tpdesp = 'JL'
order by nrparc descending.
endselect.
if sy-subrc = 0.
if /pws/zycbt004-NRPARC is initial.
/PWS/ZYCBT004-NRPARC = '001'.
else.
/PWS/ZYCBT004-NRPARC = /PWS/ZYCBT004-NRPARC + 1 .
endif .
else.
/PWS/ZYCBT004-NRPARC = '001'.
endif.
* << Fim da inclusão
MOVE: itab_zycbt062-nrseq_c TO /pws/zycbt004-nrseqc,
* >> Início da exclusão: FORM GRAVA_ZYCBT004
'J' TO /pws/zycbt004-tpdesp,
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_ZYCBT004
'JL' TO /pws/zycbt004-tpdesp,
* << Fim da inclusão
itab_zycbt062-dtincl TO /pws/zycbt004-dtincl,
wa_zycbt001_aux-nrcontr TO /pws/zycbt004-nrcontr,
wa_zycbt001_aux-tpcontr TO /pws/zycbt004-tpcontr,
...