CE PLUS - Nota 002232

Módulo: DOC. IMPORTAÇÃO

Funcionalidade: DSI

Data/Hora da Publicação: 09/10/2006 00:00:00

Data/Hora Última Alteração: 20/06/2011 12:59:03

Descrição da Nota: ESTORNO DSI

Sintoma

Tratamento para motivo de estorno na DSI, para verificação do período contábil se está aberto ou

fechado

 

 

 

Solução

Fazer tratamento para motivo de estorno da FB08 na DSI

 

Versões Tratadas

6.0

Pré-Requisitos

Produto:

Nota

Descrição

Nota 2158
SISTEMA ACUSA ERRO DE MOTIVO AO ESTORNAR FB08 EM VÁRIAS FUNCIONALIDADES.

Nota 2033
ESTORNO DE UMA FATURA, SE O MÊS DE LANÇAMENTO ORIGINAL ESTIVER FECHADO

Informações Complementares

----------------------------------------------------------------------------------------------------

Nota Número 02232 Data: 09/10/2006 Hora: 10:48:19

----------------------------------------------------------------------------------------------------

 

----------------------------------------------------------------------------------------------------

Nota Número              : 02232

Categoria                : Erro de Programa

Prioridade               : Baixa

Versão PW.CE             : 6.0

Pacote                   : 00025

Agrupamento              : 00134

----------------------------------------------------------------------------------------------------

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

----------------------------------------------------------------------------------------------------

ESTORNO DSI

----------------------------------------------------------------------------------------------------

Palavras Chave:

DSI - ESTORNO - PERIODO CONTABIL - FECHADO ABERTO

 

----------------------------------------------------------------------------------------------------

Objetos da nota:

REPS /PWS/MZYCI058F03

REPS /PWS/MZYCI058TOP

REPS /PWS/MZYCI058X01

 

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCI058F03

 

...

      ENDIF.

    ENDIF.

  ENDLOOP.

ENDFORM.

FORM deleta_variacao.

* >> Início da inclusão: FORM DELETA_VARIACAO

  IF /pws/zycbt007 IS INITIAL.

    SELECT SINGLE *

      FROM /pws/zycbt007

      WHERE bukrs EQ /pws/zycie085-bukrs.

  ENDIF.

* << Fim da inclusão

  IF NOT /pws/zycie085-belnr_0 IS INITIAL.

    v_text = text-208.

    PERFORM executa_fbra USING /pws/zycie085-belnr_0

                               /pws/zycie085-budat_0.

    PERFORM executa_fb08 USING /pws/zycie085-belnr_0

...

 

...

                               /pws/zycie085-budat_3.

  ENDIF.

  PERFORM atualiza_historico.

  IF NOT /pws/zycie085-belnr_0_f05 IS INITIAL.

    v_text = text-208.

* >> Início da exclusão: FORM DELETA_VARIACAO

    PERFORM executa_fb08 USING /pws/zycie085-belnr_0_f05 v_datum.

* << Fim da exclusão

* >> Início da inclusão: FORM DELETA_VARIACAO

    PERFORM executa_fb08 USING /pws/zycie085-belnr_0_f05

 /pws/zycie085-budat_0.

* << Fim da inclusão

  ENDIF.

  IF NOT /pws/zycie085-belnr_1_f05 IS INITIAL.

    v_text = text-208.

* >> Início da exclusão: FORM DELETA_VARIACAO

    PERFORM executa_fb08 USING /pws/zycie085-belnr_1_f05 v_datum.

* << Fim da exclusão

* >> Início da inclusão: FORM DELETA_VARIACAO

    PERFORM executa_fb08 USING /pws/zycie085-belnr_1_f05

 /pws/zycie085-budat_1.

* << Fim da inclusão

  ENDIF.

  IF NOT /pws/zycie085-belnr_2_f05 IS INITIAL.

    v_text = text-208.

* >> Início da exclusão: FORM DELETA_VARIACAO

    PERFORM executa_fb08 USING /pws/zycie085-belnr_2_f05 v_datum.

* << Fim da exclusão

* >> Início da inclusão: FORM DELETA_VARIACAO

    PERFORM executa_fb08 USING /pws/zycie085-belnr_2_f05

 /pws/zycie085-budat_2.

* << Fim da inclusão

  ENDIF.

  IF NOT /pws/zycie085-belnr_3_f05 IS INITIAL.

    v_text = text-208.

* >> Início da exclusão: FORM DELETA_VARIACAO

    PERFORM executa_fb08 USING /pws/zycie085-belnr_3_f05 v_datum.

* << Fim da exclusão

