CE PLUS - Nota 001179
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Captação
Data/Hora da Publicação: 10/04/2006 00:00:00
Data/Hora Última Alteração: 18/02/2011 15:08:29
Descrição da Nota: CAMPO NR CLIENTE - LIQUIDAÇÃO DE ACC COM PRÉ PAGTO
Sintoma
Ao fazer uma liquidação de ACC com Pré Pagto, criando uma captação de DP, ao digitarmos o código do
cliente na pasta "Dados adicionais", e apertar a tecla ENTER para consisitir a informação, o código
desaparece, o problema ocorre apenas nos contrato de DP criados pela liquidação com Pré.
Solução
Ajustado para que o campo não seja mais apagado verificando o flag do campo F_PRE da tabela
/pws/zycbe001
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 01179 Data: 10/04/2006 Hora: 09:16:40
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 01179
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00023
Agrupamento : 00108
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
CAMPO NR CLIENTE - LIQUIDAÇÃO DE ACC COM PRÉ PAGTO
----------------------------------------------------------------------------------------------------
Palavras Chave:
CAMPO NR CLIENTE - LIQUIDAÇÃO DE ACC COM PRÉ
CAMPO Nº DO CLIENTE
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB001O01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB001O01
...
ENDIF.
v_countlinej = '00001'.
CLEAR v_dtfinal.
WHEN '0104'.
IF NOT v_nrseqc IS INITIAL.
* >> Início da inclusão: MODULE LOAD_ITAB_ZYCBT002
IF /pws/zycbe001-f_pre NE 'X'.
* << Fim da inclusão
IF ( itab_zycbt002p[] IS INITIAL
* >> Início da exclusão: MODULE LOAD_ITAB_ZYCBT002
AND /pws/zycbe001-tpcontr CA 'P' )
* << Fim da exclusão
* >> Início da inclusão: MODULE LOAD_ITAB_ZYCBT002
AND /pws/zycbe001-tpcontr(1) CA 'PS' )
* << Fim da inclusão
OR okcode EQ 'VINC'
or ( itab_zycbt002p[] IS INITIAL AND
/pws/zycbe001-tpcontr(1) EQ 'T' ).
SELECT SINGLE * FROM /pws/zycbt001 INTO /pws/zycbe001
WHERE nrseqc = v_nrseqc.
SELECT * FROM /pws/zycbt002 INTO TABLE itab_zycbt002p
WHERE nrseqc = v_nrseqc
AND tpparc = 'P'
AND tpcontr EQ /pws/zycbe001-tpcontr.
* >> Início da inclusão: MODULE LOAD_ITAB_ZYCBT002
ENDIF.
* << Fim da inclusão
ENDIF.
ELSEIF /pws/zycbe001-tpcontr(1) EQ 'T'.
IF itab_zycbt002p[] IS INITIAL.
PERFORM parcela_principal.
ENDIF.
...