CE PLUS - Nota 002170
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal
Data/Hora da Publicação: 28/09/2006 00:00:00
Data/Hora Última Alteração: 20/06/2011 13:10:08
Descrição da Nota: TRATAMENTO DE MOTIVO NO ESTORNO DA FB08 NA NF
Sintoma
Ajustado estorno de Nota Fiscal quando o periodo contábil estiver fechado.
Solução
Inserir função para tratamento de estorno na FB08
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 02170 Data: 28/09/2006 Hora: 13:27:21
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 02170
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 6.0
Pacote : 00025
Agrupamento : 00132
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
02033 - 00001 - 6.0 - 00024 - ESTORNO DE UMA FATURA, SE O MÊS DE LANÇAMENTO ORIGINAL ESTIVER FE
02158 - 00002 - 6.0 - 00025 - SISTEMA ACUSA ERRO DE MOTIVO AO ESTORNAR FB08 EM VÁRIAS FUNCIONAL
----------------------------------------------------------------------------------------------------
TRATAMENTO DE MOTIVO NO ESTORNO DA FB08 NA NF
----------------------------------------------------------------------------------------------------
Palavras Chave:
MOTIVO DE ESTORNO - PARAMETRO - FB08 - NOTA FISCAL
/PWS/ZYCBT007
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
IF /pws/zycbt007 IS INITIAL.
SELECT SINGLE *
FROM /pws/zycbt007
WHERE bukrs EQ /pws/zycie041-bukrs.
ENDIF.
* >> Início da exclusão: FORM BI_FB08
it_zycbe033-stgrd = /pws/zycbt007-percorr.
* << Fim da exclusão
* >> Início da inclusão: FORM BI_FB08
CALL FUNCTION '/PWS/ZYGL_MOTIVO_ESTORNO'
EXPORTING
v_data = /pws/zycie041a-DTINCL
v_bukrs = /pws/zycie041a-bukrs
v_koart = 'K'
IMPORTING
v_subrc = v_subrc
v_gjahr = itab_zycbe033-gjahr .
IF v_subrc = 0.
itab_zycbe033-budat = /pws/zycie041a-DTINCL.
itab_zycbe033-stgrd = /pws/zycbt007-percorr.
ELSE.
itab_zycbe033-budat = sy-datum.
itab_zycbe033-stgrd = /pws/zycbt007-perencer .
ENDIF.
* << Fim da inclusão
APPEND it_zycbe033.
* >> Início da exclusão: FORM BI_FB08
CALL FUNCTION '/PWS/ZYCI_TRANSACAO_FB08'
* << Fim da exclusão
* >> Início da inclusão: FORM BI_FB08
CALL FUNCTION '/PWS/ZYCI_TRANSACAO_FB08_A'
* << Fim da inclusão
EXPORTING
* >> Início da exclusão: FORM BI_FB08
v_modo = v_modo_bi
* << Fim da exclusão
* >> Início da inclusão: FORM BI_FB08
V_MODO = v_modo_bi
* << Fim da inclusão
TABLES
* >> Início da exclusão: FORM BI_FB08
t_dados = it_zycbe033
t_campo = it_zycbt034
t_zycbt032 = it_zycbt032
* << Fim da exclusão
* >> Início da inclusão: FORM BI_FB08
t_dados = it_zycbe033
T_CAMPO = it_zycbt034
T_ZYCBT032 = it_zycbt032
* << Fim da inclusão
EXCEPTIONS
* >> Início da exclusão: FORM BI_FB08
campo_em_branco = 1
OTHERS = 2.
* << Fim da exclusão
* >> Início da inclusão: FORM BI_FB08
CAMPO_EM_BRANCO = 1
OTHERS = 2.
* << Fim da inclusão
IF sy-subrc = 0.
READ TABLE it_zycbt032 WITH KEY tcode = 'FB08'
tabela = text-014
cpochv = /pws/zycie041a-nfglobal
tpmsg = 'S'.
...
...
v_belnr_ant = /pws/zycie041-belnr_f_02.
IF /pws/zycbt007 IS INITIAL.
SELECT SINGLE *
FROM /pws/zycbt007
WHERE bukrs EQ /pws/zycie041-bukrs.
* >> Início da inclusão: FORM REVERSE_DOCUMENTO_IMPOS_FB08
ENDIF.
CALL FUNCTION '/PWS/ZYGL_MOTIVO_ESTORNO'
EXPORTING
v_data = /pws/zycie041-DTINCL
v_bukrs = /pws/zycie041-bukrs
v_koart = 'K'
IMPORTING
v_subrc = v_subrc
v_gjahr = itab_zycbe033-gjahr .
IF v_subrc = 0.
itab_zycbe033-budat = /pws/zycie041-DTINCL.
itab_zycbe033-stgrd = /pws/zycbt007-percorr.
ELSE.
itab_zycbe033-budat = sy-datum.
itab_zycbe033-stgrd = /pws/zycbt007-perencer .
* << Fim da inclusão
ENDIF.
* >> Início da exclusão: FORM REVERSE_DOCUMENTO_IMPOS_FB08
itab_zycbe033-stgrd = /pws/zycbt007-percorr.
APPEND itab_zycbe033.
CALL FUNCTION '/PWS/ZYCI_TRANSACAO_FB08'
* << Fim da exclusão
* >> Início da inclusão: FORM REVERSE_DOCUMENTO_IMPOS_FB08
APPEND it_zycbe033.
CALL FUNCTION '/PWS/ZYCI_TRANSACAO_FB08_A'
* << Fim da inclusão
EXPORTING
* >> Início da exclusão: FORM REVERSE_DOCUMENTO_IMPOS_FB08
v_modo = v_modo_bi
* << Fim da exclusão
* >> Início da inclusão: FORM REVERSE_DOCUMENTO_IMPOS_FB08
V_MODO = v_modo_bi
* << Fim da inclusão
TABLES
* >> Início da exclusão: FORM REVERSE_DOCUMENTO_IMPOS_FB08
t_dados = itab_zycbe033
t_campo = itab_zycbt034
t_zycbt032 = itab_zycbt032
* << Fim da exclusão
* >> Início da inclusão: FORM REVERSE_DOCUMENTO_IMPOS_FB08
t_dados = it_zycbe033
T_CAMPO = it_zycbt034
T_ZYCBT032 = it_zycbt032
* << Fim da inclusão
EXCEPTIONS
* >> Início da exclusão: FORM REVERSE_DOCUMENTO_IMPOS_FB08
campo_em_branco = 1
OTHERS = 2.
* << Fim da exclusão
* >> Início da inclusão: FORM REVERSE_DOCUMENTO_IMPOS_FB08
CAMPO_EM_BRANCO = 1
OTHERS = 2.
* << Fim da inclusão
IF sy-subrc = 0.
READ TABLE itab_zycbt032 WITH KEY tcode = 'FB08'
tabela = '/PWS/ZYCIT041'
cpochv = /pws/zycie041-nrseq
tpmsg = 'S'.
...