* >> Início da inclusão: FORM DELETA_VARIACAO

    PERFORM executa_fb08 USING /pws/zycie085-belnr_3_f05

 /pws/zycie085-budat_3.

* << Fim da inclusão

  ENDIF.

ENDFORM.

FORM executa_fb08 USING  p_belnr

                         p_budat.

  DATA:  v_belnr_ant LIKE /pws/zycie085-belnr_0.

...

 

...

  itab_zycbe033-tabela = '/PWS/ZYCIE085'.

  itab_zycbe033-cpochv = /pws/zycie100a-nrseq.

  itab_zycbe033-belnr  = p_belnr.

  itab_zycbe033-bukrs  = /pws/zycie085-bukrs.

  itab_zycbe033-bldat  = p_budat.

* >> Início da exclusão: FORM EXECUTA_FB08

  itab_zycbe033-budat  = sy-datum.

* << Fim da exclusão

  itab_zycbe033-gjahs  = itab_zycbe033-bldat+0(4).

  v_belnr_ant = p_belnr.

* >> Início da exclusão: FORM EXECUTA_FB08

  itab_zycbe033-stgrd = '02'.

* << Fim da exclusão

* >> Início da inclusão: FORM EXECUTA_FB08

  CALL FUNCTION '/PWS/ZYGL_MOTIVO_ESTORNO'

       EXPORTING

            v_data  = p_budat

            v_bukrs = /pws/zycie085-bukrs

            v_koart = 'K'

       IMPORTING

            v_subrc = vsubrc

            v_gjahr = itab_zycbe033-gjahr.

  IF vsubrc IS INITIAL.

    itab_zycbe033-budat  = p_budat.

    itab_zycbe033-stgrd  = /pws/zycbt007-percorr.

  ELSE.

    itab_zycbe033-budat  = sy-datlo.

    itab_zycbe033-stgrd  = /pws/zycbt007-perencer.

  ENDIF.

* << Fim da inclusão

  APPEND itab_zycbe033.

* >> Início da exclusão: FORM EXECUTA_FB08

  CALL FUNCTION '/PWS/ZYCI_TRANSACAO_FB08'

* << Fim da exclusão

* >> Início da inclusão: FORM EXECUTA_FB08

  CALL FUNCTION '/PWS/ZYCI_TRANSACAO_FB08_A'

* << Fim da inclusão

       EXPORTING

            v_modo          = v_modo_bi

       TABLES

            t_dados         = itab_zycbe033

            t_campo         = itab_zycbt034

...

 

...

  itab_zycbe033-tcode  = 'FBRA'.

  itab_zycbe033-tabela = '/PWS/ZYCIE085'.

  itab_zycbe033-cpochv = /pws/zycie100a-nrseq.

  itab_zycbe033-belnr  = p_belnr.

  itab_zycbe033-bukrs  = /pws/zycie085-bukrs.

  v_belnr_ant          = p_belnr.

  itab_zycbe033-bldat  = p_budat.

* >> Início da exclusão: FORM EXECUTA_FBRA

  itab_zycbe033-stgrd  = '02'.

* << Fim da exclusão

* >> Início da inclusão: FORM EXECUTA_FBRA

  CALL FUNCTION '/PWS/ZYGL_MOTIVO_ESTORNO'

       EXPORTING

            v_data  = p_budat

            v_bukrs = /pws/zycie085-bukrs

            v_koart = 'K'

       IMPORTING

            v_subrc = vsubrc

            v_gjahr = itab_zycbe033-gjahr.

  IF vsubrc IS INITIAL.

    itab_zycbe033-budat  = p_budat.

    itab_zycbe033-stgrd  = /pws/zycbt007-percorr.

  ELSE.

    itab_zycbe033-budat  = sy-datlo.

    itab_zycbe033-stgrd  = /pws/zycbt007-perencer.

  ENDIF.

* << Fim da inclusão

  APPEND itab_zycbe033.

  CALL FUNCTION '/PWS/ZYCI_TRANSACAO_FBRA'

       EXPORTING

            v_modo          = v_modo_bi

       TABLES

...

 

 

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCI058TOP

 

 

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCI058X01

 

...

      v_faty TYPE p DECIMALS 8,

      v_tot_real LIKE /pws/zycie003-vlreal,

      v_fatpc LIKE t_icms,

      v_nova,

      t_fundes_regtri(120).

* >> Início da inclusão:

  DATA vsubrc LIKE sy-subrc.

* << Fim da inclusão

DATA:  wa_it000      LIKE /pws/zycit000,

       wa_zycit078   LIKE /pws/zycit078.

DATA: END OF COMMON PART.