CE PLUS - Nota 003943
Módulo: CÂMBIO FINANCEIRO
Funcionalidade: Remessa
Data/Hora da Publicação: 15/06/2007 00:00:00
Data/Hora Última Alteração: 18/02/2011 13:47:40
Descrição da Nota: DESPESAS - CAMPO NUMERO DESPESA
Sintoma
Após a criação de despesa para a remessa, se entrarmos no botão de consulta de despesa,
selecionarmos a linha de uma despesa na table control que é apresentada e clicarmos no botão F6
(Gera boleto). O sistema vai para o programa \PWS\ZYCB105_L (Rotina de pagamento) sem preencher o
campo "NR DESPESA" com o número da despesa selecionada na table control.
Solução
Atualização do programa de Remessa, na table control de despesa para permitir a geração do boleto.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 03943 Data: 15/06/2007 Hora: 13:48:09
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 03943
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00001
Agrupamento : 00170
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
02248 - 00001 - 6.0 - 00025 - PAGAMENTO ANTECIPADO PROCESSAR BOLETO DESPESAS
----------------------------------------------------------------------------------------------------
DESPESAS - CAMPO NUMERO DESPESA
----------------------------------------------------------------------------------------------------
Palavras Chave:
DESPESAS - CAMPO NUMERO DESPESA
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB105F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB105F01
...
MOVE: itab_zycbt118-dtvencto TO v_dtvencto,
itab_zycbt118-codmodul TO v_codmodul.
ELSE.
MOVE: /pws/zycbe118-dtvencto TO v_dtvencto,
/pws/zycbe118-codmodul TO v_codmodul.
ENDIF.
EXPORT v_codmodul TO MEMORY ID 'E141'.
EXPORT v_desp TO MEMORY ID 'E005'.
CASE v_codmodul.
WHEN 'F' OR 'FR'.
* >> Início da inclusão: FORM PROCESSA_BOLETO
if /pws/zycbe118-nrseq is initial.
/pws/zycbe118-nrseq = v_nrseq.
endif.
* << Fim da inclusão
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'.
IF /pws/zycbe118-nrseq IS INITIAL.
SET PARAMETER ID '/PWS/ZYCBP343' FIELD itab_zycbt118-nrseq.
ELSE.
SET PARAMETER ID '/PWS/ZYCBP343' FIELD /pws/zycbe118-nrseq.
ENDIF.
...