CE PLUS - Nota 004625
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Rotina de Pagamento
Data/Hora da Publicação: 05/09/2007 00:00:00
Data/Hora Última Alteração: 10/03/2010 16:55:27
Descrição da Nota: COMPLEMENTO DO BOLETO - ESTORNO - DESPESA EXP. COM ESTRATÉGIA
Sintoma
Ao efetuar o estorno de um boleto de despesa de exportação, onde o mesmo passou por estratégia, não
esta limpando os dados da estratégia na /pws/zycbt004, impossibilitando gerar boleto novamente.
Solução
Alterar a leitura da wa_despesa para /pws/zycbt004.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04625 Data: 05/09/2007 Hora: 11:03:26
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04625
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00002
Agrupamento : 00011
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
COMPLEMENTO DO BOLETO - ESTORNO - DESPESA EXP. COM ESTRATÉGIA
----------------------------------------------------------------------------------------------------
Palavras Chave:
COMPLEMENTO DO BOLETO ESTORNO DESPESA EXP. COM ESTRATÉGIA
SUJEIRA DADOS ESTRATÉGIA /PWS/ZYCBT004 /PWS/ZYCBT156 FRGZU
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYGL110F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL110F01
...
nlib = space
seq = space
aprova = space
bname = space
dtbname = space
hrbname = space
frggr = space
WHERE nrseq = /pws/zycbe031-nrcorresp.
ENDIF.
ELSEIF /pws/zycbe031-mdcorresp = 'ED'.
* >> Início da exclusão: FORM ATUALIZA_CAMPOS_ESTRATEGIA_ORI
IF wa_despesa-frpagto = 'R'.
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZA_CAMPOS_ESTRATEGIA_ORI
IF /pws/zycbt004-frpagto = 'R' AND /pws/zycbe031-mdcorresp = 'ED'.
LOOP AT itab_zycbt064.
* << Fim da inclusão
UPDATE /pws/zycbt004 SET frgzu = space
estrat = space
frgsx1 = space
frgsx2 = space
frgsx3 = space
frgsx4 = space
frgsx5 = space
nlib = space
seq = space
aprova = space
bname = space
dtbname = space
hrbname = space
frggr = space
* >> Início da exclusão: FORM ATUALIZA_CAMPOS_ESTRATEGIA_ORI
WHERE nrseqc = /pws/zycbe031-nrcorresp
AND tpdesp = /pws/zycbe031-tpdesp
AND nrparc = /pws/zycbe031-nrparc
AND dtincl = /pws/zycbe031-dtincl
AND dtliquid = /pws/zycbe031-dtliquid
AND tpjuros = /pws/zycbe031-tpjuros.
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZA_CAMPOS_ESTRATEGIA_ORI
WHERE nrseqc = itab_zycbt064-nrchave
AND tpdesp = itab_zycbt064-tpdesp
AND nrparc = itab_zycbt064-nrparc
AND dtincl = itab_zycbt064-dtincl
AND dtliquid = itab_zycbt064-dtliquid
AND tpjuros = itab_zycbt064-tpjuros.
ENDLOOP.
* << Fim da inclusão
ENDIF.
ELSEIF /pws/zycbe031-mdcorresp = 'EC'.
* >> Início da exclusão: FORM ATUALIZA_CAMPOS_ESTRATEGIA_ORI
IF wa_despesa-frpagto = 'R'.
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZA_CAMPOS_ESTRATEGIA_ORI
IF /pws/zycbt156-frpagto = 'R' AND /pws/zycbe031-mdcorresp = 'EC'.
* << Fim da inclusão
UPDATE /pws/zycbt156 SET frgzu = space
estrat = space
...