Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Recebimento
Data/Hora da Publicação: 05/01/2006 00:00:00
Data/Hora Última Alteração: 20/06/2011 11:55:13
Descrição da Nota: AO ESTORNAR RECEBIMENTO ACUSA PERÍODO CONTÁBIL FECHADO.
Sintoma
Ao tentar efetuar um estorno do recebimento, aparece mensagem referente ao período contábil fechado
e não deixa estornar.
Solução
Fazer verificação de ano contábil.
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 00610 Data: 05/01/2006 Hora: 16:55:03
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 00610
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00022
Agrupamento : 00094
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
AO ESTORNAR RECEBIMENTO ACUSA PERÍODO CONTÁBIL FECHADO.
----------------------------------------------------------------------------------------------------
Palavras Chave:
ESTORNO DO RECEBIMENTO - PERÍODO CONTÁBIL FECHADO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI017F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI017F02
...
WHERE codeven = '006IP' AND
codmod = 'D' AND
chlanc = 'D' AND
tpcodaux = 'G'.
i_monat = wa_nf-dt_mr1m+4(2).
* >> Início da exclusão: FORM VERIFICA_DATA_EM_ABERTO
i_gjahr = wa_nf-dt_mr1m+0(4).
* << Fim da exclusão
i_bukrs = wa_nf-bukrs.
v_contad = /pws/zycbt012-saknr1.
* >> Início da inclusão: FORM VERIFICA_DATA_EM_ABERTO
CALL FUNCTION '/PWS/ZYGL_OBTEM_ANO_CONTABIL'
EXPORTING
v_bukrs = i_bukrs
v_date = wa_nf-DTINCL
IMPORTING
v_year = v_ano.
IF sy-subrc EQ 0.
i_gjahr = v_ano.
ELSE.
i_gjahr = wa_nf-dt_mr1m+0(4).
ENDIF.
* << Fim da inclusão
CALL FUNCTION 'FI_PERIOD_CHECK'
EXPORTING
i_bukrs = i_bukrs
i_gjahr = i_gjahr
i_koart = 'S'
...