CE PLUS - Nota 005592
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Fatura Mercadoria
Data/Hora da Publicação: 09/01/2008 00:00:00
Data/Hora Última Alteração: 22/02/2011 16:10:33
Descrição da Nota: NÃO PERMITE ESTORNAR FATURAS CRIADAS NO ANO ANTERIOR
Sintoma
O programa de Fatura não estava permitindo estornar Faturas do ano anterior pois o mesmo verificava
a data de inclusão no momento do estorno
Solução
Verificar a data de lançamento primeiro caso não encontre verificar a data de inclusão dtlanc e
dtincl
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 05592 Data: 09/01/2008 Hora: 14:55:18
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 05592
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00004
Agrupamento : 00029
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
04338 - 00001 - 7.0 - 00002 - NÃO ATUALIZA AS TABELAS DO CÂMBIO AO ESTORNAR FATURAS PARCELADAS.
----------------------------------------------------------------------------------------------------
NÃO PERMITE ESTORNAR FATURAS CRIADAS NO ANO ANTERIOR
----------------------------------------------------------------------------------------------------
Palavras Chave:
ESTORNO - FATURA - DTLANC - DTINCLU
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI003F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F01
...
FORM eliminar_fatura.
* >> Início da inclusão: FORM ELIMINAR_FATURA
DATA: v_data LIKE /pws/zycie006-dtincl.
* << Fim da inclusão
IF /pws/zycie006-tpfatura = '04'.
DELETE FROM /pws/zycit047 WHERE nrseq = /pws/zycie006-nrseq AND
nrfat = /pws/zycie006-nrfat.
PERFORM atualiza_despesas.
ENDIF.
IF v_existe_di NE 'S'.
IF ( NOT itab_zycit132[] IS INITIAL
AND /pws/zycie006-waers NE /pws/zycbt007-waersb
AND ( /pws/zycie006-tpfatura = '01' OR
/pws/zycie006-tpfatura = '11' )
...
...
ENDIF.
ELSE.
IF NOT /pws/zycie006-statusp IS INITIAL
AND /pws/zycie006-frpagto NE 'A'
AND v_pag_antecipado IS INITIAL.
SELECT SINGLE *
FROM bkpf
WHERE belnr EQ /pws/zycie006-belnr_p
AND gjahr EQ /pws/zycie006-dtincl+0(4)
AND bukrs EQ /pws/zycie006-bukrs.
* >> Início da inclusão: FORM ELIMINAR_FATURA
IF NOT /pws/zycie006-dtlanc IS INITIAL.
v_data = /pws/zycie006-dtlanc.
ELSE.
v_data = /pws/zycie006-dtincl.
ENDIF.
* << Fim da inclusão
SELECT SINGLE * FROM bsak
WHERE bukrs EQ /pws/zycie006-bukrs
AND lifnr EQ /pws/zycie006-lifnr
AND belnr EQ /pws/zycie006-belnr_p
* >> Início da exclusão: FORM ELIMINAR_FATURA
AND gjahr EQ /pws/zycie006-dtincl+0(4).
* << Fim da exclusão
* >> Início da inclusão: FORM ELIMINAR_FATURA
AND gjahr EQ v_data+0(4).
* << Fim da inclusão
IF sy-subrc NE 0 OR NOT bkpf-stblg IS INITIAL.
REFRESH it_zycit270.
PERFORM hist_contabil.
PERFORM reverse_document_fb08.
ELSE.
MESSAGE s015 WITH text-043.
EXIT.
ENDIF.
ENDIF.
IF v_erro = 'X'.
...
...
MESSAGE e015 WITH text-123.
EXIT.
ENDIF.
ELSE.
MESSAGE e015 WITH text-123.
EXIT.
ENDIF.
ENDIF.
IF NOT /pws/zycie006-statusp IS INITIAL AND /pws/zycie006-frpagto NE
'A'.
* >> Início da inclusão: FORM ELIMINAR_FATURA
IF NOT /pws/zycie006-dtlanc IS INITIAL.
v_data = /pws/zycie006-dtlanc.
ELSE.
v_data = /pws/zycie006-dtincl.
ENDIF.
* << Fim da inclusão
SELECT SINGLE * FROM bsak
WHERE bukrs EQ /pws/zycie006-bukrs
AND lifnr EQ /pws/zycie006-lifnr
AND belnr EQ /pws/zycie006-belnr_p
* >> Início da exclusão: FORM ELIMINAR_FATURA
AND gjahr EQ /pws/zycie006-dtincl+0(4).
* << Fim da exclusão
* >> Início da inclusão: FORM ELIMINAR_FATURA
AND gjahr EQ v_data+0(4).
* << Fim da inclusão
IF sy-subrc NE 0.
REFRESH it_zycit270.
PERFORM hist_contabil.
PERFORM reverse_document_fb08.
ELSE.
MESSAGE s015 WITH text-043.
EXIT.
ENDIF.
ENDIF.
IF v_erro = 'X'.
...