CE PLUS - Nota 003240
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Captação
Data/Hora da Publicação: 14/03/2007 00:00:00
Data/Hora Última Alteração: 22/02/2011 12:50:59
Descrição da Nota: CAPTAÇÃO FB08 - ESTORNAR - CAMPO BUDAT
Sintoma
1-) criar uma captação,
2-) entrar em "captação - modificar",
3-) selecionar a captação que acabei de criar e cliquei no icone da lixeira (excluir a captação)
4-) O programa mostrou a mensagem "documento xxxxxxx estornado pelo documento xxxxxx" e excluiu a
captação. O problema é que não foi feito o estorno, repare qua a mensagem de estorno demostrada
mostra que o documento x é estornado por ele mesmo. e o Programa nem entra em BI nenhum e apenas
exclui a captação.
Solução
Ajuste efetuado no Produto, onde havia um problema na função de obter ano contabil que estava sendo
passado o campo BLDAT ao invés de BUDAT.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 03240 Data: 14/03/2007 Hora: 11:15:19
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 03240
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00026
Agrupamento : 00156
----------------------------------------------------------------------------------------------------
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
02888 - 00002 - 6.0 - 00026 - CAPTAÇÃO - ATUALIZAÇÃO DE DADOS QUANDO PERÍODO CONTÁBIL ESTÁ FECH
03155 - 00003 - 6.0 - 00026 - ROTINA MENSAL ESTORNO DOCUMENTO
----------------------------------------------------------------------------------------------------
CAPTAÇÃO FB08 - ESTORNAR - CAMPO BUDAT
----------------------------------------------------------------------------------------------------
Palavras Chave:
CAPTAÇÃO FB08 - ESTORNAR - CAMPO BUDAT
----------------------------------------------------------------------------------------------------
Objetos da nota:
FUNC /PWS/ZYCB_TRANSACAO_FB08
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCB_TRANSACAO_FB08
...
v_mode type c,
v_update type c,
v_msgid like t100-arbgb,
v_date like T009B-BDATJ,
v_msgno like t100-msgnr.
tables bseg.
loop at t_dados.
CALL FUNCTION '/PWS/ZYGL_OBTEM_ANO_CONTABIL'
EXPORTING
v_bukrs = t_dados-bukrs
* >> Início da exclusão:
v_date = t_dados-bldat
* << Fim da exclusão
* >> Início da inclusão:
v_date = t_dados-budat
* << Fim da inclusão
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:
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.
IF NOT t_dados-bldat IS INITIAL.
CALL FUNCTION '/PWS/ZYGL_OBTEM_ANO_CONTABIL'
EXPORTING
* >> Início da exclusão:
v_bukrs = t_dados-bukrs
v_date = t_dados-bldat
* << Fim da exclusão
* >> Início da inclusão:
v_bukrs = t_dados-bukrs
v_date = t_dados-bldat
* << Fim da inclusão
IMPORTING
* >> Início da exclusão:
V_YEAR = v_date
* << Fim da exclusão
* >> Início da inclusão:
v_year = v_date
* << Fim da inclusão
EXCEPTIONS
* >> Início da exclusão:
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.
* << Fim da exclusão
* >> Início da inclusão:
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.
* << Fim da inclusão
ELSE.
CALL FUNCTION '/PWS/ZYGL_OBTEM_ANO_CONTABIL'
EXPORTING
* >> Início da exclusão:
v_bukrs = t_dados-bukrs
v_date = t_dados-budat
* << Fim da exclusão
* >> Início da inclusão:
v_bukrs = t_dados-bukrs
v_date = t_dados-budat
* << Fim da inclusão
IMPORTING
* >> Início da exclusão:
V_YEAR = v_date
* << Fim da exclusão
* >> Início da inclusão:
v_year = v_date
* << Fim da inclusão
EXCEPTIONS
* >> Início da exclusão:
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.
* << Fim da exclusão
* >> Início da inclusão:
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.
* << Fim da inclusão
ENDIF.
check t_dados-tcode = 'FB08'.
select single * from /pws/zycbt007
where bukrs eq t_dados-bukrs.
if t_dados-stgrd = '01'.
if not /pws/zycbt007-percorr is initial.
t_dados-stgrd = /pws/zycbt007-percorr.
endif.
elseif t_dados-stgrd = '02'.
if not /pws/zycbt007-perencer is initial.
...