Sintoma

Quando estornamos uma fatura não é verificado se existe prestação de contas contabilizado com

despesa no valor real.

Solução

Quando estornamos uma fatura verificar se existe prestação de contas contabilizado com despesa no

valor real.

Informações Complementares

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

Nota Número 11419 Data: 31/08/2011 Hora: 15:24:13

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

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

Nota Número              : 11419

Categoria                : Erro de Programa

Prioridade               : Baixa

Versão PW.CE             : 8.0

Pacote                   : 00008

Agrupamento              : 00084

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

Referência às notas relacionadas:

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

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

ERRO NO ESTORNO DA FATURA COM PRESTAÇÃO DE CONTAS COM VALOR REAL

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

Palavras Chave:

FATURA - ESTORNO DA FATURA - PRESTAÇÃO DE CONTAS - DESPESA VALOR REAL

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

Objetos da nota:

REPS /PWS/MZYCI003F01

REPS /PWS/MZYCI003I01

REPS /PWS/MZYCI003X01

REPT /PWS/SAPMZYCI003

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

Modificações efetuadas em REPS /PWS/MZYCI003F01

...

* >> Início da inclusão:

FORM verifica_pc_vr CHANGING p_del.

  CLEAR: itab_zycit026, itab_zycit027.

  REFRESH: itab_zycit026, itab_zycit027.

  SELECT nrseq nradto nrpres j_1bbranch docfat

     FROM /pws/zycit026

     INTO TABLE itab_zycit026

     WHERE nrseq = /pws/zycie001-nrseq.

  DELETE itab_zycit026 WHERE docfat = '          '.

  IF NOT itab_zycit026[] IS INITIAL.

    SELECT nrseq tpdesp nradto

      FROM /pws/zycit027

      INTO TABLE itab_zycit027

      FOR ALL ENTRIES IN itab_zycit026

      WHERE nrseq = itab_zycit026-nrseq.

    CLEAR: j_1bbranch, adrc, itab_zycit019, itab_zycit019[],

           itab_zycit039, itab_zycit039[].

    SELECT * FROM /pws/zycit039

     INTO TABLE itab_zycit039

     WHERE codmod = 'D'

       AND land1 = t001-land1

       AND vlreal = 'X'.

    SELECT SINGLE * FROM j_1bbranch INTO j_1bbranch

      WHERE bukrs = /pws/zycie006-bukrs

       AND branch = /pws/zycie006-j_1bbranch.

    SELECT SINGLE * FROM adrc INTO adrc

      WHERE addrnumber = j_1bbranch-adrnr.

    SELECT * FROM /pws/zycit019

      INTO TABLE itab_zycit019

      WHERE regio EQ adrc-region

        AND land1 EQ t001-land1.

    IF sy-subrc NE 0.

      SELECT * FROM /pws/zycit019

        INTO TABLE itab_zycit019

        WHERE regio EQ space

          AND land1 EQ t001-land1.

    ENDIF.

    LOOP AT itab_zycit027.

      READ TABLE itab_zycit019 WITH KEY tpdesp = itab_zycit027-tpdesp.

      IF sy-subrc EQ 0.

        READ TABLE itab_zycit039 WITH KEY codigo = itab_zycit019-codigo.

        IF sy-subrc EQ 0.

          p_del = 'X'.

          EXIT.

        ENDIF.

      ENDIF.

    ENDLOOP.

  ENDIF.

ENDFORM.

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/MZYCI003I01

...

        PERFORM recalcula_parcelas.

      WHEN 'OBS'.

        PERFORM observacao.

      WHEN 'DET'.

        PERFORM exibe_item.

      WHEN 'PED'.

        PERFORM selecionar_pedidos.

      WHEN 'FABR'.

        PERFORM exibir_fabricante.

      WHEN 'DELE'.

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

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

          CLEAR v_del.

          PERFORM verifica_pc_vr CHANGING v_del.

          IF v_del = 'X' .

            MESSAGE e015 WITH text-186 text-215.

            EXIT.

          ENDIF.

        ENDIF.

* << Fim da inclusão

...

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

Modificações efetuadas em REPS /PWS/MZYCI003X01

...

* >> Início da inclusão:

DATA: BEGIN OF itab_zycit026 OCCURS 0,

        nrseq      TYPE /pws/zycit026-nrseq,

        nradto     TYPE /pws/zycit026-nradto,

        nrpres     TYPE /pws/zycit026-nrpres,

        j_1bbranch TYPE /pws/zycit026-j_1bbranch,

        docfat     TYPE /pws/zycit026-docfat,

      END OF itab_zycit026.

DATA: BEGIN OF itab_zycit027 OCCURS 0,

        nrseq  TYPE /pws/zycit027-nrseq,

        tpdesp TYPE /pws/zycit027-tpdesp,

        nradto TYPE /pws/zycit027-nradto,

      END OF itab_zycit027.

* << Fim da inclusão

DATA: END OF COMMON PART.

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

Modificações efetuadas em REPT /PWS/SAPMZYCI003

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 215

Texto: (42 caracteres)

"Existe Prestação de Contas com Valor Real."

Comprimento máximo: 50