CE PLUS - Nota 001934
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Pagamento de Juros
Data/Hora da Publicação: 15/08/2006 00:00:00
Data/Hora Última Alteração: 18/02/2011 15:22:17
Descrição da Nota: PAGTO DE JUROS (MATCHCODE)
Sintoma
Quando preechemos o campo credito no exterior no momento da vinculação é permitido que os juros
sejam contabilizados antes da liquidação, porém, no programa de pagamento de juros ZYCB012_C, não
esta abrindo o match code para os juros calculados nestas condições.
Solução
Ajuste efetuado para selecionar registros com a tabela /PWS/ZYCBT005 para os casos de estar sem o
mandante.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 01934 Data: 15/08/2006 Hora: 08:51:51
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 01934
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00024
Agrupamento : 00127
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
PAGTO DE JUROS (MATCHCODE)
----------------------------------------------------------------------------------------------------
Palavras Chave:
JUROS SEJAM CONTABILIZADOS ANTES DA LIQUIDAÇÃO
TABELA /PWS/ZYCBT005 TRATAMENTO SEM MANDANTE
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/ZZYCBGF3U02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZZYCBGF3U02
...
v_string+8(1) EQ 'D' OR
v_string+8(2) EQ 'JC'.
CLEAR itab_despesas.
MOVE v_string TO itab_despesas.
APPEND itab_despesas.
* >> Início da inclusão:
ELSEIF sy-subrc NE 0.
SELECT SINGLE * FROM /pws/zycbt005
INTO wa_zycbt005
WHERE nrseqc = record_tab+0(8) AND
nrparc = record_tab+11(3) AND
dtvincul = record_tab+18(8) AND
nrinvoic = record_tab+61(10) AND
gsberf = record_tab+91(4).
IF sy-subrc EQ 0 AND NOT
wa_zycbt005-dtcredext IS INITIAL.
CLEAR itab_despesas.
MOVE v_string TO itab_despesas.
APPEND itab_despesas.
ENDIF.
* << Fim da inclusão
ENDIF.
ELSE.
CLEAR itab_despesas.
IF v_string+99(8) = '00000000'.
v_string+99(8) = ' '.
...