CE PLUS - Nota 004174
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Rotina Mensal
Data/Hora da Publicação: 13/07/2007 00:00:00
Data/Hora Última Alteração: 10/03/2010 15:50:41
Descrição da Nota: ROTINA MENSAL EXPORTAÇÃO - EXCLUSÃO CONTRATOS DP
Sintoma
Ao executar a Rotina Mensal de Exportação, esta aparecendo uma transferência de LP/CP de contrato
DP, mas não deveria.
Solução
Exlcluir os contratos de DP da Rotina Mensal de Exportação.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04174 Data: 13/07/2007 Hora: 16:50:11
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04174
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00002
Agrupamento : 00003
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
ROTINA MENSAL EXPORTAÇÃO - EXCLUSÃO CONTRATOS DP
----------------------------------------------------------------------------------------------------
Palavras Chave:
ROTINA MENSAL EXPORTAÇÃO EXCLUSÃO CONTRATOS DP
TRANSFERÊNCIA LP/CP
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/ZYCBR003
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR003
...
SELECT *
FROM /pws/zycbt001
APPENDING TABLE itab_zycbt001
WHERE bukrs EQ s_bukrs AND
tpcontr IN s_tpcont AND
( fdtjuros EQ 'C' OR
fdtjuros EQ ' ' ) AND
dtcred LE s_dtentr AND
f_encerrado NE v_f_encerrado AND
f_encerrado NE v_flag_e.
* >> Início da inclusão: FORM SELECIONA_DADOS
DELETE itab_zycbt001 WHERE tpcontr = 'DP'.
* << Fim da inclusão
ELSE.
SELECT * FROM /pws/zycbt062
INTO TABLE itab_zycbt062
WHERE nrseq_c IN s_nrseqc
AND dtvencto LE s_dtentr.
SELECT *
FROM /pws/zycbt001
INTO TABLE itab_zycbt001
WHERE bukrs EQ s_bukrs AND
nrseqc IN s_nrseqc AND
tpcontr IN s_tpcont AND
f_encerrado <> v_f_encerrado AND
f_encerrado <> v_flag_e.
* >> Início da inclusão: FORM SELECIONA_DADOS
DELETE itab_zycbt001 WHERE tpcontr = 'DP'.
* << Fim da inclusão
ENDIF.
IF NOT itab_zycbt062[] IS INITIAL.
SELECT * FROM /pws/zycbt060
INTO TABLE itab_zycbt060
FOR ALL ENTRIES IN itab_zycbt062
WHERE nrseq EQ itab_zycbt062-nrseq.
ENDIF.
IF itab_zycbt001[] IS INITIAL.
MESSAGE i222.
STOP.
...