CE PLUS - Nota 007921
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Fatura Frete Internacional
Data/Hora da Publicação: 16/01/2009 00:00:00
Data/Hora Última Alteração: 22/02/2011 15:52:54
Descrição da Nota: UTILIZANDO DATA INCORRETA NA VERIFICAÇÃO DO ESTORNO DO DOCUMENTO.
Sintoma
Ao tentar estornar a fatura exibe mensagem informando que o documento não pode ser estornado porém
entrando no documento verificassa que este já foi estornado.
Solução
Corrigida a verificação do ano contabil para utilizar a data de lançamento do documento.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07921 Data: 16/01/2009 Hora: 13:53:26
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07921
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00008
Agrupamento : 00081
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
07356 - 00001 - 7.0 - 00007 - FORAM FEITAS 2 FATURAS DE SERVIÇO MAS APENAS 1 É EXIBIDA NO CUSTO
----------------------------------------------------------------------------------------------------
UTILIZANDO DATA INCORRETA NA VERIFICAÇÃO DO ESTORNO DO DOCUMENTO.
----------------------------------------------------------------------------------------------------
Palavras Chave:
ESTORNO - FATURA - DATA - INCORRETA - VEIFICAÇÃO - FORA
/PWS/SAPMZYCI003
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI003F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F02
...
WHERE nrseq EQ /pws/zycie001-nrseq
AND eliminado NE 'X'.
IF sy-subrc NE 0.
MESSAGE e039 WITH text-171.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDFORM.
FORM atualiza_fb08_fat.
* >> Início da exclusão: FORM ATUALIZA_FB08_FAT
PERFORM verifica_ano_contabil USING /pws/zycie006-dtincl
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZA_FB08_FAT
PERFORM verifica_ano_contabil USING /pws/zycie006-dtlanc
* << Fim da inclusão
CHANGING v_ano.
IF v_parcela = 'X'.
READ TABLE itab_zycbt032 WITH KEY tcode = 'FB08'
tabela = '/PWS/ZYCIT132'
cpochv = /pws/zycie006-nrseq
tpmsg = 'S'.
IF sy-subrc = 0.
MESSAGE i030 WITH v_belnr_ant.
IF okcode NE 'DELE'.
CLEAR: /pws/zycie006-statusp , /pws/zycie006-belnr_p.
...
...
MESSAGE i015 WITH text-186.
ENDIF.
ELSE.
CLEAR: bkpf.
IF e_estorno = 'FBRA'.
SELECT SINGLE * FROM bkpf
WHERE bukrs EQ /pws/zycie006-bukrs
AND belnr EQ /pws/zycie006-belnr_f_51
AND gjahr EQ /pws/zycie006-dt_f_51+0(4).
ELSE.
* >> Início da exclusão: FORM VERIFICA_ESTORNO_R3
PERFORM verifica_ano_contabil USING /pws/zycie006-dtincl
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_ESTORNO_R3
PERFORM verifica_ano_contabil USING /pws/zycie006-dtlanc
* << Fim da inclusão
CHANGING v_ano .
IF v_parcela = 'X'.
SELECT SINGLE * FROM bkpf
WHERE bukrs EQ /pws/zycie006-bukrs
AND belnr EQ itab_zycit132-belnr_p
AND gjahr EQ v_ano.
ELSE.
SELECT SINGLE * FROM bkpf
WHERE bukrs EQ /pws/zycie006-bukrs
AND belnr EQ /pws/zycie006-belnr_p
...