Sintoma

Ao tentar estornar a fatura está exibindo a mensagem "Fatura já foi liquidada."e não realiza o

estorno do documento, porém o documento não foi compensado.

Solução

Ajustado programa para utilizar a data de lançamento para encontrar o ano contabil do documeto.

Informações Complementares

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

Nota Número 09790 Data: 05/02/2010 Hora: 14:14:51

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

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

Nota Número              : 09790

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 8.0

Pacote                   : 00002

Agrupamento              : 00007

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

Referência às notas relacionadas:

Número - Ordem - Versão - Pacote - Descrição Breve

06673  - 00001 - 7.0    - 00005  - CORREÇÃO DA VERIFICAÇÃO DE ESTORNO POR FORA DA FATURA

07785  - 00002 - 7.0    - 00008  - AJUSTE NA VERIFICAÇÃO DE BOLETO PARA FATURA DE SERVIÇO

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

UTILIZAR DATA LANÇAMENTO PARA ENCONTRAR O ANO CONTABIL

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

Palavras Chave:

ESTORNO - FATURA - DATA - INCLUSÃO - LANÇAMENTO - ANO - CONTABIL

/PWS/SAPMZYCI003

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

Objetos da nota:

REPS /PWS/MZYCI003F01

REPS /PWS/MZYCI003O01

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

Modificações efetuadas em REPS /PWS/MZYCI003F01

...

FORM eliminar_fatura.

  DATA: v_data LIKE /pws/zycie006-dtincl.

  PERFORM verifica_boleto.

  IF v_stop = 'X'.

    EXIT.

  ENDIF.

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

  PERFORM verifica_ano_contabil USING /pws/zycie006-dtincl

* << Fim da exclusão

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

  PERFORM verifica_ano_contabil USING /pws/zycie006-dtlanc

* << Fim da inclusão

                                CHANGING v_ano .

  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' )

          AND /pws/zycie006-frpagto = 'N' )

          OR  ( NOT itab_zycit132[] IS INITIAL

          AND /pws/zycie006-waers NE /pws/zycbt007-waersb

          AND ( /pws/zycie006-tpfatura = '01'

          OR /pws/zycie006-tpfatura = '11' )

          AND /pws/zycie006-frpagto = 'P' ).

      v_parcela = 'X'.

      LOOP AT itab_zycit132 WHERE belnr_p NE space.

        CLEAR: bkpf, bsak.

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

        PERFORM verifica_ano_contabil USING itab_zycit132-dt_belnrp

                                      CHANGING v_ano .

* << Fim da inclusão

        SELECT SINGLE *

          FROM bkpf

          WHERE belnr EQ itab_zycit132-belnr_p

            AND gjahr EQ v_ano

            AND bukrs EQ /pws/zycie006-bukrs.

        IF ( sy-subrc = 0 AND itab_zycit132-status NE 'X' ) AND

              NOT bkpf-stblg IS INITIAL.

        ENDIF.

        SELECT SINGLE * FROM bsak

          WHERE bukrs EQ /pws/zycie006-bukrs

...

...

FORM gravar_cambio.

  DATA wa_zycbt119 LIKE /pws/zycbt119.

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

  PERFORM verifica_ano_contabil USING /pws/zycie006-dtincl

* << Fim da exclusão

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

  PERFORM verifica_ano_contabil USING /pws/zycie006-dtlanc

* << Fim da inclusão

                                CHANGING v_ano .

  IF /pws/zycie006-tpfatura EQ '11'.

    SELECT SINGLE * FROM /pws/zycbt064

      WHERE nrchave   = /pws/zycie006-nrseqre

      AND   mdcorresp = 'CP'.

  ELSE.

    SELECT SINGLE * FROM /pws/zycbt064

      WHERE nrchave   = /pws/zycie006-nrseq_pgfat

      AND   mdcorresp = 'IP'.

  ENDIF.

...

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

Modificações efetuadas em REPS /PWS/MZYCI003O01

...

          WHERE nrseq = /pws/zycie006-nrseq

            AND nrfat = /pws/zycie006-nrfat

            AND eliminado EQ 'X'.

    ELSE.

      SELECT * FROM /pws/zycit132 INTO TABLE itab_zycit132

          WHERE nrseq = /pws/zycie006-nrseq

            AND nrfat = /pws/zycie006-nrfat

            AND eliminado NE 'X'.

    ENDIF.

    LOOP AT itab_zycit132 WHERE belnr_p NE space.

* >> Início da exclusão: MODULE LOAD_DATA

      PERFORM verifica_ano_contabil USING /pws/zycie006-dtincl

* << Fim da exclusão

* >> Início da inclusão: MODULE LOAD_DATA

      PERFORM verifica_ano_contabil USING itab_zycit132-dt_belnrp

* << Fim da inclusão

                                    CHANGING v_ano .

      SELECT SINGLE * FROM bsak

        WHERE bukrs EQ /pws/zycie006-bukrs

          AND lifnr EQ /pws/zycie006-lifnr

          AND belnr EQ itab_zycit132-belnr_p

          AND gjahr EQ v_ano.

      IF sy-subrc = 0.

        itab_zycit132-compensado = 'X'.

        MODIFY itab_zycit132.

      ELSE.

...