CE PLUS - Nota 004792
Módulo: CÂMBIO IMPORTAÇÃO
Funcionalidade: Rotina de Pagamento
Data/Hora da Publicação: 21/09/2007 00:00:00
Data/Hora Última Alteração: 18/02/2011 09:51:39
Descrição da Nota: COMPLEMENTO DO BOLETO
Sintoma
No Complemento do Boleto, ao agrupar para estorno dois boletos de pagamento antecipado o sistema não
atualiza a tabela /pws/zycbt117
Solução
Quando chamado O FORM selecionar_ia, não verificar se já existe registros gravados na tabela interna
itab_zycbt117
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04792 Data: 21/09/2007 Hora: 16:00:18
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04792
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00003
Agrupamento : 00013
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
02792 - 00001 - 6.0 - 00026 - PAGAMENTO ANTECIPADO - ERRO AO GERAR O COMPLEMENTO DE BOLETOS AGR
----------------------------------------------------------------------------------------------------
COMPLEMENTO DO BOLETO
----------------------------------------------------------------------------------------------------
Palavras Chave:
COMPLEMENTO DO BOLETO, EXTORNAR BOLETO, APAGAR BOLETO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCM110F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCM110F01
...
DATA:
itab_nrseq TYPE SORTED TABLE OF /pws/zycbt117-nrseq
WITH UNIQUE KEY table_line,
v_nrseq LIKE LINE OF itab_nrseq.
FIELD-SYMBOLS:
<fs_zycbt064> LIKE LINE OF itab_zycbt064.
SELECT * FROM /pws/zycbt117 UP TO 1 ROWS
INTO wa_zycbt117
WHERE nrseq EQ /pws/zycbe031-nrcorresp.
ENDSELECT.
* >> Início da exclusão: FORM SELECIONAR_IA
IF itab_zycbt117[] IS INITIAL.
* << Fim da exclusão
LOOP AT itab_zycbt064
ASSIGNING <fs_zycbt064>
WHERE
nrboleto = /pws/zycbe031-nrseq AND
dtboleto = /pws/zycbe031-dtboleto.
v_nrseq = <fs_zycbt064>-nrchave.
READ TABLE itab_nrseq
WITH KEY table_line = v_nrseq
TRANSPORTING NO FIELDS.
IF sy-subrc <> 0.
INSERT v_nrseq INTO TABLE itab_nrseq.
ENDIF.
ENDLOOP.
IF NOT itab_nrseq IS INITIAL.
SELECT *
FROM /pws/zycbt117
INTO TABLE itab_zycbt117
FOR ALL ENTRIES IN itab_nrseq
WHERE
nrseq = itab_nrseq-table_line.
* >> Início da exclusão: FORM SELECIONAR_IA
ENDIF.
* << Fim da exclusão
ENDIF.
ENDFORM.
FORM selecionar_id.
CLEAR wa_zycbt118.
SELECT SINGLE * FROM /pws/zycbt118
INTO wa_zycbt118
WHERE nrseq EQ /pws/zycbe031-nrcorresp
AND codmod EQ 'I'
AND codmodul EQ /pws/zycbe031-codmodul.
ENDFORM.
...