CE PLUS - Nota 002248
Módulo: CÂMBIO IMPORTAÇÃO
Funcionalidade: Pagamento Antecipado
Data/Hora da Publicação: 11/10/2006 00:00:00
Data/Hora Última Alteração: 18/02/2011 09:43:20
Descrição da Nota: PAGAMENTO ANTECIPADO PROCESSAR BOLETO DESPESAS
Sintoma
No caso do pagto antecipado quando entramos "modificando" e utilizamos o botão de atalho do boleto é
exibido mensagem de opção de Criar ou não o boleto. Se a opção for sim o boleto é procesado
corretamente. No caso da despesa, o mesmo não acontece, pois qdo utilizado o botão de atalho é
exibido a opção de gerar ou não o boleto, porém, se a opção for sim, o programa não está encontrando
a transação e mantendo na tela a lista de despesa.
Solução
Foi adicionado código para tratar os dados vindos da tela de Pagamento antecipado.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 02248 Data: 11/10/2006 Hora: 10:07:25
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 02248
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00025
Agrupamento : 00135
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
PAGAMENTO ANTECIPADO PROCESSAR BOLETO DESPESAS
----------------------------------------------------------------------------------------------------
Palavras Chave:
PAGAMENTO ANTECIPADO PROCESSAR BOLETO DESPESAS
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB105F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB105F01
...
v_codmodul LIKE /pws/zycbe118-codmodul,
v_dtvencto LIKE /pws/zycbe112-dtvencto,
v_desp.
CLEAR v_desp.
MOVE 'X' TO v_desp.
* >> Início da inclusão: FORM PROCESSA_BOLETO
IF /pws/zycbe118-dtvencto IS INITIAL.
MOVE: itab_zycbt118-dtvencto TO v_dtvencto,
itab_zycbt118-codmodul TO v_codmodul.
ELSE.
* << Fim da inclusão
MOVE: /pws/zycbe118-dtvencto TO v_dtvencto,
/pws/zycbe118-codmodul TO v_codmodul.
* >> Início da inclusão: FORM PROCESSA_BOLETO
ENDIF.
* << Fim da inclusão
EXPORT v_codmodul TO MEMORY ID 'E141'.
EXPORT v_desp TO MEMORY ID 'E005'.
CASE v_codmodul.
WHEN 'F' OR 'FR'.
SET PARAMETER ID '/PWS/ZYCBP343' FIELD /pws/zycbe118-nrseq.
SUBMIT /pws/zycbr102 WITH cfinan EQ 'X' WITH data EQ v_dtvencto
AND RETURN.
SET PARAMETER ID '/PWS/ZYCBP343' FIELD limpaid.
WHEN 'CC' OR 'PA' OR 'PG' OR 'FI'.
* >> Início da inclusão: FORM PROCESSA_BOLETO
if /pws/zycbe118-nrseq is initial.
SET PARAMETER ID '/PWS/ZYCBP343' FIELD itab_zycbt118-nrseq.
else.
* << Fim da inclusão
SET PARAMETER ID '/PWS/ZYCBP343' FIELD /pws/zycbe118-nrseq.
* >> Início da inclusão: FORM PROCESSA_BOLETO
endif.
* << Fim da inclusão
SUBMIT /pws/zycbr102 WITH import EQ 'X' WITH data EQ v_dtvencto
...