CE PLUS - Nota 003155
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Rotina Mensal
Data/Hora da Publicação: 27/02/2007 00:00:00
Data/Hora Última Alteração: 18/02/2011 17:18:15
Descrição da Nota: ROTINA MENSAL ESTORNO DOCUMENTO
Sintoma
O programa de rotina não faz estorno dos documentos de provisionamento de juros. A rotina vinha
funcionando normalmente durante 2006 e na virada do exercício o estorno não foi feito.
Solução
Foi corrigida a maneira que o programa pega o ano do documento.
Versões Tratadas
6.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 03155 Data: 27/02/2007 Hora: 11:17:38
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 03155
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00026
Agrupamento : 00154
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
02150 - 00001 - 6.0 - 00025 - ESTORNO LIQUIDAÇÃO FB08 FBRA ANO FISCAL
----------------------------------------------------------------------------------------------------
ROTINA MENSAL ESTORNO DOCUMENTO
----------------------------------------------------------------------------------------------------
Palavras Chave:
ROTINA MENSAL ESTORNO DOCUMENTO
----------------------------------------------------------------------------------------------------
Objetos da nota:
FUNC /PWS/ZYCB_TRANSACAO_FB08
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCB_TRANSACAO_FB08
...
IMPORTING
V_YEAR = v_date
EXCEPTIONS
VARIANTE_DE_EXERCICIO = 1
DATA_NAO_ENCONTRADA = 2
EMPRESA_NAO_ENCONTRADA = 3
PERIOD_IN_NOT_VALID = 4
PERIOD_NOT_ASSIGNED = 5
VERSION_UNDEFINED = 6
OTHERS = 7.
* >> Início da inclusão: FUNCTION /PWS/ZYCB_TRANSACAO_FB08
IF NOT v_gjahs IS INITIAL.
v_date = v_gjahs.
ENDIF.
* << Fim da inclusão
select single * from bseg
where bukrs = t_dados-bukrs
and belnr = t_dados-belnr
and gjahr = v_date.
IF sy-subrc NE 0.
t_zycbt032-mandt = t_dados-mandt.
t_zycbt032-tcode = t_dados-tcode.
t_zycbt032-tabela = t_dados-tabela.
t_zycbt032-cpochv = t_dados-cpochv.
t_zycbt032-tpmsg = 'S'.
t_zycbt032-belnr = t_dados-belnr.
SHIFT t_zycbt032-belnr RIGHT DELETING TRAILING space.
TRANSLATE t_zycbt032-belnr USING ' 0'.
APPEND t_zycbt032.
CONTINUE.
ENDIF.
...
...
...
...
...
...