CE PLUS - Nota 000479
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Pagamento de Juros
Data/Hora da Publicação: 16/12/2005 00:00:00
Data/Hora Última Alteração: 18/02/2011 14:51:10
Descrição da Nota: AJUDA DE PESQUISA DO PAGAMENTO DE JUROS COM CAMPOS DESALINHADOS
Sintoma
Ao entrar em pagamento de juros - criar (/PWS/ZYCB012_C), ao selecionar o matchcode do campo
(Sequência), é exibida a mensagem ``Nenhum Valor encontrado`` e não são exibidas as parcelas de
juros à pagar, sendo que existem juros à pagar
Solução
Os dois campos foram ajustados para que possam ser selecionados corretamente.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 00479 Data: 16/12/2005 Hora: 16:40:36
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 00479
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00022
Agrupamento : 00093
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
AJUDA DE PESQUISA DO PAGAMENTO DE JUROS COM CAMPOS DESALINHADOS
----------------------------------------------------------------------------------------------------
Palavras Chave:
AJUDA DE PESQUISA DO PAGAMENTO DE JUROS COM CAMPOS DESALINHADOS
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/ZZYCBGF3U02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZZYCBGF3U02
...
SELECT SINGLE * FROM /pws/zycbt006
INTO /pws/zycbt006
WHERE nrseqc = record_tab+3(8) AND
nrparc = record_tab+14(3) AND
dtvincul = record_tab+21(8) AND
* >> Início da exclusão:
nrinvoic = record_tab+64(10) AND
gsberf = record_tab+112(4) AND
* << Fim da exclusão
(
* >> Início da inclusão:
nrinvoic = record_tab+64(10) OR
nrinvoic = record_tab+61(10) OR
nrinvoic = record_tab+58(10)
) AND
(
gsberf = record_tab+112(4) OR
gsberf = record_tab+109(4) OR
gsberf = record_tab+88(4)
) AND
(
* << Fim da inclusão
dtpagto = record_tab+104(8) OR
dtpagto = record_tab+80(8)
).
IF sy-subrc EQ 0 OR
v_string+11(1) EQ 'D' OR
...
...
SELECT SINGLE * FROM /pws/zycbt005
INTO wa_zycbt005
WHERE nrseqc = record_tab+3(8) AND
nrparc = record_tab+14(3) AND
dtvincul = record_tab+21(8) AND
* >> Início da exclusão:
nrinvoic = record_tab+64(10) AND
gsberf = record_tab+112(4).
* << Fim da exclusão
* >> Início da inclusão:
(
nrinvoic = record_tab+64(10) OR
nrinvoic = record_tab+61(10) OR
nrinvoic = record_tab+58(10)
) AND
(
gsberf = record_tab+112(4) OR
gsberf = record_tab+109(4) OR
gsberf = record_tab+88(4)
).
* << Fim da inclusão
IF sy-subrc EQ 0 AND NOT
wa_zycbt005-dtcredext IS INITIAL.
CLEAR itab_despesas.
MOVE v_string TO itab_despesas.
APPEND itab_despesas.
...
...
SELECT SINGLE * FROM /pws/zycbt006
INTO /pws/zycbt006
WHERE nrseqc = record_tab+0(8) AND
nrparc = record_tab+11(3) AND
dtvincul = record_tab+18(8) AND
* >> Início da exclusão:
nrinvoic = record_tab+61(10) AND
gsberf = record_tab+91(4) AND
* << Fim da exclusão
* >> Início da inclusão:
(
nrinvoic = record_tab+61(10) OR
nrinvoic = record_tab+58(10)
) AND
(
gsberf = record_tab+91(4) OR
gsberf = record_tab+88(4)
) AND
* << Fim da inclusão
(
dtpagto = record_tab+83(8) OR
dtpagto = record_tab+80(8)
).
IF sy-subrc EQ 0 OR
...