CE PLUS - Nota 007328
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Rotina de Pagamento
Data/Hora da Publicação: 18/09/2008 00:00:00
Data/Hora Última Alteração: 11/03/2010 10:09:18
Descrição da Nota: PROCESSAR BOLETO - COMPLEMENTO DO BOLETO - BOTÃO ATALHO BOLETO/SAÍDA
Sintoma
1 - Ao entrar no processar boleto, não processar nenhum boleto e clicar no botão atalho para o
complemento do boleto, o mesmo é chamado sem nenhum dado. Não permitir. 2 - Ao entrar no complemento
do boleto, sem salvar os dados, e clicar no atalho para saída de pagamento, vai para saída, mas não
deveria.
Solução
1 - Se não foi processado nenhum boleto, não chamar tela de complemento do boleto.
2 - Se não foi salvo o boleto, não exibir o botão de atalho para saída de pagamento. Só exibir após
o campo /pws/zycbt031-belnr_p estiver preenchido, o que indica que o boleto foi salvo com sucesso.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07328 Data: 18/09/2008 Hora: 16:44:21
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07328
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00007
Agrupamento : 00065
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
PROCESSAR BOLETO - COMPLEMENTO DO BOLETO - BOTÃO ATALHO BOLETO/SAÍDA
----------------------------------------------------------------------------------------------------
Palavras Chave:
PROCESSAR BOLETO COMPLEMENTO DO BOLETO BOTÃO ATALHO BOLETO/SAÍDA
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYGL110F01
REPS /PWS/ZYCBR102
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL110F01
...
ENDIF.
IF v_fcambio EQ 'N'.
v_status_s = '0'.
v_status_despesa = '1'.
wa_zycbt031 = /pws/zycbe031.
ENDIF.
ELSE.
v_status_despesa = '0'.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM EXIBE_ALTERA_100
IF /pws/zycbe031-belnr_p IS INITIAL.
itab_pf_status-fcode = 'PAG'.
APPEND itab_pf_status.
ENDIF.
* << Fim da inclusão
SET PF-STATUS '0200' EXCLUDING itab_pf_status.
REFRESH itab_pf_status.
ENDFORM.
FORM desabilitar_100.
DATA:
v_belnr_as TYPE /pws/zycbt117-belnr_as.
IF /pws/zycbt118-fcambio = 'N'.
v_status_s = '0'.
ELSEIF /pws/zycbt118-fcambio = 'S'.
* >> Início da exclusão: FORM DESABILITAR_100
IF v_status_despesa = '1'.
v_status_despesa = '0'.
ELSE.
v_status_despesa = '1'.
ENDIF.
* << Fim da exclusão
* >> Início da inclusão: FORM DESABILITAR_100
v_status_despesa = v_status_s.
* << Fim da inclusão
ENDIF.
IF v_desp_a = 'A'.
v_altera_dtliquid = 'X'.
v_status_despesa = '1'.
v_desp_a = 'F'.
ENDIF.
IF v_status_s = '1'.
SELECT SINGLE * FROM /pws/zycbt134
WHERE nrseq = /pws/zycbe031-nrseq AND
dtboleto = /pws/zycbe031-dtboleto.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR102
...
IF NOT itab_boleto[] IS INITIAL.
READ TABLE itab_boleto INDEX 1.
v_pri_nrseq = itab_boleto-nrseq.
SORT itab_boleto BY nrseq DESCENDING.
READ TABLE itab_boleto INDEX 1.
v_ult_nrseq = itab_boleto-nrseq.
ELSE.
v_pri_nrseq = /pws/zycbe031-nrseq.
v_ult_nrseq = /pws/zycbe031-nrseq.
ENDIF.
* >> Início da inclusão: FORM PROCESSA_DADOS
IF NOT v_pri_nrseq IS INITIAL AND NOT v_ult_nrseq IS INITIAL.
* << Fim da inclusão
EXPORT v_pri_nrseq TO MEMORY ID '001'.
EXPORT v_ult_nrseq TO MEMORY ID '002'.
CALL TRANSACTION '/PWS/ZYCB110'.
CLEAR: itab_boleto.
REFRESH: itab_boleto.
* >> Início da inclusão: FORM PROCESSA_DADOS
ENDIF.
* << Fim da inclusão
WHEN 'PREV'.
PERFORM impressao_previa.
...
...
IF NOT itab_boleto[] IS INITIAL.
READ TABLE itab_boleto INDEX 1.
v_pri_nrseq = itab_boleto-nrseq.
SORT itab_boleto BY nrseq DESCENDING.
READ TABLE itab_boleto INDEX 1.
v_ult_nrseq = itab_boleto-nrseq.
ELSE.
v_pri_nrseq = /pws/zycbe031-nrseq.
v_ult_nrseq = /pws/zycbe031-nrseq.
ENDIF.
* >> Início da inclusão: FORM USER_COMMAND
IF NOT v_pri_nrseq IS INITIAL AND NOT v_ult_nrseq IS INITIAL.
* << Fim da inclusão
EXPORT v_pri_nrseq TO MEMORY ID '001'.
EXPORT v_ult_nrseq TO MEMORY ID '002'.
CALL TRANSACTION '/PWS/ZYCB110'.
CLEAR: itab_boleto.
REFRESH: itab_boleto.
* >> Início da inclusão: FORM USER_COMMAND
ENDIF.
* << Fim da inclusão
WHEN 'PROC'.
PERFORM seleciona_selreg_aux.
...