Sintoma

Ao excluir um boleto de Pagamento de Fatura, o documento contábil contabilizado não é estornado.

Solução

Considerar o campo /pws/zycbt145-cod_fech como pronto quando for igual a PR ou vazio, assim das duas

formas passa pelo estorno(fb08) do documento contábil.

Informações Complementares

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

Nota Número 02184 Data: 02/10/2006 Hora: 10:46:47

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

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

Nota Número              : 02184

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00025

Agrupamento              : 00132

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

COMPLEMENTO DO BOLETO - ESTORNO - PAGAMENTO FATURA

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

Palavras Chave:

COMPLEMENTO DO BOLETO ESTORNO PAGAMENTO FATURA FB08

/PWS/ZYCBT145-COD_FECH DOCUMENTO NÃO ESTORNADO

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

Objetos da nota:

REPS /PWS/MZYCB110F01

REPS /PWS/MZYGL110F01

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

Modificações efetuadas em REPS /PWS/MZYCB110F01

...

                  WHERE belnr = v_belnr

                    AND bukrs = /pws/zycbe031-bukrs

                    AND gjahr = wa_zycbt031-dtcredpr(4)

                    AND shkzg = 'S'.

  IF sy-subrc = 0 AND bseg-augbl IS INITIAL.

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

    IF /pws/zycbe145-cod_fech EQ 'PR'.

* << Fim da exclusão

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

    IF /pws/zycbe145-cod_fech EQ 'PR'

       or /pws/zycbe145-cod_fech eq '  '.

* << Fim da inclusão

      PERFORM est_fb08.

      MESSAGE i212 WITH v_belnr.

      /pws/zycbe031-status = 'I'.

      /pws/zycbe031-statusp = 'I'.

      IF sy-index = 1 OR sy-index = 0.

...

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

Modificações efetuadas em REPS /PWS/MZYGL110F01

...

        INTO TABLE itab_zycbt133

        WHERE bukrs = /pws/zycbe031-bukrs.

      READ TABLE itab_zycbt133 WITH KEY codmod = 'I'.

      IF sy-subrc EQ 0.

        IF /pws/zycbe145-cod_fech EQ 'TR' OR

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

          ( /pws/zycbe145-cod_fech EQ 'PR' AND

* << Fim da exclusão

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

          ( ( /pws/zycbe145-cod_fech EQ 'PR' or

              /pws/zycbe145-cod_fech EQ '  ' ) AND

* << Fim da inclusão

            wa_zycbt108-belnr_co IS INITIAL ).

          IF v_est_aprov = 'N'.

            IF /pws/zycbe031-nrparc NE ' ' AND

               /pws/zycbe031-nrparc NE '000'.

              PERFORM anula_compens_ip_parcial.

...