Sintoma

Ao estornar a fatura de despesa está eliminando linha da tabela /PWS/ZYCIT036 e deveria ajustar os

valores do movimentado e diferença.

Solução

Adcionado um tratamento para atualizar valores ao estornar fatura.

Informações Complementares

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

Nota Número 01085 Data: 24/03/2006 Hora: 17:25:54

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

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

Nota Número              : 01085

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 6.0

Pacote                   : 00023

Agrupamento              : 00106

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

AO ESTORNAR FATURA DE DESPESA ESTÁ ELIMINANDO LINHA DO CUSTO

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

Palavras Chave:

FATURA DE DESPESA - ESTORNO DE FATURA - DELETANDO LINHA DO CUSTO

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

Objetos da nota:

REPS /PWS/MZYCI003F01

REPS /PWS/MZYCI003I01

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

Modificações efetuadas em REPS /PWS/MZYCI003F01

...

                                 ebelp  = itab_zycit003-ebelp

                                 codigo = itab_despesa_custo-codigo

                               nrseqori = /pws/zycie006-nrseq

                                 origem = 'FAT'.

        IF sy-subrc = 0.

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

          MOVE itab_zycit036_aux TO wa_zycit036_aux.

          DELETE /pws/zycit036 FROM wa_zycit036_aux.

* << Fim da exclusão

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

          SELECT SINGLE congelamov

            FROM /pws/zycit036

              INTO v_congelamov

           WHERE nrseq    = itab_zycit036_aux-nrseq    AND

                 ebeln    = itab_zycit036_aux-ebeln    AND

                 ebelp    = itab_zycit036_aux-ebelp    AND

                 nrseqori = itab_zycit036_aux-nrseqori AND

                 congelamov = 'X'.

          IF itab_zycit036_aux-vlreal IS INITIAL

                AND v_congelamov NE 'X'.

            DELETE FROM /pws/zycit036 WHERE

                   nrseq    = itab_zycit036_aux-nrseq  AND

                   ebeln    = itab_zycit036_aux-ebeln  AND

                   ebelp    = itab_zycit036_aux-ebelp  AND

                   codigo   = itab_zycit036_aux-codigo AND

                   origem   = itab_zycit036_aux-origem AND

                   nrseqori = itab_zycit036_aux-nrseqori.

          ELSE.

            CLEAR: itab_zycit036_aux-vlreal,

                   itab_zycit036_aux-waers_real.

            MODIFY /pws/zycit036 FROM itab_zycit036_aux.

          ENDIF.

* << Fim da inclusão

        ENDIF.

      ENDLOOP.

    ENDLOOP.

  ENDIF.

ENDFORM.

...

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

Modificações efetuadas em REPS /PWS/MZYCI003I01

...

    ENDIF.

  ENDIF.

  IF ( /pws/zycie006-tpfatura = '02' OR

     /pws/zycie006-tpfatura = '03' OR

     /pws/zycie006-tpfatura = '04' ) AND

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

     v_forn IS INITIAL.

* << Fim da exclusão

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

     v_forn IS INITIAL

     AND /pws/zycie006-eliminado NE 'X'.

* << Fim da inclusão

    CLEAR /pws/zycie006-lifnr.

    v_forn = 'X'.

  ENDIF.

  IF t001-land1 = 'CL'.

    /pws/zycie006-waers_clp = /pws/zycbt007-waersb.

...