Sintoma

O programa não está pemitindo apagar fatura parcela.

Solução

Corrigir chave de seleção da tabela para a verificação de estorno para faturas parceladas

Informações Complementares

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

Nota Número 06673 Data: 03/06/2008 Hora: 13:38:33

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

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

Nota Número              : 06673

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 7.0

Pacote                   : 00005

Agrupamento              : 00051

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

Referência às notas relacionadas:

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

06319  - 00001 - 7.0    - 00005  - ERRO AO LANÇAR ANO CONTÁBIL NA MIRO

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

CORREÇÃO DA VERIFICAÇÃO DE ESTORNO POR FORA DA FATURA

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

Palavras Chave:

FATURA - ESTORNO - PARCELADA - MERCADORIA

/PWS/SAPMZYCI003

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

Objetos da nota:

REPS /PWS/MZYCI003F01

REPS /PWS/MZYCI003F02

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

Modificações efetuadas em REPS /PWS/MZYCI003F01

...

          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.

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

        CLEAR: bkpf, bsak.

* << 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.

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

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

              NOT bkpf-stblg IS INITIAL.

        endif.

* << Fim da inclusão

        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.

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

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

              NOT bkpf-stblg IS INITIAL.

* << Fim da exclusão

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

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

              bkpf-stblg IS INITIAL.

* << Fim da inclusão

          IF itab_zycit132-status NE '2'.

            itab_zycit132-compensado = 'X'.

            MODIFY itab_zycit132.

          ELSE.

            CLEAR itab_zycit132-compensado.

            MODIFY itab_zycit132.

          ENDIF.

        ELSE.

          CLEAR itab_zycit132-compensado.

          MODIFY itab_zycit132.

...

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

Modificações efetuadas em REPS /PWS/MZYCI003F02

...

      ENDIF.

    ENDIF.

  ENDIF.

ENDFORM.

FORM atualiza_fb08_fat.

  PERFORM verifica_ano_contabil USING /pws/zycie006-dtincl

                                CHANGING v_ano.

  IF v_parcela = 'X'.

    SELECT SINGLE *

      FROM bkpf

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

      WHERE belnr EQ /pws/zycie006-belnr_p

* << Fim da exclusão

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

      WHERE belnr EQ itab_zycit132-belnr_p

* << Fim da inclusão

        AND gjahr EQ v_ano

        AND bukrs EQ /pws/zycie006-bukrs.

    READ TABLE itab_zycbt032 WITH KEY tcode  = 'FB08'

                                      tabela = '/PWS/ZYCIT132'

                                      cpochv = /pws/zycie006-nrseq

                                      tpmsg  = 'S'.

    IF sy-subrc EQ 0 AND  NOT bkpf-stblg IS INITIAL.

      MESSAGE i030 WITH v_belnr_ant.

      IF okcode NE 'DELE'.

        CLEAR: /pws/zycie006-statusp , /pws/zycie006-belnr_p.

...

...

  ELSE.

    CLEAR: bkpf.

    IF e_estorno = 'FBRA'.

      SELECT SINGLE * FROM bkpf

                WHERE bukrs EQ /pws/zycie006-bukrs

                AND   belnr EQ /pws/zycie006-belnr_f_51

                AND   gjahr EQ /pws/zycie006-dt_f_51+0(4).

    ELSE.

  PERFORM verifica_ano_contabil USING /pws/zycie006-dtincl

                                CHANGING v_ano .

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

      IF v_parcela = 'X'.

        SELECT SINGLE * FROM bkpf

                  WHERE bukrs EQ /pws/zycie006-bukrs

                  AND   belnr EQ itab_zycit132-belnr_p

                  AND   gjahr EQ v_ano.

      ELSE.

* << Fim da inclusão

      SELECT SINGLE * FROM bkpf

                WHERE bukrs EQ /pws/zycie006-bukrs

                AND   belnr EQ /pws/zycie006-belnr_p

                AND   gjahr EQ v_ano.

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

      ENDIF.

* << Fim da inclusão

    ENDIF.

    IF sy-subrc EQ 0 AND NOT bkpf-stblg IS INITIAL.

      PERFORM popup_message USING text-026 text-025.

...