Sintoma

Ao realizar o estorno de uma fatura de seguro após o recebimento está apagando o registro da tabela

/pws/zycit036, quando deveria apenas apagar o valor realizado.

Solução

Corrigida chave de seleção da tabela /pws/zycit036.

Informações Complementares

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

Nota Número 07302 Data: 11/09/2008 Hora: 14:43:29

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

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

Nota Número              : 07302

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 7.0

Pacote                   : 00006

Agrupamento              : 00064

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

Referência às notas relacionadas:

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

03584  - 00001 - 7.0    - 00001  - ESTORNAR FATURA DE FRETE E SEGURO APÓS RECEBIMENTO,ELIMINA ITEM D

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

AJUSTE DO ESTORNO DA FATURA DE SEGURO APÓS RECEBIMENTO

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

Palavras Chave:

ESTORNO - CUSTO - RECEBIMENTO - FATURA - SEGURO

/PWS/SAPMZYCI003

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

Objetos da nota:

REPS /PWS/MZYCI003F01

REPS /PWS/MZYCI003O01

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

Modificações efetuadas em REPS /PWS/MZYCI003F01

...

            LOOP AT itab_zycit003.

              SELECT SINGLE *

                FROM /pws/zycit036

                  INTO itab_zycit036_aux

               WHERE nrseq    = itab_zycit003-nrseq    AND

                     ebeln    = itab_zycit003-ebeln    AND

                     ebelp    = itab_zycit003-ebelp    AND

                     codmod   = 'D'                    AND

                     origem   = 'FAT'                  AND

                     nrseqori = /pws/zycie006-nrseq    AND

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

                     codigo   = 'FRETEI'               AND

* << Fim da exclusão

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

                     codigo   = 'SEGURO'               AND

* << Fim da inclusão

                     congelamov = 'X'.

              IF itab_zycit036_aux-congelamov EQ 'X'.

                CLEAR: itab_zycit036_aux-vlreal,

                       itab_zycit036_aux-waers_real.

                MODIFY /pws/zycit036 FROM itab_zycit036_aux.

              ELSE.

                DELETE FROM /pws/zycit036

                       WHERE codigo   = 'SEGURO'

                         AND nrseq    = itab_zycit003-nrseq

                         AND ebeln    = itab_zycit003-ebeln

...

...

          LOOP AT itab_zycit003.

            SELECT SINGLE *

              FROM /pws/zycit036

                INTO itab_zycit036_aux

             WHERE nrseq    = itab_zycit003-nrseq    AND

                   ebeln    = itab_zycit003-ebeln    AND

                   ebelp    = itab_zycit003-ebelp    AND

                   codmod   = 'D'                    AND

                   origem   = 'FAT'                  AND

                   nrseqori = /pws/zycie006-nrseq    AND

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

                   codigo   = 'FRETEI'               AND

* << Fim da exclusão

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

                   codigo   = 'SEGURO'               AND

* << Fim da inclusão

                   congelamov = 'X'.

            IF itab_zycit036_aux-congelamov EQ 'X'.

              CLEAR: itab_zycit036_aux-vlreal,

                     itab_zycit036_aux-waers_real.

              MODIFY /pws/zycit036 FROM itab_zycit036_aux.

            ELSE.

              DELETE FROM /pws/zycit036

                     WHERE codigo   = 'SEGURO'

                       AND nrseq    = itab_zycit003-nrseq

                       AND ebeln    = itab_zycit003-ebeln

...

...

      LOOP AT itab_zycit003.

        SELECT SINGLE *

          FROM /pws/zycit036

            INTO itab_zycit036_aux

         WHERE nrseq    = itab_zycit003-nrseq    AND

               ebeln    = itab_zycit003-ebeln    AND

               ebelp    = itab_zycit003-ebelp    AND

               codmod   = 'D'                    AND

               origem   = 'FAT'                  AND

               nrseqori = /pws/zycie006-nrseq    AND

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

               codigo   = 'FRETEI'               AND

* << Fim da exclusão

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

               codigo   = 'SEGURO'               AND

* << Fim da inclusão

               congelamov = 'X'.

        IF itab_zycit036_aux-congelamov EQ 'X'.

          CLEAR: itab_zycit036_aux-vlreal,

                 itab_zycit036_aux-waers_real.

          MODIFY /pws/zycit036 FROM itab_zycit036_aux.

        ELSE.

          DELETE FROM /pws/zycit036

                 WHERE codigo   = 'SEGURO'

                   AND nrseq    = itab_zycit003-nrseq

                   AND ebeln    = itab_zycit003-ebeln

...

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

Modificações efetuadas em REPS /PWS/MZYCI003O01

...

  READ TABLE itab_zyglt100 WITH KEY zexit = 'FAT003' BINARY SEARCH.

  IF sy-subrc EQ 0.

    IF NOT itab_zyglt100-zexit_ativa IS INITIAL.

      PERFORM (itab_zyglt100-formulario) IN PROGRAM

          (itab_zyglt100-programa).

    ENDIF.

  ENDIF.

ENDMODULE.

MODULE verifica_boleto OUTPUT.

  CLEAR v_existe_bol.

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

  IF NOT /pws/zycie006-nrseq_pgfat IS INITIAL.

* << Fim da inclusão

  SELECT SINGLE * FROM /pws/zycbt064

  WHERE nrchave = /pws/zycie006-nrseq_pgfat.

  IF sy-subrc = 0.

    v_existe_bol = 'X'.

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

    ENDIF.

* << Fim da inclusão

  ENDIF.

ENDMODULE.

MODULE exibe_impostos OUTPUT.

...